Note2.hs

module Sharc.Instruments.TrumpetC.Note2 (note2) where

import Sharc.Types

note2 :: Note
note2 = Note
    (Pitch 207.652 44 "g#3")
    3
    (Range
        (NoteRange
            (NoteRangeAmplitude 9759.64 47 1.58)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 1038.26 5 2028.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 (-1.406) 529.35
    ,Harmonic 2 (-1.912) 1263.29
    ,Harmonic 3 (-2.702) 888.33
    ,Harmonic 4 1.863 991.16
    ,Harmonic 5 0.902 2028.0
    ,Harmonic 6 (-0.932) 1397.73
    ,Harmonic 7 (-1.308) 1829.74
    ,Harmonic 8 (-2.927) 712.48
    ,Harmonic 9 2.271 959.04
    ,Harmonic 10 1.465 768.21
    ,Harmonic 11 (-0.41) 632.07
    ,Harmonic 12 (-1.497) 540.8
    ,Harmonic 13 (-3.101) 536.05
    ,Harmonic 14 1.956 628.72
    ,Harmonic 15 0.317 471.32
    ,Harmonic 16 (-0.906) 546.45
    ,Harmonic 17 (-2.201) 257.87
    ,Harmonic 18 2.585 264.82
    ,Harmonic 19 1.817 161.53
    ,Harmonic 20 0.101 122.99
    ,Harmonic 21 (-0.828) 118.6
    ,Harmonic 22 (-2.062) 91.18
    ,Harmonic 23 3.05 105.22
    ,Harmonic 24 1.744 69.23
    ,Harmonic 25 0.711 86.44
    ,Harmonic 26 (-0.607) 49.81
    ,Harmonic 27 (-1.886) 50.72
    ,Harmonic 28 (-2.776) 49.22
    ,Harmonic 29 1.838 40.47
    ,Harmonic 30 0.849 40.98
    ,Harmonic 31 (-0.525) 28.0
    ,Harmonic 32 (-1.698) 28.05
    ,Harmonic 33 (-3.01) 20.44
    ,Harmonic 34 2.006 21.5
    ,Harmonic 35 0.945 9.74
    ,Harmonic 36 (-0.52) 12.87
    ,Harmonic 37 (-1.407) 9.97
    ,Harmonic 38 (-3.068) 8.77
    ,Harmonic 39 2.144 6.43
    ,Harmonic 40 0.749 5.74
    ,Harmonic 41 (-0.627) 8.17
    ,Harmonic 42 (-2.149) 3.29
    ,Harmonic 43 3.034 3.24
    ,Harmonic 44 2.423 4.7
    ,Harmonic 45 0.415 4.26
    ,Harmonic 46 (-0.601) 4.18
    ,Harmonic 47 (-2.07) 1.58
    ,Harmonic 48 (-2.528) 2.82]