Note37.hs

module Sharc.Instruments.ViolaMuted.Note37 (note37) where

import Sharc.Types

note37 :: Note
note37 = Note
    (Pitch 1108.73 73 "c#6")
    38
    (Range
        (NoteRange
            (NoteRangeAmplitude 7761.11 7 30.83)
            (NoteRangeHarmonicFreq 1 1108.73))
        (NoteRange
            (NoteRangeAmplitude 2217.46 2 2085.0)
            (NoteRangeHarmonicFreq 9 9978.57)))
    [Harmonic 1 (-5.1e-2) 1353.85
    ,Harmonic 2 1.964 2085.0
    ,Harmonic 3 2.396 861.52
    ,Harmonic 4 3.034 188.22
    ,Harmonic 5 (-3.001) 1186.08
    ,Harmonic 6 2.603 478.89
    ,Harmonic 7 (-0.407) 30.83
    ,Harmonic 8 (-0.785) 72.89
    ,Harmonic 9 0.222 46.65]