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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

%% DO NOT EDIT this file manually; it is automatically
%% generated from LSR http://lsr.dsi.unimi.it
%% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
\version "2.17.6"

\header {
  lsrtags = "contemporary-notation, percussion, real-music, rhythms"

  texidoc = "
Though the polymetric time signature shown was not the most essential
item here, it has been included to show the beat of this piece (which
is the template of a real Balkan song!).

"
  doctitle = "Heavily customized polymetric time signatures"
} % begin verbatim


#(define plus (markup #:vcenter "+"))
#(define ((custom-time-signature one two three four five six
                                 seven eight nine ten eleven num) grob)
   (grob-interpret-markup grob
                          (markup #:override '(baseline-skip . 0) #:number
                                  (#:line ((#:column (one num)) plus
                                           (#:column (two num)) plus
                                           (#:column (three num)) plus
                                           (#:column (four num)) plus
                                           (#:column (five num)) plus
                                           (#:column (six num)) plus
                                           (#:column (seven num)) plus
                                           (#:column (eight num)) plus
                                           (#:column (nine num)) plus
                                           (#:column (ten num)) plus
                                           (#:column (eleven num)))))))
melody = \relative c'' {
  \set Staff.instrumentName = #"Bb Sop."
  \key g \major
  \time #'(3 2 2 3 2 2 2 2 3 2 2) 25/8
  \override Staff.TimeSignature.stencil =
    #(custom-time-signature "3" "2" "2" "3" "2" "2"
      "2" "2" "3" "2" "2" "8")
  c8 c c d4 c8 c b c b a4 g fis8 e d c b' c d e4-^ fis8 g \break
  c,4. d4 c4 d4. c4 d c2 d4. e4-^ d4
  c4. d4 c4 d4. c4 d c2 d4. e4-^ d4 \break
  c4. d4 c4 d4. c4 d c2 d4. e4-^ d4
  c4. d4 c4 d4. c4 d c2 d4. e4-^ d4 \break
}

drum = \new DrumStaff \drummode {
  \bar ".|:" bd4.^\markup { Drums } sn4 bd \bar ";" sn4.
  bd4 sn \bar ";" bd sn bd4. sn4 bd \bar ":|."
}

{
  \melody
  \drum
}