Note25.hs

module Sharc.Instruments.TrumpetMutedC.Note25 (note25) where

import Sharc.Types

note25 :: Note
note25 = Note
    (Pitch 783.991 67 "g5")
    26
    (Range
        (NoteRange
            (NoteRangeAmplitude 2351.97 3 123.66)
            (NoteRangeHarmonicFreq 1 783.99))
        (NoteRange
            (NoteRangeAmplitude 7055.91 9 2039.0)
            (NoteRangeHarmonicFreq 12 9407.89)))
    [Harmonic 1 2.824 459.23
    ,Harmonic 2 (-2.944) 217.64
    ,Harmonic 3 (-0.933) 123.66
    ,Harmonic 4 (-0.454) 479.26
    ,Harmonic 5 3.017 363.25
    ,Harmonic 6 (-2.73) 606.59
    ,Harmonic 7 (-1.504) 272.2
    ,Harmonic 8 (-1.32) 1738.13
    ,Harmonic 9 2.502 2039.0
    ,Harmonic 10 (-1.264) 712.05
    ,Harmonic 11 2.762 497.0
    ,Harmonic 12 (-2.911) 190.59]