This worked for me:
%<-------------- SNIP -------------
#(append! default-script-alist
(list
`("mon-articulation"
. (
(text . ,#{ \markup \essai #})
(stencil . ,ly:text-interface::print)
; any other properties
(toward-stem-shift-in-column . 0.0)
(padding . 0.20)
(avoid-slur . around)
(direction . ,UP)))))
%<-------------- SNIP -------------
HTH,
Abraham
On Mon, Apr 6, 2015 at 7:13 AM, Schneidy [via Lilypond] <
[email protected]> wrote:
> 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
> [hidden email] <http:///user/SendEmail.jtp?type=node&node=174112&i=0>
> https://lists.gnu.org/mailman/listinfo/lilypond-user
> ~Pierre
>
>
> ------------------------------
> If you reply to this email, your message will be added to the discussion
> below:
>
> http://lilypond.1069038.n5.nabble.com/Custom-glyph-articulation-WAS-Creating-new-articulation-adding-to-an-internal-alist-tp174112.html
> To start a new topic under User, email [email protected]
> To unsubscribe from Lilypond, click here
> <http://lilypond.1069038.n5.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=2&code=dGlzaW1zdC5saWx5cG9uZEBnbWFpbC5jb218Mnw4MzU3Njg3MDU=>
> .
> NAML
> <http://lilypond.1069038.n5.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml>
>
--
View this message in context:
http://lilypond.1069038.n5.nabble.com/Custom-glyph-articulation-WAS-Creating-new-articulation-adding-to-an-internal-alist-tp174112p174125.html
Sent from the User mailing list archive at Nabble.com._______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
