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

[Gilles THIBAULT]

> > 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