Note19.hs

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

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 587.33 62 "d5")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 6460.63 11 5.28)
            (NoteRangeHarmonicFreq 1 587.33))
        (NoteRange
            (NoteRangeAmplitude 1174.66 2 1832.0)
            (NoteRangeHarmonicFreq 17 9984.61)))
    [Harmonic 1 2.395 1577.89
    ,Harmonic 2 0.363 1832.0
    ,Harmonic 3 (-1.351) 400.27
    ,Harmonic 4 2.838 366.63
    ,Harmonic 5 0.224 84.93
    ,Harmonic 6 1.297 242.01
    ,Harmonic 7 2.389 120.43
    ,Harmonic 8 2.286 85.99
    ,Harmonic 9 1.404 23.05
    ,Harmonic 10 0.534 35.81
    ,Harmonic 11 0.309 5.28
    ,Harmonic 12 (-1.106) 18.32
    ,Harmonic 13 2.716 33.16
    ,Harmonic 14 1.263 10.58
    ,Harmonic 15 0.811 33.36
    ,Harmonic 16 0.641 23.6
    ,Harmonic 17 0.366 30.93]