Note28.hs

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

import Sharc.Types

note28 :: Note
note28 = Note
    (Pitch 369.994 54 "f#4")
    29
    (Range
        (NoteRange
            (NoteRangeAmplitude 9249.85 25 0.21)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 1109.98 3 6797.0)
            (NoteRangeHarmonicFreq 26 9619.84)))
    [Harmonic 1 (-2.526) 3912.63
    ,Harmonic 2 (-1.891) 3761.89
    ,Harmonic 3 (-1.172) 6797.0
    ,Harmonic 4 (-1.759) 5142.34
    ,Harmonic 5 (-1.512) 2417.78
    ,Harmonic 6 (-1.518) 1563.15
    ,Harmonic 7 (-1.339) 797.07
    ,Harmonic 8 (-0.89) 476.28
    ,Harmonic 9 (-0.957) 175.44
    ,Harmonic 10 0.22 54.67
    ,Harmonic 11 0.928 88.34
    ,Harmonic 12 0.925 100.41
    ,Harmonic 13 1.407 64.55
    ,Harmonic 14 1.984 40.06
    ,Harmonic 15 2.237 10.85
    ,Harmonic 16 2.921 12.33
    ,Harmonic 17 (-2.915) 6.99
    ,Harmonic 18 2.933 2.55
    ,Harmonic 19 (-1.177) 3.19
    ,Harmonic 20 (-0.317) 3.28
    ,Harmonic 21 (-0.136) 3.01
    ,Harmonic 22 0.694 3.02
    ,Harmonic 23 1.643 2.46
    ,Harmonic 24 2.42 0.63
    ,Harmonic 25 2.298 0.21
    ,Harmonic 26 (-0.655) 0.59]