-#(define ((compound-time one two num) grob)
- (grob-interpret-markup grob
- (markup #:override '(baseline-skip . 0) #:number
- (#:line ((#:column (one num))
- #:vcenter "+"
- (#:column (two num)))))))
-
-\relative c' {
- \override Staff.TimeSignature #'stencil = #(compound-time "2" "3" "8")
- \time 5/8
- \set Staff.beatStructure = #'(2 3)
- c8 d e fis gis
- c8 fis, gis e d
- c8 d e4 gis8