1 ;;;; script.scm -- Script definitions
3 ;;;; source file of the GNU LilyPond music typesetter
5 ;;;; (c) 2000--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
7 (define-public default-script-alist
13 (quantize-position . #t)
14 (script-stencil . (feta . ("sforzato" . "sforzato")))
15 (side-relative-direction . ,DOWN)))
18 (script-stencil . (feta . ("uaccentus" . "uaccentus")))
19 (side-relative-direction . ,DOWN)
22 (quantize-position . #t)
23 (script-priority . -100)
29 (script-stencil . (feta . ("circulus" . "circulus")))
30 (side-relative-direction . ,DOWN)
33 (quantize-position . #t)
34 (script-priority . -100)
38 (script-stencil . (feta . ("coda" . "coda")))
40 (avoid-slur . outside)
44 (script-stencil . (feta . ("lcomma" . "rcomma")))
45 (quantize-position . #t)
53 (script-stencil . (feta . ("downbow" . "downbow")))
59 (script-stencil . (feta . ("downmordent" . "downmordent")))
65 (script-stencil . (feta . ("downprall" . "downprall")))
75 (quantize-position . #t)
76 (script-stencil . (feta . ("espr" . "espr")))
77 (side-relative-direction . ,DOWN)))
82 (script-stencil . (feta . ("dfermata" . "ufermata")))
85 (script-priority . 4000)
89 (script-stencil . (feta . ("flageolet" . "flageolet")))
91 (avoid-slur . around) ;guessing?
97 (script-stencil . (feta . ("ictus" . "ictus")))
98 (side-relative-direction . ,DOWN)
99 (quantize-position . #t)
100 (avoid-slur . ignore)
102 (script-priority . -100)
103 (direction . ,DOWN)))
108 (script-stencil . (feta . ("upedalheel" . "upedalheel")))
110 (avoid-slur . around) ;guessing?
111 (direction . ,DOWN)))
114 (script-stencil . (feta . ("lineprall" . "lineprall")))
116 (avoid-slur . around)
120 (script-stencil . (feta . ("dlongfermata" . "ulongfermata")))
122 (avoid-slur . around)
126 (script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
128 (avoid-slur . around) ;guessing?
129 (direction . ,DOWN)))
134 (script-stencil . (feta . ("dmarcato" . "umarcato")))
136 (avoid-slur . inside)
137 ;;(staff-padding . ())
138 (quantize-position . #t)
139 (side-relative-direction . ,DOWN)))
142 (script-stencil . (feta . ("mordent" . "mordent")))
144 (avoid-slur . around)
150 (avoid-slur . outside)
152 (script-stencil . (feta . ("open" . "open")))
158 (script-stencil . (feta . ("uportato" . "dportato")))
159 (avoid-slur . around)
162 (side-relative-direction . ,DOWN)))
165 (script-stencil . (feta . ("prall" . "prall")))
167 (avoid-slur . around)
171 (script-stencil . (feta . ("pralldown" . "pralldown")))
173 (avoid-slur . around)
177 (script-stencil . (feta . ("prallmordent" . "prallmordent")))
179 (avoid-slur . around)
183 (script-stencil . (feta . ("prallprall" . "prallprall")))
185 (avoid-slur . around)
189 (script-stencil . (feta . ("prallup" . "prallup")))
191 (avoid-slur . around)
197 (script-stencil . (feta . ("reverseturn" . "reverseturn")))
199 (avoid-slur . inside)
203 (script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
205 (avoid-slur . around) ;guessing?
209 (script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
211 (avoid-slur . around) ;guessing?
217 (script-stencil . (feta . ("segno" . "segno")))
219 (avoid-slur . outside)
223 (script-stencil . (feta . ("dsemicirculus" . "dsemicirculus")))
224 (side-relative-direction . ,DOWN)
225 (quantize-position . #t)
226 (avoid-slur . ignore)
228 (script-priority . -100)
232 (script-stencil . (feta . ("dshortfermata" . "ushortfermata")))
234 (avoid-slur . around)
236 ("signumcongruentiae"
238 (script-stencil . (feta . ("dsignumcongruentiae" . "usignumcongruentiae")))
240 (avoid-slur . outside)
244 (script-stencil . (feta . ("snappizzicato" . "snappizzicato")))
246 (avoid-slur . outside)
250 (avoid-slur . inside)
251 (script-stencil . (feta . ("dstaccatissimo" . "ustaccatissimo")))
253 (side-relative-direction . ,DOWN)))
256 (script-stencil . (feta . ("staccato" . "staccato")))
257 (side-relative-direction . ,DOWN)
258 (quantize-position . #t)
259 (avoid-slur . inside)
260 (toward-stem-shift . 0.5)
262 (script-priority . -100)))
265 (script-stencil . (feta . ("stopped" . "stopped")))
266 (avoid-slur . inside)
273 (script-stencil . (feta . ("tenuto" . "tenuto")))
274 (quantize-position . #t)
275 (avoid-slur . inside)
277 (side-relative-direction . ,DOWN)))
280 (script-stencil . (feta . ("thumb" . "thumb")))
281 (avoid-slur . inside)
286 (script-stencil . (feta . ("trill" . "trill")))
289 (avoid-slur . outside)
290 (script-priority . 2000)))
293 (script-stencil . (feta . ("turn" . "turn")))
294 (avoid-slur . inside)
301 (script-stencil . (feta . ("upbow" . "upbow")))
302 (avoid-slur . around)
307 (script-stencil . (feta . ("upmordent" . "upmordent")))
309 (avoid-slur . around)
313 (script-stencil . (feta . ("upprall" . "upprall")))
315 (avoid-slur . around)
321 (script-stencil . (feta . ("varcoda" . "varcoda")))
323 (avoid-slur . outside)
327 (script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
328 (quantize-position . #t)
330 (avoid-slur . ignore)
334 (script-stencil . (feta . ("dverylongfermata" . "uverylongfermata")))
336 (avoid-slur . around)