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

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