Note19.hs

module Sharc.Instruments.TrumpetMutedC.Note19 (note19) where

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 554.365 61 "c#5")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 4434.92 8 26.8)
            (NoteRangeHarmonicFreq 1 554.36))
        (NoteRange
            (NoteRangeAmplitude 6652.38 12 2355.0)
            (NoteRangeHarmonicFreq 18 9978.57)))
    [Harmonic 1 1.728 608.32
    ,Harmonic 2 (-0.401) 240.51
    ,Harmonic 3 0.483 455.68
    ,Harmonic 4 1.117 410.66
    ,Harmonic 5 1.443 214.69
    ,Harmonic 6 (-2.331) 987.74
    ,Harmonic 7 0.937 438.61
    ,Harmonic 8 0.27 26.8
    ,Harmonic 9 (-2.842) 1600.57
    ,Harmonic 10 (-1.601) 253.82
    ,Harmonic 11 (-1.375) 1255.38
    ,Harmonic 12 0.326 2355.0
    ,Harmonic 13 (-1.903) 1945.96
    ,Harmonic 14 0.316 1831.31
    ,Harmonic 15 (-2.553) 788.96
    ,Harmonic 16 0.68 543.63
    ,Harmonic 17 1.001 750.53
    ,Harmonic 18 (-1.622) 708.73]