Note7.hs

module Sharc.Instruments.TrumpetMutedC.Note7 (note7) where

import Sharc.Types

note7 :: Note
note7 = Note
    (Pitch 277.183 49 "c#4")
    8
    (Range
        (NoteRange
            (NoteRangeAmplitude 4434.92 16 28.9)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 6652.39 24 1239.84)
            (NoteRangeHarmonicFreq 35 9701.4)))
    [Harmonic 1 0.514 1037.5
    ,Harmonic 2 3.122 495.58
    ,Harmonic 3 (-0.111) 258.35
    ,Harmonic 4 2.267 196.92
    ,Harmonic 5 0.321 131.77
    ,Harmonic 6 (-2.14) 283.83
    ,Harmonic 7 (-1.422) 246.78
    ,Harmonic 8 (-0.151) 200.89
    ,Harmonic 9 (-0.596) 63.64
    ,Harmonic 10 2.106 105.95
    ,Harmonic 11 (-2.898) 429.18
    ,Harmonic 12 (-1.196) 613.41
    ,Harmonic 13 0.993 754.87
    ,Harmonic 14 (-2.958) 177.78
    ,Harmonic 15 (-0.536) 151.08
    ,Harmonic 16 (-1.018) 28.9
    ,Harmonic 17 0.94 369.43
    ,Harmonic 18 2.836 882.25
    ,Harmonic 19 3.1 1000.89
    ,Harmonic 20 (-2.039) 89.63
    ,Harmonic 21 (-2.554) 358.47
    ,Harmonic 22 9.8e-2 530.1
    ,Harmonic 23 1.486 611.69
    ,Harmonic 24 (-2.793) 1239.84
    ,Harmonic 25 1.028 590.6
    ,Harmonic 26 1.668 1060.08
    ,Harmonic 27 (-2.495) 626.66
    ,Harmonic 28 (-0.561) 610.67
    ,Harmonic 29 1.532 301.48
    ,Harmonic 30 (-1.756) 337.8
    ,Harmonic 31 6.5e-2 238.37
    ,Harmonic 32 1.816 260.84
    ,Harmonic 33 (-2.818) 214.13
    ,Harmonic 34 (-2.323) 178.04
    ,Harmonic 35 0.52 154.95]