Re: guile-question: how to do (apply ly:stencil-combine-at-edge args)?

[Gilles THIBAULT]

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