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.15.40"
   8
   9 \header {
  10   lsrtags = "contemporary-notation, rhythms, real-music, percussion"
  11
  12 %% Translation of GIT committish: 57f9346bb030f49336a858fcbf1519366fe56454
  13   texidocfr = "
  14 Bien que la métrique complexe ne soit pas l'élément primordial de cet
  15 exemple, elle permet d'indiquer la pulsation de cette pièce qui, par
  16 ailleurs, constitue le canevas d'une chanson traditionnelle des
  17 Balkans.
  18
  19 "
  20   doctitlefr = "Indication personnalisée d'une polymétrie complexe"
  21
  22   texidoc = "
  23 Though the polymetric time signature shown was not the most essential
  24 item here, it has been included to show the beat of this piece (which
  25 is the template of a real Balkan song!).
  26
  27 "
  28   doctitle = "Heavily customized polymetric time signatures"
  29 } % begin verbatim
  30
  31
  32 #(define plus (markup #:vcenter "+"))
  33 #(define ((custom-time-signature one two three four five six
  34                                  seven eight nine ten eleven num) grob)
  35    (grob-interpret-markup grob
  36                           (markup #:override '(baseline-skip . 0) #:number
  37                                   (#:line ((#:column (one num)) plus
  38                                            (#:column (two num)) plus
  39                                            (#:column (three num)) plus
  40                                            (#:column (four num)) plus
  41                                            (#:column (five num)) plus
  42                                            (#:column (six num)) plus
  43                                            (#:column (seven num)) plus
  44                                            (#:column (eight num)) plus
  45                                            (#:column (nine num)) plus
  46                                            (#:column (ten num)) plus
  47                                            (#:column (eleven num)))))))
  48 melody = \relative c'' {
  49   \set Staff.instrumentName = #"Bb Sop."
  50   \key g \major
  51   \time #'(3 2 2 3 2 2 2 2 3 2 2) 25/8
  52   \override Staff.TimeSignature #'stencil =
  53     #(custom-time-signature "3" "2" "2" "3" "2" "2"
  54       "2" "2" "3" "2" "2" "8")
  55   c8 c c d4 c8 c b c b a4 g fis8 e d c b' c d e4-^ fis8 g \break
  56   c,4. d4 c4 d4. c4 d c2 d4. e4-^ d4
  57   c4. d4 c4 d4. c4 d c2 d4. e4-^ d4 \break
  58   c4. d4 c4 d4. c4 d c2 d4. e4-^ d4
  59   c4. d4 c4 d4. c4 d c2 d4. e4-^ d4 \break
  60 }
  61
  62 drum = \new DrumStaff \drummode {
  63   \bar "|:" bd4.^\markup { Drums } sn4 bd \bar ":" sn4.
  64   bd4 sn \bar ":" bd sn bd4. sn4 bd \bar ":|"
  65 }
  66
  67 {
  68   \melody
  69   \drum
  70 }
  71