module Sharc.Instruments.CelloMarteleBowing.Note40 (note40) where

import Sharc.Types

note40 :: Note
note40 = Note
    (Pitch 659.255 64 "e5")
    41
    (Range
        (NoteRange
            (NoteRangeAmplitude 8570.31 13 39.35)
            (NoteRangeHarmonicFreq 1 659.25))
        (NoteRange
            (NoteRangeAmplitude 1977.76 3 4620.0)
            (NoteRangeHarmonicFreq 15 9888.82)))
    [Harmonic 1 3.0e-3 2677.7
    ,Harmonic 2 (-2.17) 2002.42
    ,Harmonic 3 (-1.799) 4620.0
    ,Harmonic 4 (-3.065) 330.79
    ,Harmonic 5 (-2.526) 891.27
    ,Harmonic 6 1.392 407.51
    ,Harmonic 7 2.084 49.26
    ,Harmonic 8 (-0.347) 107.1
    ,Harmonic 9 1.337 62.0
    ,Harmonic 10 (-2.661) 160.82
    ,Harmonic 11 2.925 59.81
    ,Harmonic 12 (-2.228) 63.07
    ,Harmonic 13 1.815 39.35
    ,Harmonic 14 (-1.886) 101.09
    ,Harmonic 15 (-0.209) 47.83]