Note24.hs

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

import Sharc.Types

note24 :: Note
note24 = Note
    (Pitch 233.082 46 "a#3")
    25
    (Range
        (NoteRange
            (NoteRangeAmplitude 8857.11 38 0.12)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 466.16 2 4503.0)
            (NoteRangeHarmonicFreq 42 9789.44)))
    [Harmonic 1 (-1.573) 903.77
    ,Harmonic 2 (-1.741) 4503.0
    ,Harmonic 3 (-0.921) 303.4
    ,Harmonic 4 3.134 111.99
    ,Harmonic 5 (-1.321) 110.75
    ,Harmonic 6 (-0.116) 271.68
    ,Harmonic 7 1.37 52.15
    ,Harmonic 8 2.69 44.33
    ,Harmonic 9 (-6.5e-2) 13.84
    ,Harmonic 10 0.15 5.04
    ,Harmonic 11 (-2.314) 4.6
    ,Harmonic 12 0.67 2.95
    ,Harmonic 13 1.759 3.1
    ,Harmonic 14 1.913 6.24
    ,Harmonic 15 2.678 3.12
    ,Harmonic 16 (-2.809) 1.49
    ,Harmonic 17 1.32 1.66
    ,Harmonic 18 (-0.644) 1.38
    ,Harmonic 19 (-0.378) 3.33
    ,Harmonic 20 (-1.245) 4.95
    ,Harmonic 21 (-0.654) 3.48
    ,Harmonic 22 (-0.64) 1.05
    ,Harmonic 23 (-0.334) 1.44
    ,Harmonic 24 0.137 2.14
    ,Harmonic 25 (-1.9e-2) 1.38
    ,Harmonic 26 0.274 1.06
    ,Harmonic 27 (-1.572) 0.52
    ,Harmonic 28 (-1.881) 0.98
    ,Harmonic 29 (-0.995) 1.15
    ,Harmonic 30 0.137 0.41
    ,Harmonic 31 0.993 0.8
    ,Harmonic 32 (-0.585) 1.19
    ,Harmonic 33 (-1.868) 0.32
    ,Harmonic 34 (-0.958) 0.29
    ,Harmonic 35 0.265 0.16
    ,Harmonic 36 (-0.205) 0.64
    ,Harmonic 37 (-0.633) 0.46
    ,Harmonic 38 (-3.026) 0.12
    ,Harmonic 39 (-1.774) 0.17
    ,Harmonic 40 1.716 0.34
    ,Harmonic 41 (-0.453) 0.42
    ,Harmonic 42 (-0.48) 0.93]