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

import Sharc.Types

note28 :: Note
note28 = Note
    (Pitch 987.767 71 "b5")
    29
    (Range
        (NoteRange
            (NoteRangeAmplitude 6914.36 7 2.9)
            (NoteRangeHarmonicFreq 1 987.76))
        (NoteRange
            (NoteRangeAmplitude 987.76 1 4624.0)
            (NoteRangeHarmonicFreq 10 9877.67)))
    [Harmonic 1 1.401 4624.0
    ,Harmonic 2 (-1.91) 1397.53
    ,Harmonic 3 1.552 2343.5
    ,Harmonic 4 2.038 1642.77
    ,Harmonic 5 0.952 712.63
    ,Harmonic 6 0.874 165.4
    ,Harmonic 7 2.981 2.9
    ,Harmonic 8 1.756 65.29
    ,Harmonic 9 (-2.486) 63.37
    ,Harmonic 10 2.798 35.97]