1 ;;;; script.scm -- Script definitions
3 ;;;; source file of the GNU LilyPond music typesetter
5 ;;;; (c) 2000--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 (set! default-script-alist
10 ((script-stencil . (feta . ("thumb" . "thumb")))
13 ((avoid-slur . around)
14 (quantize-position . #t)
15 (script-stencil . (feta . ("sforzato" . "sforzato")))
16 (side-relative-direction . -1)))
18 ((avoid-slur . around)
19 (quantize-position . #t)
20 (script-stencil . (feta . ("espr" . "espr")))
21 (side-relative-direction . -1)))
23 ((script-stencil . (feta . ("dmarcato" . "umarcato")))
24 (quantize-position . #t)
25 (side-relative-direction . -1)))
27 ((avoid-slur . inside)
28 (script-stencil . (feta . ("dstaccatissimo" . "ustaccatissimo")))
29 (side-relative-direction . -1)))
32 ((script-stencil . (feta . ("uportato" . "dportato")))
33 (side-relative-direction . -1)))
36 ((script-stencil . (feta . ("uaccentus" . "uaccentus")))
37 (side-relative-direction . -1)
38 (quantize-position . #t)
39 (script-priority . -100)
42 ((script-stencil . (feta . ("ictus" . "ictus")))
43 (side-relative-direction . -1)
44 (quantize-position . #t)
45 (script-priority . -100)
48 ((script-stencil . (feta . ("dsemicirculus" . "dsemicirculus")))
49 (side-relative-direction . -1)
50 (quantize-position . #t)
51 (script-priority . -100)
54 ((script-stencil . (feta . ("circulus" . "circulus")))
55 (side-relative-direction . -1)
56 (quantize-position . #t)
57 (script-priority . -100)
60 ("signumcongruentiae" .
61 ((script-stencil . (feta . ("dsignumcongruentiae" . "usignumcongruentiae")))
64 ((script-stencil . (feta . ("dfermata" . "ufermata")))
66 (script-priority . 4000)
69 ((script-stencil . (feta . ("dshortfermata" . "ushortfermata")))
72 ((script-stencil . (feta . ("dlongfermata" . "ulongfermata")))
75 ((script-stencil . (feta . ("dverylongfermata" . "uverylongfermata")))
78 ((script-stencil . (feta . ("stopped" . "stopped")))
81 ((script-stencil . (feta . ("staccato" . "staccato")))
82 (side-relative-direction . -1)
84 (quantize-position . #t)
86 (script-priority . -100)))
88 ((script-stencil . (feta . ("tenuto" . "tenuto")))
89 (quantize-position . #t)
91 (side-relative-direction . -1)))
93 ((script-stencil . (feta . ("lcomma" . "rcomma")))
94 (quantize-position . #t)
97 ((script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
98 (quantize-position . #t)
101 ((script-stencil . (feta . ("upbow" . "upbow")))
102 (avoid-slur . around)
105 ((script-stencil . (feta . ("downbow" . "downbow")))
106 (avoid-slur . around)
109 ((script-stencil . (feta . ("upedalheel" . "upedalheel")))
113 ((script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
116 ((script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
119 ((script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
122 ((script-stencil . (feta . ("turn" . "turn")))
125 ((script-stencil . (feta . ("open" . "open")))
128 ((script-stencil . (feta . ("flageolet" . "flageolet")))
131 ((script-stencil . (feta . ("reverseturn" . "reverseturn")))
134 ((script-stencil . (feta . ("trill" . "trill")))
136 (script-priority . 2000)))
138 ((script-stencil . (feta . ("prall" . "prall")))
141 ((script-stencil . (feta . ("mordent" . "mordent")))
144 ((script-stencil . (feta . ("prallprall" . "prallprall")))
147 ((script-stencil . (feta . ("prallmordent" . "prallmordent")))
150 ((script-stencil . (feta . ("upprall" . "upprall")))
153 ((script-stencil . (feta . ("downprall" . "downprall")))
156 ((script-stencil . (feta . ("upmordent" . "upmordent")))
159 ((script-stencil . (feta . ("downmordent" . "downmordent")))
162 ((script-stencil . (feta . ("lineprall" . "lineprall")))
165 ((script-stencil . (feta . ("pralldown" . "pralldown")))
168 ((script-stencil . (feta . ("prallup" . "prallup")))
171 ((script-stencil . (feta . ("segno" . "segno")))
174 ((script-stencil . (feta . ("coda" . "coda")))
177 ((script-stencil . (feta . ("varcoda" . "varcoda")))
179 default-script-alist)