Eyeglasses and snappizzicato

[Valentin Villenave]

Hi Reinhold, hi everybody,

I've just seen that you've implemented some cool articulations in
musicxml2ly; I've tried to add them to the LSR but I can't understand
how the snappizzicato works; can you tell me what's wrong with the
following code?

%%%%

snappizzicato=
#(define-markup-command (snappizzicato layout props) ()
  (interpret-markup layout props
    (markup #:stencil
      (ly:stencil-translate-axis
        (ly:stencil-add
          (make-circle-stencil 0.7 0.1 #f)
            (ly:make-stencil
            (list 'draw-line 0.1 0 0.1 0 1)
        '(-0.1 . 0.1) '(0.1 . 1)))
        0.7 X))))

eyeglassesps = #"0.15 setlinewidth
    % 255 0 0 setrgbcolor
    -0.9 0 translate
    1.1 1.1 scale
    1.2 0.7 moveto
    0.7 0.7 0.5 0 361 arc
    stroke
    2.20 0.70 0.50 0 361 arc
    stroke
    1.45 0.85 0.30 0 180 arc
    stroke
    0.20 0.70 moveto
    0.80 2.00 lineto
    0.92 2.26 1.30 2.40 1.15 1.70 curveto
    stroke
    2.70 0.70 moveto
    3.30 2.00 lineto
    3.42 2.26 3.80 2.40 3.65 1.70 curveto
    stroke"
eyeglasses =
\markup { \with-dimensions #'(0 . 4.4) #'(0 . 2.5) \postscript #eyeglassesps }

{ c'1^\eyeglasses d' \snappizzicato e' f' }

%%%%

Oh, and btw if you want to write a description yourself, feel free to
do so; anyway I find the glasses really funny  :)

Cheers,
Valentin