Note30.hs

module Sharc.Instruments.Contrabass.Note30 (note30) where

import Sharc.Types

note30 :: Note
note30 = Note
    (Pitch 184.997 42 "f#3")
    31
    (Range
        (NoteRange
            (NoteRangeAmplitude 9249.85 50 1.45)
            (NoteRangeHarmonicFreq 1 184.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 2 4398.0)
            (NoteRangeHarmonicFreq 54 9989.83)))
    [Harmonic 1 (-0.786) 3404.94
    ,Harmonic 2 1.844 4398.0
    ,Harmonic 3 1.615 490.64
    ,Harmonic 4 2.094 1435.59
    ,Harmonic 5 2.005 1645.91
    ,Harmonic 6 5.7e-2 312.76
    ,Harmonic 7 1.336 551.53
    ,Harmonic 8 (-0.372) 765.96
    ,Harmonic 9 (-1.733) 239.44
    ,Harmonic 10 3.061 331.63
    ,Harmonic 11 (-2.929) 83.65
    ,Harmonic 12 (-0.132) 116.23
    ,Harmonic 13 1.822 104.15
    ,Harmonic 14 (-1.78) 138.99
    ,Harmonic 15 0.43 163.9
    ,Harmonic 16 0.752 66.75
    ,Harmonic 17 2.8 33.47
    ,Harmonic 18 (-0.911) 70.94
    ,Harmonic 19 (-1.936) 52.98
    ,Harmonic 20 2.942 33.4
    ,Harmonic 21 (-3.072) 40.23
    ,Harmonic 22 (-1.768) 36.27
    ,Harmonic 23 (-1.126) 12.51
    ,Harmonic 24 (-1.787) 34.03
    ,Harmonic 25 1.005 13.99
    ,Harmonic 26 2.808 29.44
    ,Harmonic 27 1.613 25.8
    ,Harmonic 28 (-1.335) 7.73
    ,Harmonic 29 0.955 10.95
    ,Harmonic 30 2.223 1.71
    ,Harmonic 31 2.865 10.7
    ,Harmonic 32 (-0.425) 5.44
    ,Harmonic 33 0.76 17.57
    ,Harmonic 34 2.847 1.65
    ,Harmonic 35 (-2.516) 3.18
    ,Harmonic 36 0.189 15.35
    ,Harmonic 37 (-0.21) 14.52
    ,Harmonic 38 0.96 10.2
    ,Harmonic 39 1.442 9.49
    ,Harmonic 40 1.936 3.36
    ,Harmonic 41 (-1.999) 6.37
    ,Harmonic 42 (-1.342) 2.27
    ,Harmonic 43 (-1.205) 1.86
    ,Harmonic 44 0.291 9.8
    ,Harmonic 45 0.539 6.25
    ,Harmonic 46 2.026 6.44
    ,Harmonic 47 1.759 5.01
    ,Harmonic 48 (-3.026) 4.77
    ,Harmonic 49 (-3.053) 1.83
    ,Harmonic 50 (-1.74) 1.45
    ,Harmonic 51 (-1.349) 3.07
    ,Harmonic 52 (-2.052) 1.85
    ,Harmonic 53 (-1.901) 3.1
    ,Harmonic 54 (-1.938) 3.5]