]> git.donarmstrong.com Git - lilypond.git/blobdiff - scm/define-grobs.scm
Doc: extend description of LilyPond code blocks (3098)
[lilypond.git] / scm / define-grobs.scm
index effaf131faa22f1dce75d52d8738b4c4eeb71ae7..31d431c7e11b52a0abe654c4639cb2c4d96abec5 100644 (file)
        (padding . 0.2)
        (positioning-done . ,ly:align-interface::align-to-minimum-distances)
        (stacking-dir . ,DOWN)
+       (X-extent . ,ly:axis-group-interface::width)
        (Y-extent . ,axis-group-interface::height)
        (meta . ((class . Spanner)
                 (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface::calc-pure-y-common)
        (padding . 0.5)
        (side-axis . ,Y)
        (staff-padding . 1.0)
+       (X-extent . ,ly:axis-group-interface::width)
        (Y-extent . ,axis-group-interface::height)
        (Y-offset . ,side-position-interface::y-aligned-side)
        (meta . ((class . Spanner)
        (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights)
        (axes . (,Y))
        (vertical-skylines . ,ly:axis-group-interface::calc-skylines)
+       (X-extent . ,ly:axis-group-interface::width)
        (Y-extent . ,axis-group-interface::height)
        (meta . ((class . Spanner)
                 (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface::calc-pure-y-common)
                               clef
                               key-cancellation
                               key-signature
-                              staff-bar
                               time-signature
+                              staff-bar
                               cue-clef
                               custos)))
        (non-musical . #t)
     (DotColumn
      . (
        (axes . (,X))
-       (chord-dots . #t)
        (direction . ,RIGHT)
        (positioning-done . ,ly:dot-column::calc-positioning-done)
        (X-extent . ,ly:axis-group-interface::width)
      . (
        (padding . 0.2)
        (positioning-done . ,ly:fingering-column::calc-positioning-done)
+       (snap-radius . 0.3)
        (meta . ((class . Item)
                 (interfaces . (fingering-column-interface))))))
 
        (annotation-balloon . #f)
        (annotation-line . #t)
        (automatically-numbered . ,(grob::calc-property-by-copy 'automatically-numbered))
-       (break-visibility . ,inherit-y-parent-visibility)
+       (break-visibility . ,(grob::inherit-parent-property
+                              X 'break-visibility))
        (footnote . #t)
        (footnote-text . ,(grob::calc-property-by-copy 'footnote-text))
        (stencil . ,ly:balloon-interface::print)
        (outside-staff-priority . 1000)
        (padding . 0.8)
        (side-axis . ,Y)
+       (skyline-horizontal-padding . 0.2)
        (stencil . ,ly:text-interface::print)
        (vertical-skylines . ,grob::always-vertical-skylines-from-stencil)
        (Y-offset . ,side-position-interface::y-aligned-side)
 
     (OctavateEight
      . (
-       (break-visibility . ,inherit-x-parent-visibility)
+       (break-visibility . ,(grob::inherit-parent-property
+                              X 'break-visibility))
        (font-shape . italic)
        (font-size . -4)
        (self-alignment-X . ,CENTER)
 
     (SpanBarStub
      . (
-        (X-extent . ,grob::x-parent-width)
+        (X-extent . ,(grob::inherit-parent-property
+                      X 'X-extent))
        (extra-spacing-height . ,pure-from-neighbor-interface::extra-spacing-height)
        ; we want this to be ignored, so empty, but the extra spacing height
        ; should preserve the span bar's presence for horizontal spacing
-       (Y-extent . ,pure-from-neighbor-interface::unobtrusive-height)
+       (Y-extent . ,pure-from-neighbor-interface::height-if-pure)
        (meta . ((class . Item)
                 (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface::calc-pure-y-common)
                                      (pure-relevant-grobs . ,ly:pure-from-neighbor-interface::calc-pure-relevant-grobs)))
        (collapse-height . 5.0)
        (direction . ,LEFT)
 
+       (cross-staff . #t)
        ;; ugh--hardcoded.
        (padding . -0.1)  ;; bar must cover rounded ending of staff line.
        (stencil . ,ly:system-start-delimiter::print)
        (collapse-height . 5.0)
        (direction . ,LEFT)
        (font-encoding . fetaBraces)
+       (cross-staff . #t)
        (padding . 0.3)
        (stencil . ,ly:system-start-delimiter::print)
        (style . brace)
      . (
        (collapse-height . 5.0)
        (direction . ,LEFT)
+       (cross-staff . #t)
        (padding . 0.8)
        (stencil . ,ly:system-start-delimiter::print)
        (style . bracket)
     (SystemStartSquare
      . (
        (direction . ,LEFT)
+       (cross-staff . #t)
        (stencil . ,ly:system-start-delimiter::print)
        (style . line-bracket)
        (thickness . 1.0)
                        (cue-clef . (extra-space . 1.5))
                        (first-note . (fixed-space . 2.0))
                        (right-edge . (extra-space . 0.5))
-                       (staff-bar . (minimum-space . 2.0))))
+                       (staff-bar . (extra-space . 1.0))))
        (stencil . ,ly:time-signature::print)
        (Y-extent . ,grob::always-Y-extent-from-stencil)
        (style . C)