Note29.hs

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

import Sharc.Types

note29 :: Note
note29 = Note
    (Pitch 1046.5 72 "c6")
    30
    (Range
        (NoteRange
            (NoteRangeAmplitude 9418.5 9 3.07)
            (NoteRangeHarmonicFreq 1 1046.5))
        (NoteRange
            (NoteRangeAmplitude 1046.5 1 4284.0)
            (NoteRangeHarmonicFreq 9 9418.5)))
    [Harmonic 1 1.453 4284.0
    ,Harmonic 2 0.984 238.12
    ,Harmonic 3 (-1.354) 110.34
    ,Harmonic 4 (-0.882) 78.14
    ,Harmonic 5 (-1.103) 6.21
    ,Harmonic 6 (-1.383) 23.27
    ,Harmonic 7 (-3.078) 3.21
    ,Harmonic 8 (-0.771) 29.15
    ,Harmonic 9 (-1.454) 3.07]