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

import Sharc.Types

note36 :: Note
note36 = Note
    (Pitch 1567.98 79 "g6")
    37
    (Range
        (NoteRange
            (NoteRangeAmplitude 7839.9 5 73.3)
            (NoteRangeHarmonicFreq 1 1567.98))
        (NoteRange
            (NoteRangeAmplitude 1567.98 1 2611.0)
            (NoteRangeHarmonicFreq 6 9407.88)))
    [Harmonic 1 1.273 2611.0
    ,Harmonic 2 0.885 1804.06
    ,Harmonic 3 1.843 186.76
    ,Harmonic 4 2.124 159.62
    ,Harmonic 5 1.364 73.3
    ,Harmonic 6 2.159 154.26]