]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/test/count-systems.ly
* scripts/convert-ly.py (FatalConversionError.figures_replace):
[lilypond.git] / input / test / count-systems.ly
index 84ad063602ef043c44dd20568e6484976ea5d254..e1ed851cf1421f2b04d8e18c33aaeaff34f2ba96 100644 (file)
@@ -1,16 +1,17 @@
-\version "1.5.68"
+
+\version "1.9.4"
 \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 (get-system smob))
-        (systems (get-broken-into
-                  (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)))
@@ -18,9 +19,9 @@
 
 #(define (display-system-count smob)
   (display (length
-           (get-broken-into
-            (get-original
-             (get-system smob))))))
+           (ly:get-broken-into
+            (ly:get-original
+             (ly:get-system smob))))))
 
   
   
@@ -34,5 +35,7 @@
     }
     \paper{ indent = 0.0\mm
            linewidth = 10.0\mm
+               raggedright = ##t
        }
 }
+