Note24.hs

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

import Sharc.Types

note24 :: Note
note24 = Note
    (Pitch 277.183 49 "c#4")
    25
    (Range
        (NoteRange
            (NoteRangeAmplitude 6929.57 25 3.0e-2)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 277.18 1 1689.0)
            (NoteRangeHarmonicFreq 36 9978.58)))
    [Harmonic 1 1.545 1689.0
    ,Harmonic 2 1.637 658.73
    ,Harmonic 3 0.445 258.85
    ,Harmonic 4 (-0.809) 43.91
    ,Harmonic 5 (-2.142) 36.95
    ,Harmonic 6 (-4.0e-3) 6.58
    ,Harmonic 7 (-2.694) 0.91
    ,Harmonic 8 (-1.321) 0.66
    ,Harmonic 9 (-2.769) 0.91
    ,Harmonic 10 (-1.113) 0.17
    ,Harmonic 11 2.38 1.72
    ,Harmonic 12 (-1.017) 0.5
    ,Harmonic 13 (-2.581) 0.34
    ,Harmonic 14 1.685 0.19
    ,Harmonic 15 (-2.135) 0.34
    ,Harmonic 16 (-2.103) 0.17
    ,Harmonic 17 (-2.327) 0.21
    ,Harmonic 18 1.92 0.25
    ,Harmonic 19 (-2.36) 0.28
    ,Harmonic 20 (-1.266) 0.2
    ,Harmonic 21 (-2.566) 0.19
    ,Harmonic 22 (-1.181) 0.27
    ,Harmonic 23 2.891 0.28
    ,Harmonic 24 2.95 0.22
    ,Harmonic 25 1.987 3.0e-2
    ,Harmonic 26 (-1.369) 0.1
    ,Harmonic 27 1.928 0.19
    ,Harmonic 28 (-2.668) 0.16
    ,Harmonic 29 0.116 0.11
    ,Harmonic 30 2.731 0.18
    ,Harmonic 31 2.913 0.18
    ,Harmonic 32 (-3.094) 0.22
    ,Harmonic 33 (-2.268) 0.2
    ,Harmonic 34 1.993 0.1
    ,Harmonic 35 (-2.298) 0.22
    ,Harmonic 36 (-0.565) 0.19]