Note28.hs

module Sharc.Instruments.FrenchHorn.Note28 (note28) where

import Sharc.Types

note28 :: Note
note28 = Note
    (Pitch 369.994 54 "f#4")
    29
    (Range
        (NoteRange
            (NoteRangeAmplitude 7029.88 19 0.35)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 1 5145.0)
            (NoteRangeHarmonicFreq 27 9989.83)))
    [Harmonic 1 (-2.048) 5145.0
    ,Harmonic 2 (-1.611) 4508.04
    ,Harmonic 3 (-1.411) 2110.48
    ,Harmonic 4 (-0.888) 880.95
    ,Harmonic 5 (-0.534) 271.16
    ,Harmonic 6 0.904 90.87
    ,Harmonic 7 2.321 81.32
    ,Harmonic 8 2.659 48.87
    ,Harmonic 9 (-2.651) 28.37
    ,Harmonic 10 (-1.574) 11.85
    ,Harmonic 11 (-0.632) 10.08
    ,Harmonic 12 (-0.163) 7.2
    ,Harmonic 13 0.739 3.08
    ,Harmonic 14 1.543 0.91
    ,Harmonic 15 (-0.44) 0.55
    ,Harmonic 16 (-0.229) 3.9
    ,Harmonic 17 0.392 3.64
    ,Harmonic 18 1.04 2.38
    ,Harmonic 19 1.637 0.35
    ,Harmonic 20 (-1.054) 1.56
    ,Harmonic 21 (-0.703) 2.76
    ,Harmonic 22 0.135 2.75
    ,Harmonic 23 0.217 3.2
    ,Harmonic 24 0.605 2.84
    ,Harmonic 25 1.79 2.33
    ,Harmonic 26 (-3.03) 0.36
    ,Harmonic 27 (-1.431) 1.82]