Note19.hs

module Sharc.Instruments.Tuba.Note19 (note19) where

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 207.652 44 "g#3")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 9344.34 45 1.0e-2)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 207.65 1 3281.0)
            (NoteRangeHarmonicFreq 47 9759.64)))
    [Harmonic 1 (-1.183) 3281.0
    ,Harmonic 2 (-2.57) 1582.41
    ,Harmonic 3 1.733 72.13
    ,Harmonic 4 1.359 86.33
    ,Harmonic 5 1.61 58.51
    ,Harmonic 6 0.77 9.78
    ,Harmonic 7 (-1.148) 23.44
    ,Harmonic 8 (-2.468) 13.75
    ,Harmonic 9 2.776 5.1
    ,Harmonic 10 1.463 0.45
    ,Harmonic 11 0.938 0.26
    ,Harmonic 12 (-0.576) 1.39
    ,Harmonic 13 (-0.104) 0.38
    ,Harmonic 14 2.014 0.69
    ,Harmonic 15 (-0.512) 0.42
    ,Harmonic 16 4.0e-2 6.0e-2
    ,Harmonic 17 (-1.952) 0.39
    ,Harmonic 18 2.638 0.5
    ,Harmonic 19 2.616 4.0e-2
    ,Harmonic 20 1.307 0.25
    ,Harmonic 21 (-1.495) 0.13
    ,Harmonic 22 0.396 0.24
    ,Harmonic 23 (-1.619) 0.15
    ,Harmonic 24 (-1.467) 7.0e-2
    ,Harmonic 25 (-0.927) 0.1
    ,Harmonic 26 (-0.203) 0.17
    ,Harmonic 27 0.634 0.21
    ,Harmonic 28 (-0.587) 0.17
    ,Harmonic 29 (-0.313) 0.32
    ,Harmonic 30 2.65 8.0e-2
    ,Harmonic 31 (-0.906) 0.12
    ,Harmonic 32 (-9.9e-2) 0.1
    ,Harmonic 33 1.055 0.17
    ,Harmonic 34 0.384 0.23
    ,Harmonic 35 (-0.74) 0.23
    ,Harmonic 36 (-0.556) 0.14
    ,Harmonic 37 (-3.114) 0.1
    ,Harmonic 38 0.679 0.37
    ,Harmonic 39 (-0.928) 0.13
    ,Harmonic 40 (-2.919) 0.15
    ,Harmonic 41 2.727 4.0e-2
    ,Harmonic 42 0.645 0.16
    ,Harmonic 43 0.83 0.19
    ,Harmonic 44 (-0.128) 0.29
    ,Harmonic 45 0.592 1.0e-2
    ,Harmonic 46 0.755 9.0e-2
    ,Harmonic 47 0.211 0.23]