|
From: | Jan-Peter Voigt |
Subject: | Re: Pattern-generating Scheme function challenge |
Date: | Tue, 16 Jul 2013 17:49:09 +0200 |
User-agent: | Mozilla/5.0 (X11; Linux i686; rv:17.0) Gecko/20130623 Thunderbird/17.0.7 |
Hi there,
I am not at home ... so here is not a solution, but here is a little snippet, that includes two functions, that may be helpful: \version "2.16.1"
musA = \relative c'' { bes4 a c b } musB = #(music-map (lambda (m) (let* ((mus m) (dur (ly:music-property mus 'duration))) (if (ly:duration? dur) (ly:music-set-property! mus 'duration (ly:make-duration (+ 1 (ly:duration-log dur)) (ly:duration-dot-count dur) 2 1))) mus)) (ly:music-deep-copy musA))
<< \new Staff \musA \new Staff \musB >>
On 13.07.2013 16:03, Urs Liska wrote: Hi all, the Schemers in particular, |
[Prev in Thread] | Current Thread | [Next in Thread] |