Note24.hs

module Sharc.Instruments.FrenchHornMuted.Note24 (note24) where

import Sharc.Types

note24 :: Note
note24 = Note
    (Pitch 293.665 50 "d4")
    25
    (Range
        (NoteRange
            (NoteRangeAmplitude 7635.29 26 0.17)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 1174.66 4 5038.0)
            (NoteRangeHarmonicFreq 34 9984.61)))
    [Harmonic 1 (-1.151) 2375.31
    ,Harmonic 2 8.2e-2 2688.67
    ,Harmonic 3 (-1.926) 1009.17
    ,Harmonic 4 (-2.763) 5038.0
    ,Harmonic 5 (-2.201) 3313.28
    ,Harmonic 6 (-0.666) 1561.63
    ,Harmonic 7 0.236 1162.25
    ,Harmonic 8 1.405 726.27
    ,Harmonic 9 2.896 306.06
    ,Harmonic 10 (-1.451) 186.07
    ,Harmonic 11 (-0.456) 141.99
    ,Harmonic 12 0.979 64.87
    ,Harmonic 13 3.038 42.7
    ,Harmonic 14 (-2.068) 29.68
    ,Harmonic 15 (-0.752) 18.53
    ,Harmonic 16 1.056 12.64
    ,Harmonic 17 2.099 6.62
    ,Harmonic 18 2.982 12.89
    ,Harmonic 19 (-1.895) 6.77
    ,Harmonic 20 (-0.806) 5.96
    ,Harmonic 21 (-0.371) 3.03
    ,Harmonic 22 0.432 3.59
    ,Harmonic 23 (-2.811) 1.04
    ,Harmonic 24 (-1.988) 2.46
    ,Harmonic 25 (-1.079) 2.01
    ,Harmonic 26 (-1.142) 0.17
    ,Harmonic 27 (-3.008) 1.52
    ,Harmonic 28 (-1.642) 2.27
    ,Harmonic 29 (-0.31) 2.66
    ,Harmonic 30 (-0.342) 1.57
    ,Harmonic 31 1.843 0.64
    ,Harmonic 32 (-1.422) 1.95
    ,Harmonic 33 (-0.596) 0.63
    ,Harmonic 34 (-2.822) 0.46]