]> git.donarmstrong.com Git - lilypond.git/commitdiff
use new-line-spanner for trills.
authorHan-Wen Nienhuys <hanwen@xs4all.nl>
Wed, 24 Jan 2007 13:20:04 +0000 (14:20 +0100)
committerHan-Wen Nienhuys <hanwen@xs4all.nl>
Wed, 24 Jan 2007 13:20:04 +0000 (14:20 +0100)
scm/define-grobs.scm

index 034306706f3758af38af16622e54cf5ae4f1a078..e99b6bd197db052117c948bb48de2e0922ec88df 100644 (file)
        (zigzag-width . 0.75)
        (X-extent . #f)
        (Y-extent . #f)
-       (bound-details . (
-                         (right . ((attach-dir .  ,CENTER)
-                                     (padding . 1.5)
+       (bound-details . ((right . ((attach-dir .  ,CENTER)
+                                   (padding . 1.5)
                                      ))
                          (left . ((attach-dir .  ,CENTER)
-                                     (padding . 1.5)
+                                  (padding . 1.5)
                                      ))
                          ))
        (stencil . ,ly:new-line-spanner::print)
 
     (TrillSpanner
      . (
-       (stencil . ,ly:dynamic-text-spanner::print)
-       (edge-text . ,(cons (make-musicglyph-markup "scripts.trill")
-                           ""))
+       (left-bound-info . ,ly:new-line-spanner::calc-left-bound-info)
+       (right-bound-info . ,ly:new-line-spanner::calc-right-bound-info)
+       (bound-details . ((left . ((text . ,(make-translate-scaled-markup
+                                            '(0 . -0.6)
+                                            (make-musicglyph-markup "scripts.trill")))
+                                  (Y . 0)
+                                  (padding . 0.25)
+                                  ))
+                         (right . ((Y . 0)))
+                         ))
+       (stencil . ,ly:new-line-spanner::print)
+
        (style . trill)
        (staff-padding . 1.0)
        (padding . 0.5)