module Sharc.Instruments.FrenchHornMuted.Note19 (note19) where

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 220.0 45 "a3")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 6820.0 31 0.61)
            (NoteRangeHarmonicFreq 1 220.0))
        (NoteRange
            (NoteRangeAmplitude 1320.0 6 5828.0)
            (NoteRangeHarmonicFreq 45 9900.0)))
    [Harmonic 1 (-3.129) 1781.14
    ,Harmonic 2 2.636 3381.12
    ,Harmonic 3 2.121 2758.04
    ,Harmonic 4 (-2.473) 1255.13
    ,Harmonic 5 1.538 5804.91
    ,Harmonic 6 0.572 5828.0
    ,Harmonic 7 (-0.529) 4055.68
    ,Harmonic 8 (-0.728) 2250.07
    ,Harmonic 9 (-1.641) 2023.42
    ,Harmonic 10 (-2.597) 1390.59
    ,Harmonic 11 2.925 905.88
    ,Harmonic 12 2.455 546.49
    ,Harmonic 13 2.41 240.07
    ,Harmonic 14 1.646 246.7
    ,Harmonic 15 0.922 141.93
    ,Harmonic 16 0.753 86.14
    ,Harmonic 17 0.984 49.28
    ,Harmonic 18 0.278 84.23
    ,Harmonic 19 (-0.624) 58.1
    ,Harmonic 20 (-1.181) 40.62
    ,Harmonic 21 (-1.505) 21.85
    ,Harmonic 22 (-1.876) 22.12
    ,Harmonic 23 (-1.985) 17.25
    ,Harmonic 24 (-2.914) 16.55
    ,Harmonic 25 2.647 10.53
    ,Harmonic 26 2.757 8.86
    ,Harmonic 27 2.419 4.87
    ,Harmonic 28 1.649 3.28
    ,Harmonic 29 1.707 2.15
    ,Harmonic 30 1.161 1.96
    ,Harmonic 31 2.201 0.61
    ,Harmonic 32 (-1.732) 1.42
    ,Harmonic 33 (-1.647) 1.63
    ,Harmonic 34 (-0.768) 2.06
    ,Harmonic 35 (-0.763) 2.14
    ,Harmonic 36 (-0.525) 0.88
    ,Harmonic 37 (-1.632) 0.76
    ,Harmonic 38 (-2.386) 1.4
    ,Harmonic 39 3.051 2.51
    ,Harmonic 40 3.07 4.05
    ,Harmonic 41 2.208 3.3
    ,Harmonic 42 1.552 3.49
    ,Harmonic 43 1.536 2.03
    ,Harmonic 44 1.373 2.82
    ,Harmonic 45 0.883 0.91]