*** empty log message ***

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

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 25e00eaa1f657d9bc5f6874f0f7d487eae575e91..26143927d4e4927793e592a091feba3a09640459 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -115,7 +115,9 @@
 
        ;;
        ;; Ross. page 151 lists other values, we opt for a leaner look
-       ;; 
+       ;;
+       ;; TODO:
+       ;; kern should scale with linethickness too. 
        (kern . 3.0)
        (thin-kern . 3.0)
        (hair-thickness . 1.9)
@@ -763,7 +765,7 @@
        (Y-extent-callback . ,New_slur::height)
        (height-limit . 2.0)
        (ratio . 0.333)
-       (meta . ((interfaces . (slur-interface spanner-interface))))
+       (meta . ((interfaces . (slur-interface new-slur-interface spanner-interface))))
        ))
 
     (NonMusicalPaperColumn
@@ -876,7 +878,7 @@
                                        ; Slur::height)
        (height-limit . 2.0)
        (ratio . 0.25)
-       (meta . ((interfaces . (slur-interface spanner-interface))))
+       (meta . ((interfaces . (slur-interface new-slur-interface spanner-interface))))
        ))
 
     (SpacingSpanner
@@ -885,6 +887,7 @@
        (grace-space-factor . 0.6)
        (shortest-duration-space . 2.0)
        (spacing-increment . 1.2)
+;      (base-shortest-duration . ,(ly:make-moment 1 8 3 2))
        (base-shortest-duration . ,(ly:make-moment 1 8))
        (meta . ((interfaces . (spacing-interface spacing-spanner-interface spanner-interface))))
        ))