Note23.hs

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

import Sharc.Types

note23 :: Note
note23 = Note
    (Pitch 261.626 48 "c4")
    24
    (Range
        (NoteRange
            (NoteRangeAmplitude 6802.27 26 0.0)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 261.62 1 2043.0)
            (NoteRangeHarmonicFreq 38 9941.78)))
    [Harmonic 1 1.411 2043.0
    ,Harmonic 2 2.288 254.34
    ,Harmonic 3 1.824 128.07
    ,Harmonic 4 1.594 14.84
    ,Harmonic 5 2.702 4.11
    ,Harmonic 6 (-1.07) 3.91
    ,Harmonic 7 0.982 1.45
    ,Harmonic 8 0.744 0.51
    ,Harmonic 9 (-2.245) 0.93
    ,Harmonic 10 (-0.202) 0.43
    ,Harmonic 11 0.467 0.35
    ,Harmonic 12 2.0e-3 0.13
    ,Harmonic 13 2.266 0.13
    ,Harmonic 14 (-2.07) 0.21
    ,Harmonic 15 (-1.267) 0.14
    ,Harmonic 16 (-2.481) 0.3
    ,Harmonic 17 1.169 0.12
    ,Harmonic 18 2.692 0.18
    ,Harmonic 19 2.079 0.13
    ,Harmonic 20 (-0.34) 7.0e-2
    ,Harmonic 21 (-2.58) 0.23
    ,Harmonic 22 (-2.969) 0.13
    ,Harmonic 23 (-1.195) 0.12
    ,Harmonic 24 (-2.841) 0.16
    ,Harmonic 25 0.25 0.11
    ,Harmonic 26 2.938 0.0
    ,Harmonic 27 2.815 6.0e-2
    ,Harmonic 28 0.835 7.0e-2
    ,Harmonic 29 0.21 0.17
    ,Harmonic 30 3.066 0.15
    ,Harmonic 31 (-2.876) 0.21
    ,Harmonic 32 (-0.682) 0.15
    ,Harmonic 33 (-2.223) 5.0e-2
    ,Harmonic 34 2.976 5.0e-2
    ,Harmonic 35 2.333 9.0e-2
    ,Harmonic 36 (-1.884) 3.0e-2
    ,Harmonic 37 0.817 0.15
    ,Harmonic 38 (-2.952) 0.16]