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

import Sharc.Types

note24 :: Note
note24 = Note
    (Pitch 783.991 67 "g5")
    25
    (Range
        (NoteRange
            (NoteRangeAmplitude 4703.94 6 48.12)
            (NoteRangeHarmonicFreq 1 783.99))
        (NoteRange
            (NoteRangeAmplitude 2351.97 3 4090.0)
            (NoteRangeHarmonicFreq 12 9407.89)))
    [Harmonic 1 (-2.248) 2728.15
    ,Harmonic 2 (-0.654) 3145.94
    ,Harmonic 3 (-2.012) 4090.0
    ,Harmonic 4 (-2.9) 2791.93
    ,Harmonic 5 (-1.509) 824.64
    ,Harmonic 6 9.7e-2 48.12
    ,Harmonic 7 1.339 596.07
    ,Harmonic 8 0.852 316.16
    ,Harmonic 9 2.394 198.83
    ,Harmonic 10 2.979 151.27
    ,Harmonic 11 0.308 133.52
    ,Harmonic 12 (-3.036) 170.83]