\version "2.11.62"

compoundTimeTwo = #(define-music-function (parser layout num denom a b)
  (number? number? number? number?)
  #{
    % graphical display
    \override Staff.TimeSignature #'stencil = #ly:text-interface::print
    \override Staff.TimeSignature #'text = #(markup
       #:override '(baseline-skip . 0)
      (#:number #:line(
         #:column(
           (number->string $a)
           (number->string $denom))
         #:vcenter "+"
         #:column(
           (number->string $b)
           (number->string $denom))
      )))

    % measure length + beaming
    \set Timing.timeSignatureFraction = #(cons $num $denom)
    \set Timing.beatLength = #(ly:make-moment 1 $denom 0 1)
    \set Timing.beatGrouping = #(list $a $b)
    \set Timing.measureLength = #(ly:make-moment $num $denom 0 1)
  #})

compoundTimeThree = #(define-music-function (parser layout num denom a b c)
  (number? number? number? number? number?)
  #{
    % graphical display
    \override Staff.TimeSignature #'stencil = #ly:text-interface::print
    \override Staff.TimeSignature #'text = #(markup
       #:override '(baseline-skip . 0)
      (#:number #:line(
         #:column(
           (number->string $a)
           (number->string $denom))
         #:vcenter "+"
         #:column(
           (number->string $b)
           (number->string $denom))
         #:vcenter "+"
         #:column(
           (number->string $c)
           (number->string $denom))
      )))

    % measure length + beaming
    \set Timing.timeSignatureFraction = #(cons $num $denom)
    \set Timing.beatLength = #(ly:make-moment 1 $denom 0 1)
    \set Timing.beatGrouping = #(list $a $b $c)
    \set Timing.measureLength = #(ly:make-moment $num $denom 0 1)
  #})