Valentin Villenave skrev:
It's a pity, however, that the number of args has to be hardcoded.
Would it be possible to write some "universal" compound-meter
function, where the numbers would be automatically taken into account
except the last number, which would be taken as denominator?
Sure.
I could not figure it out without doing a ly:load.
If somebody can fix this, then please! :-)
#(ly:load "markup.scm")
#(define (compound-time . args)
(let* ((revargs (reverse args))
(num (car revargs))
(dens (reverse (cdr revargs))))
(make-override-markup
'(baseline-skip . 0)
(make-number-markup
(make-line-markup
(cons
(make-column-markup (list (car dens) num))
(map (lambda (den)
(make-line-markup (list
(make-vcenter-markup "+")
(make-column-markup (list den num)))))
(cdr dens))))))))
-Rune
_______________________________________________
bug-lilypond mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/bug-lilypond
