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

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