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       (padding . 0.20)
  49       (quantize-position . #t)
  50       (script-priority . -100)
  51       (direction  . 1)))
  52     ("ictus" .
  53      ((script-stencil . (feta . ("ictus" . "ictus")))
  54       (side-relative-direction .  -1)
  55       (quantize-position . #t)
  56       (padding . 0.20)
  57       (script-priority . -100)
  58       (direction  . -1)))
  59     ("semicirculus" .
  60      ((script-stencil . (feta . ("dsemicirculus" . "dsemicirculus")))
  61       (side-relative-direction .  -1)
  62       (quantize-position . #t)
  63       (padding . 0.20)
  64       (script-priority . -100)
  65       (direction  . 1)))
  66     ("circulus" .
  67      ((script-stencil . (feta . ("circulus" . "circulus")))
  68       (side-relative-direction .  -1)
  69       (padding . 0.20)
  70       (quantize-position . #t)
  71       (script-priority . -100)
  72       (direction  . 1)))
  73
  74     ("signumcongruentiae" .
  75      ((script-stencil . (feta . ("dsignumcongruentiae" . "usignumcongruentiae")))
  76       (padding . 0.20)
  77       (direction .  1)))
  78     ("fermata" .
  79      ((script-stencil . (feta . ("dfermata" . "ufermata")))
  80       (padding . 0.20)
  81       (avoid-slur . around)
  82       (script-priority . 4000)
  83       (direction .  1)))
  84     ("shortfermata" .
  85      ((script-stencil . (feta . ("dshortfermata" . "ushortfermata")))
  86       (padding . 0.20)
  87       (direction .  1)))
  88     ("longfermata" .
  89      ((script-stencil . (feta . ("dlongfermata" . "ulongfermata")))
  90       (padding . 0.20)
  91       (direction .  1)))
  92     ("verylongfermata" .
  93      ((script-stencil . (feta . ("dverylongfermata" . "uverylongfermata")))
  94       (padding . 0.20)
  95       (direction .  1)))
  96     ("stopped" .
  97      ((script-stencil . (feta . ("stopped" . "stopped")))
  98       (avoid-slur . inside)
  99       (padding . 0.20)
 100       (direction  . 1)))
 101     ("staccato" .
 102      ((script-stencil . (feta . ("staccato" . "staccato")))
 103       (side-relative-direction .  -1)
 104       (quantize-position . #t)
 105       (avoid-slur . inside)
 106       (padding . 0.20)
 107       (script-priority . -100)))
 108     ("tenuto" .
 109      ((script-stencil . (feta . ("tenuto" . "tenuto")))
 110       (quantize-position . #t)
 111       (avoid-slur . inside)
 112       (padding . 0.20)
 113       (side-relative-direction . -1)))
 114     ("comma" .
 115      ((script-stencil . (feta . ("lcomma" . "rcomma")))
 116       (quantize-position . #t)
 117       (padding . 0.20)
 118       (direction . 1)))
 119     ("varcomma" .
 120      ((script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
 121       (quantize-position . #t)
 122       (padding . 0.20)
 123       (direction . 1)))
 124     ("upbow" .
 125      ((script-stencil . (feta . ("upbow" . "upbow")))
 126       (avoid-slur . around)
 127       (padding . 0.20)
 128       (direction  . 1)))
 129     ("downbow" .
 130      ((script-stencil . (feta . ("downbow" . "downbow")))
 131       (padding . 0.20)
 132       (avoid-slur . around)
 133       (direction  . 1)))
 134     ("lheel" .
 135      ((script-stencil . (feta . ("upedalheel" . "upedalheel")))
 136       (padding . 0.20)
 137       (direction .  -1))
 138      )
 139     ("rheel" .
 140      ((script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
 141       (padding . 0.20)
 142       (direction  . 1)))
 143     ("ltoe" .
 144      ((script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
 145       (padding . 0.20)
 146       (direction  . -1)))
 147     ("rtoe" .
 148      ((script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
 149       (padding . 0.20)
 150       (direction  . 1)))
 151     ("turn" .
 152      ((script-stencil . (feta . ("turn" . "turn")))
 153       (avoid-slur . inside)
 154       (padding . 0.20)
 155       (direction  . 1)))
 156     ("open" .
 157      ((avoid-slur . outside)
 158       (padding . 0.20)
 159       (script-stencil . (feta . ("open" . "open")))
 160       (direction  . 1)))
 161     ("flageolet" .
 162      ((script-stencil . (feta . ("flageolet" . "flageolet")))
 163       (padding . 0.20)
 164       (direction  . 1)))
 165     ("reverseturn" .
 166      ((script-stencil . (feta . ("reverseturn" . "reverseturn")))
 167       (padding . 0.20)
 168       (direction  . 1)))
 169     ("trill" .
 170      ((script-stencil . (feta . ("trill" . "trill")))
 171       (direction . 1)
 172       (padding . 0.20)
 173       (avoid-slur . outside)
 174       (script-priority . 2000)))
 175     ("prall" .
 176      ((script-stencil . (feta . ("prall" . "prall")))
 177       (padding . 0.20)
 178       (direction  . 1)))
 179     ("mordent" .
 180      ((script-stencil . (feta . ("mordent" . "mordent")))
 181       (padding . 0.20)
 182       (direction  . 1)))
 183     ("prallprall" .
 184      ((script-stencil . (feta . ("prallprall" . "prallprall")))
 185       (padding . 0.20)
 186       (direction  . 1)))
 187     ("prallmordent" .
 188      ((script-stencil . (feta . ("prallmordent" . "prallmordent")))
 189       (padding . 0.20)
 190       (direction  . 1)))
 191     ("upprall" .
 192      ((script-stencil . (feta . ("upprall" . "upprall")))
 193       (padding . 0.20)
 194       (direction  . 1)))
 195     ("downprall" .
 196      ((script-stencil . (feta . ("downprall" . "downprall")))
 197       (padding . 0.20)
 198       (direction  . 1)))
 199     ("upmordent" .
 200      ((script-stencil . (feta . ("upmordent" . "upmordent")))
 201       (padding . 0.20)
 202       (direction  . 1)))
 203     ("downmordent" .
 204      ((script-stencil . (feta . ("downmordent" . "downmordent")))
 205       (padding . 0.20)
 206       (direction  . 1)))
 207     ("lineprall" .
 208      ((script-stencil . (feta . ("lineprall" . "lineprall")))
 209       (padding . 0.20)
 210       (direction  . 1)))
 211     ("pralldown" .
 212      ((script-stencil . (feta . ("pralldown" . "pralldown")))
 213       (padding . 0.20)
 214       (direction  . 1)))
 215     ("prallup" .
 216      ((script-stencil . (feta . ("prallup" . "prallup")))
 217       (padding . 0.20)
 218       (direction  . 1)))
 219     ("segno" .
 220      ((script-stencil . (feta . ("segno" . "segno")))
 221       (padding . 0.20)
 222       (direction  . 1)))
 223     ("coda" .
 224      ((script-stencil . (feta . ("coda" . "coda")))
 225       (padding . 0.20)
 226       (direction  . 1)))
 227     ("varcoda" .
 228      ((script-stencil . (feta . ("varcoda" . "varcoda")))
 229       (padding . 0.20)
 230       (direction  . 1)))))