I don't know this out of my hat.
But you may look into my file in openlilylib. It's ly/stylesheets 
/fonts/arnold-extensions.ily (I think).

Good luck
Urs

Am 6. April 2015 15:12:49 MESZ, schrieb Pierre Perol-Schneider 
<pierre.schneider.pa...@gmail.com>:
>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
>  }
>}
>
>%%%%%%%%%%%%%%%%%%%%%%
>
>
>------------------------------------------------------------------------
>
>_______________________________________________
>lilypond-user mailing list
>lilypond-user@gnu.org
>https://lists.gnu.org/mailman/listinfo/lilypond-user
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to