Note10.hs

module Sharc.Instruments.TrumpetMutedC.Note10 (note10) where

import Sharc.Types

note10 :: Note
note10 = Note
    (Pitch 329.628 52 "e4")
    11
    (Range
        (NoteRange
            (NoteRangeAmplitude 5603.67 17 30.42)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 329.62 1 2008.47)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 0.118 2008.47
    ,Harmonic 2 1.508 729.42
    ,Harmonic 3 (-2.814) 284.02
    ,Harmonic 4 (-0.574) 87.75
    ,Harmonic 5 2.505 280.9
    ,Harmonic 6 2.198 276.11
    ,Harmonic 7 2.669 151.93
    ,Harmonic 8 0.641 313.62
    ,Harmonic 9 1.521 811.32
    ,Harmonic 10 2.264 759.23
    ,Harmonic 11 3.007 693.06
    ,Harmonic 12 (-1.758) 252.05
    ,Harmonic 13 (-0.383) 69.67
    ,Harmonic 14 (-2.878) 134.5
    ,Harmonic 15 (-2.32) 710.37
    ,Harmonic 16 (-2.957) 832.15
    ,Harmonic 17 (-2.093) 30.42
    ,Harmonic 18 1.699 648.89
    ,Harmonic 19 3.024 952.34
    ,Harmonic 20 (-2.614) 1851.64
    ,Harmonic 21 (-0.103) 576.38
    ,Harmonic 22 (-5.3e-2) 1361.2
    ,Harmonic 23 0.494 738.86
    ,Harmonic 24 0.963 783.97
    ,Harmonic 25 2.513 434.5
    ,Harmonic 26 (-2.661) 263.16
    ,Harmonic 27 (-2.115) 223.48
    ,Harmonic 28 (-1.577) 397.8
    ,Harmonic 29 (-1.417) 60.73
    ,Harmonic 30 (-0.605) 254.99]