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