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

module Sharc.Instruments.TrumpetC.Note28 (note28) where

import Sharc.Types

note28 :: Note
note28 = Note
    (Pitch 932.328 70 "a#5")
    29
    (Range
        (NoteRange
            (NoteRangeAmplitude 9323.27 10 3.71)
            (NoteRangeHarmonicFreq 1 932.32))
        (NoteRange
            (NoteRangeAmplitude 932.32 1 2873.0)
            (NoteRangeHarmonicFreq 10 9323.27)))
    [Harmonic 1 (-1.002) 2873.0
    ,Harmonic 2 (-2.641) 2337.1
    ,Harmonic 3 1.826 906.01
    ,Harmonic 4 (-0.784) 463.58
    ,Harmonic 5 (-1.82) 127.65
    ,Harmonic 6 2.88 55.39
    ,Harmonic 7 1.887 28.77
    ,Harmonic 8 (-0.262) 20.54
    ,Harmonic 9 (-0.836) 9.52
    ,Harmonic 10 (-2.437) 3.71]