Note19.hs

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

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 391.995 55 "g4")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 9407.88 24 0.26)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 1 1636.0)
            (NoteRangeHarmonicFreq 26 10191.87)))
    [Harmonic 1 (-1.578) 1636.0
    ,Harmonic 2 (-0.179) 203.31
    ,Harmonic 3 0.904 69.25
    ,Harmonic 4 (-8.0e-2) 23.05
    ,Harmonic 5 1.1e-2 7.93
    ,Harmonic 6 (-2.624) 1.21
    ,Harmonic 7 (-2.499) 10.21
    ,Harmonic 8 1.173 0.87
    ,Harmonic 9 (-1.107) 0.61
    ,Harmonic 10 (-2.472) 1.26
    ,Harmonic 11 (-2.494) 0.48
    ,Harmonic 12 (-1.5) 3.15
    ,Harmonic 13 1.049 2.54
    ,Harmonic 14 (-1.101) 4.53
    ,Harmonic 15 1.139 1.04
    ,Harmonic 16 (-3.05) 0.85
    ,Harmonic 17 (-0.676) 0.73
    ,Harmonic 18 2.613 0.57
    ,Harmonic 19 (-0.91) 0.35
    ,Harmonic 20 1.341 0.77
    ,Harmonic 21 (-1.066) 0.33
    ,Harmonic 22 0.452 0.84
    ,Harmonic 23 0.892 0.64
    ,Harmonic 24 (-2.98) 0.26
    ,Harmonic 25 0.367 0.44
    ,Harmonic 26 (-1.257) 0.38]