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 (set! default-script-alist
10 ((script-stencil . (feta . ("thumb" . "thumb")))
15 ((avoid-slur . around)
17 (quantize-position . #t)
18 (script-stencil . (feta . ("sforzato" . "sforzato")))
19 (side-relative-direction . -1)))
21 ((avoid-slur . around)
23 (quantize-position . #t)
24 (script-stencil . (feta . ("espr" . "espr")))
25 (side-relative-direction . -1)))
27 ((script-stencil . (feta . ("dmarcato" . "umarcato")))
30 ; (staff-padding . ())
31 (quantize-position . #t)
32 (side-relative-direction . -1)))
34 ((avoid-slur . inside)
35 (script-stencil . (feta . ("dstaccatissimo" . "ustaccatissimo")))
37 (side-relative-direction . -1)))
40 ((script-stencil . (feta . ("uportato" . "dportato")))
44 (side-relative-direction . -1)))
47 ((script-stencil . (feta . ("uaccentus" . "uaccentus")))
48 (side-relative-direction . -1)
50 (quantize-position . #t)
51 (script-priority . -100)
54 ((script-stencil . (feta . ("ictus" . "ictus")))
55 (side-relative-direction . -1)
56 (quantize-position . #t)
58 (script-priority . -100)
61 ((script-stencil . (feta . ("dsemicirculus" . "dsemicirculus")))
62 (side-relative-direction . -1)
63 (quantize-position . #t)
65 (script-priority . -100)
68 ((script-stencil . (feta . ("circulus" . "circulus")))
69 (side-relative-direction . -1)
71 (quantize-position . #t)
72 (script-priority . -100)
75 ("signumcongruentiae" .
76 ((script-stencil . (feta . ("dsignumcongruentiae" . "usignumcongruentiae")))
80 ((script-stencil . (feta . ("dfermata" . "ufermata")))
83 (script-priority . 4000)
86 ((script-stencil . (feta . ("dshortfermata" . "ushortfermata")))
90 ((script-stencil . (feta . ("dlongfermata" . "ulongfermata")))
94 ((script-stencil . (feta . ("dverylongfermata" . "uverylongfermata")))
98 ((script-stencil . (feta . ("stopped" . "stopped")))
103 ((script-stencil . (feta . ("staccato" . "staccato")))
104 (side-relative-direction . -1)
105 (quantize-position . #t)
106 (avoid-slur . inside)
108 (script-priority . -100)))
110 ((script-stencil . (feta . ("tenuto" . "tenuto")))
111 (quantize-position . #t)
112 (avoid-slur . inside)
114 (side-relative-direction . -1)))
116 ((script-stencil . (feta . ("lcomma" . "rcomma")))
117 (quantize-position . #t)
121 ((script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
122 (quantize-position . #t)
126 ((script-stencil . (feta . ("upbow" . "upbow")))
127 (avoid-slur . around)
131 ((script-stencil . (feta . ("downbow" . "downbow")))
133 (avoid-slur . around)
136 ((script-stencil . (feta . ("upedalheel" . "upedalheel")))
141 ((script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
145 ((script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
149 ((script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
153 ((script-stencil . (feta . ("turn" . "turn")))
154 (avoid-slur . inside)
158 ((avoid-slur . outside)
160 (script-stencil . (feta . ("open" . "open")))
163 ((script-stencil . (feta . ("flageolet" . "flageolet")))
167 ((script-stencil . (feta . ("reverseturn" . "reverseturn")))
171 ((script-stencil . (feta . ("trill" . "trill")))
174 (avoid-slur . outside)
175 (script-priority . 2000)))
177 ((script-stencil . (feta . ("prall" . "prall")))
181 ((script-stencil . (feta . ("mordent" . "mordent")))
185 ((script-stencil . (feta . ("prallprall" . "prallprall")))
189 ((script-stencil . (feta . ("prallmordent" . "prallmordent")))
193 ((script-stencil . (feta . ("upprall" . "upprall")))
197 ((script-stencil . (feta . ("downprall" . "downprall")))
201 ((script-stencil . (feta . ("upmordent" . "upmordent")))
205 ((script-stencil . (feta . ("downmordent" . "downmordent")))
209 ((script-stencil . (feta . ("lineprall" . "lineprall")))
213 ((script-stencil . (feta . ("pralldown" . "pralldown")))
217 ((script-stencil . (feta . ("prallup" . "prallup")))
221 ((script-stencil . (feta . ("segno" . "segno")))
225 ((script-stencil . (feta . ("coda" . "coda")))
229 ((script-stencil . (feta . ("varcoda" . "varcoda")))
232 default-script-alist)