]> git.donarmstrong.com Git - lilypond.git/blob - ly/spanners-init.ly
Doc-es: update Programming interface, Changing defaults, Editorial.
[lilypond.git] / ly / spanners-init.ly
1 \version "2.16.0"
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 startMeasureCount = #(make-span-event 'MeasureCounterEvent START)
14 stopMeasureCount = #(make-span-event 'MeasureCounterEvent STOP)
15
16
17 startTextSpan = #(make-span-event 'TextSpanEvent START)
18 stopTextSpan = #(make-span-event 'TextSpanEvent STOP)
19
20
21 startTrillSpan = #(make-span-event 'TrillSpanEvent START)
22 stopTrillSpan = #(make-span-event 'TrillSpanEvent STOP)
23
24
25 episemInitium = #(make-span-event 'EpisemaEvent START)
26 episemFinis = #(make-span-event 'EpisemaEvent STOP)
27
28
29 cresc = #(make-music 'CrescendoEvent 'span-direction START 'span-type 'text 'span-text "cresc.")
30 endcresc =  #(make-span-event 'CrescendoEvent STOP)
31 dim = #(make-music 'DecrescendoEvent 'span-direction START 'span-type 'text 'span-text "dim.")
32 enddim =  #(make-span-event 'DecrescendoEvent STOP)
33 decresc = #(make-music 'DecrescendoEvent 'span-direction START 'span-type 'text 'span-text "decresc.")
34 enddecresc =  #(make-span-event 'DecrescendoEvent STOP)
35
36 % Deprecated functions:
37 % TODO: DEPRECATED_2_13_19
38 deprecatedcresc =  {
39   $(make-event-chord (list cr))
40   \once \set crescendoText = \markup { \italic "cresc." }
41   \once \set crescendoSpanner = #'text
42 }
43
44
45 deprecateddim =  {
46   $(make-event-chord (list decr))
47   \once \set decrescendoText = \markup { \italic "dim." }
48   \once \set decrescendoSpanner = #'text
49 }
50
51 deprecatedenddim =  {
52   $(make-event-chord (list enddecr))
53 %  \unset decrescendoText 
54 %  \unset decrescendoSpanner 
55 }
56
57 deprecatedendcresc =  {
58   $(make-event-chord (list endcr))
59 %  \unset crescendoText 
60 %  \unset crescendoSpanner 
61 }
62
63
64 %%%%%%%%%%%%%%%%
65
66 crescTextCresc = {
67     \set crescendoText = \markup { \italic "cresc." }
68     \set crescendoSpanner = #'text
69 }
70
71 dimTextDecresc = {
72     \set decrescendoText = \markup { \italic "decresc." }
73     \set decrescendoSpanner = #'text
74 }
75
76 dimTextDecr = {
77     \set decrescendoText = \markup { \italic "decr." }
78     \set decrescendoSpanner = #'text
79 }
80
81 dimTextDim = {
82     \set decrescendoText = \markup { \italic "dim." }
83     \set decrescendoSpanner = #'text
84 }
85
86 crescHairpin = {
87     \unset crescendoText 
88     \unset crescendoSpanner 
89 }
90
91 dimHairpin = {
92     \unset decrescendoText 
93     \unset decrescendoSpanner 
94 }
95
96
97 sustainOff = #(make-span-event 'SustainEvent STOP)
98 sustainOn = #(make-span-event 'SustainEvent START)
99
100 unaCorda = #(make-span-event 'UnaCordaEvent START)
101 treCorde = #(make-span-event 'UnaCordaEvent STOP)
102
103 sostenutoOn = #(make-span-event 'SostenutoEvent START)
104 sostenutoOff = #(make-span-event 'SostenutoEvent STOP)
105
106 %crescpoco = \set crescendoText = "cresc. poco a poco"
107 %decresc = \set crescendoText = "decr."
108 %dim = \set crescendoText = "dim."
109
110 newSpacingSection = #(make-event-chord (list (make-music 'SpacingSectionEvent)))
111
112 breakDynamicSpan = #(make-music 'BreakDynamicSpanEvent)