module Sharc.Instruments.BassClarinet.Note24 (note24) where

import Sharc.Types

note24 :: Note
note24 = Note
    (Pitch 277.183 49 "c#4")
    25
    (Range
        (NoteRange
            (NoteRangeAmplitude 8869.85 32 2.04)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 277.18 1 3035.0)
            (NoteRangeHarmonicFreq 36 9978.58)))
    [Harmonic 1 0.939 3035.0
    ,Harmonic 2 1.343 32.53
    ,Harmonic 3 3.103 711.59
    ,Harmonic 4 2.392 227.61
    ,Harmonic 5 2.143 894.68
    ,Harmonic 6 2.077 182.7
    ,Harmonic 7 (-0.809) 234.97
    ,Harmonic 8 1.973 154.42
    ,Harmonic 9 (-1.364) 151.75
    ,Harmonic 10 2.148 109.05
    ,Harmonic 11 0.92 61.99
    ,Harmonic 12 0.494 16.7
    ,Harmonic 13 2.114 81.26
    ,Harmonic 14 1.699 28.25
    ,Harmonic 15 (-3.065) 5.41
    ,Harmonic 16 (-2.302) 35.35
    ,Harmonic 17 2.181 4.97
    ,Harmonic 18 (-2.588) 19.4
    ,Harmonic 19 (-2.674) 25.04
    ,Harmonic 20 2.403 26.23
    ,Harmonic 21 (-3.091) 8.32
    ,Harmonic 22 (-2.981) 8.51
    ,Harmonic 23 (-1.365) 5.91
    ,Harmonic 24 0.772 2.36
    ,Harmonic 25 2.768 4.7
    ,Harmonic 26 0.785 2.95
    ,Harmonic 27 3.078 4.1
    ,Harmonic 28 (-1.935) 7.21
    ,Harmonic 29 1.6 3.76
    ,Harmonic 30 (-2.992) 10.0
    ,Harmonic 31 (-1.096) 4.52
    ,Harmonic 32 2.452 2.04
    ,Harmonic 33 (-1.336) 4.51
    ,Harmonic 34 0.446 2.08
    ,Harmonic 35 (-1.803) 2.39
    ,Harmonic 36 0.95 3.83]