Note19.hs

module Sharc.Instruments.EnglishHorn.Note19 (note19) where

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 493.883 59 "b4")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 7902.12 16 1.48)
            (NoteRangeHarmonicFreq 1 493.88))
        (NoteRange
            (NoteRangeAmplitude 987.76 2 3607.0)
            (NoteRangeHarmonicFreq 20 9877.66)))
    [Harmonic 1 1.867 1927.63
    ,Harmonic 2 1.061 3607.0
    ,Harmonic 3 (-2.496) 148.32
    ,Harmonic 4 2.743 92.01
    ,Harmonic 5 (-2.816) 548.27
    ,Harmonic 6 2.741 197.78
    ,Harmonic 7 (-0.782) 160.45
    ,Harmonic 8 (-1.099) 133.92
    ,Harmonic 9 2.208 63.08
    ,Harmonic 10 (-1.889) 9.22
    ,Harmonic 11 (-1.635) 7.44
    ,Harmonic 12 1.038 5.63
    ,Harmonic 13 2.649 16.07
    ,Harmonic 14 (-2.379) 9.09
    ,Harmonic 15 (-1.656) 5.93
    ,Harmonic 16 (-1.752) 1.48
    ,Harmonic 17 (-1.892) 4.13
    ,Harmonic 18 (-1.524) 5.38
    ,Harmonic 19 (-1.436) 2.58
    ,Harmonic 20 (-0.984) 2.93]