Note10.hs

module Sharc.Instruments.EnglishHorn.Note10 (note10) where

import Sharc.Types

note10 :: Note
note10 = Note
    (Pitch 293.665 50 "d4")
    11
    (Range
        (NoteRange
            (NoteRangeAmplitude 7635.29 26 2.03)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 1174.66 4 4187.0)
            (NoteRangeHarmonicFreq 34 9984.61)))
    [Harmonic 1 0.389 2259.19
    ,Harmonic 2 1.855 562.64
    ,Harmonic 3 (-0.568) 1609.23
    ,Harmonic 4 2.292 4187.0
    ,Harmonic 5 (-0.813) 903.23
    ,Harmonic 6 2.166 714.59
    ,Harmonic 7 0.134 433.02
    ,Harmonic 8 (-2.712) 432.3
    ,Harmonic 9 0.15 172.16
    ,Harmonic 10 1.786 159.17
    ,Harmonic 11 0.22 161.21
    ,Harmonic 12 2.584 115.25
    ,Harmonic 13 2.866 128.21
    ,Harmonic 14 2.811 110.14
    ,Harmonic 15 (-2.257) 90.6
    ,Harmonic 16 (-2.533) 59.74
    ,Harmonic 17 (-2.434) 44.81
    ,Harmonic 18 (-0.677) 26.24
    ,Harmonic 19 (-2.504) 30.72
    ,Harmonic 20 1.874 53.87
    ,Harmonic 21 (-0.745) 29.22
    ,Harmonic 22 2.392 18.82
    ,Harmonic 23 (-2.8e-2) 18.95
    ,Harmonic 24 (-2.736) 14.49
    ,Harmonic 25 (-5.0e-3) 5.71
    ,Harmonic 26 2.506 2.03
    ,Harmonic 27 (-0.564) 4.58
    ,Harmonic 28 2.79 7.02
    ,Harmonic 29 (-1.422) 7.5
    ,Harmonic 30 (-2.137) 9.05
    ,Harmonic 31 1.416 2.35
    ,Harmonic 32 (-1.998) 3.7
    ,Harmonic 33 1.402 7.12
    ,Harmonic 34 (-1.138) 5.71]