Note14.hs

module Sharc.Instruments.EnglishHorn.Note14 (note14) where

import Sharc.Types

note14 :: Note
note14 = Note
    (Pitch 369.994 54 "f#4")
    15
    (Range
        (NoteRange
            (NoteRangeAmplitude 8139.86 22 0.82)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 739.98 2 2949.0)
            (NoteRangeHarmonicFreq 26 9619.84)))
    [Harmonic 1 (-0.266) 961.13
    ,Harmonic 2 2.012 2949.0
    ,Harmonic 3 1.233 1632.96
    ,Harmonic 4 (-0.931) 451.51
    ,Harmonic 5 0.968 152.47
    ,Harmonic 6 (-0.704) 15.13
    ,Harmonic 7 1.931 102.85
    ,Harmonic 8 0.716 101.75
    ,Harmonic 9 (-3.129) 31.87
    ,Harmonic 10 (-0.878) 34.76
    ,Harmonic 11 0.705 26.95
    ,Harmonic 12 (-1.43) 55.04
    ,Harmonic 13 (-1.393) 28.33
    ,Harmonic 14 1.981 22.86
    ,Harmonic 15 1.752 23.05
    ,Harmonic 16 (-0.932) 21.73
    ,Harmonic 17 2.746 3.32
    ,Harmonic 18 1.865 4.46
    ,Harmonic 19 0.963 4.31
    ,Harmonic 20 1.597 3.19
    ,Harmonic 21 1.522 4.51
    ,Harmonic 22 (-0.663) 0.82
    ,Harmonic 23 (-1.306) 14.24
    ,Harmonic 24 (-1.159) 4.98
    ,Harmonic 25 (-1.754) 8.4
    ,Harmonic 26 2.764 9.69]