Note15.hs

module Sharc.Instruments.EnglishHorn.Note15 (note15) where

import Sharc.Types

note15 :: Note
note15 = Note
    (Pitch 391.995 55 "g4")
    16
    (Range
        (NoteRange
            (NoteRangeAmplitude 8231.89 21 4.23)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 783.99 2 6512.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 0.388 3620.95
    ,Harmonic 2 2.155 6512.0
    ,Harmonic 3 (-6.2e-2) 852.54
    ,Harmonic 4 (-0.82) 142.92
    ,Harmonic 5 (-1.363) 279.34
    ,Harmonic 6 (-1.851) 193.62
    ,Harmonic 7 0.881 47.74
    ,Harmonic 8 (-1.489) 57.82
    ,Harmonic 9 1.281 95.09
    ,Harmonic 10 2.602 137.56
    ,Harmonic 11 (-2.823) 42.28
    ,Harmonic 12 (-0.132) 27.9
    ,Harmonic 13 (-0.616) 5.18
    ,Harmonic 14 0.392 31.68
    ,Harmonic 15 (-0.836) 6.23
    ,Harmonic 16 0.12 5.49
    ,Harmonic 17 (-0.431) 6.06
    ,Harmonic 18 1.331 5.43
    ,Harmonic 19 2.121 11.06
    ,Harmonic 20 2.61 8.62
    ,Harmonic 21 2.368 4.23
    ,Harmonic 22 0.882 5.73
    ,Harmonic 23 0.517 7.73
    ,Harmonic 24 (-1.045) 6.36
    ,Harmonic 25 (-1.815) 6.5]