2002-07-13 Han-Wen <hanwen@cs.uu.nl>

[lilypond.git] / scm / slur.scm

diff --git a/scm/slur.scm b/scm/slur.scm
index d632839023a41271bff55706095440cc32aea27e..51445d3a54a00e467286902e2ea0e300ec44090f 100644 (file)
--- a/scm/slur.scm
+++ b/scm/slur.scm
@@ -69,7 +69,7 @@
                       (let ((beaming (ly-get-grob-property stem 'beaming)))
                         ;; (display "beaming (") (display dir) (display "): ") (write beaming) (newline)
                         (if (pair? beaming)
-                            (>= (if (= dir -1) (cdr beaming) (car beaming))
+                            (>= (length (if (= dir -1) (cdr beaming) (car beaming)))
                                1)
                             #f))))))
         'stem)
@@ -93,13 +93,13 @@
 ;; stem: Default position is on stem X, at stem end Y
 (define default-slur-extremity-offset-alist
   '(
-    ((head 1 1) . (-0.25 . 0.25))
-    ((head 1 -1) . (-0.25 . 0.25))
-    ((head -1 1) . (-0.25 . 0.25))
-    ((head -1 -1) . (-0.85 . 0.25))
+    ((head 1 1) . (-0.25 . 0.75))
+    ((head 1 -1) . (-0.25 . 0.75))
+    ((head -1 1) . (-0.25 . 0.75))
+    ((head -1 -1) . (-0.85 . 0.75))
 
-    ((stem 1 1) . (0 . 0.5))
-    ((stem -1 -1) . (0 . 0.5))
+    ((stem 1 1) . (-0.125 . 0.5))
+    ((stem -1 -1) . (-0.125 . 0.5))
 
     ((loose-end 1 1) . (-0.4 . 0))
     ((loose-end 1 -1) . (-0.4 . 0))
@@ -118,8 +118,8 @@
     ((head -1 1) . (-0.25 . 1.25))
     ((head -1 -1) . (-0.85 . 1.25))
 
-    ((stem 1 1) . (0 . 1.5))
-    ((stem -1 -1) . (0 . 1.5))
+    ((stem 1 1) . (-0.25 . 1.5))
+    ((stem -1 -1) . (-0.25 . 1.5))
 
     ((loose-end 1 1) . (-0.4 . 0))
     ((loose-end 1 -1) . (-0.4 . 0))