module Sharc.Instruments.BassClarinet.Note20 (note20) where

import Sharc.Types

note20 :: Note
note20 = Note
    (Pitch 220.0 45 "a3")
    21
    (Range
        (NoteRange
            (NoteRangeAmplitude 9460.0 43 3.82)
            (NoteRangeHarmonicFreq 1 220.0))
        (NoteRange
            (NoteRangeAmplitude 220.0 1 5021.0)
            (NoteRangeHarmonicFreq 45 9900.0)))
    [Harmonic 1 (-1.997) 5021.0
    ,Harmonic 2 (-7.4e-2) 250.21
    ,Harmonic 3 (-1.934) 2400.45
    ,Harmonic 4 1.654 128.18
    ,Harmonic 5 (-1.61) 988.04
    ,Harmonic 6 2.081 203.74
    ,Harmonic 7 (-0.651) 2153.48
    ,Harmonic 8 (-0.156) 675.24
    ,Harmonic 9 1.734 933.65
    ,Harmonic 10 (-2.956) 883.97
    ,Harmonic 11 (-1.403) 334.15
    ,Harmonic 12 (-1.034) 243.41
    ,Harmonic 13 (-0.486) 307.69
    ,Harmonic 14 (-1.825) 17.26
    ,Harmonic 15 (-0.436) 28.0
    ,Harmonic 16 (-1.541) 210.01
    ,Harmonic 17 (-2.08) 41.33
    ,Harmonic 18 (-1.927) 109.8
    ,Harmonic 19 (-1.14) 35.1
    ,Harmonic 20 (-1.835) 55.92
    ,Harmonic 21 2.48 37.44
    ,Harmonic 22 (-2.207) 21.51
    ,Harmonic 23 (-0.196) 14.46
    ,Harmonic 24 (-1.417) 31.38
    ,Harmonic 25 1.806 67.93
    ,Harmonic 26 3.087 21.17
    ,Harmonic 27 1.977 30.37
    ,Harmonic 28 (-7.5e-2) 13.07
    ,Harmonic 29 0.954 7.12
    ,Harmonic 30 1.396 5.12
    ,Harmonic 31 1.275 10.15
    ,Harmonic 32 0.231 9.52
    ,Harmonic 33 2.866 8.48
    ,Harmonic 34 2.229 9.98
    ,Harmonic 35 1.564 7.3
    ,Harmonic 36 1.769 8.84
    ,Harmonic 37 1.433 14.46
    ,Harmonic 38 1.075 16.6
    ,Harmonic 39 0.853 11.57
    ,Harmonic 40 0.885 6.42
    ,Harmonic 41 1.612 5.42
    ,Harmonic 42 1.221 7.91
    ,Harmonic 43 1.886 3.82
    ,Harmonic 44 2.118 4.72
    ,Harmonic 45 2.003 11.76]