Re: Typo in Snippets 2.11.39: compound-time example

[Rune Zedeler]

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