*** 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..74fe6337b728c89e1e25e262d143e8ef6bb7a872 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.4.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,12 +27,12 @@ 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)) )
 
 \score {
-    \notes \relative c''  \context PianoStaff
+     \relative c''  \context PianoStaff
     \with {
        verticalAlignmentChildCallback = #(futz-alignment-callback 20 1)
 
@@ -41,7 +41,7 @@ DISTANCE; then call the original callback.  "
        \override Beam #'auto-knee-gap = #'()
     } <<
 
-       \context Staff  = up {
+       \context Staff = "up" {
            
            \time 2/4 
            c8[
@@ -60,9 +60,9 @@ DISTANCE; then call the original callback.  "
                \change Staff = up
                c c ](
        }
-       \context Staff = down {
+       \context Staff = "down" {
            \skip 1 }
 
     >>
-    \paper { raggedright = ##T } 
+    \layout { raggedright = ##T } 
 }