Fix some bugs in the dynamic engraver and PostScript backend

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

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 1d10225b4d64c94c2383aad2e37d45c3702182c0..02bc9cc8ad924c156ab73cf3cfde1ae2d024f3dd 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -74,7 +74,7 @@
                        (staff-bar . (extra-space . 0.0))
                        (time-signature . (extra-space . 0.0))
                        (first-note . (fixed-space . 0.0))))
-       (breakable . #t)
+       (non-musical . #t)
        (break-align-symbol . ambitus)
        (break-visibility . ,begin-of-line-visible)
        (meta . ((class . Item)
@@ -144,7 +144,7 @@
        (glyph . "|")
        (layer . 0)
        (break-visibility . ,all-visible)
-       (breakable . #t)
+       (non-musical . #t)
 
        (stencil . ,ly:bar-line::print)
        (glyph-name . ,bar-line::calc-glyph-name)
@@ -177,7 +177,7 @@
     (BarNumber
      . (
        (stencil . ,ly:text-interface::print)
-       (breakable . #t)
+       (non-musical . #t)
        (break-visibility . ,begin-of-line-visible)
        (padding . 1.0)
        (direction . ,UP)
@@ -212,6 +212,32 @@
                                rhythmic-grob-interface
                                bass-figure-interface
                                font-interface))))))
+
+    (BassFigureAlignment
+     . (
+       (axes . (,Y))
+       (threshold . (2 . 1000))
+       (positioning-done . ,ly:align-interface::calc-positioning-done)
+       (Y-extent . ,ly:axis-group-interface::height)
+       (stacking-dir . -1)
+       (meta . ((class . Spanner)
+                (interfaces . (align-interface
+                               bass-figure-alignment-interface
+                               axis-group-interface))))))
+
+    (BassFigureAlignmentPositioning
+     . ((Y-offset . ,ly:side-position-interface::y-aligned-side)
+       (side-axis . ,Y)
+       (direction . ,UP)
+       (Y-extent . ,ly:axis-group-interface::height)
+       (axes . (,Y))
+       (staff-padding . 1.0)
+       (padding . 0.5)
+       (meta . ((class . Spanner)
+                (interfaces . (side-position-interface
+                               axis-group-interface
+                            ))))))
+    
     (BassFigureBracket
      . (
        (stencil . ,ly:enclosing-bracket::print)
@@ -235,16 +261,6 @@
                 (interfaces . (axis-group-interface
                                ))))))
 
-    (BassFigureAlignment
-     . (
-       (axes . (,Y))
-       (threshold . (2 . 1000))
-       (positioning-done . ,ly:align-interface::calc-positioning-done)
-       (Y-extent . ,ly:axis-group-interface::height)
-       (stacking-dir . -1)
-       (meta . ((class . Spanner)
-                (interfaces . (align-interface
-                               axis-group-interface))))))
 
     (Beam
      . (
@@ -268,7 +284,8 @@
        (shorten . ,ly:beam::calc-stem-shorten)
        (beaming . ,ly:beam::calc-beaming)
        (stencil . ,ly:beam::print)
-
+       (clip-edges . #t)
+       
        ;; TODO: should be in SLT.
        (thickness . 0.48) ; in staff-space
        (neutral-direction . ,DOWN)
@@ -299,7 +316,7 @@
 
     (BreakAlignment
      . (
-       (breakable . #t)
+       (non-musical . #t)
        (stacking-dir . 1)
        (positioning-done . ,ly:break-align-interface::calc-positioning-done)
        (X-extent . ,ly:axis-group-interface::width)
@@ -354,7 +371,7 @@
     (BreathingSign
      . (
        (break-align-symbol . breathing-sign)
-       (breakable . #t)
+       (non-musical . #t)
        (space-alist . (
                        (ambitus . (extra-space . 2.0))
                        (custos . (minimum-space . 1.0))
@@ -378,7 +395,7 @@
      . (
        (stencil . ,ly:clef::print)
        (glyph-name . ,ly:clef::calc-glyph-name)
-       (breakable . #t)
+       (non-musical . #t)
        (font-family . music)
        (break-align-symbol . clef)
        (break-visibility . ,begin-of-line-visible)
@@ -450,7 +467,7 @@
     (Custos
      . (
        (break-align-symbol . custos)
-       (breakable . #t)
+       (non-musical . #t)
        (stencil . ,ly:custos::print)
        (break-visibility . ,end-of-line-visible)
        (style . vaticana)
@@ -489,7 +506,7 @@
     (DoublePercentRepeat
      . (
        (stencil . ,ly:percent-repeat-item-interface::double-percent)
-       (breakable . #t)
+       (non-musical . #t)
        (slope . 1.0)
        (font-encoding . fetaMusic)
        (width . 2.0)
@@ -616,7 +633,7 @@
        (style . line)
        (gap . 0.5)
        (zigzag-width . 0.75)
-       (breakable . #t)
+       (non-musical . #t)
        (X-extent . #f)
        (Y-extent . #f)
        (stencil . ,ly:line-spanner::print)
@@ -652,6 +669,7 @@
        (stencil . ,ly:hairpin::print)
        (springs-and-rods . ,ly:spanner::set-spacing-rods)
        (after-line-breaking . ,ly:hairpin::after-line-breaking)
+       (circled-tip . #f)
        (thickness . 1.0)
        (height . 0.6666)
        (minimum-length . 2.0)
@@ -704,7 +722,7 @@
        (Y-offset . ,ly:staff-symbol-referencer::callback)
        (break-align-symbol . key-cancellation)
        (break-visibility . ,begin-of-line-invisible)
-       (breakable . #t)
+       (non-musical . #t)
        (meta . ((class . Item)
                 (interfaces . (key-signature-interface
                                font-interface
@@ -720,7 +738,7 @@
        (Y-offset . ,ly:staff-symbol-referencer::callback)
        (break-align-symbol . key-signature)
        (break-visibility . ,begin-of-line-visible)
-       (breakable . #t)
+       (non-musical . #t)
        (meta . ((class . Item)
                 (interfaces . (key-signature-interface
                                font-interface
@@ -767,7 +785,7 @@
      . (
        (break-align-symbol . left-edge)
        (X-extent . (0 . 0))
-       (breakable . #t)
+       (non-musical . #t)
        (break-visibility . ,center-invisible)
        (space-alist . (
                        (custos . (extra-space . 0.0))
@@ -1100,7 +1118,8 @@
        (X-extent . ,ly:axis-group-interface::width)
        ;;                    (stencil . ,ly:paper-column::print)
        
-       (breakable . #t)
+       (non-musical . #t)
+       (line-break-permission . allow)
 
        ;; debugging stuff: print column number.
        ;;               (font-size . -6) (font-name . "sans")  (Y-extent . #f)
@@ -1170,7 +1189,7 @@
        (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (self-alignment-X . 0)
        (direction . ,UP)
-       (breakable . #t)
+       (non-musical . #t)
        (font-size . 2)
        (baseline-skip . 2)
        (break-visibility . ,end-of-line-invisible)
@@ -1340,7 +1359,7 @@
        (break-align-symbol . staff-bar)
        (Y-extent . ())
        (layer . 0)
-       (breakable . #t)
+       (non-musical . #t)
        (stencil . ,ly:span-bar::print)
        (bar-size . ,ly:span-bar::calc-bar-size)
        (X-extent . ,ly:span-bar::width)
@@ -1378,7 +1397,7 @@
 
     (StaffSpacing
      . (
-       (breakable . #t)
+       (non-musical . #t)
        (stem-spacing-correction . 0.4)
        (meta . ((class . Item)
                 (interfaces . (spacing-interface
@@ -1451,7 +1470,8 @@
        (stencil . ,ly:stem-tremolo::print)
        (X-extent . #f)
        (slope . ,ly:stem-tremolo::calc-slope)
-       (beam-width . 1.6) ; staff-space
+       (beam-width . ,ly:stem-tremolo::calc-width) ; staff-space
+        (style . ,ly:stem-tremolo::calc-style)
        (beam-thickness . 0.48) ; staff-space
        (meta . ((class . Item)
                 (interfaces . (stem-tremolo-interface))))))
@@ -1578,7 +1598,7 @@
        (stencil . ,ly:text-interface::print)
        (Y-offset . ,ly:staff-symbol-referencer::callback)
        (font-size . -2)
-       (stem-attachment . (1.0 . 1.35))
+       (stem-attachment . (0.0 . 1.35))
        (font-series . bold)
        (meta . ((class . Item)
                 (interfaces
@@ -1676,7 +1696,7 @@
                        (first-note . (fixed-space . 2.0))
                        (right-edge . (extra-space . 0.5))
                        (staff-bar . (minimum-space . 2.0))))
-       (breakable . #t)
+       (non-musical . #t)
        (style . C)
        (meta . ((class . Item)
                 (interfaces . (time-signature-interface
@@ -1858,7 +1878,7 @@
      . (
        (style . line)
        (gap . 0.5)
-       (breakable . #t)
+       (non-musical . #t)
        (X-extent . #f)
        (Y-extent . #f)
        (stencil . ,ly:line-spanner::print)