]> git.donarmstrong.com Git - lilypond.git/blob - scm/script.scm
Third phase of tutorial rewrite.
[lilypond.git] / scm / script.scm
1 ;;;; script.scm -- Script definitions
2 ;;;;
3 ;;;; source file of the GNU LilyPond music typesetter
4 ;;;; 
5 ;;;; (c) 2000--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
6
7 (define-public default-script-alist
8   '(("thumb" .
9      ((script-stencil . (feta . ("thumb"  . "thumb")))
10       (avoid-slur . inside)
11       (padding . 0.20)     
12       (direction . 1)))
13     ("accent" .
14      ((avoid-slur . around)
15       (padding . 0.20)     
16       (quantize-position . #t)
17       (script-stencil . (feta . ("sforzato" .  "sforzato")))
18       (side-relative-direction . -1)))
19     ("espressivo" .
20      ((avoid-slur . around)
21       (padding . 0.20)     
22       (quantize-position . #t)
23       (script-stencil . (feta . ("espr" .  "espr")))
24       (side-relative-direction . -1)))   
25     ("marcato" .
26      ((script-stencil . (feta . ("dmarcato" . "umarcato")))
27       (padding . 0.20)
28       (avoid-slur . inside)
29                                         ;          (staff-padding . ())
30       (quantize-position . #t)
31       (side-relative-direction .  -1)))
32     ("staccatissimo" .
33      ((avoid-slur . inside) 
34       (script-stencil . (feta . ("dstaccatissimo" . "ustaccatissimo")))
35       (padding . 0.20)     
36       (side-relative-direction .  -1)))
37     
38     ("portato" .
39      ((script-stencil . (feta . ("uportato" . "dportato")))
40       (avoid-slur . around)
41       (slur-padding . 0.3)
42       (padding . 0.45)
43       (side-relative-direction . -1)))
44
45     ("accentus" .
46      ((script-stencil . (feta . ("uaccentus" . "uaccentus")))
47       (side-relative-direction .  -1)
48       (avoid-slur . #f)
49       (padding . 0.20)     
50       (quantize-position . #t)
51       (script-priority . -100)
52       (direction  . 1)))
53     ("ictus" .
54      ((script-stencil . (feta . ("ictus" . "ictus")))
55       (side-relative-direction .  -1)
56       (quantize-position . #t)
57       (avoid-slur . #f)
58       (padding . 0.20)     
59       (script-priority . -100)
60       (direction  . -1)))
61     ("semicirculus" .
62      ((script-stencil . (feta . ("dsemicirculus" . "dsemicirculus")))
63       (side-relative-direction .  -1)
64       (quantize-position . #t)
65       (avoid-slur . #f)
66       (padding . 0.20)     
67       (script-priority . -100)
68       (direction  . 1)))
69     ("circulus" .
70      ((script-stencil . (feta . ("circulus" . "circulus")))
71       (side-relative-direction .  -1)
72       (avoid-slur . #f)
73       (padding . 0.20)     
74       (quantize-position . #t)
75       (script-priority . -100)
76       (direction  . 1)))
77
78     ("signumcongruentiae" .
79      ((script-stencil . (feta . ("dsignumcongruentiae" . "usignumcongruentiae")))
80       (padding . 0.20)     
81       (avoid-slur . outside)
82       (direction .  1)))
83     ("fermata" .
84      ((script-stencil . (feta . ("dfermata" . "ufermata")))
85       (padding . 0.20)     
86       (avoid-slur . around)
87       (script-priority . 4000)
88       (direction .  1)))
89     ("shortfermata" .
90      ((script-stencil . (feta . ("dshortfermata" . "ushortfermata")))
91       (padding . 0.20)     
92       (avoid-slur . around)
93       (direction .  1)))
94     ("longfermata" .
95      ((script-stencil . (feta . ("dlongfermata" . "ulongfermata")))
96       (padding . 0.20)     
97       (avoid-slur . around)
98       (direction .  1)))
99     ("verylongfermata" .
100      ((script-stencil . (feta . ("dverylongfermata" . "uverylongfermata")))
101       (padding . 0.20)     
102       (avoid-slur . around)
103       (direction .  1)))
104     ("stopped" .
105      ((script-stencil . (feta . ("stopped" . "stopped")))
106       (avoid-slur . inside)
107       (padding . 0.20)     
108       (direction  . 1)))
109     ("staccato" .
110      ((script-stencil . (feta . ("staccato" . "staccato")))
111       (side-relative-direction .  -1)
112       (quantize-position . #t)
113       (avoid-slur . inside) 
114       (padding . 0.20)     
115       (script-priority . -100)))
116     ("tenuto" .
117      ((script-stencil . (feta . ("tenuto" . "tenuto")))
118       (quantize-position . #t)
119       (avoid-slur . inside)
120       (padding . 0.20)     
121       (side-relative-direction . -1)))
122     ("comma" .
123      ((script-stencil . (feta . ("lcomma" . "rcomma")))
124       (quantize-position . #t)
125       (padding . 0.20)     
126       (avoid-slur . #f)
127       (direction . 1)))
128     ("varcomma" .
129      ((script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
130       (quantize-position . #t)
131       (padding . 0.20)     
132       (avoid-slur . #f)
133       (direction . 1)))
134     ("upbow" .
135      ((script-stencil . (feta . ("upbow" . "upbow")))
136       (avoid-slur . around)
137       (padding . 0.20)     
138       (direction  . 1)))
139     ("downbow" .
140      ((script-stencil . (feta . ("downbow" . "downbow")))
141       (padding . 0.20)     
142       (avoid-slur . around)
143       (direction  . 1)))
144     ("lheel" .
145      ((script-stencil . (feta . ("upedalheel" . "upedalheel")))
146       (padding . 0.20)     
147       (avoid-slur . around) ;guessing?
148       (direction .  -1))
149      )
150     ("rheel" .
151      ((script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
152       (padding . 0.20)     
153       (avoid-slur . around) ;guessing?
154       (direction  . 1)))
155     ("ltoe" .
156      ((script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
157       (padding . 0.20)     
158       (avoid-slur . around) ;guessing?
159       (direction  . -1)))
160     ("rtoe" .
161      ((script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
162       (padding . 0.20)     
163       (avoid-slur . around) ;guessing?
164       (direction  . 1)))
165     ("turn" .
166      ((script-stencil . (feta . ("turn" . "turn")))
167       (avoid-slur . inside)
168       (padding . 0.20)     
169       (direction  . 1)))
170     ("open" .
171      ((avoid-slur . outside)
172       (padding . 0.20)     
173       (script-stencil . (feta . ("open" . "open")))
174       (direction  . 1)))
175     ("flageolet" .
176      ((script-stencil . (feta . ("flageolet" . "flageolet")))
177       (padding . 0.20)     
178       (avoid-slur . around) ;guessing?
179       (direction  . 1)))
180     ("reverseturn" .
181      ((script-stencil . (feta . ("reverseturn" . "reverseturn")))
182       (padding . 0.20)     
183       (avoid-slur . inside)
184       (direction  . 1)))
185     ("trill" .
186      ((script-stencil . (feta . ("trill" . "trill")))
187       (direction . 1)
188       (padding . 0.20)     
189       (avoid-slur . outside)
190       (script-priority . 2000)))
191     ("prall" .
192      ((script-stencil . (feta . ("prall" . "prall")))
193       (padding . 0.20)     
194       (avoid-slur . around)
195       (direction  . 1)))
196     ("mordent" .
197      ((script-stencil . (feta . ("mordent" . "mordent")))
198       (padding . 0.20)     
199       (avoid-slur . around)
200       (direction  . 1)))
201     ("prallprall" .
202      ((script-stencil . (feta . ("prallprall" . "prallprall")))
203       (padding . 0.20)     
204       (avoid-slur . around)
205       (direction  . 1)))
206     ("prallmordent" .
207      ((script-stencil . (feta . ("prallmordent" . "prallmordent")))
208       (padding . 0.20)     
209       (avoid-slur . around)
210       (direction  . 1)))
211     ("upprall" .
212      ((script-stencil . (feta . ("upprall" . "upprall")))
213       (padding . 0.20)     
214       (avoid-slur . around)
215       (direction  . 1)))
216     ("downprall" .
217      ((script-stencil . (feta . ("downprall" . "downprall")))
218       (padding . 0.20)     
219       (avoid-slur . around)
220       (direction  . 1)))
221     ("upmordent" .
222      ((script-stencil . (feta . ("upmordent" . "upmordent")))
223       (padding . 0.20)     
224       (avoid-slur . around)
225       (direction  . 1)))
226     ("downmordent" .
227      ((script-stencil . (feta . ("downmordent" . "downmordent")))
228       (padding . 0.20)     
229       (avoid-slur . around)
230       (direction  . 1)))
231     ("lineprall" .
232      ((script-stencil . (feta . ("lineprall" . "lineprall")))
233       (padding . 0.20)     
234       (avoid-slur . around)
235       (direction  . 1)))
236     ("pralldown" .
237      ((script-stencil . (feta . ("pralldown" . "pralldown")))
238       (padding . 0.20)     
239       (avoid-slur . around)
240       (direction  . 1)))
241     ("prallup" .
242      ((script-stencil . (feta . ("prallup" . "prallup")))
243       (padding . 0.20)     
244       (avoid-slur . around)
245       (direction  . 1)))
246     ("segno" .
247      ((script-stencil . (feta . ("segno" . "segno")))
248       (padding . 0.20)     
249       (avoid-slur . outside)
250       (direction  . 1)))
251     ("coda" .
252      ((script-stencil . (feta . ("coda" . "coda")))
253       (padding . 0.20)     
254       (avoid-slur . outside)
255       (direction  . 1)))
256     ("varcoda" .
257      ((script-stencil . (feta . ("varcoda" . "varcoda")))
258       (padding . 0.20)     
259       (avoid-slur . outside)
260       (direction  . 1)))))