Note17.hs

module Sharc.Instruments.Tuba.Note17 (note17) where

import Sharc.Types

note17 :: Note
note17 = Note
    (Pitch 184.997 42 "f#3")
    18
    (Range
        (NoteRange
            (NoteRangeAmplitude 5549.91 30 5.0e-2)
            (NoteRangeHarmonicFreq 1 184.99))
        (NoteRange
            (NoteRangeAmplitude 184.99 1 3552.0)
            (NoteRangeHarmonicFreq 53 9804.84)))
    [Harmonic 1 (-0.84) 3552.0
    ,Harmonic 2 (-2.21) 3289.23
    ,Harmonic 3 2.664 1369.57
    ,Harmonic 4 0.275 682.64
    ,Harmonic 5 (-0.78) 328.02
    ,Harmonic 6 (-1.936) 222.85
    ,Harmonic 7 2.363 55.0
    ,Harmonic 8 0.282 18.92
    ,Harmonic 9 (-1.177) 32.76
    ,Harmonic 10 (-2.059) 7.42
    ,Harmonic 11 0.974 4.43
    ,Harmonic 12 (-0.512) 0.76
    ,Harmonic 13 (-2.864) 0.38
    ,Harmonic 14 1.749 0.75
    ,Harmonic 15 (-0.559) 0.61
    ,Harmonic 16 2.482 2.4
    ,Harmonic 17 0.974 1.33
    ,Harmonic 18 (-0.208) 1.41
    ,Harmonic 19 2.675 0.38
    ,Harmonic 20 0.567 1.73
    ,Harmonic 21 (-1.239) 1.36
    ,Harmonic 22 1.375 0.42
    ,Harmonic 23 (-0.853) 5.0e-2
    ,Harmonic 24 (-0.627) 0.2
    ,Harmonic 25 0.484 1.02
    ,Harmonic 26 (-2.4e-2) 9.0e-2
    ,Harmonic 27 2.545 0.9
    ,Harmonic 28 (-9.0e-2) 0.37
    ,Harmonic 29 (-0.78) 0.24
    ,Harmonic 30 (-0.197) 5.0e-2
    ,Harmonic 31 0.814 0.67
    ,Harmonic 32 (-1.639) 0.5
    ,Harmonic 33 1.628 0.35
    ,Harmonic 34 (-0.302) 0.44
    ,Harmonic 35 0.589 0.47
    ,Harmonic 36 0.146 0.27
    ,Harmonic 37 5.5e-2 0.23
    ,Harmonic 38 1.397 0.39
    ,Harmonic 39 0.208 0.35
    ,Harmonic 40 (-1.81) 6.0e-2
    ,Harmonic 41 1.261 0.32
    ,Harmonic 42 (-0.392) 0.22
    ,Harmonic 43 (-2.882) 0.2
    ,Harmonic 44 8.2e-2 0.32
    ,Harmonic 45 (-1.7) 0.11
    ,Harmonic 46 0.225 0.33
    ,Harmonic 47 (-0.657) 0.41
    ,Harmonic 48 0.748 0.23
    ,Harmonic 49 (-0.66) 0.18
    ,Harmonic 50 (-6.7e-2) 0.17
    ,Harmonic 51 0.667 0.27
    ,Harmonic 52 0.124 0.34
    ,Harmonic 53 0.248 0.18]