Note31.hs

module Sharc.Instruments.ViolaPizzicato.Note31 (note31) where

import Sharc.Types

note31 :: Note
note31 = Note
    (Pitch 783.991 67 "g5")
    32
    (Range
        (NoteRange
            (NoteRangeAmplitude 6271.92 8 5.12)
            (NoteRangeHarmonicFreq 1 783.99))
        (NoteRange
            (NoteRangeAmplitude 783.99 1 1677.42)
            (NoteRangeHarmonicFreq 11 8623.9)))
    [Harmonic 1 2.358 1677.42
    ,Harmonic 2 (-1.484) 804.25
    ,Harmonic 3 (-1.27) 386.06
    ,Harmonic 4 1.298 133.76
    ,Harmonic 5 (-3.019) 44.93
    ,Harmonic 6 (-0.534) 53.61
    ,Harmonic 7 (-1.018) 46.27
    ,Harmonic 8 0.179 5.12
    ,Harmonic 9 (-1.721) 17.17
    ,Harmonic 10 (-2.84) 11.31
    ,Harmonic 11 7.1e-2 9.75]