Note23.hs

module Sharc.Instruments.EnglishHorn.Note23 (note23) where

import Sharc.Types

note23 :: Note
note23 = Note
    (Pitch 622.254 63 "d#5")
    24
    (Range
        (NoteRange
            (NoteRangeAmplitude 8089.3 13 2.58)
            (NoteRangeHarmonicFreq 1 622.25))
        (NoteRange
            (NoteRangeAmplitude 1244.5 2 3492.0)
            (NoteRangeHarmonicFreq 16 9956.06)))
    [Harmonic 1 1.262 1846.4
    ,Harmonic 2 (-2.015) 3492.0
    ,Harmonic 3 (-0.611) 197.45
    ,Harmonic 4 1.929 175.62
    ,Harmonic 5 (-1.052) 66.45
    ,Harmonic 6 (-1.109) 236.03
    ,Harmonic 7 (-1.655) 18.14
    ,Harmonic 8 (-1.461) 12.62
    ,Harmonic 9 (-3.057) 19.57
    ,Harmonic 10 2.271 10.33
    ,Harmonic 11 0.112 12.34
    ,Harmonic 12 (-1.355) 26.38
    ,Harmonic 13 (-2.057) 2.58
    ,Harmonic 14 1.151 3.0
    ,Harmonic 15 0.616 10.52
    ,Harmonic 16 (-1.322) 6.92]