-%% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
+%% Do not edit this file; it is auto-generated from input/new
%% This file is in the public domain.
-\version "2.11.38"
+\version "2.12.0"
\header {
lsrtags = "rhythms, percussion"
- texidoc = "
-Though the set-time-signature thing was not the most essential here, it
-has been included to show the beat of this piece (which is a template
-of a real balkan song!).
-" }
-% begin verbatim
-#(define (compound-time one two three four five six seven eight nine ten num)
- (markup #:override '(baseline-skip . 0) #:number
- (#:line ((#:column (one num)) #:vcenter "+" (#:column (two num)) #:vcenter "+" (#:column (three num)) #:vcenter "+" (#:column (four num)) #:vcenter "+" (#:column (five num)) #:vcenter "+" (#:column (six num)) #:vcenter "+" (#:column (seven num)) #:vcenter "+" (#:column (eight num)) #:vcenter "+" (#:column (nine num)) #:vcenter "+" (#:column (ten num))))))
-
-
-melody =
-{ \relative c'' {
- \set Staff.instrumentName = "Bb Sop."
- \key g \major \time 25/8
- \override Staff.TimeSignature #'stencil = #ly:text-interface::print
- \override Staff.TimeSignature #'text = #(compound-time "3" "2" "2" "3" "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 }
+
+ 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
+ #(set-time-signature 25 8 '(3 2 2 3 2 2 2 2 3 2 2))
+ \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 ":|"
- }
+
+drum = \new DrumStaff \drummode {
+ \bar "|:" bd4.^\markup { "Drums" } sn4 bd \bar ":" sn4.
+ bd4 sn \bar ":" bd sn bd4. sn4 bd \bar ":|"
}
{
- \melody
- \drum
+ \melody
+ \drum
}