Note33.hs

module Sharc.Instruments.ViolinMarteleBowing.Note33 (note33) where

import Sharc.Types

note33 :: Note
note33 = Note
    (Pitch 1318.51 76 "e6")
    34
    (Range
        (NoteRange
            (NoteRangeAmplitude 7911.06 6 127.58)
            (NoteRangeHarmonicFreq 1 1318.51))
        (NoteRange
            (NoteRangeAmplitude 1318.51 1 2619.0)
            (NoteRangeHarmonicFreq 7 9229.57)))
    [Harmonic 1 (-2.241) 2619.0
    ,Harmonic 2 (-0.722) 1104.04
    ,Harmonic 3 (-1.153) 866.3
    ,Harmonic 4 (-2.902) 1068.99
    ,Harmonic 5 0.499 434.32
    ,Harmonic 6 (-3.139) 127.58
    ,Harmonic 7 (-1.072) 129.62]