Note8.hs

module Sharc.Instruments.BassFlute.Note8 (note8) where

import Sharc.Types

note8 :: Note
note8 = Note
    (Pitch 207.652 44 "g#3")
    9
    (Range
        (NoteRange
            (NoteRangeAmplitude 6229.56 30 0.34)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 207.65 1 5057.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 2.014 5057.0
    ,Harmonic 2 0.407 4475.2
    ,Harmonic 3 (-2.795) 2117.29
    ,Harmonic 4 0.477 821.99
    ,Harmonic 5 1.312 197.1
    ,Harmonic 6 2.638 274.6
    ,Harmonic 7 (-1.438) 81.05
    ,Harmonic 8 0.173 109.88
    ,Harmonic 9 2.692 34.39
    ,Harmonic 10 (-0.571) 101.14
    ,Harmonic 11 1.559 40.31
    ,Harmonic 12 (-2.819) 24.95
    ,Harmonic 13 2.2e-2 34.12
    ,Harmonic 14 2.855 37.03
    ,Harmonic 15 (-1.081) 14.74
    ,Harmonic 16 0.491 17.79
    ,Harmonic 17 3.061 18.51
    ,Harmonic 18 (-0.421) 11.16
    ,Harmonic 19 2.884 3.51
    ,Harmonic 20 (-2.463) 4.12
    ,Harmonic 21 0.401 5.09
    ,Harmonic 22 (-2.987) 4.87
    ,Harmonic 23 2.4 0.71
    ,Harmonic 24 (-5.6e-2) 1.71
    ,Harmonic 25 (-2.386) 3.43
    ,Harmonic 26 1.881 0.36
    ,Harmonic 27 (-0.123) 2.13
    ,Harmonic 28 (-2.925) 1.62
    ,Harmonic 29 2.515 0.75
    ,Harmonic 30 0.582 0.34
    ,Harmonic 31 (-2.249) 1.82
    ,Harmonic 32 1.792 0.55
    ,Harmonic 33 (-0.623) 0.69
    ,Harmonic 34 (-2.214) 2.53
    ,Harmonic 35 1.852 6.86
    ,Harmonic 36 (-2.502) 2.85
    ,Harmonic 37 (-5.0e-2) 3.2
    ,Harmonic 38 1.444 9.64
    ,Harmonic 39 (-0.787) 2.64
    ,Harmonic 40 1.139 3.69
    ,Harmonic 41 1.851 1.98
    ,Harmonic 42 (-0.851) 1.58
    ,Harmonic 43 2.404 3.57
    ,Harmonic 44 (-1.29) 1.98
    ,Harmonic 45 3.024 1.61
    ,Harmonic 46 (-2.906) 0.94
    ,Harmonic 47 (-1.24) 1.68
    ,Harmonic 48 2.755 2.3]