* input/mutopia/W.A.Mozart/mozart-hrn-3.ly: Mozart died in 1791

[lilypond.git] / input / test / time-signature-double.ly

diff --git a/input/test/time-signature-double.ly b/input/test/time-signature-double.ly
index 7d2cae58bca984447e37e391726508a22bc228a7..64b7c2f2174678d9293b55842c01f40f43467ea2 100644 (file)
--- a/input/test/time-signature-double.ly
+++ b/input/test/time-signature-double.ly
@@ -1,55 +1,35 @@
 
-\header {
+\version "2.1.30"
 
+\header { texidoc= "
 
-texidoc= "Double time signatures are not supported
-explicitly, but can be faked by overriding formatting routines. "
+@cindex Double time signature
+@cindex markup
+@cindex Time signature, double.
 
-}
-\version "1.7.14"
 
+Double time
+signatures are not supported explicitly, but they can be faked with 
+markups and overriding formatting routines. " }
 
-#(define (brew-double-time-sig grob)
-  (define (frac-to-mol font frac)
-    (let*
-       (
-        (d (fontify-text font (number->string (cdr frac))))
-        (n (fontify-text font (number->string (car frac))))
-        (c (ly:molecule-combine-at-edge d Y UP n 0.0))
-        )
-      (ly:molecule-align-to! c Y CENTER)
-      c
-    ))
-  
-  (let*
-      
-    (
-     (chain (Font_interface::get_property_alist_chain grob))
-     (font (ly:get-font grob chain))
-     (f1 '(6 . 4))
-     (musfont (ly:get-font grob (cons (list '(font-relative-size . 2) '(font-family . music)) chain)))
-     (plus (ly:molecule-translate-axis (ly:find-glyph-by-name musfont "scripts-stopped") 0.1 Y))
-     (f2 '(3 . 2))
-     (m1 (frac-to-mol font f1))
-     (m2 (frac-to-mol font f2))
-     )
-     
-    
-    (ly:molecule-combine-at-edge
-     (ly:molecule-combine-at-edge m1 X RIGHT plus 0.2)
-     X RIGHT m2  0.2)
-    
-    )
-)
-
+tsMarkup =
+\markup  {
+    \number { 
+    \column < "6" "4" >
+    \musicglyph #"scripts-stopped" 
+    \bracket \column < "3" "2" >
+    }}
+       
 
 \score  { \notes \relative c'
          {
-          \property Staff.TimeSignature \override #'molecule-callback = #brew-double-time-sig
+          \override Staff.TimeSignature  #'print-function = #Text_item::print
+          \override Staff.TimeSignature  #'text = #tsMarkup
+          
+          
           \time 3/2
           c2 c c 
           
-          }
-
-         }
-         
+   }
+       \paper{ raggedright = ##t}
+}