module Sharc.Instruments.ViolaMarteleBowing.Note26 (note26) where

import Sharc.Types

note26 :: Note
note26 = Note
    (Pitch 622.254 63 "d#5")
    27
    (Range
        (NoteRange
            (NoteRangeAmplitude 8711.55 14 8.19)
            (NoteRangeHarmonicFreq 1 622.25))
        (NoteRange
            (NoteRangeAmplitude 622.25 1 16158.0)
            (NoteRangeHarmonicFreq 16 9956.06)))
    [Harmonic 1 1.626 16158.0
    ,Harmonic 2 0.872 8979.49
    ,Harmonic 3 2.008 1638.86
    ,Harmonic 4 (-1.747) 1055.06
    ,Harmonic 5 (-1.105) 543.2
    ,Harmonic 6 (-0.578) 214.0
    ,Harmonic 7 (-1.3) 84.73
    ,Harmonic 8 (-0.701) 33.49
    ,Harmonic 9 2.632 27.02
    ,Harmonic 10 (-0.649) 30.28
    ,Harmonic 11 0.905 114.3
    ,Harmonic 12 (-1.208) 25.71
    ,Harmonic 13 0.344 41.87
    ,Harmonic 14 2.271 8.19
    ,Harmonic 15 2.205 38.32
    ,Harmonic 16 2.169 16.72]