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            (direction . 1)))
  12          ("accent" .
  13           ((avoid-slur . around)
  14            (quantize-position . #t)
  15            (script-stencil . (feta . ("sforzato" .  "sforzato")))
  16            (side-relative-direction . -1)))
  17          ("espressivo" .
  18           ((avoid-slur . around)
  19            (quantize-position . #t)
  20            (script-stencil . (feta . ("espr" .  "espr")))
  21            (side-relative-direction . -1)))
  22          ("marcato" .
  23           ((script-stencil . (feta . ("dmarcato" . "umarcato")))
  24 ;          (staff-padding . ())
  25            (quantize-position . #t)
  26            (side-relative-direction .  -1)))
  27          ("staccatissimo" .
  28           ((avoid-slur . inside)
  29            (script-stencil . (feta . ("dstaccatissimo" . "ustaccatissimo")))
  30            (side-relative-direction .  -1)))
  31
  32          ("portato" .
  33           ((script-stencil . (feta . ("uportato" . "dportato")))
  34            (side-relative-direction . -1)))
  35
  36          ("accentus" .
  37           ((script-stencil . (feta . ("uaccentus" . "uaccentus")))
  38            (side-relative-direction .  -1)
  39            (quantize-position . #t)
  40            (script-priority . -100)
  41            (direction  . 1)))
  42          ("ictus" .
  43           ((script-stencil . (feta . ("ictus" . "ictus")))
  44            (side-relative-direction .  -1)
  45            (quantize-position . #t)
  46            (script-priority . -100)
  47            (direction  . -1)))
  48          ("semicirculus" .
  49           ((script-stencil . (feta . ("dsemicirculus" . "dsemicirculus")))
  50            (side-relative-direction .  -1)
  51            (quantize-position . #t)
  52            (script-priority . -100)
  53            (direction  . 1)))
  54          ("circulus" .
  55           ((script-stencil . (feta . ("circulus" . "circulus")))
  56            (side-relative-direction .  -1)
  57            (quantize-position . #t)
  58            (script-priority . -100)
  59            (direction  . 1)))
  60
  61          ("signumcongruentiae" .
  62           ((script-stencil . (feta . ("dsignumcongruentiae" . "usignumcongruentiae")))
  63            (direction .  1)))
  64          ("fermata" .
  65           ((script-stencil . (feta . ("dfermata" . "ufermata")))
  66            (avoid-slur . around)
  67            (script-priority . 4000)
  68            (direction .  1)))
  69          ("shortfermata" .
  70           ((script-stencil . (feta . ("dshortfermata" . "ushortfermata")))
  71            (direction .  1)))
  72          ("longfermata" .
  73           ((script-stencil . (feta . ("dlongfermata" . "ulongfermata")))
  74            (direction .  1)))
  75          ("verylongfermata" .
  76           ((script-stencil . (feta . ("dverylongfermata" . "uverylongfermata")))
  77            (direction .  1)))
  78          ("stopped" .
  79           ((script-stencil . (feta . ("stopped" . "stopped")))
  80            (direction  . 1)))
  81          ("staccato" .
  82           ((script-stencil . (feta . ("staccato" . "staccato")))
  83            (side-relative-direction .  -1)
  84            (quantize-position . #t)
  85            (avoid-slur . inside)
  86            (script-priority . -100)))
  87          ("tenuto" .
  88           ((script-stencil . (feta . ("tenuto" . "tenuto")))
  89            (quantize-position . #t)
  90            (avoid-slur . inside)
  91            (side-relative-direction . -1)))
  92          ("comma" .
  93           ((script-stencil . (feta . ("lcomma" . "rcomma")))
  94            (quantize-position . #t)
  95            (direction . 1)))
  96          ("varcomma" .
  97           ((script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
  98            (quantize-position . #t)
  99            (direction . 1)))
 100          ("upbow" .
 101           ((script-stencil . (feta . ("upbow" . "upbow")))
 102            (avoid-slur . around)
 103            (direction  . 1)))
 104          ("downbow" .
 105           ((script-stencil . (feta . ("downbow" . "downbow")))
 106            (avoid-slur . around)
 107            (direction  . 1)))
 108          ("lheel" .
 109           ((script-stencil . (feta . ("upedalheel" . "upedalheel")))
 110            (direction .  -1))
 111           )
 112          ("rheel" .
 113           ((script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
 114            (direction  . 1)))
 115          ("ltoe" .
 116           ((script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
 117            (direction  . -1)))
 118          ("rtoe" .
 119           ((script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
 120            (direction  . 1)))
 121          ("turn" .
 122           ((script-stencil . (feta . ("turn" . "turn")))
 123            (direction  . 1)))
 124          ("open" .
 125           ((avoid-slur . outside)
 126                  (script-stencil . (feta . ("open" . "open")))
 127            (direction  . 1)))
 128          ("flageolet" .
 129           ((script-stencil . (feta . ("flageolet" . "flageolet")))
 130            (direction  . 1)))
 131          ("reverseturn" .
 132           ((script-stencil . (feta . ("reverseturn" . "reverseturn")))
 133            (direction  . 1)))
 134          ("trill" .
 135           ((script-stencil . (feta . ("trill" . "trill")))
 136            (direction . 1)
 137            (avoid-slur . outside)
 138            (script-priority . 2000)))
 139          ("prall" .
 140           ((script-stencil . (feta . ("prall" . "prall")))
 141            (direction  . 1)))
 142          ("mordent" .
 143           ((script-stencil . (feta . ("mordent" . "mordent")))
 144            (direction  . 1)))
 145          ("prallprall" .
 146           ((script-stencil . (feta . ("prallprall" . "prallprall")))
 147            (direction  . 1)))
 148          ("prallmordent" .
 149           ((script-stencil . (feta . ("prallmordent" . "prallmordent")))
 150            (direction  . 1)))
 151          ("upprall" .
 152           ((script-stencil . (feta . ("upprall" . "upprall")))
 153            (direction  . 1)))
 154          ("downprall" .
 155           ((script-stencil . (feta . ("downprall" . "downprall")))
 156            (direction  . 1)))
 157          ("upmordent" .
 158           ((script-stencil . (feta . ("upmordent" . "upmordent")))
 159            (direction  . 1)))
 160          ("downmordent" .
 161           ((script-stencil . (feta . ("downmordent" . "downmordent")))
 162            (direction  . 1)))
 163          ("lineprall" .
 164           ((script-stencil . (feta . ("lineprall" . "lineprall")))
 165            (direction  . 1)))
 166          ("pralldown" .
 167           ((script-stencil . (feta . ("pralldown" . "pralldown")))
 168            (direction  . 1)))
 169          ("prallup" .
 170           ((script-stencil . (feta . ("prallup" . "prallup")))
 171            (direction  . 1)))
 172          ("segno" .
 173           ((script-stencil . (feta . ("segno" . "segno")))
 174            (direction  . 1)))
 175          ("coda" .
 176           ((script-stencil . (feta . ("coda" . "coda")))
 177            (direction  . 1)))
 178          ("varcoda" .
 179           ((script-stencil . (feta . ("varcoda" . "varcoda")))
 180            (direction  . 1))))
 181        default-script-alist)
 182       )