Note29.hs

module Sharc.Instruments.Tuba.Note29 (note29) where

import Sharc.Types

note29 :: Note
note29 = Note
    (Pitch 369.994 54 "f#4")
    30
    (Range
        (NoteRange
            (NoteRangeAmplitude 7029.88 19 1.0e-2)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 1 1843.0)
            (NoteRangeHarmonicFreq 26 9619.84)))
    [Harmonic 1 (-1.555) 1843.0
    ,Harmonic 2 1.72 179.82
    ,Harmonic 3 0.298 45.16
    ,Harmonic 4 2.163 6.59
    ,Harmonic 5 1.087 1.95
    ,Harmonic 6 3.123 2.61
    ,Harmonic 7 (-2.468) 0.48
    ,Harmonic 8 (-1.908) 1.78
    ,Harmonic 9 1.974 0.51
    ,Harmonic 10 3.014 0.34
    ,Harmonic 11 2.318 0.25
    ,Harmonic 12 (-2.624) 0.12
    ,Harmonic 13 1.316 0.38
    ,Harmonic 14 1.898 0.23
    ,Harmonic 15 2.058 0.23
    ,Harmonic 16 (-0.785) 0.21
    ,Harmonic 17 0.338 0.34
    ,Harmonic 18 (-1.913) 6.0e-2
    ,Harmonic 19 (-1.431) 1.0e-2
    ,Harmonic 20 0.254 0.2
    ,Harmonic 21 0.749 0.21
    ,Harmonic 22 0.148 0.21
    ,Harmonic 23 2.921 9.0e-2
    ,Harmonic 24 (-0.628) 0.27
    ,Harmonic 25 0.372 0.25
    ,Harmonic 26 1.333 4.0e-2]