input/lsr/education/heavily-customized-polymetric-time-signatures.ly

   1 %%  Do not edit this file; it is auto-generated from LSR!
   2 \version "2.11.23"
   3
   4 \header { texidoc = "
   5 Though the set-time-signature thing was not the most essential here, it
   6 has been included to show the beat of this piece (which is a template
   7 of a real balkan song!).
   8 " }
   9
  10 #(define (compound-time one two three four five six seven eight nine ten num)
  11   (markup #:override '(baseline-skip . 0) #:number
  12    (#:line ((#:column (one num)) #:vcenter "+" (#:column (two num)) #:vcenter "+" (#:column (three num)) #:vcenter "+" (#:column (four num)) #:vcenter "+" (#:column (five num)) #:vcenter "+" (#:column (six num)) #:vcenter "+" (#:column (seven num)) #:vcenter "+" (#:column (eight num)) #:vcenter "+" (#:column (nine num)) #:vcenter "+" (#:column (ten num))))))
  13
  14
  15 melody =
  16 {         \relative c'' {
  17         \set Staff.instrumentName = "Bb Sop."
  18         \key g \major \time 25/8
  19           \override Staff.TimeSignature #'stencil = #ly:text-interface::print
  20   \override Staff.TimeSignature #'text = #(compound-time "3" "2" "2" "3" "2" "2" "2" "3" "2" "2" "8" )
  21         c8[ c c] d4 c8[ c] b[ c b] a4 g fis8[ e d c] b'[ c d] e4-^ fis8[ g] | \break
  22         c,4. d4 c4 d4. c4 d c2 d4. e4-^ d4 |
  23         c4. d4 c4 d4. c4 d c2 d4. e4-^ d4 | \break
  24         c4. d4 c4 d4. c4 d c2 d4. e4-^ d4 |
  25         c4. d4 c4 d4. c4 d c2 d4. e4-^ d4 | \break }
  26 }
  27 drum = {
  28         \new DrumStaff \drummode
  29         {
  30                 \bar "|:" bd4. ^\markup { "Drums" } sn4 bd \bar ":" sn4. bd4 sn \bar ":"
  31                 bd sn bd4. sn4 bd \bar ":|"
  32         }
  33 }
  34
  35 {
  36  \melody
  37  \drum
  38 }