Run `make grand-replace'.

[lilypond.git] / scm / script.scm

diff --git a/scm/script.scm b/scm/script.scm
index e12cdd07dd65a9c49ee47ec1b5676cb395c88854..eb2fad500a70b8f6763d57bf5125c0ffdc0c77a6 100644 (file)
--- a/scm/script.scm
+++ b/scm/script.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;; source file of the GNU LilyPond music typesetter
 ;;;; 
-;;;; (c) 2000--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 2000--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 (define-public default-script-alist
   '(("thumb" .
@@ -45,6 +45,7 @@
     ("accentus" .
      ((script-stencil . (feta . ("uaccentus" . "uaccentus")))
       (side-relative-direction .  -1)
+      (avoid-slur . #f)
       (padding . 0.20)    
       (quantize-position . #t)
       (script-priority . -100)
@@ -53,6 +54,7 @@
      ((script-stencil . (feta . ("ictus" . "ictus")))
       (side-relative-direction .  -1)
       (quantize-position . #t)
+      (avoid-slur . #f)
       (padding . 0.20)    
       (script-priority . -100)
       (direction  . -1)))
@@ -60,12 +62,14 @@
      ((script-stencil . (feta . ("dsemicirculus" . "dsemicirculus")))
       (side-relative-direction .  -1)
       (quantize-position . #t)
+      (avoid-slur . #f)
       (padding . 0.20)    
       (script-priority . -100)
       (direction  . 1)))
     ("circulus" .
      ((script-stencil . (feta . ("circulus" . "circulus")))
       (side-relative-direction .  -1)
+      (avoid-slur . #f)
       (padding . 0.20)    
       (quantize-position . #t)
       (script-priority . -100)
@@ -74,6 +78,7 @@
     ("signumcongruentiae" .
      ((script-stencil . (feta . ("dsignumcongruentiae" . "usignumcongruentiae")))
       (padding . 0.20)    
+      (avoid-slur . outside)
       (direction .  1)))
     ("fermata" .
      ((script-stencil . (feta . ("dfermata" . "ufermata")))
@@ -84,14 +89,17 @@
     ("shortfermata" .
      ((script-stencil . (feta . ("dshortfermata" . "ushortfermata")))
       (padding . 0.20)    
+      (avoid-slur . around)
       (direction .  1)))
     ("longfermata" .
      ((script-stencil . (feta . ("dlongfermata" . "ulongfermata")))
       (padding . 0.20)    
+      (avoid-slur . around)
       (direction .  1)))
     ("verylongfermata" .
      ((script-stencil . (feta . ("dverylongfermata" . "uverylongfermata")))
       (padding . 0.20)    
+      (avoid-slur . around)
       (direction .  1)))
     ("stopped" .
      ((script-stencil . (feta . ("stopped" . "stopped")))
@@ -115,11 +123,13 @@
      ((script-stencil . (feta . ("lcomma" . "rcomma")))
       (quantize-position . #t)
       (padding . 0.20)    
+      (avoid-slur . #f)
       (direction . 1)))
     ("varcomma" .
      ((script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
       (quantize-position . #t)
       (padding . 0.20)    
+      (avoid-slur . #f)
       (direction . 1)))
     ("upbow" .
      ((script-stencil . (feta . ("upbow" . "upbow")))
@@ -134,19 +144,23 @@
     ("lheel" .
      ((script-stencil . (feta . ("upedalheel" . "upedalheel")))
       (padding . 0.20)    
+      (avoid-slur . around) ;guessing?
       (direction .  -1))
      )
     ("rheel" .
      ((script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
       (padding . 0.20)    
+      (avoid-slur . around) ;guessing?
       (direction  . 1)))
     ("ltoe" .
      ((script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
       (padding . 0.20)    
+      (avoid-slur . around) ;guessing?
       (direction  . -1)))
     ("rtoe" .
      ((script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
       (padding . 0.20)    
+      (avoid-slur . around) ;guessing?
       (direction  . 1)))
     ("turn" .
      ((script-stencil . (feta . ("turn" . "turn")))
@@ -161,10 +175,12 @@
     ("flageolet" .
      ((script-stencil . (feta . ("flageolet" . "flageolet")))
       (padding . 0.20)    
+      (avoid-slur . around) ;guessing?
       (direction  . 1)))
     ("reverseturn" .
      ((script-stencil . (feta . ("reverseturn" . "reverseturn")))
       (padding . 0.20)    
+      (avoid-slur . inside)
       (direction  . 1)))
     ("trill" .
      ((script-stencil . (feta . ("trill" . "trill")))
@@ -175,56 +191,70 @@
     ("prall" .
      ((script-stencil . (feta . ("prall" . "prall")))
       (padding . 0.20)    
+      (avoid-slur . around)
       (direction  . 1)))
     ("mordent" .
      ((script-stencil . (feta . ("mordent" . "mordent")))
       (padding . 0.20)    
+      (avoid-slur . around)
       (direction  . 1)))
     ("prallprall" .
      ((script-stencil . (feta . ("prallprall" . "prallprall")))
       (padding . 0.20)    
+      (avoid-slur . around)
       (direction  . 1)))
     ("prallmordent" .
      ((script-stencil . (feta . ("prallmordent" . "prallmordent")))
       (padding . 0.20)    
+      (avoid-slur . around)
       (direction  . 1)))
     ("upprall" .
      ((script-stencil . (feta . ("upprall" . "upprall")))
       (padding . 0.20)    
+      (avoid-slur . around)
       (direction  . 1)))
     ("downprall" .
      ((script-stencil . (feta . ("downprall" . "downprall")))
       (padding . 0.20)    
+      (avoid-slur . around)
       (direction  . 1)))
     ("upmordent" .
      ((script-stencil . (feta . ("upmordent" . "upmordent")))
       (padding . 0.20)    
+      (avoid-slur . around)
       (direction  . 1)))
     ("downmordent" .
      ((script-stencil . (feta . ("downmordent" . "downmordent")))
       (padding . 0.20)    
+      (avoid-slur . around)
       (direction  . 1)))
     ("lineprall" .
      ((script-stencil . (feta . ("lineprall" . "lineprall")))
       (padding . 0.20)    
+      (avoid-slur . around)
       (direction  . 1)))
     ("pralldown" .
      ((script-stencil . (feta . ("pralldown" . "pralldown")))
       (padding . 0.20)    
+      (avoid-slur . around)
       (direction  . 1)))
     ("prallup" .
      ((script-stencil . (feta . ("prallup" . "prallup")))
       (padding . 0.20)    
+      (avoid-slur . around)
       (direction  . 1)))
     ("segno" .
      ((script-stencil . (feta . ("segno" . "segno")))
       (padding . 0.20)    
+      (avoid-slur . outside)
       (direction  . 1)))
     ("coda" .
      ((script-stencil . (feta . ("coda" . "coda")))
       (padding . 0.20)    
+      (avoid-slur . outside)
       (direction  . 1)))
     ("varcoda" .
      ((script-stencil . (feta . ("varcoda" . "varcoda")))
       (padding . 0.20)    
+      (avoid-slur . outside)
       (direction  . 1)))))