add dynamic-text-spanner-interface; tune trill spanner attachment.

diff --git a/scm/define-grob-interfaces.scm b/scm/define-grob-interfaces.scm
index e141103e05b05d0aadfe0d5098e56912d76405a1..a86022b7094762881087ef8512fcf66317106ddb 100644 (file)
--- a/scm/define-grob-interfaces.scm
+++ b/scm/define-grob-interfaces.scm
@@ -39,6 +39,11 @@
    "Dynamic line spanner"
    '(avoid-slur))
 
+(ly:add-interface
+ 'dynamic-text-spanner-interface
+   "Dynamic text spanner"
+   '())
+
 (ly:add-interface
  'finger-interface
  "A fingering instruction"

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 50e984034e0167e8aac74e03e5a6bbe0985d04eb..a1c70d65990e421b031b6fbb73af1cadee5065d0 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -671,6 +671,7 @@
                 (interfaces . (font-interface
                                text-interface
                                new-line-spanner-interface
+                               line-interface
                                dynamic-interface
                                dynamic-text-spanner-interface
                                spanner-interface))))))
@@ -1899,10 +1900,11 @@
        (right-bound-info . ,ly:new-line-spanner::calc-right-bound-info)
 
        (bound-details . ((left . ((text . ,(make-translate-scaled-markup
-                                            '(0 . -0.6)
+                                            '(0.5 . -0.6)
                                             (make-musicglyph-markup "scripts.trill")))
                                   (Y . 0)
                                   (padding . 0.25)
+                                  (attach-dir . ,LEFT)
                                   ))
                          (right . ((Y . 0)))
                          ))
@@ -2103,7 +2105,7 @@
        (left-bound-info . ,ly:new-line-spanner::calc-left-bound-info)
        (right-bound-info . ,ly:new-line-spanner::calc-right-bound-info)
        (meta . ((class . Spanner)
-                (interfaces . (line-spanner-interface
+                (interfaces . (new-line-spanner-interface
                                line-interface))))
        ))