[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile-question: how to do (apply ly:stencil-combine-at-edge args)?
From: |
Thomas Morley |
Subject: |
guile-question: how to do (apply ly:stencil-combine-at-edge args)? |
Date: |
Tue, 18 Aug 2015 01:44:18 +0200 |
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
- guile-question: how to do (apply ly:stencil-combine-at-edge args)?,
Thomas Morley <=