Note30.hs

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

import Sharc.Types

note30 :: Note
note30 = Note
    (Pitch 1108.73 73 "c#6")
    31
    (Range
        (NoteRange
            (NoteRangeAmplitude 7761.11 7 40.95)
            (NoteRangeHarmonicFreq 1 1108.73))
        (NoteRange
            (NoteRangeAmplitude 2217.46 2 16713.0)
            (NoteRangeHarmonicFreq 9 9978.57)))
    [Harmonic 1 (-7.7e-2) 3162.89
    ,Harmonic 2 (-1.728) 16713.0
    ,Harmonic 3 (-2.987) 2894.6
    ,Harmonic 4 2.733 3043.26
    ,Harmonic 5 (-0.757) 317.82
    ,Harmonic 6 2.211 354.02
    ,Harmonic 7 1.011 40.95
    ,Harmonic 8 (-0.675) 115.38
    ,Harmonic 9 (-2.944) 133.97]