Note26.hs

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

import Sharc.Types

note26 :: Note
note26 = Note
    (Pitch 830.609 68 "g#5")
    27
    (Range
        (NoteRange
            (NoteRangeAmplitude 2491.82 3 57.63)
            (NoteRangeHarmonicFreq 1 830.6))
        (NoteRange
            (NoteRangeAmplitude 4983.65 6 1125.75)
            (NoteRangeHarmonicFreq 11 9136.69)))
    [Harmonic 1 1.441 458.93
    ,Harmonic 2 0.788 528.54
    ,Harmonic 3 (-1.98) 57.63
    ,Harmonic 4 (-0.965) 1062.91
    ,Harmonic 5 1.244 159.32
    ,Harmonic 6 (-9.7e-2) 1125.75
    ,Harmonic 7 (-3.009) 195.05
    ,Harmonic 8 (-2.287) 741.19
    ,Harmonic 9 (-4.5e-2) 397.35
    ,Harmonic 10 2.554 102.9
    ,Harmonic 11 (-2.837) 84.62]