Note33.hs

module Sharc.Instruments.FrenchHornMuted.Note33 (note33) where

import Sharc.Types

note33 :: Note
note33 = Note
    (Pitch 493.883 59 "b4")
    34
    (Range
        (NoteRange
            (NoteRangeAmplitude 7408.24 15 0.34)
            (NoteRangeHarmonicFreq 1 493.88))
        (NoteRange
            (NoteRangeAmplitude 493.88 1 3667.0)
            (NoteRangeHarmonicFreq 20 9877.66)))
    [Harmonic 1 1.398 3667.0
    ,Harmonic 2 1.023 3533.54
    ,Harmonic 3 3.104 2085.53
    ,Harmonic 4 0.625 712.5
    ,Harmonic 5 (-2.073) 206.85
    ,Harmonic 6 2.393 86.28
    ,Harmonic 7 0.18 11.5
    ,Harmonic 8 (-1.035) 17.77
    ,Harmonic 9 (-2.964) 12.85
    ,Harmonic 10 0.465 8.01
    ,Harmonic 11 (-0.988) 7.06
    ,Harmonic 12 (-2.048) 2.8
    ,Harmonic 13 1.393 1.28
    ,Harmonic 14 1.16 2.04
    ,Harmonic 15 1.659 0.34
    ,Harmonic 16 (-2.505) 0.79
    ,Harmonic 17 (-2.891) 2.5
    ,Harmonic 18 (-3.133) 2.1
    ,Harmonic 19 1.219 2.87
    ,Harmonic 20 0.146 0.47]