Note36.hs

module Sharc.Instruments.ContrabassMuted.Note36 (note36) where

import Sharc.Types

note36 :: Note
note36 = Note
    (Pitch 261.626 48 "c4")
    37
    (Range
        (NoteRange
            (NoteRangeAmplitude 9680.16 37 0.38)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 261.62 1 1922.0)
            (NoteRangeHarmonicFreq 37 9680.16)))
    [Harmonic 1 3.132 1922.0
    ,Harmonic 2 (-0.312) 690.95
    ,Harmonic 3 (-1.206) 1576.49
    ,Harmonic 4 (-1.531) 140.67
    ,Harmonic 5 (-0.485) 214.74
    ,Harmonic 6 (-5.9e-2) 608.96
    ,Harmonic 7 (-2.811) 210.07
    ,Harmonic 8 1.948 96.51
    ,Harmonic 9 (-1.753) 360.22
    ,Harmonic 10 (-1.876) 153.22
    ,Harmonic 11 2.997 51.84
    ,Harmonic 12 0.797 55.97
    ,Harmonic 13 (-1.41) 45.92
    ,Harmonic 14 (-1.345) 11.09
    ,Harmonic 15 2.2e-2 41.58
    ,Harmonic 16 (-1.968) 16.91
    ,Harmonic 17 1.778 8.01
    ,Harmonic 18 2.909 15.39
    ,Harmonic 19 (-2.566) 25.59
    ,Harmonic 20 2.165 7.86
    ,Harmonic 21 (-2.858) 5.28
    ,Harmonic 22 1.613 0.71
    ,Harmonic 23 0.514 13.93
    ,Harmonic 24 1.83 15.06
    ,Harmonic 25 1.4 5.51
    ,Harmonic 26 3.019 7.31
    ,Harmonic 27 (-2.544) 5.66
    ,Harmonic 28 (-0.445) 3.2
    ,Harmonic 29 (-0.373) 1.91
    ,Harmonic 30 (-2.903) 2.27
    ,Harmonic 31 1.634 0.45
    ,Harmonic 32 (-0.146) 2.31
    ,Harmonic 33 (-0.266) 3.68
    ,Harmonic 34 2.483 1.62
    ,Harmonic 35 3.101 1.81
    ,Harmonic 36 (-1.157) 3.47
    ,Harmonic 37 (-2.591) 0.38]