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

import Sharc.Types

note28 :: Note
note28 = Note
    (Pitch 987.767 71 "b5")
    29
    (Range
        (NoteRange
            (NoteRangeAmplitude 7902.13 8 46.42)
            (NoteRangeHarmonicFreq 1 987.76))
        (NoteRange
            (NoteRangeAmplitude 987.76 1 6753.0)
            (NoteRangeHarmonicFreq 10 9877.67)))
    [Harmonic 1 (-0.9) 6753.0
    ,Harmonic 2 1.08 5484.98
    ,Harmonic 3 (-0.63) 1142.61
    ,Harmonic 4 0.584 1985.48
    ,Harmonic 5 2.425 224.31
    ,Harmonic 6 (-1.94) 166.43
    ,Harmonic 7 2.809 130.62
    ,Harmonic 8 (-2.531) 46.42
    ,Harmonic 9 0.944 151.37
    ,Harmonic 10 (-1.044) 202.38]