Le mardi 18 août 2015, 23:57:36 Gilles THIBAULT a écrit :
> > > I wasn't able to find the correct syntax how to do:
> > > (apply ly:stencil-combine-at-edge <what-ever-args>)
> > >
> > > Any hints?
>
> Perhaps you need to redefine ly:stencil-combine-at-edge
> according to your needs .
> Perhaps something like that :
>
> #(define (my-stencil-combine-at-edge stil1 stil2 . args)
.. or something more general, if you need it :
#(define ((my-stencil-combine-at-edge axis dir) stil1 stil2 . args)
(let ((res (ly:stencil-combine-at-edge stil1 axis dir stil2)))
(if (pair? args)
(apply (my-stencil-combine-at-edge axis dir) res (car args) (cdr args))
res)))
\markup
\stencil
#(apply (my-stencil-combine-at-edge X RIGHT) (stils 3))
[well, time to go to bed for me :-)]
--
Gilles
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
