Note16.hs

module Sharc.Instruments.Trombone.Note16 (note16) where

import Sharc.Types

note16 :: Note
note16 = Note
    (Pitch 207.652 44 "g#3")
    17
    (Range
        (NoteRange
            (NoteRangeAmplitude 4360.69 21 0.69)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 415.3 2 5005.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 (-1.136) 3406.29
    ,Harmonic 2 1.041 5005.0
    ,Harmonic 3 2.596 3806.9
    ,Harmonic 4 (-2.31) 4091.29
    ,Harmonic 5 (-0.991) 2872.12
    ,Harmonic 6 0.595 1941.09
    ,Harmonic 7 1.876 1198.75
    ,Harmonic 8 (-2.9) 728.66
    ,Harmonic 9 (-1.236) 457.37
    ,Harmonic 10 0.429 328.57
    ,Harmonic 11 2.025 176.02
    ,Harmonic 12 (-2.668) 116.19
    ,Harmonic 13 (-1.107) 76.64
    ,Harmonic 14 0.701 49.08
    ,Harmonic 15 2.557 33.99
    ,Harmonic 16 (-1.92) 17.51
    ,Harmonic 17 (-0.577) 9.97
    ,Harmonic 18 1.379 6.58
    ,Harmonic 19 (-2.442) 3.7
    ,Harmonic 20 0.549 2.26
    ,Harmonic 21 2.612 0.69
    ,Harmonic 22 (-2.428) 3.58
    ,Harmonic 23 0.285 4.52
    ,Harmonic 24 2.436 3.35
    ,Harmonic 25 (-2.147) 0.76
    ,Harmonic 26 (-3.005) 0.76
    ,Harmonic 27 0.976 1.74
    ,Harmonic 28 2.842 3.93
    ,Harmonic 29 (-1.073) 4.18
    ,Harmonic 30 1.259 5.62
    ,Harmonic 31 (-2.251) 5.08
    ,Harmonic 32 0.244 5.73
    ,Harmonic 33 2.665 5.57
    ,Harmonic 34 (-1.147) 3.4
    ,Harmonic 35 2.237 1.96
    ,Harmonic 36 (-0.818) 1.35
    ,Harmonic 37 0.437 2.5
    ,Harmonic 38 (-3.041) 1.71
    ,Harmonic 39 (-0.733) 2.67
    ,Harmonic 40 0.222 6.38
    ,Harmonic 41 1.07 3.47
    ,Harmonic 42 2.423 1.12
    ,Harmonic 43 (-0.389) 1.43
    ,Harmonic 44 1.857 3.51
    ,Harmonic 45 (-2.635) 5.63
    ,Harmonic 46 (-0.595) 6.56
    ,Harmonic 47 1.319 3.1
    ,Harmonic 48 2.745 3.33]