Note35.hs

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

import Sharc.Types

note35 :: Note
note35 = Note
    (Pitch 554.365 61 "c#5")
    36
    (Range
        (NoteRange
            (NoteRangeAmplitude 9424.2 17 0.16)
            (NoteRangeHarmonicFreq 1 554.36))
        (NoteRange
            (NoteRangeAmplitude 1108.73 2 3429.0)
            (NoteRangeHarmonicFreq 18 9978.57)))
    [Harmonic 1 (-2.496) 2586.03
    ,Harmonic 2 (-1.089) 3429.0
    ,Harmonic 3 (-2.597) 1122.18
    ,Harmonic 4 (-1.796) 720.73
    ,Harmonic 5 (-2.279) 133.0
    ,Harmonic 6 (-1.52) 57.95
    ,Harmonic 7 0.712 32.25
    ,Harmonic 8 0.317 21.16
    ,Harmonic 9 1.339 4.72
    ,Harmonic 10 1.093 1.59
    ,Harmonic 11 0.83 2.84
    ,Harmonic 12 0.801 1.88
    ,Harmonic 13 (-0.455) 3.24
    ,Harmonic 14 (-0.165) 2.98
    ,Harmonic 15 (-0.456) 3.03
    ,Harmonic 16 (-8.8e-2) 2.42
    ,Harmonic 17 (-2.72) 0.16
    ,Harmonic 18 (-0.933) 2.22]