1 ;;;; script.scm -- Script definitions
3 ;;;; source file of the GNU LilyPond music typesetter
5 ;;;; (c) 2000--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 (set! default-script-alist
10 ((script-stencil . (feta . ("thumb" . "thumb")))
14 (follow-into-staff . #t)
15 (script-stencil . (feta . ("sforzato" . "sforzato")))
16 (side-relative-direction . -1)))
18 ((script-stencil . (feta . ("dmarcato" . "umarcato")))
19 (follow-into-staff . #t)
20 (side-relative-direction . -1)))
23 (script-stencil . (feta . ("dstaccatissimo" . "ustaccatissimo")))
24 (side-relative-direction . -1)))
27 ((script-stencil . (feta . ("dportato" . "uportato")))
28 (side-relative-direction . -1)))
31 ((script-stencil . (feta . ("uaccentus" . "uaccentus")))
32 (side-relative-direction . -1)
33 (follow-into-staff . #t)
37 ((script-stencil . (feta . ("ictus" . "ictus")))
38 (side-relative-direction . -1)
39 (follow-into-staff . #t)
43 ((script-stencil . (feta . ("dsemicirculus" . "dsemicirculus")))
44 (side-relative-direction . -1)
45 (follow-into-staff . #t)
49 ((script-stencil . (feta . ("circulus" . "circulus")))
50 (side-relative-direction . -1)
51 (follow-into-staff . #t)
55 ("signumcongruentiae" .
56 ((script-stencil . (feta . ("dsignumcongruentiae" . "usignumcongruentiae")))
59 ((script-stencil . (feta . ("dfermata" . "ufermata")))
63 ((script-stencil . (feta . ("dshortfermata" . "ushortfermata")))
66 ((script-stencil . (feta . ("dlongfermata" . "ulongfermata")))
69 ((script-stencil . (feta . ("dverylongfermata" . "uverylongfermata")))
72 ((script-stencil . (feta . ("stopped" . "stopped")))
75 ((script-stencil . (feta . ("staccato" . "staccato")))
76 (side-relative-direction . -1)
77 (follow-into-staff . #t)
81 ((script-stencil . (feta . ("tenuto" . "tenuto")))
82 (follow-into-staff . #t)
84 (side-relative-direction . -1)))
86 ((script-stencil . (feta . ("lcomma" . "rcomma")))
87 (follow-into-staff . #t)
90 ((script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
91 (follow-into-staff . #t)
94 ((script-stencil . (feta . ("upbow" . "upbow")))
98 ((script-stencil . (feta . ("downbow" . "downbow")))
102 ((script-stencil . (feta . ("upedalheel" . "upedalheel")))
106 ((script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
109 ((script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
112 ((script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
115 ((script-stencil . (feta . ("turn" . "turn")))
118 ((script-stencil . (feta . ("open" . "open")))
121 ((script-stencil . (feta . ("flageolet" . "flageolet")))
124 ((script-stencil . (feta . ("reverseturn" . "reverseturn")))
127 ((script-stencil . (feta . ("trill" . "trill")))
131 ((script-stencil . (feta . ("prall" . "prall")))
134 ((script-stencil . (feta . ("mordent" . "mordent")))
137 ((script-stencil . (feta . ("prallprall" . "prallprall")))
140 ((script-stencil . (feta . ("prallmordent" . "prallmordent")))
143 ((script-stencil . (feta . ("upprall" . "upprall")))
146 ((script-stencil . (feta . ("downprall" . "downprall")))
149 ((script-stencil . (feta . ("upmordent" . "upmordent")))
152 ((script-stencil . (feta . ("downmordent" . "downmordent")))
155 ((script-stencil . (feta . ("lineprall" . "lineprall")))
158 ((script-stencil . (feta . ("pralldown" . "pralldown")))
161 ((script-stencil . (feta . ("prallup" . "prallup")))
164 ((script-stencil . (feta . ("segno" . "segno")))
167 ((script-stencil . (feta . ("coda" . "coda")))
170 ((script-stencil . (feta . ("varcoda" . "varcoda")))
172 default-script-alist)