X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fscript.scm;h=00298bcb5cd5a840aef5d0586f8b07cc0a59d752;hb=38eb0e029bdeb5ff9dfa5ca3be83ce2f285dbe09;hp=9df3e8905ceeea724e104e830c6de23816713758;hpb=77cc001961a4931c002128b34638f69c082b9102;p=lilypond.git

diff --git a/scm/script.scm b/scm/script.scm
index 9df3e8905c..00298bcb5c 100644
--- a/scm/script.scm
+++ b/scm/script.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;; source file of the GNU LilyPond music typesetter
 ;;;; 
-;;;; (c) 2000--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 2000--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 (define-public default-script-alist
   '(("thumb" .
@@ -45,7 +45,7 @@
     ("accentus" .
      ((script-stencil . (feta . ("uaccentus" . "uaccentus")))
       (side-relative-direction .  -1)
-      (avoid-slur . #f)
+      (avoid-slur . ignore)
       (padding . 0.20)	   
       (quantize-position . #t)
       (script-priority . -100)
@@ -54,7 +54,7 @@
      ((script-stencil . (feta . ("ictus" . "ictus")))
       (side-relative-direction .  -1)
       (quantize-position . #t)
-      (avoid-slur . #f)
+      (avoid-slur . ignore)
       (padding . 0.20)	   
       (script-priority . -100)
       (direction  . -1)))
@@ -62,14 +62,14 @@
      ((script-stencil . (feta . ("dsemicirculus" . "dsemicirculus")))
       (side-relative-direction .  -1)
       (quantize-position . #t)
-      (avoid-slur . #f)
+      (avoid-slur . ignore)
       (padding . 0.20)	   
       (script-priority . -100)
       (direction  . 1)))
     ("circulus" .
      ((script-stencil . (feta . ("circulus" . "circulus")))
       (side-relative-direction .  -1)
-      (avoid-slur . #f)
+      (avoid-slur . ignore)
       (padding . 0.20)	   
       (quantize-position . #t)
       (script-priority . -100)
@@ -111,6 +111,7 @@
       (side-relative-direction .  -1)
       (quantize-position . #t)
       (avoid-slur . inside) 
+      (toward-stem-shift . 0.5)
       (padding . 0.20)	   
       (script-priority . -100)))
     ("tenuto" .
@@ -123,13 +124,13 @@
      ((script-stencil . (feta . ("lcomma" . "rcomma")))
       (quantize-position . #t)
       (padding . 0.20)	   
-      (avoid-slur . #f)
+      (avoid-slur . ignore)
       (direction . 1)))
     ("varcomma" .
      ((script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
       (quantize-position . #t)
       (padding . 0.20)	   
-      (avoid-slur . #f)
+      (avoid-slur . ignore)
       (direction . 1)))
     ("upbow" .
      ((script-stencil . (feta . ("upbow" . "upbow")))
@@ -257,4 +258,10 @@
      ((script-stencil . (feta . ("varcoda" . "varcoda")))
       (padding . 0.20)	   
       (avoid-slur . outside)
-      (direction  . 1)))))
+      (direction  . 1)))
+    ("snappizzicato" .
+     ((script-stencil . (feta . ("snappizzicato" . "snappizzicato")))
+      (padding . 0.20)
+      (avoid-slur . outside)
+      (direction  . 1)))
+      ))