Note35.hs

module Sharc.Instruments.ViolinsEnsemble.Note35 (note35) where

import Sharc.Types

note35 :: Note
note35 = Note
    (Pitch 1479.98 78 "f#6")
    36
    (Range
        (NoteRange
            (NoteRangeAmplitude 8879.88 6 206.27)
            (NoteRangeHarmonicFreq 1 1479.98))
        (NoteRange
            (NoteRangeAmplitude 2959.96 2 7077.0)
            (NoteRangeHarmonicFreq 6 8879.88)))
    [Harmonic 1 (-1.615) 7006.0
    ,Harmonic 2 (-2.447) 7077.0
    ,Harmonic 3 (-1.847) 2978.98
    ,Harmonic 4 (-2.381) 665.86
    ,Harmonic 5 (-0.912) 808.02
    ,Harmonic 6 (-0.431) 206.27]