Note33.hs

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

import Sharc.Types

note33 :: Note
note33 = Note
    (Pitch 1318.51 76 "e6")
    34
    (Range
        (NoteRange
            (NoteRangeAmplitude 7911.06 6 77.68)
            (NoteRangeHarmonicFreq 1 1318.51))
        (NoteRange
            (NoteRangeAmplitude 1318.51 1 1573.0)
            (NoteRangeHarmonicFreq 7 9229.57)))
    [Harmonic 1 1.189 1573.0
    ,Harmonic 2 0.333 502.56
    ,Harmonic 3 1.285 202.95
    ,Harmonic 4 1.936 138.58
    ,Harmonic 5 2.357 170.23
    ,Harmonic 6 (-1.401) 77.68
    ,Harmonic 7 2.858 205.12]