module Sharc.Instruments.CelloMarteleBowing.Note41 (note41) where

import Sharc.Types

note41 :: Note
note41 = Note
    (Pitch 698.456 65 "f5")
    42
    (Range
        (NoteRange
            (NoteRangeAmplitude 6286.1 9 7.96)
            (NoteRangeHarmonicFreq 1 698.45))
        (NoteRange
            (NoteRangeAmplitude 698.45 1 3873.0)
            (NoteRangeHarmonicFreq 15 10476.84)))
    [Harmonic 1 (-2.067) 3873.0
    ,Harmonic 2 1.434 1982.54
    ,Harmonic 3 0.102 204.36
    ,Harmonic 4 1.718 388.34
    ,Harmonic 5 (-2.232) 26.44
    ,Harmonic 6 2.898 9.22
    ,Harmonic 7 9.1e-2 12.62
    ,Harmonic 8 0.138 11.15
    ,Harmonic 9 1.91 7.96
    ,Harmonic 10 (-2.983) 12.43
    ,Harmonic 11 2.086 42.23
    ,Harmonic 12 (-1.459) 77.4
    ,Harmonic 13 (-2.495) 20.61
    ,Harmonic 14 (-1.071) 80.71
    ,Harmonic 15 (-1.08) 76.94]