module Sharc.Instruments.ClarinetEflat.Note24 (note24) where

import Sharc.Types

note24 :: Note
note24 = Note
    (Pitch 783.991 67 "g5")
    25
    (Range
        (NoteRange
            (NoteRangeAmplitude 9407.89 12 17.34)
            (NoteRangeHarmonicFreq 1 783.99))
        (NoteRange
            (NoteRangeAmplitude 783.99 1 3813.0)
            (NoteRangeHarmonicFreq 12 9407.89)))
    [Harmonic 1 (-2.072) 3813.0
    ,Harmonic 2 (-0.922) 1651.17
    ,Harmonic 3 (-1.67) 2217.22
    ,Harmonic 4 2.517 911.03
    ,Harmonic 5 (-0.6) 241.23
    ,Harmonic 6 0.522 122.83
    ,Harmonic 7 (-1.021) 158.38
    ,Harmonic 8 2.594 130.94
    ,Harmonic 9 (-0.417) 63.93
    ,Harmonic 10 (-2.536) 28.38
    ,Harmonic 11 0.622 29.13
    ,Harmonic 12 (-3.029) 17.34]