module Sharc.Instruments.Flute.Note19 (note19) where

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 783.991 67 "g5")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 8623.9 11 2.07)
            (NoteRangeHarmonicFreq 1 783.99))
        (NoteRange
            (NoteRangeAmplitude 783.99 1 4304.0)
            (NoteRangeHarmonicFreq 12 9407.89)))
    [Harmonic 1 1.508 4304.0
    ,Harmonic 2 (-0.75) 329.98
    ,Harmonic 3 1.436 419.64
    ,Harmonic 4 1.779 30.68
    ,Harmonic 5 (-2.93) 33.73
    ,Harmonic 6 (-1.72) 2.8
    ,Harmonic 7 (-1.049) 15.84
    ,Harmonic 8 (-3.041) 4.66
    ,Harmonic 9 2.774 10.0
    ,Harmonic 10 2.251 5.66
    ,Harmonic 11 2.3 2.07
    ,Harmonic 12 (-2.637) 6.78]