Note9.hs

module Sharc.Instruments.AltoFlute.Note9 (note9) where

import Sharc.Types

note9 :: Note
note9 = Note
    (Pitch 329.628 52 "e4")
    10
    (Range
        (NoteRange
            (NoteRangeAmplitude 9888.84 30 4.82)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 988.88 3 8281.0)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 (-1.311) 6192.44
    ,Harmonic 2 (-1.386) 6811.9
    ,Harmonic 3 (-2.097) 8281.0
    ,Harmonic 4 2.836 1452.05
    ,Harmonic 5 0.166 391.51
    ,Harmonic 6 (-1.272) 845.12
    ,Harmonic 7 (-2.937) 393.25
    ,Harmonic 8 2.692 115.5
    ,Harmonic 9 4.6e-2 151.81
    ,Harmonic 10 (-0.746) 194.79
    ,Harmonic 11 (-2.033) 94.93
    ,Harmonic 12 2.283 53.7
    ,Harmonic 13 0.978 54.28
    ,Harmonic 14 8.0e-2 44.09
    ,Harmonic 15 (-1.772) 38.18
    ,Harmonic 16 (-2.11) 22.26
    ,Harmonic 17 (-3.076) 19.4
    ,Harmonic 18 0.894 27.63
    ,Harmonic 19 0.213 23.34
    ,Harmonic 20 (-0.78) 23.1
    ,Harmonic 21 0.733 4.91
    ,Harmonic 22 2.115 17.89
    ,Harmonic 23 2.732 13.05
    ,Harmonic 24 1.5 11.9
    ,Harmonic 25 0.251 32.71
    ,Harmonic 26 (-0.601) 31.17
    ,Harmonic 27 (-1.548) 50.12
    ,Harmonic 28 2.996 23.25
    ,Harmonic 29 (-0.384) 12.74
    ,Harmonic 30 0.347 4.82]