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