Note26.hs

module Sharc.Instruments.FrenchHorn.Note26 (note26) where

import Sharc.Types

note26 :: Note
note26 = Note
    (Pitch 329.628 52 "e4")
    27
    (Range
        (NoteRange
            (NoteRangeAmplitude 9888.84 30 0.1)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 329.62 1 3902.0)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 2.481 3902.0
    ,Harmonic 2 0.898 3771.76
    ,Harmonic 3 (-0.365) 1714.31
    ,Harmonic 4 (-2.147) 537.95
    ,Harmonic 5 2.645 251.08
    ,Harmonic 6 1.121 45.44
    ,Harmonic 7 0.869 13.34
    ,Harmonic 8 0.282 17.42
    ,Harmonic 9 (-0.935) 8.9
    ,Harmonic 10 (-1.945) 3.0
    ,Harmonic 11 (-2.93) 1.95
    ,Harmonic 12 (-2.907) 0.52
    ,Harmonic 13 (-1.24) 0.68
    ,Harmonic 14 (-0.862) 1.24
    ,Harmonic 15 (-1.517) 0.46
    ,Harmonic 16 (-2.531) 1.58
    ,Harmonic 17 (-2.815) 1.62
    ,Harmonic 18 (-3.036) 0.82
    ,Harmonic 19 (-2.381) 0.67
    ,Harmonic 20 (-0.33) 0.25
    ,Harmonic 21 (-1.071) 0.34
    ,Harmonic 22 (-1.882) 0.92
    ,Harmonic 23 (-2.468) 0.47
    ,Harmonic 24 (-1.816) 0.82
    ,Harmonic 25 (-2.319) 0.88
    ,Harmonic 26 (-2.625) 0.73
    ,Harmonic 27 1.56 0.55
    ,Harmonic 28 (-0.349) 0.4
    ,Harmonic 29 (-0.392) 0.41
    ,Harmonic 30 (-1.513) 0.1]