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

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