input/new/heavily-customized-polymetric-time-signatures.ly

   1 \version "2.12.0"
   2
   3 \header {
   4   lsrtags = "rhythms, percussion"
   5
   6   texidoc = "
   7 Though the polymetric time signature shown was not the most essential
   8 item here, it has been included to show the beat of this piece (which
   9 is the template of a real Balkan song!).
  10
  11 "
  12   doctitle = "Heavily customized polymetric time signatures"
  13 }
  14
  15 #(define plus (markup #:vcenter "+"))
  16 #(define ((custom-time-signature one two three four five six
  17            seven eight nine ten eleven num) grob)
  18             (grob-interpret-markup grob
  19               (markup #:override '(baseline-skip . 0) #:number
  20                 (#:line (
  21                     (#:column (one num)) plus
  22                     (#:column (two num)) plus
  23                     (#:column (three num)) plus
  24                     (#:column (four num)) plus
  25                     (#:column (five num)) plus
  26                     (#:column (six num)) plus
  27                     (#:column (seven num)) plus
  28                     (#:column (eight num)) plus
  29                     (#:column (nine num)) plus
  30                     (#:column (ten num)) plus
  31                     (#:column (eleven num))))
  32                 )))
  33
  34 melody = \relative c'' {
  35   \set Staff.instrumentName = #"Bb Sop."
  36   \key g \major
  37   #(set-time-signature 25 8 '(3 2 2 3 2 2 2 2 3 2 2))
  38   \override Staff.TimeSignature #'stencil =
  39     #(custom-time-signature "3" "2" "2" "3" "2" "2"
  40       "2" "2" "3" "2" "2" "8")
  41   c8 c c d4 c8 c b c b a4 g fis8 e d c b' c d e4-^ fis8 g \break
  42   c,4. d4 c4 d4. c4 d c2 d4. e4-^ d4
  43   c4. d4 c4 d4. c4 d c2 d4. e4-^ d4 \break
  44   c4. d4 c4 d4. c4 d c2 d4. e4-^ d4
  45   c4. d4 c4 d4. c4 d c2 d4. e4-^ d4 \break
  46 }
  47
  48 drum = \new DrumStaff \drummode {
  49   \bar "|:" bd4.^\markup { "Drums" } sn4 bd \bar ":" sn4.
  50   bd4 sn \bar ":" bd sn bd4. sn4 bd \bar ":|"
  51 }
  52
  53 {
  54   \melody
  55   \drum
  56 }