* cygwin/mknetrel: Override $(webdir) (was: $(docdir)).

[lilypond.git] / input / test / count-systems.ly

diff --git a/input/test/count-systems.ly b/input/test/count-systems.ly
index 5869fcad6fb769ad110f5781b3f6df1cfc5eefed..2cd7afc7bf4cf157061b130d243e88750dbecb30 100644 (file)
--- a/input/test/count-systems.ly
+++ b/input/test/count-systems.ly
@@ -1,25 +1,26 @@
+\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-line (Grob::line_scm smob))
-        (systems (Spanner::get_broken_into
-                  (Grob::original_scm this-line))))
+  (let* ((this-system (ly:get-system smob))
+        (systems (ly:get-broken-into
+                  (ly:get-original this-system))))
     (display smob)
-    (display (list-index systems this-line))
+    (display (list-index systems this-system))
     (newline)))
   
 
 #(define (display-system-count smob)
   (display (length
-           (Spanner::get_broken_into
-            (Grob::original_scm
-             (Grob::line_scm smob))))))
+           (ly:get-broken-into
+            (ly:get-original
+             (ly:get-system smob))))))
 
   
   
@@ -33,5 +34,7 @@
     }
     \paper{ indent = 0.0\mm
            linewidth = 10.0\mm
+               raggedright = ##t
        }
-}
\ No newline at end of file
+}
+