sharc-timbre-0.1: src/Sharc/Instruments/TrumpetC/Note29.hs

module Sharc.Instruments.TrumpetC.Note29 (note29) where

import Sharc.Types

note29 :: Note
note29 = Note
    (Pitch 987.767 71 "b5")
    30
    (Range
        (NoteRange
            (NoteRangeAmplitude 9877.67 10 8.25)
            (NoteRangeHarmonicFreq 1 987.76))
        (NoteRange
            (NoteRangeAmplitude 987.76 1 2647.0)
            (NoteRangeHarmonicFreq 10 9877.67)))
    [Harmonic 1 1.32 2647.0
    ,Harmonic 2 1.406 1709.98
    ,Harmonic 3 1.654 1276.23
    ,Harmonic 4 2.076 484.33
    ,Harmonic 5 2.902 121.72
    ,Harmonic 6 (-2.813) 94.17
    ,Harmonic 7 (-2.202) 61.75
    ,Harmonic 8 (-2.068) 19.4
    ,Harmonic 9 (-2.209) 9.75
    ,Harmonic 10 (-1.095) 8.25]