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

import Sharc.Types

note31 :: Note
note31 = Note
    (Pitch 783.991 67 "g5")
    32
    (Range
        (NoteRange
            (NoteRangeAmplitude 8623.9 11 29.31)
            (NoteRangeHarmonicFreq 1 783.99))
        (NoteRange
            (NoteRangeAmplitude 1567.98 2 9526.0)
            (NoteRangeHarmonicFreq 12 9407.89)))
    [Harmonic 1 2.919 162.38
    ,Harmonic 2 1.409 9526.0
    ,Harmonic 3 1.725 735.93
    ,Harmonic 4 (-2.464) 1232.79
    ,Harmonic 5 0.392 1473.24
    ,Harmonic 6 (-1.565) 326.76
    ,Harmonic 7 0.827 524.14
    ,Harmonic 8 2.442 433.83
    ,Harmonic 9 (-1.811) 417.2
    ,Harmonic 10 (-2.53) 118.08
    ,Harmonic 11 (-2.748) 29.31
    ,Harmonic 12 (-1.069) 36.13]