Merge branch 'master' of ssh+git://hanwen@git.sv.gnu.org/srv/git/lilypond

[lilypond.git] / input / test / compound-time.ly

diff --git a/input/test/compound-time.ly b/input/test/compound-time.ly
index 0bf588441ab815e81a1e1c0bd0788b518956d3c7..a74b0baa8b94229ec85a632cc172631acbed73d3 100644 (file)
--- a/input/test/compound-time.ly
+++ b/input/test/compound-time.ly
@@ -1,5 +1,5 @@
 
-\version "2.5.20"
+\version "2.10.0"
 \header {
 texidoc = "@cindex compound time
 @cindex plus
@@ -10,22 +10,18 @@ compound time.
 "
 }
 
-\layout{raggedright = ##t}
+\layout{ragged-right = ##t}
+
+#(define (compound-time one two num)
+  (markup #:override '(baseline-skip . 0) #:number 
+   (#:line ((#:column (one num)) #:vcenter "+" (#:column (two num))))))
 
-#(define (compound-time grob one two num)
-  (interpret-markup
-   (ly:grob-layout grob)
-   '(((baseline-skip . 2)
-      (word-space . 2)
-      (font-family . number)))
-   (markup
-    #:line ( #:column (one num) #:lower 1 "+" #:column (two num)))))
 
 \relative {
   %% compound time signature hack
   \time 5/8
-  \override Staff.TimeSignature #'print-function
-  = #(lambda (grob) (compound-time grob "2" "3" "8"))
+  \override Staff.TimeSignature #'stencil = #ly:text-interface::print
+  \override Staff.TimeSignature #'text = #(compound-time "2" "3" "8" )
   #(override-auto-beam-setting '(end 1 8 5 8) 1 4)
   c8 c c8 c c
 }