Note21.hs

module Sharc.Instruments.Tuba.Note21 (note21) where

import Sharc.Types

note21 :: Note
note21 = Note
    (Pitch 233.082 46 "a#3")
    22
    (Range
        (NoteRange
            (NoteRangeAmplitude 8857.11 38 0.1)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 233.08 1 5258.0)
            (NoteRangeHarmonicFreq 42 9789.44)))
    [Harmonic 1 1.158 5258.0
    ,Harmonic 2 2.443 2166.03
    ,Harmonic 3 1.662 487.02
    ,Harmonic 4 1.329 252.11
    ,Harmonic 5 1.256 76.47
    ,Harmonic 6 0.656 34.0
    ,Harmonic 7 2.548 5.22
    ,Harmonic 8 1.553 6.43
    ,Harmonic 9 (-2.942) 2.4
    ,Harmonic 10 (-0.326) 3.3
    ,Harmonic 11 3.063 2.97
    ,Harmonic 12 (-2.472) 1.97
    ,Harmonic 13 3.1 0.85
    ,Harmonic 14 (-2.739) 0.52
    ,Harmonic 15 (-2.709) 1.22
    ,Harmonic 16 (-3.04) 1.18
    ,Harmonic 17 (-0.297) 0.22
    ,Harmonic 18 1.727 0.18
    ,Harmonic 19 (-2.535) 0.56
    ,Harmonic 20 (-2.607) 0.63
    ,Harmonic 21 (-2.601) 0.42
    ,Harmonic 22 (-2.368) 0.43
    ,Harmonic 23 (-3.07) 0.29
    ,Harmonic 24 (-2.394) 0.47
    ,Harmonic 25 (-2.006) 0.18
    ,Harmonic 26 (-2.844) 0.3
    ,Harmonic 27 (-2.537) 0.54
    ,Harmonic 28 (-2.752) 0.39
    ,Harmonic 29 (-2.731) 0.48
    ,Harmonic 30 (-2.207) 0.35
    ,Harmonic 31 (-2.398) 0.53
    ,Harmonic 32 3.141 0.46
    ,Harmonic 33 (-2.571) 0.28
    ,Harmonic 34 (-2.412) 0.44
    ,Harmonic 35 (-3.092) 0.63
    ,Harmonic 36 2.897 0.24
    ,Harmonic 37 (-2.983) 0.51
    ,Harmonic 38 2.31 0.1
    ,Harmonic 39 (-3.089) 0.4
    ,Harmonic 40 (-2.705) 0.38
    ,Harmonic 41 2.858 0.37
    ,Harmonic 42 (-2.986) 0.24]