Note18.hs

module Sharc.Instruments.TrumpetC.Note18 (note18) where

import Sharc.Types

note18 :: Note
note18 = Note
    (Pitch 523.251 60 "c5")
    19
    (Range
        (NoteRange
            (NoteRangeAmplitude 9418.51 18 2.62)
            (NoteRangeHarmonicFreq 1 523.25))
        (NoteRange
            (NoteRangeAmplitude 1569.75 3 3071.0)
            (NoteRangeHarmonicFreq 19 9941.76)))
    [Harmonic 1 0.265 1086.56
    ,Harmonic 2 1.115 2937.06
    ,Harmonic 3 1.255 3071.0
    ,Harmonic 4 2.34 899.67
    ,Harmonic 5 1.159 1211.0
    ,Harmonic 6 1.49 469.26
    ,Harmonic 7 1.705 330.97
    ,Harmonic 8 1.91 156.08
    ,Harmonic 9 2.417 142.2
    ,Harmonic 10 2.183 77.45
    ,Harmonic 11 2.833 50.59
    ,Harmonic 12 3.016 36.21
    ,Harmonic 13 (-2.955) 16.73
    ,Harmonic 14 3.022 14.48
    ,Harmonic 15 2.69 14.4
    ,Harmonic 16 (-2.746) 10.13
    ,Harmonic 17 (-2.449) 6.46
    ,Harmonic 18 (-2.135) 2.62
    ,Harmonic 19 1.616 5.53]