Note19.hs

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

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 554.365 61 "c#5")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 9424.2 17 19.85)
            (NoteRangeHarmonicFreq 1 554.36))
        (NoteRange
            (NoteRangeAmplitude 1108.73 2 4164.0)
            (NoteRangeHarmonicFreq 18 9978.57)))
    [Harmonic 1 (-0.524) 1349.42
    ,Harmonic 2 (-1.544) 4164.0
    ,Harmonic 3 (-2.212) 1493.51
    ,Harmonic 4 2.425 2314.47
    ,Harmonic 5 1.224 955.84
    ,Harmonic 6 (-0.38) 1010.32
    ,Harmonic 7 (-1.389) 419.55
    ,Harmonic 8 (-2.614) 387.17
    ,Harmonic 9 2.795 204.51
    ,Harmonic 10 1.607 212.52
    ,Harmonic 11 0.649 105.99
    ,Harmonic 12 (-0.555) 127.75
    ,Harmonic 13 (-1.474) 71.97
    ,Harmonic 14 (-2.532) 81.63
    ,Harmonic 15 2.518 36.19
    ,Harmonic 16 1.467 38.89
    ,Harmonic 17 0.595 19.85
    ,Harmonic 18 (-0.896) 23.18]