From ce7dd8902c52e100ada0dae7173233652ac57b9c Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Wed, 24 Jan 2007 15:42:03 +0100 Subject: [PATCH] add dynamic-text-spanner-interface; tune trill spanner attachment. --- scm/define-grob-interfaces.scm | 5 +++++ scm/define-grobs.scm | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/scm/define-grob-interfaces.scm b/scm/define-grob-interfaces.scm index e141103e05..a86022b709 100644 --- 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 50e984034e..a1c70d6599 100644 --- 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)))) )) -- 2.39.5