]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/apply-context.ly
*** empty log message ***
[lilypond.git] / input / regression / apply-context.ly
1 \version "1.7.23"
2
3
4 \header {
5
6 texidoc = "with \\applycontext, \\properties can be modified
7 procedurally. Applications include: checking bar numbers, smart
8 octavation. "
9
10 }
11
12 \score { \notes \relative c'' {
13     c1 c1
14
15     %% todo: should put something interesting in the .tex output.
16     
17     \applycontext
18         #(lambda (tr)
19          (format #t "\nWe were called in barnumber ~a.\n"
20           (ly:get-context-property tr 'currentBarNumber)))
21     c1 c1
22 }}