Note17.hs

module Sharc.Instruments.FrenchHornMuted.Note17 (note17) where

import Sharc.Types

note17 :: Note
note17 = Note
    (Pitch 195.998 43 "g3")
    18
    (Range
        (NoteRange
            (NoteRangeAmplitude 8035.91 41 0.22)
            (NoteRangeHarmonicFreq 1 195.99))
        (NoteRange
            (NoteRangeAmplitude 1175.98 6 3851.0)
            (NoteRangeHarmonicFreq 50 9799.9)))
    [Harmonic 1 2.895 1518.41
    ,Harmonic 2 2.122 3637.35
    ,Harmonic 3 1.006 2577.86
    ,Harmonic 4 (-0.39) 1770.4
    ,Harmonic 5 0.41 3686.9
    ,Harmonic 6 (-1.579) 3851.0
    ,Harmonic 7 (-3.015) 3726.87
    ,Harmonic 8 1.741 2545.48
    ,Harmonic 9 0.818 1816.61
    ,Harmonic 10 (-0.434) 1344.0
    ,Harmonic 11 (-1.583) 687.65
    ,Harmonic 12 (-2.729) 594.78
    ,Harmonic 13 2.226 240.02
    ,Harmonic 14 1.021 163.23
    ,Harmonic 15 0.848 114.4
    ,Harmonic 16 (-0.321) 103.36
    ,Harmonic 17 (-1.76) 55.46
    ,Harmonic 18 (-2.407) 29.73
    ,Harmonic 19 (-2.698) 22.81
    ,Harmonic 20 2.686 26.49
    ,Harmonic 21 1.402 29.89
    ,Harmonic 22 0.393 20.87
    ,Harmonic 23 (-1.171) 14.46
    ,Harmonic 24 (-1.373) 15.55
    ,Harmonic 25 (-2.636) 17.51
    ,Harmonic 26 3.136 15.43
    ,Harmonic 27 2.024 13.37
    ,Harmonic 28 0.902 6.56
    ,Harmonic 29 0.422 7.57
    ,Harmonic 30 (-0.686) 7.22
    ,Harmonic 31 (-1.837) 4.82
    ,Harmonic 32 (-2.012) 4.62
    ,Harmonic 33 2.748 4.41
    ,Harmonic 34 1.593 2.0
    ,Harmonic 35 2.349 1.27
    ,Harmonic 36 3.085 0.98
    ,Harmonic 37 1.501 0.74
    ,Harmonic 38 1.192 0.6
    ,Harmonic 39 1.817 0.7
    ,Harmonic 40 (-0.167) 1.93
    ,Harmonic 41 (-1.243) 0.22
    ,Harmonic 42 (-0.543) 1.2
    ,Harmonic 43 (-1.955) 2.05
    ,Harmonic 44 (-2.657) 1.78
    ,Harmonic 45 2.755 2.29
    ,Harmonic 46 1.481 1.75
    ,Harmonic 47 0.837 1.49
    ,Harmonic 48 0.612 1.51
    ,Harmonic 49 (-0.482) 2.08
    ,Harmonic 50 (-1.803) 3.09]