*** empty log message ***

[lilypond.git] / input / regression / tuplet-nest.ly

diff --git a/input/regression/tuplet-nest.ly b/input/regression/tuplet-nest.ly
index a26fddbc3d698d4c2e1ecdff4d936d386a9217df..51e62b3b0be16e0cede37a7c4ab3f8834d20585e 100644 (file)
--- a/input/regression/tuplet-nest.ly
+++ b/input/regression/tuplet-nest.ly
@@ -1,11 +1,17 @@
-\version "1.7.18"
+
+\version "2.3.22"
+
+
 \header {
-  texidoc="Manual hack for nested tuplets, move outer tuplet up."
+
+    texidoc=" Nested tuplets can be printed, using a manual hack to
+  move the outer bracket up."
+
 }
 
 #(define (make-text-checker-once text)
   (lambda (grob) (and text-checker-once
-                     (if (equal? text (ly:get-grob-property grob 'text))
+                     (if (equal? text (ly:grob-property grob 'text))
                          (begin
                            (set! text-checker-once #f) #t)
                          #f))))
@@ -13,13 +19,14 @@
 #(define text-checker-once #t)
 
 \score {
-  \notes\relative c'' {
+    \relative c'' {
 
-    \property Voice.tupletNumberFormatFunction = #fraction-tuplet-formatter
+    \set tupletNumberFormatFunction = #fraction-tuplet-formatter
 
-    \outputproperty #(make-text-checker-once "2:3")
-      #'extra-offset = #'(0 . 1.5)
-    \times 2/3 {
+    \applyoutput #(lambda (gr org cur)
+                  (if (equal? (ly:grob-property gr 'text) "6:4")
+                   (set! (ly:grob-property gr 'extra-offset) '(0 . 1.5))))
+    \times 4/6 {
       \times 2/3 {
         a a a
       }
@@ -28,6 +35,6 @@
       }
     }
   }
-  \paper { raggedright = ##t}
+  \layout { raggedright = ##t}
 }