Note36.hs

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

import Sharc.Types

note36 :: Note
note36 = Note
    (Pitch 1567.98 79 "g6")
    37
    (Range
        (NoteRange
            (NoteRangeAmplitude 9407.88 6 110.07)
            (NoteRangeHarmonicFreq 1 1567.98))
        (NoteRange
            (NoteRangeAmplitude 3135.96 2 6872.0)
            (NoteRangeHarmonicFreq 6 9407.88)))
    [Harmonic 1 (-2.528) 3547.28
    ,Harmonic 2 (-1.365) 6872.0
    ,Harmonic 3 (-2.235) 131.77
    ,Harmonic 4 2.142 317.95
    ,Harmonic 5 (-2.656) 301.41
    ,Harmonic 6 2.715 110.07]