Note29.hs

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

import Sharc.Types

note29 :: Note
note29 = Note
    (Pitch 1046.5 72 "c6")
    30
    (Range
        (NoteRange
            (NoteRangeAmplitude 9418.5 9 11.06)
            (NoteRangeHarmonicFreq 1 1046.5))
        (NoteRange
            (NoteRangeAmplitude 1046.5 1 3606.0)
            (NoteRangeHarmonicFreq 9 9418.5)))
    [Harmonic 1 (-1.745) 3606.0
    ,Harmonic 2 (-0.387) 188.41
    ,Harmonic 3 2.498 251.1
    ,Harmonic 4 0.634 217.12
    ,Harmonic 5 (-1.74) 44.29
    ,Harmonic 6 4.3e-2 58.2
    ,Harmonic 7 1.966 20.0
    ,Harmonic 8 (-1.984) 13.68
    ,Harmonic 9 2.088 11.06]