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 polymetric time signature shown was not the most essential
   9 item here, it has been included to show the beat of this piece (which
  10 is the template of a real Balkan song!).
  11 " }
  12 % begin verbatim
  13 #(define (set-time-signature one two three four five six seven eight nine ten
  14 eleven num)
  15  (markup #:override '(baseline-skip . 0) #:number
  16   (#:line ((#:column (one num)) #:vcenter "+" (#:column (two num))
  17 #:vcenter "+" (#:column (three num)) #:vcenter "+" (#:column (four num))
  18 #:vcenter "+" (#:column (five num)) #:vcenter "+" (#:column (six num))
  19 #:vcenter "+" (#:column (seven num)) #:vcenter "+" (#:column (eight
  20 num)) #:vcenter "+" (#:column (nine num)) #:vcenter "+" (#:column (ten
  21 num)) #:vcenter "+" (#:column (eleven num))))))
  22
  23
  24 melody =
  25 {         \relative c'' {
  26        \set Staff.instrumentName = "Bb Sop."
  27        \key g \major \time 25/8
  28      \override Staff.TimeSignature #'stencil = #ly:text-interface::print
  29  \override Staff.TimeSignature #'text = #(set-time-signature "3" "2" "2" "3"
  30 "2" "2" "2" "2 " "3" "2" "2" "8" )
  31        \set Staff.beatGrouping = #'(3 2 2 3 2 2 2 2 3 2 2)
  32        #(override-auto-beam-setting '(end * * 25 8) 3 8)
  33        #(override-auto-beam-setting '(end * * 25 8) 5 8)
  34        #(override-auto-beam-setting '(end * * 25 8) 7 8)
  35        #(override-auto-beam-setting '(end * * 25 8) 10 8)
  36        #(override-auto-beam-setting '(end * * 25 8) 12 8)
  37        #(override-auto-beam-setting '(end * * 25 8) 14 8)
  38        #(override-auto-beam-setting '(end * * 25 8) 16 8)
  39        #(override-auto-beam-setting '(end * * 25 8) 18 8)
  40        #(override-auto-beam-setting '(end * * 25 8) 21 8)
  41        #(override-auto-beam-setting '(end * * 25 8) 23 8)
  42
  43        c8 c c d4 c8 c b c b a4 g fis8 e d c b' c d e4-^ fis8 g | \break
  44        c,4. d4 c4 d4. c4 d c2 d4. e4-^ d4 |
  45        c4. d4 c4 d4. c4 d c2 d4. e4-^ d4 | \break
  46        c4. d4 c4 d4. c4 d c2 d4. e4-^ d4 |
  47        c4. d4 c4 d4. c4 d c2 d4. e4-^ d4 | \break }
  48 }
  49 drum = {
  50        \new DrumStaff \drummode
  51        {
  52                \bar "|:" bd4. ^\markup { "Drums" } sn4 bd \bar ":" sn4.
  53 bd4 sn \bar ":"
  54                bd sn bd4. sn4 bd \bar ":|"
  55        }
  56 }
  57
  58 {
  59  \melody
  60  \drum
  61 }