Note18.hs

module Sharc.Instruments.Tuba.Note18 (note18) where

import Sharc.Types

note18 :: Note
note18 = Note
    (Pitch 195.998 43 "g3")
    19
    (Range
        (NoteRange
            (NoteRangeAmplitude 6859.92 35 7.0e-2)
            (NoteRangeHarmonicFreq 1 195.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 2 2722.0)
            (NoteRangeHarmonicFreq 51 9995.89)))
    [Harmonic 1 1.407 1515.45
    ,Harmonic 2 1.395 2722.0
    ,Harmonic 3 1.669 453.28
    ,Harmonic 4 1.638 546.6
    ,Harmonic 5 1.755 204.57
    ,Harmonic 6 (-2.81) 97.02
    ,Harmonic 7 (-2.547) 30.9
    ,Harmonic 8 (-2.486) 19.53
    ,Harmonic 9 (-1.96) 5.14
    ,Harmonic 10 (-2.361) 2.75
    ,Harmonic 11 (-0.48) 0.58
    ,Harmonic 12 0.62 0.38
    ,Harmonic 13 (-2.782) 0.41
    ,Harmonic 14 (-2.9) 1.08
    ,Harmonic 15 (-2.742) 0.61
    ,Harmonic 16 (-2.172) 0.84
    ,Harmonic 17 (-2.223) 0.39
    ,Harmonic 18 (-2.091) 0.42
    ,Harmonic 19 (-1.289) 0.28
    ,Harmonic 20 (-1.369) 0.32
    ,Harmonic 21 (-2.493) 0.48
    ,Harmonic 22 (-2.84) 0.52
    ,Harmonic 23 (-2.566) 0.32
    ,Harmonic 24 (-1.966) 0.57
    ,Harmonic 25 (-2.565) 0.28
    ,Harmonic 26 (-2.823) 0.27
    ,Harmonic 27 (-2.932) 0.11
    ,Harmonic 28 (-1.803) 0.12
    ,Harmonic 29 (-1.845) 0.13
    ,Harmonic 30 3.016 0.34
    ,Harmonic 31 (-2.985) 0.5
    ,Harmonic 32 (-2.356) 0.45
    ,Harmonic 33 2.125 0.11
    ,Harmonic 34 (-2.362) 0.34
    ,Harmonic 35 (-0.947) 7.0e-2
    ,Harmonic 36 3.02 0.44
    ,Harmonic 37 (-2.27) 0.14
    ,Harmonic 38 (-0.887) 0.11
    ,Harmonic 39 (-2.254) 0.22
    ,Harmonic 40 3.068 0.28
    ,Harmonic 41 (-2.669) 0.11
    ,Harmonic 42 3.043 0.25
    ,Harmonic 43 2.904 0.17
    ,Harmonic 44 (-3.098) 0.39
    ,Harmonic 45 3.064 0.37
    ,Harmonic 46 2.266 0.41
    ,Harmonic 47 3.09 0.26
    ,Harmonic 48 (-4.2e-2) 8.0e-2
    ,Harmonic 49 (-2.968) 0.26
    ,Harmonic 50 (-2.262) 0.2
    ,Harmonic 51 2.882 0.28]