Note18.hs

module Sharc.Instruments.EnglishHorn.Note18 (note18) where

import Sharc.Types

note18 :: Note
note18 = Note
    (Pitch 466.164 58 "a#4")
    19
    (Range
        (NoteRange
            (NoteRangeAmplitude 6992.46 15 1.65)
            (NoteRangeHarmonicFreq 1 466.16))
        (NoteRange
            (NoteRangeAmplitude 932.32 2 3332.0)
            (NoteRangeHarmonicFreq 21 9789.44)))
    [Harmonic 1 2.014 3144.7
    ,Harmonic 2 1.23 3332.0
    ,Harmonic 3 (-1.043) 1172.69
    ,Harmonic 4 1.288 310.85
    ,Harmonic 5 (-0.518) 312.94
    ,Harmonic 6 (-1.973) 231.48
    ,Harmonic 7 0.321 33.88
    ,Harmonic 8 (-2.473) 363.0
    ,Harmonic 9 (-2.966) 72.63
    ,Harmonic 10 1.805 122.92
    ,Harmonic 11 1.324 11.95
    ,Harmonic 12 2.998 10.54
    ,Harmonic 13 (-1.667) 15.19
    ,Harmonic 14 (-1.11) 11.36
    ,Harmonic 15 1.345 1.65
    ,Harmonic 16 (-1.022) 4.68
    ,Harmonic 17 (-0.896) 5.02
    ,Harmonic 18 (-0.145) 3.77
    ,Harmonic 19 1.021 4.16
    ,Harmonic 20 1.143 4.73
    ,Harmonic 21 1.1 5.0]