Documentation/snippets/heavily-customized-polymetric-time-signatures.ly

   1 %% Do not edit this file; it is automatically
   2 %% generated from LSR http://lsr.dsi.unimi.it
   3 %% This file is in the public domain.
   4 \version "2.13.20"
   5
   6 \header {
   7   lsrtags = "rhythms, percussion"
   8
   9   texidoc = "
  10 Though the polymetric time signature shown was not the most essential
  11 item here, it has been included to show the beat of this piece (which
  12 is the template of a real Balkan song!).
  13
  14 "
  15   doctitle = "Heavily customized polymetric time signatures"
  16 } % begin verbatim
  17
  18 #(define plus (markup #:vcenter "+"))
  19 #(define ((custom-time-signature one two three four five six
  20                                  seven eight nine ten eleven num) grob)
  21    (grob-interpret-markup grob
  22                           (markup #:override '(baseline-skip . 0) #:number
  23                                   (#:line ((#:column (one num)) plus
  24                                            (#:column (two num)) plus
  25                                            (#:column (three num)) plus
  26                                            (#:column (four num)) plus
  27                                            (#:column (five num)) plus
  28                                            (#:column (six num)) plus
  29                                            (#:column (seven num)) plus
  30                                            (#:column (eight num)) plus
  31                                            (#:column (nine num)) plus
  32                                            (#:column (ten num)) plus
  33                                            (#:column (eleven num)))))))
  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 }
  57