> > 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)
(let ((res (ly:stencil-combine-at-edge stil1 X RIGHT stil2)))
(if (pair? args)
(apply my-stencil-combine-at-edge res (car args) (cdr args))
res)))
%%%%%%%%%%%%%%%%%
#(define (stils n)
(map
(lambda (n)
(make-connected-path-stencil
`((0 0) (,n 0) (,n ,n) (0 ,n) (0 0))
0.1
1
1
#f
#f))
(iota n 1 1)))
#(define (my-stencil-combine-at-edge stil1 stil2 . args)
(let ((res (ly:stencil-combine-at-edge stil1 X RIGHT stil2)))
(if (pair? args)
(apply my-stencil-combine-at-edge res (car args) (cdr args))
res)))
\markup
\stencil
#(apply my-stencil-combine-at-edge (stils 3))
%%%%%%%%%%%%%%%%%%
--
Gilles
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
