Note19.hs

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

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 587.33 62 "d5")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 9397.28 16 7.75)
            (NoteRangeHarmonicFreq 1 587.33))
        (NoteRange
            (NoteRangeAmplitude 2349.32 4 2490.0)
            (NoteRangeHarmonicFreq 17 9984.61)))
    [Harmonic 1 2.539 669.35
    ,Harmonic 2 1.134 573.95
    ,Harmonic 3 0.905 741.17
    ,Harmonic 4 (-1.729) 2490.0
    ,Harmonic 5 (-0.348) 351.41
    ,Harmonic 6 2.593 543.34
    ,Harmonic 7 (-1.204) 568.58
    ,Harmonic 8 1.285 129.62
    ,Harmonic 9 (-7.6e-2) 33.1
    ,Harmonic 10 (-2.181) 13.97
    ,Harmonic 11 1.481 23.56
    ,Harmonic 12 (-2.823) 42.57
    ,Harmonic 13 2.132 13.48
    ,Harmonic 14 (-1.531) 31.98
    ,Harmonic 15 (-0.888) 20.34
    ,Harmonic 16 1.567 7.75
    ,Harmonic 17 (-0.165) 15.92]