Note19.hs

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

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 587.33 62 "d5")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 8222.62 14 0.65)
            (NoteRangeHarmonicFreq 1 587.33))
        (NoteRange
            (NoteRangeAmplitude 1174.66 2 4388.0)
            (NoteRangeHarmonicFreq 17 9984.61)))
    [Harmonic 1 (-2.834) 4271.12
    ,Harmonic 2 0.398 4388.0
    ,Harmonic 3 1.432 550.11
    ,Harmonic 4 1.972 407.99
    ,Harmonic 5 0.872 212.04
    ,Harmonic 6 (-5.3e-2) 34.49
    ,Harmonic 7 (-0.562) 215.22
    ,Harmonic 8 1.742 57.45
    ,Harmonic 9 (-1.879) 20.99
    ,Harmonic 10 (-0.396) 10.04
    ,Harmonic 11 1.976 7.36
    ,Harmonic 12 2.421 2.01
    ,Harmonic 13 2.58 12.55
    ,Harmonic 14 1.537 0.65
    ,Harmonic 15 2.555 4.78
    ,Harmonic 16 2.81 2.04
    ,Harmonic 17 2.651 3.11]