Note22.hs

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

import Sharc.Types

note22 :: Note
note22 = Note
    (Pitch 261.626 48 "c4")
    23
    (Range
        (NoteRange
            (NoteRangeAmplitude 5232.51 20 0.11)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 523.25 2 5182.0)
            (NoteRangeHarmonicFreq 38 9941.78)))
    [Harmonic 1 (-1.965) 3491.85
    ,Harmonic 2 (-1.855) 5182.0
    ,Harmonic 3 (-1.474) 3448.19
    ,Harmonic 4 (-1.056) 1770.17
    ,Harmonic 5 (-0.944) 820.92
    ,Harmonic 6 (-0.646) 482.72
    ,Harmonic 7 (-0.336) 171.72
    ,Harmonic 8 0.227 27.21
    ,Harmonic 9 1.716 15.79
    ,Harmonic 10 3.13 19.73
    ,Harmonic 11 (-2.613) 9.35
    ,Harmonic 12 2.846 3.92
    ,Harmonic 13 (-2.698) 2.29
    ,Harmonic 14 (-1.281) 0.89
    ,Harmonic 15 (-2.382) 1.95
    ,Harmonic 16 (-2.164) 0.84
    ,Harmonic 17 (-2.241) 2.5
    ,Harmonic 18 (-0.891) 1.8
    ,Harmonic 19 0.294 1.17
    ,Harmonic 20 1.626 0.11
    ,Harmonic 21 (-1.401) 0.53
    ,Harmonic 22 (-1.739) 1.58
    ,Harmonic 23 (-0.848) 1.05
    ,Harmonic 24 3.7e-2 1.08
    ,Harmonic 25 0.674 0.9
    ,Harmonic 26 1.812 0.6
    ,Harmonic 27 (-0.418) 0.67
    ,Harmonic 28 0.157 1.02
    ,Harmonic 29 0.62 0.73
    ,Harmonic 30 0.13 0.6
    ,Harmonic 31 0.668 0.3
    ,Harmonic 32 (-2.289) 0.21
    ,Harmonic 33 (-1.469) 0.39
    ,Harmonic 34 (-1.988) 0.63
    ,Harmonic 35 (-0.472) 1.1
    ,Harmonic 36 (-0.311) 0.79
    ,Harmonic 37 (-0.272) 0.83
    ,Harmonic 38 (-0.415) 0.61]