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)))))