1 ;;;; This file is part of LilyPond, the GNU music typesetter.
3 ;;;; Copyright (C) 2000--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
5 ;;;; LilyPond is free software: you can redistribute it and/or modify
6 ;;;; it under the terms of the GNU General Public License as published by
7 ;;;; the Free Software Foundation, either version 3 of the License, or
8 ;;;; (at your option) any later version.
10 ;;;; LilyPond is distributed in the hope that it will be useful,
11 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
12 ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 ;;;; GNU General Public License for more details.
15 ;;;; You should have received a copy of the GNU General Public License
16 ;;;; along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
18 (define-public default-script-alist
24 (script-stencil . (feta . ("sforzato" . "sforzato")))
25 (side-relative-direction . ,DOWN)))
28 (script-stencil . (feta . ("uaccentus" . "uaccentus")))
29 (side-relative-direction . ,DOWN)
32 (quantize-position . #t)
33 (script-priority . -100)
39 (script-stencil . (feta . ("circulus" . "circulus")))
40 (side-relative-direction . ,DOWN)
43 (quantize-position . #t)
44 (script-priority . -100)
48 (script-stencil . (feta . ("coda" . "coda")))
50 (avoid-slur . outside)
54 (script-stencil . (feta . ("lcomma" . "rcomma")))
55 (quantize-position . #t)
63 (script-stencil . (feta . ("downbow" . "downbow")))
69 (script-stencil . (feta . ("downmordent" . "downmordent")))
75 (script-stencil . (feta . ("downprall" . "downprall")))
85 (script-stencil . (feta . ("espr" . "espr")))
86 (side-relative-direction . ,DOWN)))
91 (script-stencil . (feta . ("dfermata" . "ufermata")))
94 (script-priority . 4000)
98 (script-stencil . (feta . ("flageolet" . "flageolet")))
100 (avoid-slur . around) ;guessing?
106 (script-stencil . (feta . ("ictus" . "ictus")))
107 (side-relative-direction . ,DOWN)
108 (quantize-position . #t)
109 (avoid-slur . ignore)
111 (script-priority . -100)
112 (direction . ,DOWN)))
117 (script-stencil . (feta . ("upedalheel" . "upedalheel")))
119 (avoid-slur . around) ;guessing?
120 (direction . ,DOWN)))
123 (script-stencil . (feta . ("lineprall" . "lineprall")))
125 (avoid-slur . around)
129 (script-stencil . (feta . ("dlongfermata" . "ulongfermata")))
131 (avoid-slur . around)
135 (script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
137 (avoid-slur . around) ;guessing?
138 (direction . ,DOWN)))
143 (script-stencil . (feta . ("dmarcato" . "umarcato")))
145 (avoid-slur . inside)
146 ;;(staff-padding . ())
147 (quantize-position . #t)
148 (side-relative-direction . ,DOWN)))
151 (script-stencil . (feta . ("mordent" . "mordent")))
153 (avoid-slur . around)
159 (avoid-slur . outside)
161 (script-stencil . (feta . ("open" . "open")))
167 (script-stencil . (feta . ("uportato" . "dportato")))
168 (avoid-slur . around)
171 (side-relative-direction . ,DOWN)))
174 (script-stencil . (feta . ("prall" . "prall")))
176 (avoid-slur . around)
180 (script-stencil . (feta . ("pralldown" . "pralldown")))
182 (avoid-slur . around)
186 (script-stencil . (feta . ("prallmordent" . "prallmordent")))
188 (avoid-slur . around)
192 (script-stencil . (feta . ("prallprall" . "prallprall")))
194 (avoid-slur . around)
198 (script-stencil . (feta . ("prallup" . "prallup")))
200 (avoid-slur . around)
206 (script-stencil . (feta . ("reverseturn" . "reverseturn")))
208 (avoid-slur . inside)
212 (script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
214 (avoid-slur . around) ;guessing?
218 (script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
220 (avoid-slur . around) ;guessing?
226 (script-stencil . (feta . ("segno" . "segno")))
228 (avoid-slur . outside)
232 (script-stencil . (feta . ("dsemicirculus" . "dsemicirculus")))
233 (side-relative-direction . ,DOWN)
234 (quantize-position . #t)
235 (avoid-slur . ignore)
237 (script-priority . -100)
241 (script-stencil . (feta . ("dshortfermata" . "ushortfermata")))
243 (avoid-slur . around)
245 ("signumcongruentiae"
247 (script-stencil . (feta . ("dsignumcongruentiae" . "usignumcongruentiae")))
249 (avoid-slur . outside)
253 (script-stencil . (feta . ("snappizzicato" . "snappizzicato")))
255 (avoid-slur . outside)
259 (avoid-slur . inside)
260 (quantize-position . #t)
261 (script-stencil . (feta . ("dstaccatissimo" . "ustaccatissimo")))
263 (side-relative-direction . ,DOWN)))
266 (script-stencil . (feta . ("staccato" . "staccato")))
267 (side-relative-direction . ,DOWN)
268 (quantize-position . #t)
269 (avoid-slur . inside)
270 (toward-stem-shift . 0.5)
272 (script-priority . -100)))
275 (script-stencil . (feta . ("stopped" . "stopped")))
276 (avoid-slur . inside)
283 (script-stencil . (feta . ("tenuto" . "tenuto")))
284 (quantize-position . #t)
285 (avoid-slur . inside)
287 (side-relative-direction . ,DOWN)))
290 (script-stencil . (feta . ("thumb" . "thumb")))
291 (avoid-slur . inside)
296 (script-stencil . (feta . ("trill" . "trill")))
299 (avoid-slur . outside)
300 (script-priority . 2000)))
303 (script-stencil . (feta . ("turn" . "turn")))
304 (avoid-slur . inside)
311 (script-stencil . (feta . ("upbow" . "upbow")))
312 (avoid-slur . around)
317 (script-stencil . (feta . ("upmordent" . "upmordent")))
319 (avoid-slur . around)
323 (script-stencil . (feta . ("upprall" . "upprall")))
325 (avoid-slur . around)
331 (script-stencil . (feta . ("varcoda" . "varcoda")))
333 (avoid-slur . outside)
337 (script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
338 (quantize-position . #t)
340 (avoid-slur . ignore)
344 (script-stencil . (feta . ("dverylongfermata" . "uverylongfermata")))
346 (avoid-slur . around)