Note1.hs

module Sharc.Instruments.AltoFlute.Note1 (note1) where

import Sharc.Types

note1 :: Note
note1 = Note
    (Pitch 207.652 44 "g#3")
    2
    (Range
        (NoteRange
            (NoteRangeAmplitude 8513.73 41 2.08)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 415.3 2 6858.0)
            (NoteRangeHarmonicFreq 47 9759.64)))
    [Harmonic 1 1.533 1238.84
    ,Harmonic 2 2.299 6858.0
    ,Harmonic 3 (-1.853) 3032.13
    ,Harmonic 4 (-0.144) 4128.11
    ,Harmonic 5 0.875 3274.67
    ,Harmonic 6 1.429 1457.79
    ,Harmonic 7 1.043 324.73
    ,Harmonic 8 1.205 349.71
    ,Harmonic 9 0.99 326.07
    ,Harmonic 10 2.338 344.4
    ,Harmonic 11 (-2.919) 268.21
    ,Harmonic 12 (-1.52) 89.43
    ,Harmonic 13 (-0.435) 39.68
    ,Harmonic 14 (-2.203) 23.97
    ,Harmonic 15 (-0.367) 82.23
    ,Harmonic 16 0.539 71.09
    ,Harmonic 17 2.01 59.97
    ,Harmonic 18 2.705 43.99
    ,Harmonic 19 (-1.008) 12.93
    ,Harmonic 20 (-2.644) 27.53
    ,Harmonic 21 (-2.583) 19.27
    ,Harmonic 22 (-0.899) 22.19
    ,Harmonic 23 (-0.145) 11.67
    ,Harmonic 24 (-5.9e-2) 4.6
    ,Harmonic 25 2.404 9.64
    ,Harmonic 26 1.79 2.59
    ,Harmonic 27 1.961 3.13
    ,Harmonic 28 (-2.709) 7.85
    ,Harmonic 29 (-1.336) 3.53
    ,Harmonic 30 0.479 5.67
    ,Harmonic 31 (-2.948) 2.47
    ,Harmonic 32 2.148 6.56
    ,Harmonic 33 0.983 6.14
    ,Harmonic 34 (-2.474) 9.16
    ,Harmonic 35 (-3.011) 8.43
    ,Harmonic 36 0.704 5.55
    ,Harmonic 37 (-2.949) 4.43
    ,Harmonic 38 0.881 3.91
    ,Harmonic 39 (-0.903) 8.43
    ,Harmonic 40 0.325 15.79
    ,Harmonic 41 0.292 2.08
    ,Harmonic 42 1.717 6.68
    ,Harmonic 43 (-0.688) 4.47
    ,Harmonic 44 1.163 11.1
    ,Harmonic 45 1.336 7.4
    ,Harmonic 46 2.581 7.51
    ,Harmonic 47 (-1.727) 2.93]