Note21.hs

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

import Sharc.Types

note21 :: Note
note21 = Note
    (Pitch 246.942 47 "b3")
    22
    (Range
        (NoteRange
            (NoteRangeAmplitude 9877.68 40 0.76)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 1234.71 5 5380.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 1.943 2895.43
    ,Harmonic 2 (-0.275) 3550.99
    ,Harmonic 3 (-1.749) 3233.28
    ,Harmonic 4 (-2.607) 5148.39
    ,Harmonic 5 0.914 5380.0
    ,Harmonic 6 (-1.666) 4008.4
    ,Harmonic 7 3.099 1647.1
    ,Harmonic 8 0.709 1717.84
    ,Harmonic 9 (-1.344) 967.89
    ,Harmonic 10 2.797 659.67
    ,Harmonic 11 0.819 388.13
    ,Harmonic 12 (-0.562) 243.99
    ,Harmonic 13 (-2.623) 196.6
    ,Harmonic 14 1.818 50.9
    ,Harmonic 15 1.105 29.96
    ,Harmonic 16 (-0.935) 55.96
    ,Harmonic 17 (-2.888) 46.3
    ,Harmonic 18 1.443 40.6
    ,Harmonic 19 (-0.216) 34.49
    ,Harmonic 20 (-2.337) 27.35
    ,Harmonic 21 2.281 29.97
    ,Harmonic 22 (-0.109) 19.12
    ,Harmonic 23 (-1.59) 19.04
    ,Harmonic 24 2.254 11.45
    ,Harmonic 25 0.107 3.31
    ,Harmonic 26 (-1.442) 3.4
    ,Harmonic 27 2.902 2.42
    ,Harmonic 28 1.998 2.91
    ,Harmonic 29 0.466 2.91
    ,Harmonic 30 (-1.061) 2.24
    ,Harmonic 31 (-1.853) 1.69
    ,Harmonic 32 1.434 2.26
    ,Harmonic 33 (-0.843) 2.92
    ,Harmonic 34 (-1.759) 1.61
    ,Harmonic 35 2.62 1.51
    ,Harmonic 36 0.231 0.8
    ,Harmonic 37 (-1.664) 1.15
    ,Harmonic 38 (-1.46) 1.91
    ,Harmonic 39 (-2.965) 0.89
    ,Harmonic 40 1.879 0.76]