module Sharc.Instruments.ClarinetEflat.Note21 (note21) where

import Sharc.Types

note21 :: Note
note21 = Note
    (Pitch 659.255 64 "e5")
    22
    (Range
        (NoteRange
            (NoteRangeAmplitude 9229.57 14 2.66)
            (NoteRangeHarmonicFreq 1 659.25))
        (NoteRange
            (NoteRangeAmplitude 1977.76 3 2372.0)
            (NoteRangeHarmonicFreq 15 9888.82)))
    [Harmonic 1 (-2.838) 948.66
    ,Harmonic 2 (-1.175) 70.66
    ,Harmonic 3 (-1.31) 2372.0
    ,Harmonic 4 (-0.437) 50.47
    ,Harmonic 5 2.285 459.52
    ,Harmonic 6 (-0.488) 198.82
    ,Harmonic 7 1.172 57.19
    ,Harmonic 8 2.508 4.92
    ,Harmonic 9 0.31 8.33
    ,Harmonic 10 1.446 23.73
    ,Harmonic 11 (-3.058) 3.08
    ,Harmonic 12 2.984 13.54
    ,Harmonic 13 1.899 2.79
    ,Harmonic 14 1.533 2.66
    ,Harmonic 15 (-0.814) 2.68]