summaryrefslogtreecommitdiff
path: root/scm/script.scm
blob: 733380dbd6644f373047fa8e4bd5b37c334fe603 (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
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
;;;; script.scm -- Script definitions
;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;; 
;;;; (c) 2000--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>

(set! default-script-alist
      (append 
       '(("thumb" .
	  ((script-stencil . (feta . ("thumb"  . "thumb")))
	   (padding . 0.20)	   
	   (direction . 1)))
         ("accent" .
	  ((avoid-slur . around)
	   (padding . 0.20)	   
	   (quantize-position . #t)
	   (script-stencil . (feta . ("sforzato" .  "sforzato")))
	   (side-relative-direction . -1)))
         ("espressivo" .
	  ((avoid-slur . around)
	   (padding . 0.20)	   
	   (quantize-position . #t)
	   (script-stencil . (feta . ("espr" .  "espr")))
	   (side-relative-direction . -1)))	 
	 ("marcato" .
	  ((script-stencil . (feta . ("dmarcato" . "umarcato")))
	   (padding . 0.20)	   
;	   (staff-padding . ())
	   (quantize-position . #t)
	   (side-relative-direction .  -1)))
	 ("staccatissimo" .
	  ((avoid-slur . inside) 
	   (script-stencil . (feta . ("dstaccatissimo" . "ustaccatissimo")))
	   (padding . 0.20)	   
	   (side-relative-direction .  -1)))
	 
	 ("portato" .
	  ((script-stencil . (feta . ("uportato" . "dportato")))
	   (avoid-slur . around)
	   (slur-padding . 0.3)
	   (padding . 0.45)
	   (side-relative-direction . -1)))

	 ("accentus" .
	  ((script-stencil . (feta . ("uaccentus" . "uaccentus")))
	   (side-relative-direction .  -1)
	   (padding . 0.20)	   
	   (quantize-position . #t)
	   (script-priority . -100)
	   (direction  . 1)))
	 ("ictus" .
	  ((script-stencil . (feta . ("ictus" . "ictus")))
	   (side-relative-direction .  -1)
	   (quantize-position . #t)
	   (padding . 0.20)	   
	   (script-priority . -100)
	   (direction  . -1)))
	 ("semicirculus" .
	  ((script-stencil . (feta . ("dsemicirculus" . "dsemicirculus")))
	   (side-relative-direction .  -1)
	   (quantize-position . #t)
	   (padding . 0.20)	   
	   (script-priority . -100)
	   (direction  . 1)))
	 ("circulus" .
	  ((script-stencil . (feta . ("circulus" . "circulus")))
	   (side-relative-direction .  -1)
	   (padding . 0.20)	   
	   (quantize-position . #t)
	   (script-priority . -100)
	   (direction  . 1)))

	 ("signumcongruentiae" .
	  ((script-stencil . (feta . ("dsignumcongruentiae" . "usignumcongruentiae")))
	   (padding . 0.20)	   
	   (direction .  1)))
	 ("fermata" .
	  ((script-stencil . (feta . ("dfermata" . "ufermata")))
	   (padding . 0.20)	   
	   (avoid-slur . around)
	   (script-priority . 4000)
	   (direction .  1)))
	 ("shortfermata" .
	  ((script-stencil . (feta . ("dshortfermata" . "ushortfermata")))
	   (padding . 0.20)	   
	   (direction .  1)))
	 ("longfermata" .
	  ((script-stencil . (feta . ("dlongfermata" . "ulongfermata")))
	   (padding . 0.20)	   
	   (direction .  1)))
	 ("verylongfermata" .
	  ((script-stencil . (feta . ("dverylongfermata" . "uverylongfermata")))
	   (padding . 0.20)	   
	   (direction .  1)))
	 ("stopped" .
	  ((script-stencil . (feta . ("stopped" . "stopped")))
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("staccato" .
	  ((script-stencil . (feta . ("staccato" . "staccato")))
	   (side-relative-direction .  -1)
	   (quantize-position . #t)
	   (avoid-slur . inside) 
	   (padding . 0.20)	   
	   (script-priority . -100)))
	 ("tenuto" .
	  ((script-stencil . (feta . ("tenuto" . "tenuto")))
	   (quantize-position . #t)
	   (avoid-slur . inside)
	   (padding . 0.20)	   
	   (side-relative-direction . -1)))
	 ("comma" .
	  ((script-stencil . (feta . ("lcomma" . "rcomma")))
	   (quantize-position . #t)
	   (padding . 0.20)	   
	   (direction . 1)))
	 ("varcomma" .
	  ((script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
	   (quantize-position . #t)
	   (padding . 0.20)	   
	   (direction . 1)))
	 ("upbow" .
	  ((script-stencil . (feta . ("upbow" . "upbow")))
	   (avoid-slur . around)
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("downbow" .
	  ((script-stencil . (feta . ("downbow" . "downbow")))
	   (padding . 0.20)	   
	   (avoid-slur . around)
	   (direction  . 1)))
	 ("lheel" .
	  ((script-stencil . (feta . ("upedalheel" . "upedalheel")))
	   (padding . 0.20)	   
	   (direction .  -1))
	  )
	 ("rheel" .
	  ((script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("ltoe" .
	  ((script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
	   (padding . 0.20)	   
	   (direction  . -1)))
	 ("rtoe" .
	  ((script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("turn" .
	  ((script-stencil . (feta . ("turn" . "turn")))
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("open" .
	  ((avoid-slur . outside)
	   (padding . 0.20)	   
	   (script-stencil . (feta . ("open" . "open")))
	   (direction  . 1)))
	 ("flageolet" .
	  ((script-stencil . (feta . ("flageolet" . "flageolet")))
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("reverseturn" .
	  ((script-stencil . (feta . ("reverseturn" . "reverseturn")))
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("trill" .
	  ((script-stencil . (feta . ("trill" . "trill")))
	   (direction . 1)
	   (padding . 0.20)	   
	   (avoid-slur . outside)
	   (script-priority . 2000)))
	 ("prall" .
	  ((script-stencil . (feta . ("prall" . "prall")))
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("mordent" .
	  ((script-stencil . (feta . ("mordent" . "mordent")))
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("prallprall" .
	  ((script-stencil . (feta . ("prallprall" . "prallprall")))
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("prallmordent" .
	  ((script-stencil . (feta . ("prallmordent" . "prallmordent")))
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("upprall" .
	  ((script-stencil . (feta . ("upprall" . "upprall")))
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("downprall" .
	  ((script-stencil . (feta . ("downprall" . "downprall")))
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("upmordent" .
	  ((script-stencil . (feta . ("upmordent" . "upmordent")))
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("downmordent" .
	  ((script-stencil . (feta . ("downmordent" . "downmordent")))
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("lineprall" .
	  ((script-stencil . (feta . ("lineprall" . "lineprall")))
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("pralldown" .
	  ((script-stencil . (feta . ("pralldown" . "pralldown")))
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("prallup" .
	  ((script-stencil . (feta . ("prallup" . "prallup")))
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("segno" .
	  ((script-stencil . (feta . ("segno" . "segno")))
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("coda" .
	  ((script-stencil . (feta . ("coda" . "coda")))
	   (padding . 0.20)	   
	   (direction  . 1)))
	 ("varcoda" .
	  ((script-stencil . (feta . ("varcoda" . "varcoda")))
	   (padding . 0.20)	   
	   (direction  . 1))))
       default-script-alist)
      )