3 texidoc="Display the number of systems, or the system number of a
4 Grob. This can be most useful to assertain that a piece uses a
5 specified number of lines."
9 #(define (display-systemno smob)
10 (let* ((this-system (get-system smob))
11 (systems (get-broken-into
12 (get-original this-system))))
14 (display (list-index systems this-system))
18 #(define (display-system-count smob)
22 (get-system smob))))))
28 \property Thread.NoteHead \override #'after-line-breaking-callback
29 % = #display-system-count
34 \paper{ indent = 0.0\mm