Note9.hs

module Sharc.Instruments.TrumpetMutedC.Note9 (note9) where

import Sharc.Types

note9 :: Note
note9 = Note
    (Pitch 311.127 51 "d#4")
    10
    (Range
        (NoteRange
            (NoteRangeAmplitude 5600.28 18 16.86)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 6533.66 21 2331.0)
            (NoteRangeHarmonicFreq 32 9956.06)))
    [Harmonic 1 (-2.41) 1091.55
    ,Harmonic 2 2.888 500.88
    ,Harmonic 3 1.949 378.05
    ,Harmonic 4 1.377 141.65
    ,Harmonic 5 1.839 127.15
    ,Harmonic 6 (-0.37) 495.71
    ,Harmonic 7 (-1.4) 306.42
    ,Harmonic 8 0.405 69.22
    ,Harmonic 9 (-1.342) 344.91
    ,Harmonic 10 3.119 570.23
    ,Harmonic 11 1.248 712.2
    ,Harmonic 12 (-0.465) 766.3
    ,Harmonic 13 (-1.387) 256.23
    ,Harmonic 14 (-2.315) 73.85
    ,Harmonic 15 (-1.043) 320.43
    ,Harmonic 16 (-2.867) 913.62
    ,Harmonic 17 (-0.209) 1176.47
    ,Harmonic 18 (-1.694) 16.86
    ,Harmonic 19 (-0.384) 690.74
    ,Harmonic 20 (-1.198) 1131.05
    ,Harmonic 21 (-3.041) 2331.0
    ,Harmonic 22 0.404 125.77
    ,Harmonic 23 0.545 1698.64
    ,Harmonic 24 (-1.272) 1304.3
    ,Harmonic 25 (-2.807) 1623.98
    ,Harmonic 26 (-2.342) 62.99
    ,Harmonic 27 1.246 746.26
    ,Harmonic 28 (-0.135) 332.45
    ,Harmonic 29 (-2.409) 355.37
    ,Harmonic 30 0.832 1177.66
    ,Harmonic 31 (-0.647) 720.68
    ,Harmonic 32 (-2.062) 646.14]