Note21.hs

module Sharc.Instruments.BassClarinet.Note21 (note21) where

import Sharc.Types

note21 :: Note
note21 = Note
    (Pitch 233.082 46 "a#3")
    22
    (Range
        (NoteRange
            (NoteRangeAmplitude 9556.36 41 1.6)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 233.08 1 5010.0)
            (NoteRangeHarmonicFreq 43 10022.52)))
    [Harmonic 1 1.204 5010.0
    ,Harmonic 2 0.472 134.97
    ,Harmonic 3 (-2.831) 1796.14
    ,Harmonic 4 2.829 64.24
    ,Harmonic 5 (-2.305) 825.91
    ,Harmonic 6 2.695 100.53
    ,Harmonic 7 6.7e-2 1358.52
    ,Harmonic 8 2.571 252.62
    ,Harmonic 9 3.14 453.08
    ,Harmonic 10 (-0.51) 825.53
    ,Harmonic 11 (-2.771) 335.76
    ,Harmonic 12 2.389 279.34
    ,Harmonic 13 2.747 262.74
    ,Harmonic 14 (-0.561) 15.98
    ,Harmonic 15 1.788 99.89
    ,Harmonic 16 (-3.044) 61.85
    ,Harmonic 17 (-0.132) 43.29
    ,Harmonic 18 2.776 62.77
    ,Harmonic 19 (-2.079) 29.82
    ,Harmonic 20 (-0.334) 29.35
    ,Harmonic 21 2.005 21.57
    ,Harmonic 22 1.621 10.5
    ,Harmonic 23 2.486 25.8
    ,Harmonic 24 (-1.502) 37.36
    ,Harmonic 25 (-1.667) 12.31
    ,Harmonic 26 1.36 3.59
    ,Harmonic 27 (-1.876) 2.87
    ,Harmonic 28 2.403 2.7
    ,Harmonic 29 (-2.642) 3.39
    ,Harmonic 30 (-0.207) 5.48
    ,Harmonic 31 0.107 3.82
    ,Harmonic 32 2.329 7.69
    ,Harmonic 33 (-1.886) 9.74
    ,Harmonic 34 1.499 2.07
    ,Harmonic 35 (-2.133) 12.93
    ,Harmonic 36 (-0.276) 11.39
    ,Harmonic 37 2.401 8.98
    ,Harmonic 38 (-1.057) 2.13
    ,Harmonic 39 2.8 3.42
    ,Harmonic 40 (-1.353) 3.41
    ,Harmonic 41 2.986 1.6
    ,Harmonic 42 (-0.3) 4.9
    ,Harmonic 43 2.255 4.42]