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

[Thomas Morley]

Hi all,

I want to "put together" an arbitrary number of stencils,
pseudo-code:
(apply
  some-put-together-procedure
  stil-list)

While using `ly:stencil-add', it's quite simple:

#(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)))

\markup
  \stencil
  #(apply ly:stencil-add (stils 3))


But now I want to use `ly:stencil-combine-at-edge' with
axis: X
direction: RIGHT
padding: 0

As if I wrote:

\markup
  \stencil
  #(ly:stencil-combine-at-edge
     (car (stils 3))
     X
     RIGHT
     (ly:stencil-combine-at-edge
       (cadr (stils 3))
       X
       RIGHT
       (caddr (stils 3))
       0)
     0)


I wasn't able to find the correct syntax how to do:
(apply ly:stencil-combine-at-edge <what-ever-args>)

Any hints?


Cheers,
  Harm