new file.

[lilypond.git] / scm / define-grobs.scm

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 2cdda26f88ed20a86b3518df5ed189f930801411..8323f77c689e7ce6f89c6ab6c2167e44770334e9 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -704,26 +704,14 @@
 
     (PhrasingSlur
      . (
-       (print-function . ,Slur::print)
+       (print-function . ,New_slur::print)
        (thickness . 1.2)               
        (spacing-procedure . ,Spanner::set_spacing_rods)                
        (minimum-length . 1.5)
-       (after-line-breaking-callback . ,Slur::after_line_breaking)
-       (extremity-function . ,calc-slur-extremity)
-       (extremity-offset-alist . ,default-phrasing-slur-extremity-offset-alist)
-       (de-uglify-parameters . (1.5  0.8  -2.0))
-       (Y-extent-callback . ,Slur::height)
+       (after-line-breaking-callback . ,New_slur::after_line_breaking)
+       (Y-extent-callback . ,New_slur::height)
        (height-limit . 2.0)
        (ratio . 0.333)
-       (beautiful . 0.5)
-       (y-free . 0.75)
-       (attachment . (#f . #f))
-       (attachment-offset . ((0 . 0) . (0 . 0)))
-       (slope-limit . 0.8)
-       (details . ((force-blowfit . 0.5)
-                   (bezier-pct-c0 . -0.2) (bezier-pct-c3 . 0.000006)
-                   (bezier-pct-out-max . 0.8) (bezier-pct-in-max . 1.2)
-                   (bezier-area-steps . 1.0)))
        (meta . ((interfaces . (slur-interface spanner-interface))))
        ))
 
@@ -829,30 +817,14 @@
     (Slur
      . (
        (print-function . ,New_slur::print)
-       ; ,Slur::print)
        (thickness . 1.2)               
        (spacing-procedure . ,Spanner::set_spacing_rods)                
        (minimum-length . 1.5)
-       (after-line-breaking-callback .
-                                     ,New_slur::after_line_breaking)
-               ;                     ,Slur::after_line_breaking)
-       (extremity-function . ,calc-slur-extremity)
-       (extremity-offset-alist . ,default-slur-extremity-offset-alist)
-       (de-uglify-parameters . (1.5  0.8  -2.0))
-       (Y-extent-callback .
-                          ,New_slur::height)
+       (after-line-breaking-callback . ,New_slur::after_line_breaking)
+       (Y-extent-callback . ,New_slur::height)
                                        ; Slur::height)
        (height-limit . 2.0)
        (ratio . 0.25)
-       (beautiful . 0.5)
-       (y-free . 0.75)
-       (attachment . (#f . #f))
-       (attachment-offset . ((0 . 0) . (0 . 0)))
-       (slope-limit . 0.8)
-       (details . ((force-blowfit . 0.5)
-                   (bezier-pct-c0 . -0.2) (bezier-pct-c3 . 0.000006)
-                   (bezier-pct-out-max . 0.8) (bezier-pct-in-max . 1.2)
-                   (bezier-area-steps . 1.0)))
        (meta . ((interfaces . (slur-interface spanner-interface))))
        ))