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

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 587.33 62 "d5")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 8809.95 15 11.77)
            (NoteRangeHarmonicFreq 1 587.33))
        (NoteRange
            (NoteRangeAmplitude 2349.32 4 4767.0)
            (NoteRangeHarmonicFreq 16 9397.28)))
    [Harmonic 1 1.701 530.93
    ,Harmonic 2 0.27 1915.14
    ,Harmonic 3 (-2.007) 844.01
    ,Harmonic 4 1.743 4767.0
    ,Harmonic 5 2.332 424.89
    ,Harmonic 6 1.398 610.18
    ,Harmonic 7 1.575 1188.63
    ,Harmonic 8 (-3.012) 46.62
    ,Harmonic 9 1.878 215.87
    ,Harmonic 10 1.1 401.46
    ,Harmonic 11 2.421 104.43
    ,Harmonic 12 2.812 379.8
    ,Harmonic 13 2.56 111.5
    ,Harmonic 14 (-1.331) 52.28
    ,Harmonic 15 2.088 11.77
    ,Harmonic 16 (-1.958) 68.76]