Note1.hs

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

import Sharc.Types

note1 :: Note
note1 = Note
    (Pitch 277.183 49 "c#4")
    2
    (Range
        (NoteRange
            (NoteRangeAmplitude 8592.67 31 0.41)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 554.36 2 3478.0)
            (NoteRangeHarmonicFreq 35 9701.4)))
    [Harmonic 1 (-0.418) 1231.99
    ,Harmonic 2 (-1.332) 3478.0
    ,Harmonic 3 (-1.682) 1246.74
    ,Harmonic 4 (-3.057) 843.53
    ,Harmonic 5 2.847 1248.37
    ,Harmonic 6 1.694 171.14
    ,Harmonic 7 (-1.019) 240.19
    ,Harmonic 8 (-2.31) 421.03
    ,Harmonic 9 (-3.077) 143.93
    ,Harmonic 10 (-1.344) 22.99
    ,Harmonic 11 1.825 32.43
    ,Harmonic 12 1.052 40.4
    ,Harmonic 13 0.418 8.46
    ,Harmonic 14 (-1.523) 15.19
    ,Harmonic 15 (-1.963) 10.35
    ,Harmonic 16 2.908 9.4
    ,Harmonic 17 2.542 7.31
    ,Harmonic 18 0.894 5.94
    ,Harmonic 19 1.865 3.28
    ,Harmonic 20 (-0.601) 4.14
    ,Harmonic 21 0.354 1.09
    ,Harmonic 22 (-1.305) 3.12
    ,Harmonic 23 (-3.019) 2.91
    ,Harmonic 24 1.417 1.57
    ,Harmonic 25 0.985 3.98
    ,Harmonic 26 1.43 0.49
    ,Harmonic 27 (-1.366) 2.57
    ,Harmonic 28 (-1.257) 0.55
    ,Harmonic 29 (-3.098) 4.88
    ,Harmonic 30 0.298 2.41
    ,Harmonic 31 (-0.366) 0.41
    ,Harmonic 32 (-0.606) 0.9
    ,Harmonic 33 (-1.727) 1.29
    ,Harmonic 34 (-3.071) 4.39
    ,Harmonic 35 3.096 1.27]