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