Note11.hs

module Sharc.Instruments.TrumpetMutedC.Note11 (note11) where

import Sharc.Types

note11 :: Note
note11 = Note
    (Pitch 349.228 53 "f4")
    12
    (Range
        (NoteRange
            (NoteRangeAmplitude 5587.64 16 25.28)
            (NoteRangeHarmonicFreq 1 349.22))
        (NoteRange
            (NoteRangeAmplitude 349.22 1 2349.0)
            (NoteRangeHarmonicFreq 28 9778.38)))
    [Harmonic 1 (-0.374) 2349.0
    ,Harmonic 2 1.675 726.64
    ,Harmonic 3 (-2.37) 283.9
    ,Harmonic 4 0.488 77.84
    ,Harmonic 5 2.595 1767.17
    ,Harmonic 6 3.052 246.19
    ,Harmonic 7 0.884 32.85
    ,Harmonic 8 1.405 256.76
    ,Harmonic 9 1.924 349.42
    ,Harmonic 10 2.717 354.57
    ,Harmonic 11 (-2.592) 281.26
    ,Harmonic 12 (-1.651) 115.62
    ,Harmonic 13 2.905 99.04
    ,Harmonic 14 (-2.688) 542.87
    ,Harmonic 15 2.917 942.01
    ,Harmonic 16 (-3.013) 25.28
    ,Harmonic 17 1.188 204.3
    ,Harmonic 18 2.604 930.81
    ,Harmonic 19 2.707 640.77
    ,Harmonic 20 (-1.245) 702.12
    ,Harmonic 21 (-0.772) 840.0
    ,Harmonic 22 (-8.2e-2) 703.43
    ,Harmonic 23 0.226 171.93
    ,Harmonic 24 2.414 182.09
    ,Harmonic 25 (-2.768) 118.77
    ,Harmonic 26 (-2.405) 131.17
    ,Harmonic 27 2.733 152.43
    ,Harmonic 28 (-1.902) 137.7]