release: 1.3.147

[lilypond.git] / scm / grob-description.scm

diff --git a/scm/grob-description.scm b/scm/grob-description.scm
index 0ad01c0ff7d554d4fd353db2b6b92b3b64467243..ad4e1e2501fbcb171141c73f6dff487d5525981e 100644 (file)
--- a/scm/grob-description.scm
+++ b/scm/grob-description.scm
@@ -80,7 +80,7 @@
                 (thickness . 0.48) ; in staff-space
                 (before-line-breaking-callback . ,Beam::before_line_breaking)
                 (after-line-breaking-callback . ,Beam::after_line_breaking)
-                (default-neutral-direction . 1)
+                (neutral-direction . 1)
                 (dir-function . ,beam-dir-majority)
                 (height-quants .  ,default-beam-dy-quants)
                 (vertical-position-quant-function . ,default-beam-y-quants)
@@ -178,6 +178,9 @@
        (DynamicText . (
                (Y-offset-callbacks . (,Side_position_interface::aligned_on_self))
                (molecule-callback . ,Text_item::brew_molecule)
+(X-offset-callbacks . (,Side_position_interface::aligned_on_self))
+               (self-alignment-X . 0)
+               
                (no-spacing-rods . #t)
                (script-priority . 100)
                (font-series . bold)
@@ -345,7 +348,8 @@
                (style . default)
                (molecule-callback . ,Note_head::brew_molecule)
                (Y-offset-callbacks  . (,Staff_symbol_referencer::callback))
-               (attachment-slope . 0.17)
+               (stem-attachment-function
+                . ,note-head-style->attachment-coordinates)
                (meta . ,(grob-description  "NoteHead"
                        rhythmic-head-interface font-interface 
                        note-head-interface ))
@@ -570,7 +574,7 @@
                (lengths . (3.5 3.5 3.5 4.5 5.0))
                (stem-shorten . (0.5))
                ; if stem is on middle line, choose this direction.
-               (default-neutral-direction . 1)
+               (neutral-direction . 1)
                (X-offset-callbacks . (,Stem::off_callback))
                (X-extent-callback . ,Stem::dim_callback)       
                (Y-extent-callback . ,Stem::height)
@@ -609,12 +613,12 @@
                (meta . ,(grob-description "SustainPedal" sustain-pedal-interface side-position-interface font-interface))
        ))
 
-       ; should split in 3
+       ;; TODO: should split in 3
        (SystemStartDelimiter . (
                (molecule-callback . ,System_start_delimiter::brew_molecule)
                (after-line-breaking-callback . ,System_start_delimiter::after_line_breaking)
-               ;; ugh, in practice, brace has height of 4.1 staff-spaces
-               (brace-collapse-height . 4.1)
+               ;; really 4.0, but 5 to be on safe side.
+               (brace-collapse-height . 5.0)
                (bracket-collapse-height . 1)
                (thickness . 1.6)
                (arch-height . 1.5)
@@ -676,6 +680,7 @@
                (break-align-symbol . Time_signature)
                (visibility-lambda . ,all-visible)
                (breakable . #t)
+               (style . C)
                 (font-family . number)
                 (meta . ,(grob-description "TimeSignature" time-signature-interface  font-interface))
        ))
@@ -693,7 +698,7 @@
                           tuplet-bracket-interface font-interface))
        ))
 
-       (UnaChordaPedal . (
+       (UnaCordaPedal . (
                (molecule-callback . ,Text_item::brew_molecule)
                 (font-shape . italic)
                (no-spacing-rods . #t)
@@ -703,7 +708,7 @@
                (Y-offset-callbacks .
                 (,Side_position_interface::aligned_side
                  ,Side_position_interface::centered_on_parent))
-               (meta . ,(grob-description "UnaChordaPedal" text-interface font-interface))
+               (meta . ,(grob-description "UnaCordaPedal" text-interface font-interface))
        ))
 
        (VoltaBracket . (
@@ -725,6 +730,7 @@
                (axes 1)
                (Y-extent-callback . ,Axis_group_interface::group_extent_callback)
                (X-extent-callback . #f)
+
                (stacking-dir . -1)
                (meta . ,(grob-description "VerticalAlignment" align-interface axis-group-interface))
        ))