Note23.hs

module Sharc.Instruments.FrenchHornMuted.Note23 (note23) where

import Sharc.Types

note23 :: Note
note23 = Note
    (Pitch 277.183 49 "c#4")
    24
    (Range
        (NoteRange
            (NoteRangeAmplitude 8315.49 30 0.42)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 1108.73 4 6581.0)
            (NoteRangeHarmonicFreq 36 9978.58)))
    [Harmonic 1 1.352 2769.9
    ,Harmonic 2 (-0.721) 3297.44
    ,Harmonic 3 (-2.357) 812.77
    ,Harmonic 4 2.21 6581.0
    ,Harmonic 5 (-0.537) 4710.13
    ,Harmonic 6 2.916 2429.92
    ,Harmonic 7 1.353 2047.74
    ,Harmonic 8 (-1.15) 1211.5
    ,Harmonic 9 2.876 746.8
    ,Harmonic 10 0.566 392.62
    ,Harmonic 11 (-0.995) 312.96
    ,Harmonic 12 2.844 183.25
    ,Harmonic 13 1.542 71.57
    ,Harmonic 14 0.129 106.28
    ,Harmonic 15 (-2.424) 84.81
    ,Harmonic 16 1.772 70.07
    ,Harmonic 17 1.0e-3 43.83
    ,Harmonic 18 (-2.346) 29.12
    ,Harmonic 19 2.17 37.75
    ,Harmonic 20 (-0.225) 14.79
    ,Harmonic 21 (-2.33) 16.49
    ,Harmonic 22 1.823 16.0
    ,Harmonic 23 0.224 11.7
    ,Harmonic 24 (-2.611) 3.73
    ,Harmonic 25 2.144 3.16
    ,Harmonic 26 0.684 1.99
    ,Harmonic 27 (-2.262) 1.51
    ,Harmonic 28 2.627 2.05
    ,Harmonic 29 1.843 1.4
    ,Harmonic 30 0.401 0.42
    ,Harmonic 31 2.617 1.59
    ,Harmonic 32 0.553 1.94
    ,Harmonic 33 (-1.77) 2.41
    ,Harmonic 34 (-2.88) 2.43
    ,Harmonic 35 1.035 3.85
    ,Harmonic 36 (-1.186) 1.0]