Note19.hs

module Sharc.Instruments.BassClarinet.Note19 (note19) where

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 207.652 44 "g#3")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 9967.29 48 1.56)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 207.65 1 3272.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 1.737 3272.0
    ,Harmonic 2 (-1.021) 7.0
    ,Harmonic 3 (-0.683) 301.62
    ,Harmonic 4 0.334 147.82
    ,Harmonic 5 0.965 597.64
    ,Harmonic 6 0.888 105.41
    ,Harmonic 7 2.551 314.03
    ,Harmonic 8 (-1.376) 513.87
    ,Harmonic 9 (-1.877) 171.9
    ,Harmonic 10 (-2.211) 96.76
    ,Harmonic 11 1.476 401.47
    ,Harmonic 12 0.195 92.39
    ,Harmonic 13 (-7.5e-2) 186.6
    ,Harmonic 14 (-2.999) 35.3
    ,Harmonic 15 3.042 23.4
    ,Harmonic 16 1.296 24.63
    ,Harmonic 17 1.639 56.48
    ,Harmonic 18 (-1.068) 62.59
    ,Harmonic 19 (-2.322) 7.28
    ,Harmonic 20 (-2.859) 13.19
    ,Harmonic 21 (-2.385) 35.99
    ,Harmonic 22 2.809 4.77
    ,Harmonic 23 0.504 16.74
    ,Harmonic 24 1.066 28.76
    ,Harmonic 25 1.002 17.86
    ,Harmonic 26 2.192 9.97
    ,Harmonic 27 (-0.631) 24.74
    ,Harmonic 28 0.359 17.42
    ,Harmonic 29 1.548 11.48
    ,Harmonic 30 2.734 19.68
    ,Harmonic 31 1.44 11.27
    ,Harmonic 32 0.995 8.02
    ,Harmonic 33 (-2.634) 6.59
    ,Harmonic 34 (-3.094) 4.51
    ,Harmonic 35 (-2.073) 4.28
    ,Harmonic 36 (-1.804) 4.82
    ,Harmonic 37 (-2.669) 3.74
    ,Harmonic 38 (-1.319) 5.14
    ,Harmonic 39 (-8.3e-2) 8.84
    ,Harmonic 40 1.431 9.58
    ,Harmonic 41 2.635 7.56
    ,Harmonic 42 (-1.954) 4.29
    ,Harmonic 43 (-0.343) 3.19
    ,Harmonic 44 1.815 4.61
    ,Harmonic 45 2.993 3.74
    ,Harmonic 46 (-1.193) 1.62
    ,Harmonic 47 1.107 1.78
    ,Harmonic 48 (-2.915) 1.56]