module Sharc.Instruments.ViolinMarteleBowing.Note25 (note25) where

import Sharc.Types

note25 :: Note
note25 = Note
    (Pitch 830.609 68 "g#5")
    26
    (Range
        (NoteRange
            (NoteRangeAmplitude 9967.3 12 2.3)
            (NoteRangeHarmonicFreq 1 830.6))
        (NoteRange
            (NoteRangeAmplitude 1661.21 2 5131.0)
            (NoteRangeHarmonicFreq 12 9967.3)))
    [Harmonic 1 (-2.859) 4903.89
    ,Harmonic 2 (-0.876) 5131.0
    ,Harmonic 3 0.614 3855.36
    ,Harmonic 4 (-0.182) 1142.27
    ,Harmonic 5 0.747 878.88
    ,Harmonic 6 (-2.079) 104.87
    ,Harmonic 7 1.825 113.76
    ,Harmonic 8 1.919 46.41
    ,Harmonic 9 2.092 31.61
    ,Harmonic 10 (-0.232) 50.1
    ,Harmonic 11 0.945 42.77
    ,Harmonic 12 2.755 2.3]