From 67a587e3ed4182eddaa01ac4f236e3c9822f0bd4 Mon Sep 17 00:00:00 2001 From: Mats Bengtsson Date: Wed, 3 Jan 2007 10:49:22 +0100 Subject: [PATCH] Simplified! Also, conforms better to the example in the manual. --- input/test/compound-time.ly | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) diff --git a/input/test/compound-time.ly b/input/test/compound-time.ly index 525c5a776b..efaeff16e0 100644 --- a/input/test/compound-time.ly +++ b/input/test/compound-time.ly @@ -12,20 +12,16 @@ compound time. \layout{ragged-right = ##t} -#(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))))) +#(define (compound-time one two num) + (markup #:override '(baseline-skip . 2) #:number + (#:line ((#:column (one num)) #:lower 1 "+" (#:column (two num)))))) + \relative { %% compound time signature hack \time 5/8 - \override Staff.TimeSignature #'stencil - = #(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 } -- 2.39.2