]> git.donarmstrong.com Git - lilypond.git/blob - input/test/count-systems.ly
* scm/define-grobs.scm (all-grob-descriptions): remove
[lilypond.git] / input / test / count-systems.ly
1
2 \version "2.1.7"
3 \header{
4     
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.
9 " }
10
11 #(define (display-systemno smob)
12   (let* ((this-system (ly:get-system smob))
13          (systems (ly:get-broken-into
14                    (ly:get-original this-system))))
15     (display smob)
16     (display (list-index systems this-system))
17     (newline)))
18   
19
20 #(define (display-system-count smob)
21   (display (length
22             (ly:get-broken-into
23              (ly:get-original
24               (ly:get-system smob))))))
25
26   
27   
28 \score{
29     \notes\relative c''{
30         \property Thread.NoteHead \override #'after-line-breaking-callback
31         % = #display-system-count
32         = #display-systemno
33         c1
34         d
35     }
36     \paper{ indent = 0.0\mm
37             linewidth = 10.0\mm
38                 raggedright = ##t
39         }
40 }
41