Note19.hs

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

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 391.995 55 "g4")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 6271.92 16 19.82)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 2743.96 7 1985.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 0.808 703.0
    ,Harmonic 2 1.56 1939.86
    ,Harmonic 3 2.121 241.34
    ,Harmonic 4 (-2.709) 510.38
    ,Harmonic 5 1.891 935.65
    ,Harmonic 6 0.371 937.94
    ,Harmonic 7 0.813 1985.0
    ,Harmonic 8 0.662 153.29
    ,Harmonic 9 0.126 875.05
    ,Harmonic 10 1.616 119.63
    ,Harmonic 11 1.723 441.63
    ,Harmonic 12 0.916 306.36
    ,Harmonic 13 0.406 350.86
    ,Harmonic 14 1.403 64.31
    ,Harmonic 15 1.53 84.57
    ,Harmonic 16 (-2.142) 19.82
    ,Harmonic 17 2.589 119.68
    ,Harmonic 18 3.032 101.69
    ,Harmonic 19 2.432 74.34
    ,Harmonic 20 (-2.37) 50.88
    ,Harmonic 21 2.585 51.46
    ,Harmonic 22 3.05 42.28
    ,Harmonic 23 (-0.717) 74.54
    ,Harmonic 24 (-0.34) 32.81
    ,Harmonic 25 0.176 37.12]