Note18.hs

module Sharc.Instruments.BassClarinet.Note18 (note18) where

import Sharc.Types

note18 :: Note
note18 = Note
    (Pitch 195.998 43 "g3")
    19
    (Range
        (NoteRange
            (NoteRangeAmplitude 391.99 2 2.81)
            (NoteRangeHarmonicFreq 1 195.99))
        (NoteRange
            (NoteRangeAmplitude 195.99 1 3812.0)
            (NoteRangeHarmonicFreq 51 9995.89)))
    [Harmonic 1 1.781 3812.0
    ,Harmonic 2 (-0.539) 2.81
    ,Harmonic 3 (-0.754) 557.33
    ,Harmonic 4 0.314 235.37
    ,Harmonic 5 0.622 403.92
    ,Harmonic 6 0.738 237.35
    ,Harmonic 7 (-3.099) 39.6
    ,Harmonic 8 (-1.12) 224.66
    ,Harmonic 9 (-2.958) 194.12
    ,Harmonic 10 (-1.586) 245.24
    ,Harmonic 11 (-2.499) 163.11
    ,Harmonic 12 1.604 591.79
    ,Harmonic 13 (-3.137) 76.53
    ,Harmonic 14 (-0.39) 70.69
    ,Harmonic 15 (-0.891) 158.84
    ,Harmonic 16 (-1.523) 69.08
    ,Harmonic 17 (-1.882) 9.78
    ,Harmonic 18 2.724 36.57
    ,Harmonic 19 (-2.76) 50.73
    ,Harmonic 20 1.109 20.59
    ,Harmonic 21 1.558 5.64
    ,Harmonic 22 0.243 14.84
    ,Harmonic 23 2.3e-2 45.15
    ,Harmonic 24 (-2.135) 11.47
    ,Harmonic 25 3.0e-3 20.13
    ,Harmonic 26 (-1.002) 16.71
    ,Harmonic 27 1.035 42.73
    ,Harmonic 28 1.256 28.5
    ,Harmonic 29 (-1.298) 15.61
    ,Harmonic 30 (-1.354) 11.42
    ,Harmonic 31 2.556 16.11
    ,Harmonic 32 (-2.783) 32.32
    ,Harmonic 33 2.442 5.01
    ,Harmonic 34 (-3.13) 9.71
    ,Harmonic 35 (-2.43) 15.98
    ,Harmonic 36 (-1.375) 7.01
    ,Harmonic 37 (-2.128) 9.57
    ,Harmonic 38 (-2.444) 6.38
    ,Harmonic 39 (-1.575) 12.07
    ,Harmonic 40 (-0.793) 6.29
    ,Harmonic 41 1.58 16.2
    ,Harmonic 42 2.576 5.35
    ,Harmonic 43 (-2.562) 7.58
    ,Harmonic 44 (-0.587) 8.15
    ,Harmonic 45 0.888 4.1
    ,Harmonic 46 3.065 6.57
    ,Harmonic 47 (-2.347) 4.67
    ,Harmonic 48 7.4e-2 4.13
    ,Harmonic 49 2.09 4.67
    ,Harmonic 50 (-2.413) 4.24
    ,Harmonic 51 (-0.918) 4.0]