*** empty log message ***

[lilypond.git] / input / test / piano-staff-distance.ly

diff --git a/input/test/piano-staff-distance.ly b/input/test/piano-staff-distance.ly
index e0d6e5b3cbb14167f9d97a748700a9c25368c455..15fd1bc4d4d53f2bfad68faa592d4f8415ad9c48 100644 (file)
--- a/input/test/piano-staff-distance.ly
+++ b/input/test/piano-staff-distance.ly
@@ -2,23 +2,23 @@
 \header
 {
 
- texidoc = "It is possible to have different staff distances across
-piano systems, but it requires some advanced magic. Kids don't try
-this at home.  "
+ texidoc = "It is possible to have different staff distances between
+the staffs of a piano system, but it requires some advanced Scheme code. 
+Currently, this is for testing purposes.  "
 
 }
 
-\version "2.1.24"
+\version "2.2.0"
 
 #(define ((futz-alignment-callback distance count) grob axis)
 
    "Check if we're the system number COUNT, and if yes, set fixed distance to
 DISTANCE; then call the original callback.  "
    (let*
-       ((a (ly:get-parent grob axis))
-       (o (ly:get-original a))
+       ((a (ly:grob-parent grob axis))
+       (o (ly:grob-original a))
        (bs (if (ly:grob? o)
-               (ly:get-broken-into o)
+               (ly:spanner-broken-into o)
                #f))
        )
 
@@ -27,7 +27,7 @@ DISTANCE; then call the original callback.  "
              (< count (length bs))
              (equal? (list-ref bs count) a)
         )
-        (ly:set-grob-property! a 'forced-distance distance))
+        (ly:grob-set-property! a 'forced-distance distance))
      
      (Align_interface::fixed_distance_alignment_callback grob axis)) )