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