Note30.hs

module Sharc.Instruments.FrenchHornMuted.Note30 (note30) where

import Sharc.Types

note30 :: Note
note30 = Note
    (Pitch 415.305 56 "g#4")
    31
    (Range
        (NoteRange
            (NoteRangeAmplitude 7475.49 18 0.77)
            (NoteRangeHarmonicFreq 1 415.3))
        (NoteRange
            (NoteRangeAmplitude 1245.91 3 4256.0)
            (NoteRangeHarmonicFreq 24 9967.32)))
    [Harmonic 1 0.701 3015.46
    ,Harmonic 2 (-1.894) 708.94
    ,Harmonic 3 1.564 4256.0
    ,Harmonic 4 (-2.735) 1631.94
    ,Harmonic 5 1.029 1101.79
    ,Harmonic 6 (-2.273) 450.67
    ,Harmonic 7 1.661 197.11
    ,Harmonic 8 (-1.845) 86.74
    ,Harmonic 9 2.615 27.17
    ,Harmonic 10 (-0.491) 30.24
    ,Harmonic 11 3.111 17.22
    ,Harmonic 12 (-1.3e-2) 11.93
    ,Harmonic 13 (-2.916) 15.0
    ,Harmonic 14 6.0e-2 8.06
    ,Harmonic 15 (-2.562) 4.31
    ,Harmonic 16 4.9e-2 1.98
    ,Harmonic 17 (-2.058) 2.97
    ,Harmonic 18 (-2.196) 0.77
    ,Harmonic 19 (-2.456) 1.79
    ,Harmonic 20 (-3.09) 1.96
    ,Harmonic 21 2.646 1.77
    ,Harmonic 22 (-1.822) 2.22
    ,Harmonic 23 (-3.036) 2.95
    ,Harmonic 24 1.569 2.41]