1 ;;;; This file is part of LilyPond, the GNU music typesetter.
3 ;;;; Copyright (C) 2000--2015 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")))
65 (skyline-horizontal-padding . 0.20)
68 (script-priority . 150)))
71 (script-stencil . (feta . ("downmordent" . "downmordent")))
77 (script-stencil . (feta . ("downprall" . "downprall")))
87 (script-stencil . (feta . ("espr" . "espr")))
88 (side-relative-direction . ,DOWN)))
93 (script-stencil . (feta . ("dfermata" . "ufermata")))
96 (script-priority . 4000)
100 (script-stencil . (feta . ("flageolet" . "flageolet")))
102 (avoid-slur . around) ;guessing?
108 (avoid-slur . outside)
110 (script-stencil . (feta . ("halfopen" . "halfopen")))
115 (avoid-slur . outside)
117 (script-stencil . (feta . ("halfopenvertical" . "halfopenvertical")))
123 (script-stencil . (feta . ("ictus" . "ictus")))
124 (side-relative-direction . ,DOWN)
125 (quantize-position . #t)
126 (avoid-slur . ignore)
128 (script-priority . -100)
129 (direction . ,DOWN)))
134 (script-stencil . (feta . ("upedalheel" . "upedalheel")))
136 (avoid-slur . around) ;guessing?
137 (direction . ,DOWN)))
140 (script-stencil . (feta . ("lineprall" . "lineprall")))
142 (avoid-slur . around)
146 (script-stencil . (feta . ("dlongfermata" . "ulongfermata")))
148 (avoid-slur . around)
152 (script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
154 (avoid-slur . around) ;guessing?
155 (direction . ,DOWN)))
160 (script-stencil . (feta . ("dmarcato" . "umarcato")))
162 (avoid-slur . inside)
163 ;;(staff-padding . ())
164 (quantize-position . #t)
165 (side-relative-direction . ,DOWN)))
168 (script-stencil . (feta . ("mordent" . "mordent")))
170 (avoid-slur . around)
176 (avoid-slur . outside)
178 (script-stencil . (feta . ("open" . "open")))
184 (script-stencil . (feta . ("uportato" . "dportato")))
185 (avoid-slur . around)
187 (side-relative-direction . ,DOWN)))
190 (script-stencil . (feta . ("prall" . "prall")))
192 (avoid-slur . around)
196 (script-stencil . (feta . ("pralldown" . "pralldown")))
198 (avoid-slur . around)
202 (script-stencil . (feta . ("prallmordent" . "prallmordent")))
204 (avoid-slur . around)
208 (script-stencil . (feta . ("prallprall" . "prallprall")))
210 (avoid-slur . around)
214 (script-stencil . (feta . ("prallup" . "prallup")))
216 (avoid-slur . around)
222 (script-stencil . (feta . ("reverseturn" . "reverseturn")))
224 (avoid-slur . inside)
228 (script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
230 (avoid-slur . around) ;guessing?
234 (script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
236 (avoid-slur . around) ;guessing?
242 (script-stencil . (feta . ("segno" . "segno")))
244 (avoid-slur . outside)
248 (script-stencil . (feta . ("dsemicirculus" . "dsemicirculus")))
249 (side-relative-direction . ,DOWN)
250 (quantize-position . #t)
251 (avoid-slur . ignore)
253 (script-priority . -100)
257 (script-stencil . (feta . ("dshortfermata" . "ushortfermata")))
259 (avoid-slur . around)
261 ("signumcongruentiae"
263 (script-stencil . (feta . ("dsignumcongruentiae" . "usignumcongruentiae")))
265 (avoid-slur . outside)
269 (script-stencil . (feta . ("snappizzicato" . "snappizzicato")))
271 (avoid-slur . outside)
275 (avoid-slur . inside)
276 (quantize-position . #t)
277 (script-stencil . (feta . ("dstaccatissimo" . "ustaccatissimo")))
279 (skyline-horizontal-padding . 0.10)
280 (side-relative-direction . ,DOWN)
281 (toward-stem-shift . 1.0)
282 (toward-stem-shift-in-column . 0.0)))
285 (script-stencil . (feta . ("staccato" . "staccato")))
286 (side-relative-direction . ,DOWN)
287 (quantize-position . #t)
288 (avoid-slur . inside)
289 (toward-stem-shift . 1.0)
290 (toward-stem-shift-in-column . 0.0)
292 (skyline-horizontal-padding . 0.10)
293 (script-priority . -100)))
296 (script-stencil . (feta . ("stopped" . "stopped")))
297 (avoid-slur . inside)
304 (script-stencil . (feta . ("tenuto" . "tenuto")))
305 (quantize-position . #t)
306 (avoid-slur . inside)
308 (side-relative-direction . ,DOWN)))
311 (script-stencil . (feta . ("trill" . "trill")))
314 (avoid-slur . outside)
315 (script-priority . 2000)))
318 (script-stencil . (feta . ("turn" . "turn")))
319 (avoid-slur . inside)
326 (script-stencil . (feta . ("upbow" . "upbow")))
327 (avoid-slur . around)
330 (script-priority . 150)))
333 (script-stencil . (feta . ("upmordent" . "upmordent")))
335 (avoid-slur . around)
339 (script-stencil . (feta . ("upprall" . "upprall")))
341 (avoid-slur . around)
347 (script-stencil . (feta . ("varcoda" . "varcoda")))
349 (avoid-slur . outside)
353 (script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
354 (quantize-position . #t)
356 (avoid-slur . ignore)
360 (script-stencil . (feta . ("dverylongfermata" . "uverylongfermata")))
362 (avoid-slur . around)