]> git.donarmstrong.com Git - lilypond.git/blob - input/test/script-horizontal.ly
release: 1.3.137
[lilypond.git] / input / test / script-horizontal.ly
1 %{
2
3 Please don't use this Scheme hacking unless you have a good reason.
4
5 %}
6         
7 \score {
8         \notes \context Voice <
9                 \context Thread = TA { c'4_1 }
10                 \context Thread = TB {
11                         \property Thread.scriptHorizontal = ##t
12                         \property Thread.TextScript \set #'extra-offset = #'(-0.5 . -0.5)
13                         \property Thread.Script \set #'extra-offset = #'(2.25 . -0.5)
14                 e'4-2^\prall }
15                 \context Thread = TC { g'4^4 }
16         >
17         
18         \paper { \translator {
19                 \VoiceContext
20                 \remove Script_engraver;
21                 \remove Text_engraver;
22                 }
23                 \translator {
24                 \ThreadContext
25                 \consists Script_engraver;
26                 \consists Text_engraver;                
27                 }
28         }
29 }