Note13.hs

module Sharc.Instruments.TrumpetC.Note13 (note13) where

import Sharc.Types

note13 :: Note
note13 = Note
    (Pitch 391.995 55 "g4")
    14
    (Range
        (NoteRange
            (NoteRangeAmplitude 6271.92 16 2.11)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 1175.98 3 3268.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 (-1.683) 2091.17
    ,Harmonic 2 2.448 2325.35
    ,Harmonic 3 0.809 3268.0
    ,Harmonic 4 (-1.091) 2228.75
    ,Harmonic 5 3.135 1123.95
    ,Harmonic 6 0.692 534.0
    ,Harmonic 7 (-1.773) 340.57
    ,Harmonic 8 2.564 297.29
    ,Harmonic 9 0.775 138.94
    ,Harmonic 10 (-1.089) 73.07
    ,Harmonic 11 2.925 34.32
    ,Harmonic 12 0.997 41.36
    ,Harmonic 13 (-1.012) 36.72
    ,Harmonic 14 (-2.749) 24.06
    ,Harmonic 15 2.259 12.99
    ,Harmonic 16 2.4e-2 2.11
    ,Harmonic 17 (-3.11) 5.48
    ,Harmonic 18 1.833 8.67
    ,Harmonic 19 (-0.183) 7.93
    ,Harmonic 20 (-1.292) 4.41
    ,Harmonic 21 (-2.559) 4.59
    ,Harmonic 22 (-3.019) 3.25
    ,Harmonic 23 1.908 2.35
    ,Harmonic 24 2.02 3.28
    ,Harmonic 25 0.482 2.34]