Note9.hs

module Sharc.Instruments.EnglishHorn.Note9 (note9) where

import Sharc.Types

note9 :: Note
note9 = Note
    (Pitch 277.183 49 "c#4")
    10
    (Range
        (NoteRange
            (NoteRangeAmplitude 5266.47 19 4.05)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 1108.73 4 4272.0)
            (NoteRangeHarmonicFreq 35 9701.4)))
    [Harmonic 1 (-1.902) 2231.39
    ,Harmonic 2 (-2.236) 1193.19
    ,Harmonic 3 (-2.166) 3910.84
    ,Harmonic 4 (-1.417) 4272.0
    ,Harmonic 5 (-0.789) 1126.99
    ,Harmonic 6 (-0.223) 700.54
    ,Harmonic 7 1.213 284.37
    ,Harmonic 8 (-1.108) 498.51
    ,Harmonic 9 (-2.081) 643.72
    ,Harmonic 10 (-1.242) 168.64
    ,Harmonic 11 (-2.68) 162.63
    ,Harmonic 12 0.517 116.24
    ,Harmonic 13 0.417 325.75
    ,Harmonic 14 (-2.421) 210.97
    ,Harmonic 15 2.231 119.76
    ,Harmonic 16 0.734 83.48
    ,Harmonic 17 (-1.306) 63.43
    ,Harmonic 18 (-1.927) 14.35
    ,Harmonic 19 (-0.607) 4.05
    ,Harmonic 20 (-2.882) 49.18
    ,Harmonic 21 (-2.0e-3) 33.8
    ,Harmonic 22 0.475 62.36
    ,Harmonic 23 2.011 24.14
    ,Harmonic 24 3.102 18.98
    ,Harmonic 25 (-2.205) 5.16
    ,Harmonic 26 2.999 6.62
    ,Harmonic 27 (-2.922) 12.42
    ,Harmonic 28 (-0.373) 5.95
    ,Harmonic 29 0.11 6.02
    ,Harmonic 30 1.187 7.98
    ,Harmonic 31 1.202 9.34
    ,Harmonic 32 (-2.461) 7.39
    ,Harmonic 33 (-1.047) 5.89
    ,Harmonic 34 (-0.365) 6.61
    ,Harmonic 35 (-0.259) 10.85]