-\version "1.7.6"
+\version "1.7.18"
\header{
- texidoc="Display the number of systems, or the system number of a
- Grob. This can be most useful to assertain that a piece uses a
- specified number of lines."
-
-}
+ texidoc="@cindex Count Systems
+Display the number of systems, or the system number of a
+Grob. This can be most useful to assertain that a piece uses a
+specified number of lines.
+" }
#(define (display-systemno smob)
- (let* ((this-system (ly:ly:get-system smob))
- (systems (ly:ly:get-broken-into
- (ly:ly:get-original this-system))))
+ (let* ((this-system (ly:get-system smob))
+ (systems (ly:get-broken-into
+ (ly:get-original this-system))))
(display smob)
(display (list-index systems this-system))
(newline)))
#(define (display-system-count smob)
(display (length
- (ly:ly:get-broken-into
- (ly:ly:get-original
- (ly:ly:get-system smob))))))
+ (ly:get-broken-into
+ (ly:get-original
+ (ly:get-system smob))))))
}
\paper{ indent = 0.0\mm
linewidth = 10.0\mm
+ raggedright = ##t
}
}
-%% new-chords-done %%
+