]> git.donarmstrong.com Git - lilypond.git/blob - ly/spanners-init.ly
Translation: Some more German translations
[lilypond.git] / ly / spanners-init.ly
1 \version "2.11.52"
2
3 startGroup = #(make-span-event 'NoteGroupingEvent START)
4 stopGroup = #(make-span-event 'NoteGroupingEvent STOP)
5
6
7 cr = #(make-span-event 'CrescendoEvent START)
8 decr = #(make-span-event 'DecrescendoEvent START)
9 enddecr = #(make-span-event 'DecrescendoEvent STOP)
10 endcr = #(make-span-event 'CrescendoEvent STOP) 
11
12
13 startTextSpan = #(make-span-event 'TextSpanEvent START)
14 stopTextSpan = #(make-span-event 'TextSpanEvent STOP)
15
16
17 startTrillSpan = #(make-span-event 'TrillSpanEvent START)
18 stopTrillSpan = #(make-span-event 'TrillSpanEvent STOP)
19
20
21 % STOP: junkme!
22 cresc =  {
23   #(ly:export (make-event-chord (list cr)))
24   \set crescendoText = \markup { \italic "cresc." }
25   \set crescendoSpanner = #'text
26 }
27
28
29 dim =  {
30   #(ly:export (make-event-chord (list decr)))
31
32   \set decrescendoText = \markup { \italic "dim." }
33   \set decrescendoSpanner = #'text
34 }
35
36 enddim =  {
37   #(ly:export (make-event-chord (list enddecr)))
38   \unset decrescendoText 
39   \unset decrescendoSpanner 
40 }
41
42 % ah, this is handy: maybe drop resetting of properties in
43 % dynamic-engraver ?
44 endcresc =  {
45   #(ly:export (make-event-chord (list endcr)))
46   \unset crescendoText 
47   \unset crescendoSpanner 
48 }
49
50 %%%%%%%%%%%%%%%%
51
52 crescTextCresc = {
53     \set crescendoText = \markup { \italic "cresc." }
54     \set crescendoSpanner = #'text
55     \override DynamicTextSpanner #'style = #'dashed-line
56 }
57
58 dimTextDecresc = {
59     \set decrescendoText = \markup { \italic "decresc." }
60     \set decrescendoSpanner = #'text
61     \override DynamicTextSpanner #'style = #'dashed-line
62 }
63
64 dimTextDecr = {
65     \set decrescendoText = \markup { \italic "decr." }
66     \set decrescendoSpanner = #'text
67     \override DynamicTextSpanner #'style = #'dashed-line
68 }
69
70 dimTextDim = {
71     \set decrescendoText = \markup { \italic "dim." }
72     \set decrescendoSpanner = #'text
73     \override DynamicTextSpanner #'style = #'dashed-line
74 }
75
76 crescHairpin = {
77     \unset crescendoText 
78     \unset crescendoSpanner 
79 }
80
81 dimHairpin = {
82     \unset decrescendoText 
83     \unset decrescendoSpanner 
84 }
85
86
87 sustainOff = #(make-span-event 'SustainEvent STOP)
88 sustainOn = #(make-span-event 'SustainEvent START)
89
90 unaCorda = #(make-span-event 'UnaCordaEvent START)
91 treCorde = #(make-span-event 'UnaCordaEvent STOP)
92
93 sostenutoOn = #(make-span-event 'SostenutoEvent START)
94 sostenutoOff = #(make-span-event 'SostenutoEvent STOP)
95
96 %crescpoco = \set crescendoText = "cresc. poco a poco"
97 %decresc = \set crescendoText = "decr."
98 %dim = \set crescendoText = "dim."
99
100 newSpacingSection = #(make-event-chord (list (make-music 'SpacingSectionEvent)))