Note28.hs

module Sharc.Instruments.AltoFlute.Note28 (note28) where

import Sharc.Types

note28 :: Note
note28 = Note
    (Pitch 987.767 71 "b5")
    29
    (Range
        (NoteRange
            (NoteRangeAmplitude 7902.13 8 3.53)
            (NoteRangeHarmonicFreq 1 987.76))
        (NoteRange
            (NoteRangeAmplitude 987.76 1 5062.0)
            (NoteRangeHarmonicFreq 9 8889.9)))
    [Harmonic 1 (-1.893) 5062.0
    ,Harmonic 2 (-0.1) 732.11
    ,Harmonic 3 0.536 217.91
    ,Harmonic 4 (-2.319) 194.23
    ,Harmonic 5 (-2.023) 7.26
    ,Harmonic 6 2.947 48.06
    ,Harmonic 7 (-1.001) 9.28
    ,Harmonic 8 1.649 3.53
    ,Harmonic 9 (-1.784) 25.55]