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

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

import Sharc.Types

note29 :: Note
note29 = Note
    (Pitch 1396.91 77 "f6")
    30
    (Range
        (NoteRange
            (NoteRangeAmplitude 6984.55 5 6.21)
            (NoteRangeHarmonicFreq 1 1396.91))
        (NoteRange
            (NoteRangeAmplitude 1396.91 1 4792.0)
            (NoteRangeHarmonicFreq 7 9778.37)))
    [Harmonic 1 1.413 4792.0
    ,Harmonic 2 0.699 107.16
    ,Harmonic 3 1.814 91.22
    ,Harmonic 4 2.168 32.58
    ,Harmonic 5 (-1.444) 6.21
    ,Harmonic 6 0.265 24.76
    ,Harmonic 7 1.7 10.7]