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