Re: printing the current moment in a context

[David Kastrup]

Kieren MacMillan <address@hidden> writes:

> Hi all,
>
> Is there a function (2.19.64) that will output the current context
> moment (e.g., measure number and beat) as markup?
> In my polymetric scores, I need to target moments (using the
> edition-engraver), and it currently involves a bit too much
> trial-and-error…

Something like

#(define (moment->string mom)
  (if (zero? (ly:moment-grace mom))
   (number->string (ly:moment-main mom))
   (format "~sG~a" (ly:moment-main mom) (ly:moment-grace mom))))

currentmom =
-\tweak text
#(lambda (grob)
   (let* ((loc (grob::rhythmic-location grob)))
     (if (pair? loc)
         #{ \markup \with-color #red #(format "address@hidden" (car loc)
                                              (moment->string (cdr loc))) #}
         "")))
-""

{ c d\currentmom f g }

I would have used rhythmic-location->string but it relies on
ly:moment->string that never ever was defined over the history of
LilyPond.  Cough cough.

-- 
David Kastrup