Note18.hs

module Sharc.Instruments.FrenchHornMuted.Note18 (note18) where

import Sharc.Types

note18 :: Note
note18 = Note
    (Pitch 207.652 44 "g#3")
    19
    (Range
        (NoteRange
            (NoteRangeAmplitude 5398.95 26 0.63)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 1245.91 6 4221.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 0.55 1602.44
    ,Harmonic 2 (-2.466) 3365.62
    ,Harmonic 3 0.571 3020.59
    ,Harmonic 4 (-2.484) 369.74
    ,Harmonic 5 1.455 4198.31
    ,Harmonic 6 (-2.315) 4221.0
    ,Harmonic 7 0.235 3015.46
    ,Harmonic 8 2.719 1637.33
    ,Harmonic 9 6.3e-2 1187.62
    ,Harmonic 10 2.904 960.05
    ,Harmonic 11 (-0.348) 538.02
    ,Harmonic 12 2.508 357.14
    ,Harmonic 13 (-0.472) 209.69
    ,Harmonic 14 (-3.141) 118.66
    ,Harmonic 15 3.0e-3 95.92
    ,Harmonic 16 2.765 70.21
    ,Harmonic 17 0.209 31.23
    ,Harmonic 18 (-2.278) 23.5
    ,Harmonic 19 0.681 31.16
    ,Harmonic 20 (-2.356) 25.47
    ,Harmonic 21 0.958 16.54
    ,Harmonic 22 (-1.816) 10.18
    ,Harmonic 23 1.479 7.97
    ,Harmonic 24 (-2.234) 6.64
    ,Harmonic 25 1.253 2.55
    ,Harmonic 26 (-2.128) 0.63
    ,Harmonic 27 2.97 0.73
    ,Harmonic 28 1.357 0.78
    ,Harmonic 29 (-2.174) 3.23
    ,Harmonic 30 1.491 1.6
    ,Harmonic 31 (-2.282) 3.89
    ,Harmonic 32 0.404 2.6
    ,Harmonic 33 (-1.872) 1.7
    ,Harmonic 34 2.314 1.07
    ,Harmonic 35 (-0.545) 1.82
    ,Harmonic 36 2.736 1.16
    ,Harmonic 37 (-0.615) 0.88
    ,Harmonic 38 (-2.654) 1.93
    ,Harmonic 39 0.862 2.89
    ,Harmonic 40 (-2.843) 2.82
    ,Harmonic 41 0.227 2.57
    ,Harmonic 42 3.106 2.13
    ,Harmonic 43 (-0.535) 1.23
    ,Harmonic 44 2.954 1.76
    ,Harmonic 45 (-1.177) 1.28
    ,Harmonic 46 3.103 3.42
    ,Harmonic 47 3.3e-2 2.12
    ,Harmonic 48 (-2.724) 1.17]