[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: guile-question: how to do (apply ly:stencil-combine-at-edge args)?
From: |
Gilles THIBAULT |
Subject: |
Re: guile-question: how to do (apply ly:stencil-combine-at-edge args)? |
Date: |
Tue, 18 Aug 2015 23:57:36 +0200 |
User-agent: |
KMail/4.14.5 (Linux/3.19.8-desktop-3.mga5; KDE/4.14.5; x86_64; ; ) |
> > 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