Note22.hs

module Sharc.Instruments.Bassoon.Note22 (note22) where

import Sharc.Types

note22 :: Note
note22 = Note
    (Pitch 207.652 44 "g#3")
    23
    (Range
        (NoteRange
            (NoteRangeAmplitude 9136.68 44 0.43)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 415.3 2 4006.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 0.221 1242.68
    ,Harmonic 2 (-2.657) 4006.0
    ,Harmonic 3 (-1.094) 2056.02
    ,Harmonic 4 (-0.413) 561.88
    ,Harmonic 5 2.691 82.9
    ,Harmonic 6 (-1.545) 680.55
    ,Harmonic 7 0.212 404.78
    ,Harmonic 8 (-0.775) 115.15
    ,Harmonic 9 1.586 38.79
    ,Harmonic 10 2.045 31.33
    ,Harmonic 11 1.013 9.48
    ,Harmonic 12 2.135 4.68
    ,Harmonic 13 0.63 5.87
    ,Harmonic 14 1.91 10.46
    ,Harmonic 15 2.299 11.74
    ,Harmonic 16 (-2.701) 15.35
    ,Harmonic 17 2.169 9.41
    ,Harmonic 18 (-2.954) 1.0
    ,Harmonic 19 (-5.2e-2) 3.81
    ,Harmonic 20 0.267 3.89
    ,Harmonic 21 1.803 11.08
    ,Harmonic 22 (-1.846) 5.76
    ,Harmonic 23 0.693 9.45
    ,Harmonic 24 (-2.777) 3.61
    ,Harmonic 25 (-0.869) 5.53
    ,Harmonic 26 0.375 7.2
    ,Harmonic 27 1.225 2.65
    ,Harmonic 28 1.929 6.23
    ,Harmonic 29 (-2.246) 3.18
    ,Harmonic 30 (-0.55) 3.51
    ,Harmonic 31 (-0.518) 2.35
    ,Harmonic 32 1.694 1.57
    ,Harmonic 33 2.23 1.35
    ,Harmonic 34 (-0.769) 2.63
    ,Harmonic 35 2.012 2.51
    ,Harmonic 36 (-3.018) 3.52
    ,Harmonic 37 2.381 0.73
    ,Harmonic 38 (-1.269) 1.08
    ,Harmonic 39 (-0.912) 1.33
    ,Harmonic 40 (-0.996) 0.85
    ,Harmonic 41 2.519 0.79
    ,Harmonic 42 (-1.608) 0.76
    ,Harmonic 43 (-1.246) 1.85
    ,Harmonic 44 1.038 0.43
    ,Harmonic 45 (-1.343) 0.49
    ,Harmonic 46 (-0.445) 0.99
    ,Harmonic 47 (-1.282) 0.99
    ,Harmonic 48 (-0.858) 0.69]