Note21.hs

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

import Sharc.Types

note21 :: Note
note21 = Note
    (Pitch 277.183 49 "c#4")
    22
    (Range
        (NoteRange
            (NoteRangeAmplitude 9701.4 35 3.0e-2)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 554.36 2 4189.0)
            (NoteRangeHarmonicFreq 36 9978.58)))
    [Harmonic 1 1.216 585.05
    ,Harmonic 2 (-1.643) 4189.0
    ,Harmonic 3 (-2.607) 129.35
    ,Harmonic 4 2.095 330.79
    ,Harmonic 5 (-1.309) 174.14
    ,Harmonic 6 1.289 170.12
    ,Harmonic 7 0.788 20.2
    ,Harmonic 8 2.803 16.99
    ,Harmonic 9 0.453 11.63
    ,Harmonic 10 2.12 3.38
    ,Harmonic 11 (-1.365) 1.71
    ,Harmonic 12 (-0.439) 3.5
    ,Harmonic 13 2.58 2.61
    ,Harmonic 14 0.522 1.79
    ,Harmonic 15 (-0.345) 2.99
    ,Harmonic 16 0.277 1.59
    ,Harmonic 17 2.725 0.66
    ,Harmonic 18 (-0.557) 1.13
    ,Harmonic 19 (-0.984) 0.73
    ,Harmonic 20 (-2.776) 0.18
    ,Harmonic 21 2.309 0.16
    ,Harmonic 22 0.355 0.46
    ,Harmonic 23 2.786 0.37
    ,Harmonic 24 0.518 0.25
    ,Harmonic 25 0.498 0.23
    ,Harmonic 26 (-9.7e-2) 0.55
    ,Harmonic 27 (-0.451) 0.36
    ,Harmonic 28 1.058 0.29
    ,Harmonic 29 (-0.104) 0.74
    ,Harmonic 30 (-1.305) 4.0e-2
    ,Harmonic 31 0.406 0.72
    ,Harmonic 32 (-1.335) 0.22
    ,Harmonic 33 0.956 0.75
    ,Harmonic 34 (-1.313) 0.59
    ,Harmonic 35 1.974 3.0e-2
    ,Harmonic 36 0.499 0.15]