Note22.hs

module Sharc.Instruments.FrenchHornMuted.Note22 (note22) where

import Sharc.Types

note22 :: Note
note22 = Note
    (Pitch 261.626 48 "c4")
    23
    (Range
        (NoteRange
            (NoteRangeAmplitude 8110.4 31 0.64)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 1046.5 4 6469.0)
            (NoteRangeHarmonicFreq 38 9941.78)))
    [Harmonic 1 1.359 2897.0
    ,Harmonic 2 (-1.176) 2859.56
    ,Harmonic 3 3.069 2397.74
    ,Harmonic 4 1.42 6469.0
    ,Harmonic 5 (-1.456) 5000.68
    ,Harmonic 6 1.837 3740.07
    ,Harmonic 7 (-0.278) 2003.37
    ,Harmonic 8 (-3.008) 1588.9
    ,Harmonic 9 0.903 1152.15
    ,Harmonic 10 (-1.479) 592.74
    ,Harmonic 11 2.958 317.02
    ,Harmonic 12 0.225 290.52
    ,Harmonic 13 (-2.403) 118.83
    ,Harmonic 14 2.188 57.56
    ,Harmonic 15 0.716 110.12
    ,Harmonic 16 (-2.121) 90.59
    ,Harmonic 17 1.616 80.76
    ,Harmonic 18 (-0.321) 49.78
    ,Harmonic 19 (-2.994) 29.94
    ,Harmonic 20 1.272 39.25
    ,Harmonic 21 (-1.528) 19.38
    ,Harmonic 22 2.69 18.99
    ,Harmonic 23 6.4e-2 15.55
    ,Harmonic 24 (-1.842) 12.32
    ,Harmonic 25 1.929 6.61
    ,Harmonic 26 (-0.283) 1.86
    ,Harmonic 27 (-2.798) 2.2
    ,Harmonic 28 1.262 3.24
    ,Harmonic 29 (-1.318) 1.95
    ,Harmonic 30 (-2.974) 1.23
    ,Harmonic 31 (-0.863) 0.64
    ,Harmonic 32 (-2.339) 3.42
    ,Harmonic 33 2.072 3.39
    ,Harmonic 34 0.25 3.77
    ,Harmonic 35 (-2.498) 3.47
    ,Harmonic 36 2.304 2.68
    ,Harmonic 37 (-1.945) 0.68
    ,Harmonic 38 (-2.995) 0.93]