Note16.hs

module Sharc.Instruments.ViolaPizzicato.Note16 (note16) where

import Sharc.Types

note16 :: Note
note16 = Note
    (Pitch 329.628 52 "e4")
    17
    (Range
        (NoteRange
            (NoteRangeAmplitude 9559.21 29 0.35)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 329.62 1 7253.0)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 (-1.76) 7253.0
    ,Harmonic 2 (-0.332) 1365.91
    ,Harmonic 3 (-0.587) 229.08
    ,Harmonic 4 3.139 234.37
    ,Harmonic 5 (-1.498) 438.13
    ,Harmonic 6 1.79 251.38
    ,Harmonic 7 1.029 2.98
    ,Harmonic 8 (-1.687) 57.72
    ,Harmonic 9 (-1.39) 26.28
    ,Harmonic 10 1.17 8.61
    ,Harmonic 11 0.319 7.15
    ,Harmonic 12 (-1.651) 19.63
    ,Harmonic 13 1.8e-2 1.24
    ,Harmonic 14 (-1.615) 1.0
    ,Harmonic 15 1.403 1.18
    ,Harmonic 16 1.571 2.97
    ,Harmonic 17 (-0.761) 1.35
    ,Harmonic 18 (-2.283) 1.74
    ,Harmonic 19 0.707 1.18
    ,Harmonic 20 2.593 0.59
    ,Harmonic 21 1.878 3.29
    ,Harmonic 22 2.961 3.9
    ,Harmonic 23 (-1.451) 1.62
    ,Harmonic 24 0.911 1.19
    ,Harmonic 25 2.238 1.49
    ,Harmonic 26 1.234 0.64
    ,Harmonic 27 (-0.768) 0.52
    ,Harmonic 28 (-0.215) 0.48
    ,Harmonic 29 2.813 0.35
    ,Harmonic 30 0.522 1.05]