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

import Sharc.Types

note21 :: Note
note21 = Note
    (Pitch 246.942 47 "b3")
    22
    (Range
        (NoteRange
            (NoteRangeAmplitude 8642.97 35 0.29)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 493.88 2 4719.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 1.771 2624.76
    ,Harmonic 2 (-0.83) 4719.0
    ,Harmonic 3 (-3.091) 3106.1
    ,Harmonic 4 1.002 1345.13
    ,Harmonic 5 (-1.528) 715.12
    ,Harmonic 6 2.582 418.66
    ,Harmonic 7 (-3.0e-3) 169.68
    ,Harmonic 8 (-2.335) 68.22
    ,Harmonic 9 2.667 34.06
    ,Harmonic 10 0.887 18.17
    ,Harmonic 11 (-1.101) 15.05
    ,Harmonic 12 3.115 9.35
    ,Harmonic 13 0.845 5.68
    ,Harmonic 14 (-1.46) 5.38
    ,Harmonic 15 (-3.075) 2.99
    ,Harmonic 16 1.174 3.97
    ,Harmonic 17 (-1.147) 1.13
    ,Harmonic 18 1.893 2.26
    ,Harmonic 19 (-0.444) 1.49
    ,Harmonic 20 (-1.507) 1.03
    ,Harmonic 21 2.745 0.86
    ,Harmonic 22 0.179 0.85
    ,Harmonic 23 (-2.356) 1.38
    ,Harmonic 24 1.591 1.79
    ,Harmonic 25 4.6e-2 0.42
    ,Harmonic 26 (-0.961) 0.85
    ,Harmonic 27 1.802 0.85
    ,Harmonic 28 (-0.728) 0.55
    ,Harmonic 29 (-3.012) 1.06
    ,Harmonic 30 1.622 1.38
    ,Harmonic 31 (-4.0e-2) 1.65
    ,Harmonic 32 (-1.75) 1.28
    ,Harmonic 33 2.875 0.38
    ,Harmonic 34 0.537 0.67
    ,Harmonic 35 (-1.711) 0.29
    ,Harmonic 36 1.849 0.93
    ,Harmonic 37 0.282 0.93
    ,Harmonic 38 (-1.952) 0.65
    ,Harmonic 39 2.374 0.82
    ,Harmonic 40 (-9.0e-3) 0.88]