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