scm/script.scm

   1 ;;;; script.scm -- Script definitions
   2 ;;;;
   3 ;;;; source file of the GNU LilyPond music typesetter
   4 ;;;;
   5 ;;;; (c) 2000--2008 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       (toward-stem-shift . 0.5)
 115       (padding . 0.20)
 116       (script-priority . -100)))
 117     ("tenuto" .
 118      ((script-stencil . (feta . ("tenuto" . "tenuto")))
 119       (quantize-position . #t)
 120       (avoid-slur . inside)
 121       (padding . 0.20)
 122       (side-relative-direction . -1)))
 123     ("comma" .
 124      ((script-stencil . (feta . ("lcomma" . "rcomma")))
 125       (quantize-position . #t)
 126       (padding . 0.20)
 127       (avoid-slur . #f)
 128       (direction . 1)))
 129     ("varcomma" .
 130      ((script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
 131       (quantize-position . #t)
 132       (padding . 0.20)
 133       (avoid-slur . #f)
 134       (direction . 1)))
 135     ("upbow" .
 136      ((script-stencil . (feta . ("upbow" . "upbow")))
 137       (avoid-slur . around)
 138       (padding . 0.20)
 139       (direction  . 1)))
 140     ("downbow" .
 141      ((script-stencil . (feta . ("downbow" . "downbow")))
 142       (padding . 0.20)
 143       (avoid-slur . around)
 144       (direction  . 1)))
 145     ("lheel" .
 146      ((script-stencil . (feta . ("upedalheel" . "upedalheel")))
 147       (padding . 0.20)
 148       (avoid-slur . around) ;guessing?
 149       (direction .  -1))
 150      )
 151     ("rheel" .
 152      ((script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
 153       (padding . 0.20)
 154       (avoid-slur . around) ;guessing?
 155       (direction  . 1)))
 156     ("ltoe" .
 157      ((script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
 158       (padding . 0.20)
 159       (avoid-slur . around) ;guessing?
 160       (direction  . -1)))
 161     ("rtoe" .
 162      ((script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
 163       (padding . 0.20)
 164       (avoid-slur . around) ;guessing?
 165       (direction  . 1)))
 166     ("turn" .
 167      ((script-stencil . (feta . ("turn" . "turn")))
 168       (avoid-slur . inside)
 169       (padding . 0.20)
 170       (direction  . 1)))
 171     ("open" .
 172      ((avoid-slur . outside)
 173       (padding . 0.20)
 174       (script-stencil . (feta . ("open" . "open")))
 175       (direction  . 1)))
 176     ("flageolet" .
 177      ((script-stencil . (feta . ("flageolet" . "flageolet")))
 178       (padding . 0.20)
 179       (avoid-slur . around) ;guessing?
 180       (direction  . 1)))
 181     ("reverseturn" .
 182      ((script-stencil . (feta . ("reverseturn" . "reverseturn")))
 183       (padding . 0.20)
 184       (avoid-slur . inside)
 185       (direction  . 1)))
 186     ("trill" .
 187      ((script-stencil . (feta . ("trill" . "trill")))
 188       (direction . 1)
 189       (padding . 0.20)
 190       (avoid-slur . outside)
 191       (script-priority . 2000)))
 192     ("prall" .
 193      ((script-stencil . (feta . ("prall" . "prall")))
 194       (padding . 0.20)
 195       (avoid-slur . around)
 196       (direction  . 1)))
 197     ("mordent" .
 198      ((script-stencil . (feta . ("mordent" . "mordent")))
 199       (padding . 0.20)
 200       (avoid-slur . around)
 201       (direction  . 1)))
 202     ("prallprall" .
 203      ((script-stencil . (feta . ("prallprall" . "prallprall")))
 204       (padding . 0.20)
 205       (avoid-slur . around)
 206       (direction  . 1)))
 207     ("prallmordent" .
 208      ((script-stencil . (feta . ("prallmordent" . "prallmordent")))
 209       (padding . 0.20)
 210       (avoid-slur . around)
 211       (direction  . 1)))
 212     ("upprall" .
 213      ((script-stencil . (feta . ("upprall" . "upprall")))
 214       (padding . 0.20)
 215       (avoid-slur . around)
 216       (direction  . 1)))
 217     ("downprall" .
 218      ((script-stencil . (feta . ("downprall" . "downprall")))
 219       (padding . 0.20)
 220       (avoid-slur . around)
 221       (direction  . 1)))
 222     ("upmordent" .
 223      ((script-stencil . (feta . ("upmordent" . "upmordent")))
 224       (padding . 0.20)
 225       (avoid-slur . around)
 226       (direction  . 1)))
 227     ("downmordent" .
 228      ((script-stencil . (feta . ("downmordent" . "downmordent")))
 229       (padding . 0.20)
 230       (avoid-slur . around)
 231       (direction  . 1)))
 232     ("lineprall" .
 233      ((script-stencil . (feta . ("lineprall" . "lineprall")))
 234       (padding . 0.20)
 235       (avoid-slur . around)
 236       (direction  . 1)))
 237     ("pralldown" .
 238      ((script-stencil . (feta . ("pralldown" . "pralldown")))
 239       (padding . 0.20)
 240       (avoid-slur . around)
 241       (direction  . 1)))
 242     ("prallup" .
 243      ((script-stencil . (feta . ("prallup" . "prallup")))
 244       (padding . 0.20)
 245       (avoid-slur . around)
 246       (direction  . 1)))
 247     ("segno" .
 248      ((script-stencil . (feta . ("segno" . "segno")))
 249       (padding . 0.20)
 250       (avoid-slur . outside)
 251       (direction  . 1)))
 252     ("coda" .
 253      ((script-stencil . (feta . ("coda" . "coda")))
 254       (padding . 0.20)
 255       (avoid-slur . outside)
 256       (direction  . 1)))
 257     ("varcoda" .
 258      ((script-stencil . (feta . ("varcoda" . "varcoda")))
 259       (padding . 0.20)
 260       (avoid-slur . outside)
 261       (direction  . 1)))))