module Sharc.Instruments.FrenchHornMuted.Note36 (note36) where

import Sharc.Types

note36 :: Note
note36 = Note
    (Pitch 587.33 62 "d5")
    37
    (Range
        (NoteRange
            (NoteRangeAmplitude 7047.96 12 0.49)
            (NoteRangeHarmonicFreq 1 587.33))
        (NoteRange
            (NoteRangeAmplitude 1174.66 2 3453.0)
            (NoteRangeHarmonicFreq 17 9984.61)))
    [Harmonic 1 (-2.25) 2870.52
    ,Harmonic 2 (-1.172) 3453.0
    ,Harmonic 3 (-1.605) 1208.91
    ,Harmonic 4 (-1.654) 697.89
    ,Harmonic 5 (-1.331) 137.38
    ,Harmonic 6 (-0.161) 30.42
    ,Harmonic 7 1.186 26.88
    ,Harmonic 8 0.801 3.94
    ,Harmonic 9 1.495 5.01
    ,Harmonic 10 (-0.861) 2.79
    ,Harmonic 11 1.262 5.24
    ,Harmonic 12 (-0.384) 0.49
    ,Harmonic 13 0.713 1.51
    ,Harmonic 14 2.648 1.35
    ,Harmonic 15 (-0.237) 1.43
    ,Harmonic 16 (-3.7e-2) 0.8
    ,Harmonic 17 (-0.368) 3.01]