module Sharc.Instruments.TrumpetC.Note21 (note21) where

import Sharc.Types

note21 :: Note
note21 = Note
    (Pitch 622.254 63 "d#5")
    22
    (Range
        (NoteRange
            (NoteRangeAmplitude 9956.06 16 11.48)
            (NoteRangeHarmonicFreq 1 622.25))
        (NoteRange
            (NoteRangeAmplitude 1244.5 2 3477.0)
            (NoteRangeHarmonicFreq 16 9956.06)))
    [Harmonic 1 (-2.991) 1656.5
    ,Harmonic 2 (-0.854) 3477.0
    ,Harmonic 3 1.94 2631.8
    ,Harmonic 4 (-1.995) 1793.26
    ,Harmonic 5 (-0.56) 961.45
    ,Harmonic 6 2.036 675.88
    ,Harmonic 7 (-1.443) 298.47
    ,Harmonic 8 0.588 140.74
    ,Harmonic 9 3.014 162.9
    ,Harmonic 10 (-0.36) 123.34
    ,Harmonic 11 2.152 66.12
    ,Harmonic 12 (-1.915) 60.79
    ,Harmonic 13 0.689 46.9
    ,Harmonic 14 (-2.914) 17.82
    ,Harmonic 15 (-0.805) 18.44
    ,Harmonic 16 1.746 11.48]