Note23.hs

module Sharc.Instruments.BassClarinet.Note23 (note23) where

import Sharc.Types

note23 :: Note
note23 = Note
    (Pitch 261.626 48 "c4")
    24
    (Range
        (NoteRange
            (NoteRangeAmplitude 6540.65 25 0.77)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 261.62 1 3720.0)
            (NoteRangeHarmonicFreq 38 9941.78)))
    [Harmonic 1 (-1.972) 3720.0
    ,Harmonic 2 0.826 20.09
    ,Harmonic 3 4.9e-2 650.32
    ,Harmonic 4 2.741 151.69
    ,Harmonic 5 (-0.119) 249.43
    ,Harmonic 6 (-1.139) 348.48
    ,Harmonic 7 0.577 176.44
    ,Harmonic 8 0.435 123.81
    ,Harmonic 9 (-0.719) 304.1
    ,Harmonic 10 (-1.887) 27.63
    ,Harmonic 11 2.87 36.96
    ,Harmonic 12 1.004 16.41
    ,Harmonic 13 (-1.277) 43.18
    ,Harmonic 14 2.848 67.99
    ,Harmonic 15 2.111 22.02
    ,Harmonic 16 0.689 32.16
    ,Harmonic 17 (-2.361) 18.32
    ,Harmonic 18 2.883 12.34
    ,Harmonic 19 (-1.748) 8.2
    ,Harmonic 20 1.377 15.25
    ,Harmonic 21 0.163 9.89
    ,Harmonic 22 2.057 11.59
    ,Harmonic 23 0.502 9.7
    ,Harmonic 24 2.333 2.62
    ,Harmonic 25 (-2.535) 0.77
    ,Harmonic 26 (-2.014) 2.76
    ,Harmonic 27 1.104 1.24
    ,Harmonic 28 (-0.943) 2.44
    ,Harmonic 29 (-1.505) 7.51
    ,Harmonic 30 3.021 4.27
    ,Harmonic 31 (-1.901) 4.38
    ,Harmonic 32 2.763 8.02
    ,Harmonic 33 1.499 2.76
    ,Harmonic 34 (-3.121) 1.99
    ,Harmonic 35 1.838 3.14
    ,Harmonic 36 1.884 0.86
    ,Harmonic 37 2.275 2.44
    ,Harmonic 38 1.54 3.07]