]> 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 f342b183ebfb8aceab2cf11d237728c991a99da9..e1ed851cf1421f2b04d8e18c33aaeaff34f2ba96 100644 (file)
@@ -1,15 +1,17 @@
+
+\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-line 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)))
@@ -17,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))))))
 
   
   
@@ -33,5 +35,7 @@
     }
     \paper{ indent = 0.0\mm
            linewidth = 10.0\mm
+               raggedright = ##t
        }
-}
\ No newline at end of file
+}
+