Fix #339.

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

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 187218c6173dc545f627806720a91efee63ede76..d81c37d3c9c9d7fa2bc90f6d9cc68d3f79110967 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -820,6 +820,7 @@
        (X-offset . ,ly:side-position-interface::x-aligned-side)
        (direction . ,LEFT)
        (self-alignment-Y . ,CENTER)
+       (self-alignment-X . ,CENTER)
        (meta . ((class . Spanner)
                 (interfaces . (system-start-text-interface
                                side-position-interface
@@ -833,6 +834,7 @@
        (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
        (staff-padding . 2)
        (direction . ,UP)
+       (side-axis . ,Y)
        (self-alignment-X . ,CENTER)
        (meta . ((class . Item)
                 (interfaces . (side-position-interface
@@ -1147,6 +1149,7 @@
        (axes . (,X ,Y))
        (X-extent . ,ly:axis-group-interface::width)
        (Y-extent . ,ly:axis-group-interface::height)
+       (prefer-dotted-right . #t)
        (positioning-done . ,ly:note-collision-interface::calc-positioning-done)
        (meta . ((class . Item)
                 (interfaces . (note-collision-interface
@@ -1503,7 +1506,9 @@
      . (
        (axes . (,Y))
        (Y-extent . ,ly:axis-group-interface::height)
+       (X-extent . ,ly:axis-group-interface::width)
        (Y-offset . ,ly:side-position-interface::y-aligned-side)
+       (outside-staff-priority . 1000)
        (side-axis . ,Y)
        (staff-padding . 1.0)
        (padding . 1.2)
@@ -1716,7 +1721,9 @@
      . (
        (axes . (,Y))
        (Y-extent . ,ly:axis-group-interface::height)
+       (X-extent . ,ly:axis-group-interface::width)
        (Y-offset . ,ly:side-position-interface::y-aligned-side)
+       (outside-staff-priority . 1000)
        (side-axis . ,Y)
        (padding . 1.2)
        (staff-padding . 1.2)
@@ -1946,7 +1953,11 @@
                                   (Y . 0)
                                   (stencil-offset . (-0.5 . 0))
                                   (padding . 1.5)
-                                  (attach-dir . ,LEFT)
+                                  (attach-dir . ,CENTER)
+                                  ;; this isn't CENTER because the trill glyph's origin
+                                  ;; is not centered in its extent; to have the trill
+                                  ;; spanner aligned the same as a trill, we need a slight offset
+                                  (anchor-alignment . 0.15)
                                   ))
                          (left-broken . ((end-on-note . #t)))
                          (right . ((Y . 0)))
@@ -2062,7 +2073,9 @@
      . (
        (axes . (,Y))
        (Y-extent . ,ly:axis-group-interface::height)
+       (X-extent . ,ly:axis-group-interface::width)
        (Y-offset . ,ly:side-position-interface::y-aligned-side)
+       (outside-staff-priority . 1000)
        (side-axis . ,Y)
        (padding . 1.2)
        (staff-padding . 1.2)
@@ -2260,6 +2273,7 @@
 (define pure-functions
   (list
    parenthesize-elements
+   ly:rest::y-offset-callback
    ly:staff-symbol-referencer::callback
    ly:staff-symbol::height))