Note30.hs

module Sharc.Instruments.Tuba.Note30 (note30) where

import Sharc.Types

note30 :: Note
note30 = Note
    (Pitch 391.995 55 "g4")
    31
    (Range
        (NoteRange
            (NoteRangeAmplitude 7447.9 19 0.14)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 1 2552.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 (-1.578) 2552.0
    ,Harmonic 2 2.838 148.82
    ,Harmonic 3 1.156 23.43
    ,Harmonic 4 1.353 5.52
    ,Harmonic 5 0.793 1.6
    ,Harmonic 6 (-1.062) 1.45
    ,Harmonic 7 (-0.712) 2.21
    ,Harmonic 8 (-0.28) 0.59
    ,Harmonic 9 (-1.161) 0.32
    ,Harmonic 10 (-2.893) 0.48
    ,Harmonic 11 0.641 0.43
    ,Harmonic 12 (-0.27) 0.68
    ,Harmonic 13 (-0.48) 0.35
    ,Harmonic 14 8.8e-2 0.35
    ,Harmonic 15 (-7.2e-2) 0.17
    ,Harmonic 16 0.152 0.19
    ,Harmonic 17 0.447 0.42
    ,Harmonic 18 (-0.262) 0.4
    ,Harmonic 19 0.338 0.14
    ,Harmonic 20 0.843 0.27
    ,Harmonic 21 0.336 0.48
    ,Harmonic 22 0.764 0.32
    ,Harmonic 23 (-0.831) 0.22
    ,Harmonic 24 (-0.456) 0.3
    ,Harmonic 25 (-1.035) 0.4]