Note11.hs

module Sharc.Instruments.EnglishHorn.Note11 (note11) where

import Sharc.Types

note11 :: Note
note11 = Note
    (Pitch 311.127 51 "d#4")
    12
    (Range
        (NoteRange
            (NoteRangeAmplitude 7778.17 25 3.94)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 933.38 3 4697.0)
            (NoteRangeHarmonicFreq 32 9956.06)))
    [Harmonic 1 1.37 4070.46
    ,Harmonic 2 (-0.881) 2167.58
    ,Harmonic 3 3.027 4697.0
    ,Harmonic 4 0.879 3823.41
    ,Harmonic 5 0.622 603.8
    ,Harmonic 6 1.14 582.45
    ,Harmonic 7 (-1.734) 280.41
    ,Harmonic 8 1.251 741.14
    ,Harmonic 9 (-1.646) 341.26
    ,Harmonic 10 3.053 79.82
    ,Harmonic 11 0.888 642.47
    ,Harmonic 12 1.751 126.5
    ,Harmonic 13 (-2.347) 235.75
    ,Harmonic 14 (-0.395) 197.61
    ,Harmonic 15 0.257 115.88
    ,Harmonic 16 2.997 110.46
    ,Harmonic 17 0.634 38.49
    ,Harmonic 18 (-5.0e-2) 27.49
    ,Harmonic 19 (-0.209) 31.86
    ,Harmonic 20 (-0.818) 38.25
    ,Harmonic 21 (-2.324) 45.4
    ,Harmonic 22 (-3.079) 55.33
    ,Harmonic 23 1.76 15.31
    ,Harmonic 24 (-0.711) 5.57
    ,Harmonic 25 (-2.983) 3.94
    ,Harmonic 26 1.877 8.98
    ,Harmonic 27 1.54 27.88
    ,Harmonic 28 (-1.237) 13.36
    ,Harmonic 29 (-2.518) 15.75
    ,Harmonic 30 2.444 16.1
    ,Harmonic 31 (-0.351) 11.94
    ,Harmonic 32 (-1.583) 16.4]