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

import Sharc.Types

note28 :: Note
note28 = Note
    (Pitch 987.767 71 "b5")
    29
    (Range
        (NoteRange
            (NoteRangeAmplitude 9877.67 10 63.14)
            (NoteRangeHarmonicFreq 1 987.76))
        (NoteRange
            (NoteRangeAmplitude 987.76 1 3999.0)
            (NoteRangeHarmonicFreq 10 9877.67)))
    [Harmonic 1 (-2.478) 3999.0
    ,Harmonic 2 (-0.552) 3029.67
    ,Harmonic 3 (-1.245) 941.0
    ,Harmonic 4 1.522 1055.68
    ,Harmonic 5 (-1.883) 247.29
    ,Harmonic 6 (-2.743) 173.6
    ,Harmonic 7 0.179 387.36
    ,Harmonic 8 (-2.805) 178.45
    ,Harmonic 9 (-1.331) 86.23
    ,Harmonic 10 (-2.828) 63.14]