Note16.hs

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

import Sharc.Types

note16 :: Note
note16 = Note
    (Pitch 207.652 44 "g#3")
    17
    (Range
        (NoteRange
            (NoteRangeAmplitude 5814.25 28 9.0e-2)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 622.95 3 2829.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 (-3.026) 521.36
    ,Harmonic 2 (-2.811) 1106.61
    ,Harmonic 3 0.949 2829.0
    ,Harmonic 4 (-3.05) 79.88
    ,Harmonic 5 1.107 74.71
    ,Harmonic 6 0.446 131.99
    ,Harmonic 7 1.759 135.31
    ,Harmonic 8 0.696 350.33
    ,Harmonic 9 (-0.137) 52.63
    ,Harmonic 10 (-0.345) 57.55
    ,Harmonic 11 (-0.621) 50.4
    ,Harmonic 12 (-0.609) 13.24
    ,Harmonic 13 (-1.497) 9.74
    ,Harmonic 14 (-0.173) 4.93
    ,Harmonic 15 1.213 6.14
    ,Harmonic 16 (-0.182) 10.17
    ,Harmonic 17 2.552 0.63
    ,Harmonic 18 (-1.843) 3.4
    ,Harmonic 19 2.526 1.19
    ,Harmonic 20 1.392 2.26
    ,Harmonic 21 (-2.342) 4.61
    ,Harmonic 22 (-3.043) 2.33
    ,Harmonic 23 (-1.05) 1.03
    ,Harmonic 24 0.784 0.86
    ,Harmonic 25 2.263 0.59
    ,Harmonic 26 0.32 0.95
    ,Harmonic 27 (-2.289) 0.65
    ,Harmonic 28 (-2.162) 9.0e-2
    ,Harmonic 29 (-1.055) 0.18
    ,Harmonic 30 (-2.393) 0.33
    ,Harmonic 31 0.273 0.37
    ,Harmonic 32 1.852 0.38
    ,Harmonic 33 2.292 0.89
    ,Harmonic 34 2.706 0.21
    ,Harmonic 35 1.697 0.15
    ,Harmonic 36 (-2.503) 0.82
    ,Harmonic 37 2.634 0.67
    ,Harmonic 38 2.102 0.95
    ,Harmonic 39 2.906 0.36
    ,Harmonic 40 (-0.871) 0.59
    ,Harmonic 41 2.2 0.12
    ,Harmonic 42 (-2.832) 0.2
    ,Harmonic 43 (-2.285) 0.3
    ,Harmonic 44 (-2.252) 0.39
    ,Harmonic 45 3.127 0.52
    ,Harmonic 46 3.126 0.57
    ,Harmonic 47 (-2.834) 0.39
    ,Harmonic 48 2.95 0.36]