module Sharc.Instruments.ClarinetEflat.Note23 (note23) where

import Sharc.Types

note23 :: Note
note23 = Note
    (Pitch 739.989 66 "f#5")
    24
    (Range
        (NoteRange
            (NoteRangeAmplitude 8139.87 11 6.34)
            (NoteRangeHarmonicFreq 1 739.98))
        (NoteRange
            (NoteRangeAmplitude 739.98 1 3277.0)
            (NoteRangeHarmonicFreq 13 9619.85)))
    [Harmonic 1 (-1.678) 3277.0
    ,Harmonic 2 2.794 315.68
    ,Harmonic 3 (-1.428) 324.72
    ,Harmonic 4 (-0.506) 210.33
    ,Harmonic 5 (-3.127) 233.21
    ,Harmonic 6 0.571 330.06
    ,Harmonic 7 (-0.197) 30.57
    ,Harmonic 8 (-0.843) 56.36
    ,Harmonic 9 (-0.943) 128.08
    ,Harmonic 10 (-1.332) 38.85
    ,Harmonic 11 (-0.936) 6.34
    ,Harmonic 12 2.869 18.58
    ,Harmonic 13 0.635 16.71]