blob: 756a55579e377935ab3b7242db358a54eb499576 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
\version "2.19.29"
"\\=" =
#(define-event-function (id event) (number-or-string? ly:event?)
(_i "This sets the @code{spanner-id} property of the following
@var{event} to the given @var{id} (numbers will be converted to a
string). This can be used to tell LilyPond how to connect overlapping
or parallel slurs or phrasing slurs within a single @code{Voice}.
@lilypond[quote,verbatim]
\\fixed c' { c\\=1( d\\=2( e\\=1) f\\=2) }
@end lilypond\n")
(set! (ly:music-property event 'spanner-id)
(if (number? id)
(number->string id)
id))
event)
startGroup = #(make-span-event 'NoteGroupingEvent START)
stopGroup = #(make-span-event 'NoteGroupingEvent STOP)
cr = #(make-span-event 'CrescendoEvent START)
decr = #(make-span-event 'DecrescendoEvent START)
enddecr = #(make-span-event 'DecrescendoEvent STOP)
endcr = #(make-span-event 'CrescendoEvent STOP)
startMeasureCount = #(make-span-event 'MeasureCounterEvent START)
stopMeasureCount = #(make-span-event 'MeasureCounterEvent STOP)
startTextSpan = #(make-span-event 'TextSpanEvent START)
stopTextSpan = #(make-span-event 'TextSpanEvent STOP)
startTrillSpan = #(make-span-event 'TrillSpanEvent START)
stopTrillSpan = #(make-span-event 'TrillSpanEvent STOP)
episemInitium = #(make-span-event 'EpisemaEvent START)
episemFinis = #(make-span-event 'EpisemaEvent STOP)
cresc = #(make-music 'CrescendoEvent 'span-direction START 'span-type 'text 'span-text "cresc.")
endcresc = #(make-span-event 'CrescendoEvent STOP)
dim = #(make-music 'DecrescendoEvent 'span-direction START 'span-type 'text 'span-text "dim.")
enddim = #(make-span-event 'DecrescendoEvent STOP)
decresc = #(make-music 'DecrescendoEvent 'span-direction START 'span-type 'text 'span-text "decresc.")
enddecresc = #(make-span-event 'DecrescendoEvent STOP)
% Deprecated functions:
% TODO: DEPRECATED_2_13_19
deprecatedcresc = {
$(make-event-chord (list cr))
\once \set crescendoText = \markup { \italic "cresc." }
\once \set crescendoSpanner = #'text
}
deprecateddim = {
$(make-event-chord (list decr))
\once \set decrescendoText = \markup { \italic "dim." }
\once \set decrescendoSpanner = #'text
}
deprecatedenddim = {
$(make-event-chord (list enddecr))
% \unset decrescendoText
% \unset decrescendoSpanner
}
deprecatedendcresc = {
$(make-event-chord (list endcr))
% \unset crescendoText
% \unset crescendoSpanner
}
%%%%%%%%%%%%%%%%
crescTextCresc = {
\set crescendoText = \markup { \italic "cresc." }
\set crescendoSpanner = #'text
}
dimTextDecresc = {
\set decrescendoText = \markup { \italic "decresc." }
\set decrescendoSpanner = #'text
}
dimTextDecr = {
\set decrescendoText = \markup { \italic "decr." }
\set decrescendoSpanner = #'text
}
dimTextDim = {
\set decrescendoText = \markup { \italic "dim." }
\set decrescendoSpanner = #'text
}
crescHairpin = {
\unset crescendoText
\unset crescendoSpanner
}
dimHairpin = {
\unset decrescendoText
\unset decrescendoSpanner
}
sustainOff = #(make-span-event 'SustainEvent STOP)
sustainOn = #(make-span-event 'SustainEvent START)
unaCorda = #(make-span-event 'UnaCordaEvent START)
treCorde = #(make-span-event 'UnaCordaEvent STOP)
sostenutoOn = #(make-span-event 'SostenutoEvent START)
sostenutoOff = #(make-span-event 'SostenutoEvent STOP)
%crescpoco = \set crescendoText = "cresc. poco a poco"
%decresc = \set crescendoText = "decr."
%dim = \set crescendoText = "dim."
newSpacingSection = #(make-event-chord (list (make-music 'SpacingSectionEvent)))
breakDynamicSpan = #(make-music 'BreakDynamicSpanEvent)
|
