Note36.hs

module Sharc.Instruments.ViolinMuted.Note36 (note36) where

import Sharc.Types

note36 :: Note
note36 = Note
    (Pitch 1567.98 79 "g6")
    37
    (Range
        (NoteRange
            (NoteRangeAmplitude 7839.9 5 63.14)
            (NoteRangeHarmonicFreq 1 1567.98))
        (NoteRange
            (NoteRangeAmplitude 1567.98 1 3206.0)
            (NoteRangeHarmonicFreq 6 9407.88)))
    [Harmonic 1 (-1.849) 3206.0
    ,Harmonic 2 (-2.412) 199.49
    ,Harmonic 3 (-1.799) 115.61
    ,Harmonic 4 1.369 199.81
    ,Harmonic 5 (-1.118) 63.14
    ,Harmonic 6 (-1.748) 69.1]