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