2015-08-30 2:16 GMT+02:00 Caio Giovaneti de Barros <caio.bar...@gmail.com>:
> Thanks guys!
>
> On 28-08-2015 15:26, tisimst wrote:
>>
>> On 8/28/2015 12:18 PM, Stephen MacNeil [via Lilypond] wrote:
>>
>> > how is
>>
>>
>> Nice! That looks like a good one, too! Isn't it great to have this kind
>> of flexibility? I love it!
>>
>> - Abraham
>
> I'm tinkering here with Stephen's code to try to draw the second beam. Just
> because it seems easier to me to understand this them Abraham's (I have 0
> experience with postscript). I'll be back working in the edition again by
> Monday and decide which solution I'll take. I appreciate your help very very
> much!
Well, I don't like postscript-code as well.
Although, you can do a lot with it ;)
If you want to stick to LilyPond's markup-commands, I'd suggest to
split construction into steps otherwise it's confusing.
I'd first define a circle and a beam:
crcle = \markup \draw-circle #0.22 #0 ##t
bm = \markup \rotate #90 \beam #2 #-1 #0.58
Now you can reuse them. All left to do is combining them with
appropiate translating values.
Here let me introduce a custom markup-command `combine-list'.
#(define-markup-command (combine-list layout props args)
(markup-list?)
#:category align
"Takes a list of markups combining them.
@lilypond[verbatim,quote]
\\markup \\combine-list \\vcenter \\center-align { + o X }
@end lilypond"
(apply ly:stencil-add
(map (lambda (e) (interpret-markup layout props e)) args)))
(I always think we miss this command, but I seem to never find the
time to put up a patch, maybe tomorrow...)
Now it's pretty much straight-forward.
Complete example:
#(define-markup-command (combine-list layout props args)
(markup-list?)
#:category align
"Takes a list of markups combining them.
@lilypond[verbatim,quote]
\\markup \\combine-list \\vcenter \\center-align { + o X }
@end lilypond"
(apply ly:stencil-add
(map (lambda (e) (interpret-markup layout props e)) args)))
crcle = \markup \draw-circle #0.22 #0 ##t
bm = \markup \rotate #90 \beam #2 #-1 #0.58
percentRepeat =
\markup \combine-list {
\translate #'(0.2 . 1.5) \crcle
\translate #'(1.8 . 0.5) \crcle
\translate#'(0 . 2) \bm
}
doublePercentRepeat =
\markup \combine-list {
\translate #'(0.2 . 1.5) \crcle
\translate #'(2.8 . 0.5) \crcle
\translate#'(0 . 2) \bm
\translate#'(1 . 2) \bm
}
\percentRepeat
\doublePercentRepeat
HTH,
Harm
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
