Note13.hs

module Sharc.Instruments.TrumpetMutedC.Note13 (note13) where

import Sharc.Types

note13 :: Note
note13 = Note
    (Pitch 391.995 55 "g4")
    14
    (Range
        (NoteRange
            (NoteRangeAmplitude 2351.97 6 61.01)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 5095.93 13 2007.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 0.975 1157.07
    ,Harmonic 2 (-1.383) 275.05
    ,Harmonic 3 2.17 154.56
    ,Harmonic 4 1.523 107.84
    ,Harmonic 5 (-2.7) 210.93
    ,Harmonic 6 (-0.938) 61.01
    ,Harmonic 7 (-1.271) 125.65
    ,Harmonic 8 1.383 347.15
    ,Harmonic 9 (-2.314) 361.36
    ,Harmonic 10 0.946 174.64
    ,Harmonic 11 (-2.943) 65.57
    ,Harmonic 12 2.918 286.63
    ,Harmonic 13 (-1.748) 2007.0
    ,Harmonic 14 (-0.317) 178.7
    ,Harmonic 15 (-1.323) 247.48
    ,Harmonic 16 1.885 749.14
    ,Harmonic 17 (-2.906) 768.01
    ,Harmonic 18 1.123 839.64
    ,Harmonic 19 (-2.865) 813.86
    ,Harmonic 20 (-0.689) 357.07
    ,Harmonic 21 3.12 162.43
    ,Harmonic 22 (-0.712) 167.29
    ,Harmonic 23 1.07 213.42
    ,Harmonic 24 1.408 174.97
    ,Harmonic 25 (-1.054) 94.24]