Note10.hs

module Sharc.Instruments.Clarinet.Note10 (note10) where

import Sharc.Types

note10 :: Note
note10 = Note
    (Pitch 261.626 48 "c4")
    11
    (Range
        (NoteRange
            (NoteRangeAmplitude 9680.16 37 0.4)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 261.62 1 3388.0)
            (NoteRangeHarmonicFreq 38 9941.78)))
    [Harmonic 1 3.038 3388.0
    ,Harmonic 2 (-2.854) 68.88
    ,Harmonic 3 (-1.203) 1818.85
    ,Harmonic 4 (-2.273) 153.77
    ,Harmonic 5 (-0.421) 1322.75
    ,Harmonic 6 (-1.02) 468.89
    ,Harmonic 7 (-1.3) 1680.94
    ,Harmonic 8 0.144 129.24
    ,Harmonic 9 (-0.367) 341.22
    ,Harmonic 10 (-3.026) 201.83
    ,Harmonic 11 1.407 123.11
    ,Harmonic 12 (-0.741) 274.29
    ,Harmonic 13 2.895 113.77
    ,Harmonic 14 1.623 156.45
    ,Harmonic 15 2.54 28.1
    ,Harmonic 16 1.597 91.25
    ,Harmonic 17 7.7e-2 37.69
    ,Harmonic 18 (-2.119) 28.46
    ,Harmonic 19 3.04 16.44
    ,Harmonic 20 (-0.228) 38.9
    ,Harmonic 21 (-1.491) 28.8
    ,Harmonic 22 2.41 28.08
    ,Harmonic 23 (-1.662) 10.61
    ,Harmonic 24 (-2.821) 10.5
    ,Harmonic 25 (-1.521) 8.8
    ,Harmonic 26 (-0.783) 13.98
    ,Harmonic 27 (-1.273) 2.22
    ,Harmonic 28 (-1.518) 0.6
    ,Harmonic 29 (-0.893) 0.41
    ,Harmonic 30 1.058 1.46
    ,Harmonic 31 (-2.357) 2.3
    ,Harmonic 32 1.781 2.18
    ,Harmonic 33 (-1.385) 1.67
    ,Harmonic 34 (-1.833) 2.19
    ,Harmonic 35 (-2.023) 1.2
    ,Harmonic 36 (-0.51) 1.26
    ,Harmonic 37 (-1.344) 0.4
    ,Harmonic 38 (-2.165) 1.97]