Note11.hs

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

import Sharc.Types

note11 :: Note
note11 = Note
    (Pitch 277.183 49 "c#4")
    12
    (Range
        (NoteRange
            (NoteRangeAmplitude 8592.67 31 0.21)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 277.18 1 2168.0)
            (NoteRangeHarmonicFreq 36 9978.58)))
    [Harmonic 1 3.1 2168.0
    ,Harmonic 2 (-2.422) 59.67
    ,Harmonic 3 (-7.0e-3) 1254.21
    ,Harmonic 4 (-0.269) 103.59
    ,Harmonic 5 1.248 1123.46
    ,Harmonic 6 0.879 663.89
    ,Harmonic 7 2.4e-2 428.48
    ,Harmonic 8 2.517 150.94
    ,Harmonic 9 1.316 291.71
    ,Harmonic 10 (-1.294) 177.55
    ,Harmonic 11 2.627 228.45
    ,Harmonic 12 0.804 265.01
    ,Harmonic 13 (-0.918) 180.42
    ,Harmonic 14 1.468 90.74
    ,Harmonic 15 0.309 185.37
    ,Harmonic 16 (-2.825) 65.64
    ,Harmonic 17 2.545 62.57
    ,Harmonic 18 (-0.169) 42.11
    ,Harmonic 19 (-1.254) 33.55
    ,Harmonic 20 1.559 23.09
    ,Harmonic 21 (-1.141) 47.37
    ,Harmonic 22 3.043 19.3
    ,Harmonic 23 0.439 10.71
    ,Harmonic 24 2.732 2.88
    ,Harmonic 25 1.34 1.68
    ,Harmonic 26 2.432 1.88
    ,Harmonic 27 0.911 1.89
    ,Harmonic 28 (-2.833) 2.67
    ,Harmonic 29 1.939 2.12
    ,Harmonic 30 (-2.034) 1.54
    ,Harmonic 31 (-1.06) 0.21
    ,Harmonic 32 1.412 0.75
    ,Harmonic 33 (-1.314) 2.7
    ,Harmonic 34 0.195 2.74
    ,Harmonic 35 (-1.793) 1.03
    ,Harmonic 36 8.4e-2 0.38]