Documentation/snippets/heavily-customized-polymetric-time-signatures.ly

   1 %% DO NOT EDIT this file manually; it is automatically
   2 %% generated from LSR http://lsr.dsi.unimi.it
   3 %% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
   4 %% and then run scripts/auxiliar/makelsr.py
   5 %%
   6 %% This file is in the public domain.
   7 \version "2.17.5"
   8
   9 \header {
  10   lsrtags = "contemporary-notation, percussion, real-music, rhythms"
  11
  12   texidoc = "
  13 Though the polymetric time signature shown was not the most essential
  14 item here, it has been included to show the beat of this piece (which
  15 is the template of a real Balkan song!).
  16
  17 "
  18   doctitle = "Heavily customized polymetric time signatures"
  19 } % begin verbatim
  20
  21
  22 #(define plus (markup #:vcenter "+"))
  23 #(define ((custom-time-signature one two three four five six
  24                                  seven eight nine ten eleven num) grob)
  25    (grob-interpret-markup grob
  26                           (markup #:override '(baseline-skip . 0) #:number
  27                                   (#:line ((#:column (one num)) plus
  28                                            (#:column (two num)) plus
  29                                            (#:column (three num)) plus
  30                                            (#:column (four num)) plus
  31                                            (#:column (five num)) plus
  32                                            (#:column (six num)) plus
  33                                            (#:column (seven num)) plus
  34                                            (#:column (eight num)) plus
  35                                            (#:column (nine num)) plus
  36                                            (#:column (ten num)) plus
  37                                            (#:column (eleven num)))))))
  38 melody = \relative c'' {
  39   \set Staff.instrumentName = #"Bb Sop."
  40   \key g \major
  41   \time #'(3 2 2 3 2 2 2 2 3 2 2) 25/8
  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 }