Note35.hs

module Sharc.Instruments.ViolaMarteleBowing.Note35 (note35) where

import Sharc.Types

note35 :: Note
note35 = Note
    (Pitch 1046.5 72 "c6")
    36
    (Range
        (NoteRange
            (NoteRangeAmplitude 9418.5 9 5.81)
            (NoteRangeHarmonicFreq 1 1046.5))
        (NoteRange
            (NoteRangeAmplitude 1046.5 1 10201.0)
            (NoteRangeHarmonicFreq 9 9418.5)))
    [Harmonic 1 1.227 10201.0
    ,Harmonic 2 (-2.557) 2926.22
    ,Harmonic 3 0.927 645.13
    ,Harmonic 4 (-0.849) 203.52
    ,Harmonic 5 (-0.128) 22.41
    ,Harmonic 6 (-2.888) 28.78
    ,Harmonic 7 (-3.061) 60.72
    ,Harmonic 8 (-1.763) 12.44
    ,Harmonic 9 2.928 5.81]