Note19.hs

module Sharc.Instruments.ClarinetEflat.Note19 (note19) where

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 587.33 62 "d5")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 9984.61 17 2.03)
            (NoteRangeHarmonicFreq 1 587.33))
        (NoteRange
            (NoteRangeAmplitude 1761.99 3 2877.0)
            (NoteRangeHarmonicFreq 17 9984.61)))
    [Harmonic 1 (-1.087) 2667.45
    ,Harmonic 2 3.131 2022.62
    ,Harmonic 3 (-1.335) 2877.0
    ,Harmonic 4 2.025 280.87
    ,Harmonic 5 2.472 452.76
    ,Harmonic 6 1.053 271.44
    ,Harmonic 7 0.587 70.55
    ,Harmonic 8 (-1.745) 28.65
    ,Harmonic 9 0.531 24.45
    ,Harmonic 10 (-0.104) 17.6
    ,Harmonic 11 (-2.472) 15.09
    ,Harmonic 12 2.328 22.62
    ,Harmonic 13 (-0.596) 3.69
    ,Harmonic 14 2.25 14.27
    ,Harmonic 15 1.106 10.61
    ,Harmonic 16 0.841 4.79
    ,Harmonic 17 (-0.206) 2.03]