Note34.hs

module Sharc.Instruments.FrenchHornMuted.Note34 (note34) where

import Sharc.Types

note34 :: Note
note34 = Note
    (Pitch 523.251 60 "c5")
    35
    (Range
        (NoteRange
            (NoteRangeAmplitude 8372.01 16 0.78)
            (NoteRangeHarmonicFreq 1 523.25))
        (NoteRange
            (NoteRangeAmplitude 1046.5 2 3794.0)
            (NoteRangeHarmonicFreq 19 9941.76)))
    [Harmonic 1 (-2.371) 2690.93
    ,Harmonic 2 (-0.898) 3794.0
    ,Harmonic 3 (-2.314) 1861.98
    ,Harmonic 4 (-2.02) 808.53
    ,Harmonic 5 (-2.221) 222.34
    ,Harmonic 6 (-1.749) 84.36
    ,Harmonic 7 (-0.522) 19.74
    ,Harmonic 8 (-0.412) 17.6
    ,Harmonic 9 0.313 11.43
    ,Harmonic 10 0.667 5.47
    ,Harmonic 11 0.365 5.31
    ,Harmonic 12 0.201 3.91
    ,Harmonic 13 0.868 2.5
    ,Harmonic 14 0.343 2.09
    ,Harmonic 15 0.294 1.25
    ,Harmonic 16 (-1.367) 0.78
    ,Harmonic 17 (-0.644) 2.98
    ,Harmonic 18 (-0.706) 2.05
    ,Harmonic 19 (-0.802) 2.22]