5 texidoc="@cindex Count Systems
6 Display the number of systems, or the system number of a
7 Grob. This can be most useful to assertain that a piece uses a
8 specified number of lines.
11 #(define (display-systemno smob)
12 (let* ((this-system (ly:grob-system smob))
13 (systems (ly:spanner-broken-into
14 (ly:grob-original this-system))))
16 (display (list-index systems this-system))
20 #(define (display-system-count smob)
22 (ly:spanner-broken-into
24 (ly:grob-system smob))))))
30 \override NoteHead #'after-line-breaking-callback
31 % = #display-system-count
36 \paper{ indent = 0.0\mm