Custom glyph articulation [WAS: Creating new articulation (adding to an internal alist) ]

[Pierre Perol-Schneider]

Hi All,

I've followed this conversation with a lot of interest:
http://lilypond.1069038.n5.nabble.com/Creating-new-articulation-adding-to-an-internal-alist-td172689.html

However, there's something I'm missing.

I'm trying to put my own glyph into a new articulation script without success: I still have to go through the feta glyph and change the stencil afterward.

Is there a simple way to avoid this additional workaround ?

TIA

Pierre

%%%% Snippet %%%%
\version "2.19.2"

%% Nothing realistic here, 'essai' is just to show something:
essai =
\markup
\scale #'(-2 . -2)
\override #'(filled . #t)
\path #0.01
#'((moveto    0.58   0.91)
   (curveto   0.58   0.83   0.63   0.80   0.70   0.80)
   (curveto   0.90   0.80   0.87   1.15   1.11   1.28)
   (curveto   0.90   1.29   0.58   1.11   0.58   0.91))


%% New articulation:
#(append! default-script-alist
   (list
    `("mon-articulation"
       . (
           ;; In order to put my own glyph named 'essai'
           ;; I want to modify this line:
           (script-stencil . (feta . ("thumb" . "thumb")))
           ; any other properties
           (toward-stem-shift-in-column . 0.0)
           (padding . 0.20)
           (avoid-slur . around)
           (direction . ,UP)))))

monArticulation = #(make-articulation "mon-articulation")

%% workaround to show what I'd like to get:
monArticulation-workaround =
  #(define-event-function
     (parser location)
     ()
     #{
       -\tweak stencil #(lambda
                         (grob)
                         (grob-interpret-markup grob essai))
       \monArticulation
     #})


{
  c'\monArticulation
  c'\monArticulation-workaround
}

\layout {
  \context {
    \Score
    scriptDefinitions = #default-script-alist
  }
}

%%%%%%%%%%%%%%%%%%%%%%