module Sharc.Instruments.ViolaMarteleBowing.Note30 (note30) where

import Sharc.Types

note30 :: Note
note30 = Note
    (Pitch 783.991 67 "g5")
    31
    (Range
        (NoteRange
            (NoteRangeAmplitude 9407.89 12 8.43)
            (NoteRangeHarmonicFreq 1 783.99))
        (NoteRange
            (NoteRangeAmplitude 783.99 1 8535.0)
            (NoteRangeHarmonicFreq 12 9407.89)))
    [Harmonic 1 1.826 8535.0
    ,Harmonic 2 0.569 4178.45
    ,Harmonic 3 (-2.906) 470.71
    ,Harmonic 4 0.603 154.66
    ,Harmonic 5 3.029 366.5
    ,Harmonic 6 (-2.159) 170.22
    ,Harmonic 7 (-0.125) 156.25
    ,Harmonic 8 1.666 33.33
    ,Harmonic 9 (-1.406) 39.75
    ,Harmonic 10 2.608 39.57
    ,Harmonic 11 3.032 9.44
    ,Harmonic 12 1.451 8.43]