;; prepare using other fonts than 'fetaMusic.
;; Currently it ensures that the default-fonts are used by the
;; markup-command 'note-by-number' in 'metronome-markup' (see below).
;; prepare using other fonts than 'fetaMusic.
;; Currently it ensures that the default-fonts are used by the
;; markup-command 'note-by-number' in 'metronome-markup' (see below).
((styled-metronome-markup #:optional (glyph-font 'default))
event context)
(let ((hide-note (ly:context-property context 'tempoHideNote #f))
((styled-metronome-markup #:optional (glyph-font 'default))
event context)
(let ((hide-note (ly:context-property context 'tempoHideNote #f))
(count (ly:event-property event 'metronome-count)))
(metronome-markup glyph-font text dur count hide-note)))
(count (ly:event-property event 'metronome-count)))
(metronome-markup glyph-font text dur count hide-note)))
(let ((bn (ly:context-property tr 'currentBarNumber)))
(ly:context-set-property! tr 'barNumberVisibility
(modulo-bar-number-visible n (modulo bn n)))))
(let ((bn (ly:context-property tr 'currentBarNumber)))
(ly:context-set-property! tr 'barNumberVisibility
(modulo-bar-number-visible n (modulo bn n)))))