scm/script.scm

   1 ;;;; script.scm -- Script definitions
   2 ;;;;
   3 ;;;; source file of the GNU LilyPond music typesetter
   4 ;;;;
   5 ;;;; (c)  2000--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   6
   7 (set! default-script-alist
   8       (append
   9        '(("thumb" .
  10           (
  11            (script-stencil . (feta . ("thumb"  . "thumb")))
  12            (direction . 1)))
  13          ("accent" .
  14           (
  15            (script-stencil . (feta . ("sforzato" .  "sforzato")))
  16            (side-relative-direction . -1))
  17           )
  18          ("marcato" .
  19           (
  20            (script-stencil . (feta . ("dmarcato" . "umarcato")))
  21            (side-relative-direction .  -1)))
  22          ("staccatissimo" .
  23           (
  24            (script-stencil . (feta . ("dstaccatissimo" . "ustaccatissimo")))
  25            (side-relative-direction .  -1)))
  26
  27          ("portato" .
  28           ((script-stencil . (feta . ("dportato" . "uportato")))
  29            (side-relative-direction . -1)))
  30
  31          ("accentus" .
  32           ((script-stencil . (feta . ("uaccentus" . "uaccentus")))
  33            (side-relative-direction .  -1)
  34            (follow-into-staff  . #t)
  35            (priority . -100)
  36            (direction  . 1)))
  37          ("ictus" .
  38           ((script-stencil . (feta . ("ictus" . "ictus")))
  39            (side-relative-direction .  -1)
  40            (follow-into-staff  . #t)
  41            (priority . -100)
  42            (direction  . -1)))
  43          ("semicirculus" .
  44           ((script-stencil . (feta . ("dsemicirculus" . "dsemicirculus")))
  45            (side-relative-direction .  -1)
  46            (follow-into-staff  . #t)
  47            (priority . -100)
  48            (direction  . 1)))
  49          ("circulus" .
  50           ((script-stencil . (feta . ("circulus" . "circulus")))
  51            (side-relative-direction .  -1)
  52            (follow-into-staff  . #t)
  53            (priority . -100)
  54            (direction  . 1)))
  55
  56          ("signumcongruentiae" .
  57           ((script-stencil . (feta . ("dsignumcongruentiae" . "usignumcongruentiae")))
  58            (direction .  1)))
  59          ("fermata" .
  60           ((script-stencil . (feta . ("dfermata" . "ufermata")))
  61            (direction .  1)))
  62          ("shortfermata" .
  63           ((script-stencil . (feta . ("dshortfermata" . "ushortfermata")))
  64            (direction .  1)))
  65          ("longfermata" .
  66           ((script-stencil . (feta . ("dlongfermata" . "ulongfermata")))
  67            (direction .  1)))
  68          ("verylongfermata" .
  69           ((script-stencil . (feta . ("dverylongfermata" . "uverylongfermata")))
  70            (direction .  1)))
  71          ("stopped" .
  72           ((script-stencil . (feta . ("stopped" . "stopped")))
  73            (direction  . 1) ))
  74          ("staccato" .
  75           ((script-stencil . (feta . ("staccato" . "staccato")))
  76            (side-relative-direction .  -1)
  77            (follow-into-staff  . #t)
  78            (priority . -100)))
  79          ("tenuto" .
  80           ((script-stencil . (feta . ("tenuto" . "tenuto")))
  81            (follow-into-staff . #t)
  82            (side-relative-direction . -1)))
  83          ("comma" .
  84           ((script-stencil . (feta . ("lcomma" . "rcomma")))
  85            (follow-into-staff . #t)
  86            (direction . 1)))
  87          ("varcomma" .
  88           ((script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
  89            (follow-into-staff . #t)
  90            (direction . 1)))
  91          ("upbow" .
  92           ((script-stencil . (feta . ("upbow" . "upbow")))
  93            (direction  . 1) ))
  94          ("downbow" .
  95           ((script-stencil . (feta . ("downbow" . "downbow")))
  96            (direction  . 1) ))
  97          ("lheel" .
  98           ((script-stencil . (feta . ("upedalheel" . "upedalheel")))
  99            (direction .  -1))
 100           )
 101          ("rheel" .
 102           ((script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
 103            (direction  . 1) ))
 104          ("ltoe" .
 105           ((script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
 106            (direction  . -1) ))
 107          ("rtoe" .
 108           ((script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
 109            (direction  . 1) ))
 110          ("turn" .
 111           ((script-stencil . (feta . ("turn" . "turn")))
 112            (direction  . 1) ))
 113          ("open" .
 114           ((script-stencil . (feta . ("open" . "open")))
 115            (direction  . 1) ))
 116          ("flageolet" .
 117           ((script-stencil . (feta . ("flageolet" . "flageolet")))
 118            (direction  . 1) ))
 119          ("reverseturn" .
 120           ((script-stencil . (feta . ("reverseturn" . "reverseturn")))
 121            (direction  . 1) ))
 122          ("trill" .
 123           ((script-stencil . (feta . ("trill" . "trill")))
 124            (direction . 1)
 125            (priority . 2000)))
 126          ("prall" .
 127           ((script-stencil . (feta . ("prall" . "prall")))
 128            (direction  . 1) ))
 129          ("mordent" .
 130           ((script-stencil . (feta . ("mordent" . "mordent")))
 131            (direction  . 1) ))
 132          ("prallprall" .
 133           ((script-stencil . (feta . ("prallprall" . "prallprall")))
 134            (direction  . 1) ))
 135          ("prallmordent" .
 136           ((script-stencil . (feta . ("prallmordent" . "prallmordent")))
 137            (direction  . 1) ))
 138          ("upprall" .
 139           ((script-stencil . (feta . ("upprall" . "upprall")))
 140            (direction  . 1) ))
 141          ("downprall" .
 142           ((script-stencil . (feta . ("downprall" . "downprall")))
 143            (direction  . 1) ))
 144          ("upmordent" .
 145           ((script-stencil . (feta . ("upmordent" . "upmordent")))
 146            (direction  . 1) ))
 147          ("downmordent" .
 148           ((script-stencil . (feta . ("downmordent" . "downmordent")))
 149            (direction  . 1) ))
 150          ("lineprall" .
 151           ((script-stencil . (feta . ("lineprall" . "lineprall")))
 152            (direction  . 1) ))
 153          ("pralldown" .
 154           ((script-stencil . (feta . ("pralldown" . "pralldown")))
 155            (direction  . 1) ))
 156          ("prallup" .
 157           ((script-stencil . (feta . ("prallup" . "prallup")))
 158            (direction  . 1) ))
 159          ("segno" .
 160           ((script-stencil . (feta . ("segno" . "segno")))
 161            (direction  . 1) ))
 162          ("coda" .
 163           ((script-stencil . (feta . ("coda" . "coda")))
 164            (direction  . 1) ))
 165          ("varcoda" .
 166           ((script-stencil . (feta . ("varcoda" . "varcoda")))
 167            (direction  . 1) )))
 168        default-script-alist)
 169       )