module Sharc.Instruments.ViolinMarteleBowing.Note30 (note30) where

import Sharc.Types

note30 :: Note
note30 = Note
    (Pitch 1108.73 73 "c#6")
    31
    (Range
        (NoteRange
            (NoteRangeAmplitude 8869.84 8 33.04)
            (NoteRangeHarmonicFreq 1 1108.73))
        (NoteRange
            (NoteRangeAmplitude 2217.46 2 3248.0)
            (NoteRangeHarmonicFreq 9 9978.57)))
    [Harmonic 1 2.128 1366.91
    ,Harmonic 2 (-1.929) 3248.0
    ,Harmonic 3 (-2.463) 2906.47
    ,Harmonic 4 (-0.289) 922.97
    ,Harmonic 5 0.27 1050.1
    ,Harmonic 6 (-0.898) 573.46
    ,Harmonic 7 (-5.2e-2) 231.68
    ,Harmonic 8 4.4e-2 33.04
    ,Harmonic 9 (-2.876) 256.63]