module Sharc.Instruments.ViolinMarteleBowing.Note24 (note24) where

import Sharc.Types

note24 :: Note
note24 = Note
    (Pitch 783.991 67 "g5")
    25
    (Range
        (NoteRange
            (NoteRangeAmplitude 3919.95 5 13.47)
            (NoteRangeHarmonicFreq 1 783.99))
        (NoteRange
            (NoteRangeAmplitude 2351.97 3 7110.0)
            (NoteRangeHarmonicFreq 12 9407.89)))
    [Harmonic 1 (-0.858) 740.39
    ,Harmonic 2 (-0.988) 760.46
    ,Harmonic 3 1.373 7110.0
    ,Harmonic 4 (-1.624) 1386.81
    ,Harmonic 5 2.71 13.47
    ,Harmonic 6 (-0.268) 868.81
    ,Harmonic 7 2.005 328.32
    ,Harmonic 8 (-1.991) 19.35
    ,Harmonic 9 (-0.462) 143.66
    ,Harmonic 10 1.173 24.31
    ,Harmonic 11 (-0.16) 148.79
    ,Harmonic 12 (-1.589) 32.18]