Note11.hs

module Sharc.Instruments.ClarinetEflat.Note11 (note11) where

import Sharc.Types

note11 :: Note
note11 = Note
    (Pitch 369.994 54 "f#4")
    12
    (Range
        (NoteRange
            (NoteRangeAmplitude 9989.83 27 2.19)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 1 5826.0)
            (NoteRangeHarmonicFreq 27 9989.83)))
    [Harmonic 1 1.239 5826.0
    ,Harmonic 2 (-1.225) 33.96
    ,Harmonic 3 1.635 2948.71
    ,Harmonic 4 1.499 100.41
    ,Harmonic 5 (-2.585) 1286.78
    ,Harmonic 6 (-1.158) 219.2
    ,Harmonic 7 2.57 258.17
    ,Harmonic 8 1.152 288.82
    ,Harmonic 9 (-1.045) 419.08
    ,Harmonic 10 1.893 194.37
    ,Harmonic 11 2.807 53.98
    ,Harmonic 12 0.954 78.92
    ,Harmonic 13 0.439 110.24
    ,Harmonic 14 (-2.749) 19.27
    ,Harmonic 15 8.4e-2 20.33
    ,Harmonic 16 2.55 12.25
    ,Harmonic 17 (-2.816) 14.82
    ,Harmonic 18 0.108 35.2
    ,Harmonic 19 (-2.244) 6.5
    ,Harmonic 20 (-0.551) 14.92
    ,Harmonic 21 (-1.505) 7.74
    ,Harmonic 22 (-1.149) 8.3
    ,Harmonic 23 1.228 4.85
    ,Harmonic 24 2.757 4.65
    ,Harmonic 25 (-1.622) 6.61
    ,Harmonic 26 0.286 3.67
    ,Harmonic 27 0.505 2.19]