1 ;;;; script.scm -- Script definitions
3 ;;;; source file of the GNU LilyPond music typesetter
5 ;;;; (c) 2000--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
7 (define-public default-script-alist
9 ((script-stencil . (feta . ("thumb" . "thumb")))
14 ((avoid-slur . around)
16 (quantize-position . #t)
17 (script-stencil . (feta . ("sforzato" . "sforzato")))
18 (side-relative-direction . -1)))
20 ((avoid-slur . around)
22 (quantize-position . #t)
23 (script-stencil . (feta . ("espr" . "espr")))
24 (side-relative-direction . -1)))
26 ((script-stencil . (feta . ("dmarcato" . "umarcato")))
29 ; (staff-padding . ())
30 (quantize-position . #t)
31 (side-relative-direction . -1)))
33 ((avoid-slur . inside)
34 (script-stencil . (feta . ("dstaccatissimo" . "ustaccatissimo")))
36 (side-relative-direction . -1)))
39 ((script-stencil . (feta . ("uportato" . "dportato")))
43 (side-relative-direction . -1)))
46 ((script-stencil . (feta . ("uaccentus" . "uaccentus")))
47 (side-relative-direction . -1)
49 (quantize-position . #t)
50 (script-priority . -100)
53 ((script-stencil . (feta . ("ictus" . "ictus")))
54 (side-relative-direction . -1)
55 (quantize-position . #t)
57 (script-priority . -100)
60 ((script-stencil . (feta . ("dsemicirculus" . "dsemicirculus")))
61 (side-relative-direction . -1)
62 (quantize-position . #t)
64 (script-priority . -100)
67 ((script-stencil . (feta . ("circulus" . "circulus")))
68 (side-relative-direction . -1)
70 (quantize-position . #t)
71 (script-priority . -100)
74 ("signumcongruentiae" .
75 ((script-stencil . (feta . ("dsignumcongruentiae" . "usignumcongruentiae")))
79 ((script-stencil . (feta . ("dfermata" . "ufermata")))
82 (script-priority . 4000)
85 ((script-stencil . (feta . ("dshortfermata" . "ushortfermata")))
89 ((script-stencil . (feta . ("dlongfermata" . "ulongfermata")))
93 ((script-stencil . (feta . ("dverylongfermata" . "uverylongfermata")))
97 ((script-stencil . (feta . ("stopped" . "stopped")))
102 ((script-stencil . (feta . ("staccato" . "staccato")))
103 (side-relative-direction . -1)
104 (quantize-position . #t)
105 (avoid-slur . inside)
107 (script-priority . -100)))
109 ((script-stencil . (feta . ("tenuto" . "tenuto")))
110 (quantize-position . #t)
111 (avoid-slur . inside)
113 (side-relative-direction . -1)))
115 ((script-stencil . (feta . ("lcomma" . "rcomma")))
116 (quantize-position . #t)
120 ((script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
121 (quantize-position . #t)
125 ((script-stencil . (feta . ("upbow" . "upbow")))
126 (avoid-slur . around)
130 ((script-stencil . (feta . ("downbow" . "downbow")))
132 (avoid-slur . around)
135 ((script-stencil . (feta . ("upedalheel" . "upedalheel")))
140 ((script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
144 ((script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
148 ((script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
152 ((script-stencil . (feta . ("turn" . "turn")))
153 (avoid-slur . inside)
157 ((avoid-slur . outside)
159 (script-stencil . (feta . ("open" . "open")))
162 ((script-stencil . (feta . ("flageolet" . "flageolet")))
166 ((script-stencil . (feta . ("reverseturn" . "reverseturn")))
170 ((script-stencil . (feta . ("trill" . "trill")))
173 (avoid-slur . outside)
174 (script-priority . 2000)))
176 ((script-stencil . (feta . ("prall" . "prall")))
180 ((script-stencil . (feta . ("mordent" . "mordent")))
184 ((script-stencil . (feta . ("prallprall" . "prallprall")))
188 ((script-stencil . (feta . ("prallmordent" . "prallmordent")))
192 ((script-stencil . (feta . ("upprall" . "upprall")))
196 ((script-stencil . (feta . ("downprall" . "downprall")))
200 ((script-stencil . (feta . ("upmordent" . "upmordent")))
204 ((script-stencil . (feta . ("downmordent" . "downmordent")))
208 ((script-stencil . (feta . ("lineprall" . "lineprall")))
212 ((script-stencil . (feta . ("pralldown" . "pralldown")))
216 ((script-stencil . (feta . ("prallup" . "prallup")))
220 ((script-stencil . (feta . ("segno" . "segno")))
224 ((script-stencil . (feta . ("coda" . "coda")))
228 ((script-stencil . (feta . ("varcoda" . "varcoda")))