(warning): better robustness fix.

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

diff --git a/scm/grob-description.scm b/scm/grob-description.scm
index 527123858422c5ab2274b5fddd90f7e8e9b97140..4e19b91a2251998ef71598b28231a8d0a526be67 100644 (file)
--- a/scm/grob-description.scm
+++ b/scm/grob-description.scm
@@ -231,6 +231,16 @@
        (meta . ((interfaces . (clef-interface staff-symbol-referencer-interface font-interface break-aligned-interface item-interface ))))
        ))
 
+    (Cluster
+     . (
+       (molecule-callback . ,Cluster::brew_molecule)
+       (spacing-procedure . ,Spanner::set_spacing_rods)                
+       (minimum-length . 0.0)
+       (padding . 0.25)
+       (shape . leftsided-stairs)
+       (meta . ((interfaces . (cluster-interface spanner-interface))))
+       ))
+
     (ChordName
      . (
        (molecule-callback . ,Chord_name::brew_molecule)
@@ -344,8 +354,6 @@
     (Fingering
      . (
        (molecule-callback . ,Text_item::brew_molecule)
-       (X-offset-callbacks . (,Self_alignment_interface::centered_on_parent
-                              ,Self_alignment_interface::aligned_on_self))
        (padding . 0.6)
        ;;              (direction . -1)
        (self-alignment-X . 0)
@@ -390,7 +398,7 @@
        (Y-offset-callbacks . (,Side_position_interface::aligned_side))
        (padding . 0.2)
        (direction . -1)
-       (meta . ((interfaces . (horizontal-bracket-interface spanner-interface))))
+       (meta . ((interfaces . (horizontal-bracket-interface side-position-interface spanner-interface))))
        ))
     (InstrumentName
      . (
@@ -436,11 +444,18 @@
 
     (LigatureBracket
      . (
-       (width . 0.75)
-       (height . 0.5)
        (ligature-primitive-callback . ,Note_head::brew_molecule)
-       (molecule-callback . ,Ligature_bracket::brew_molecule)
-       (meta . ((interfaces . (ligature-bracket-interface spanner-interface))))
+       (direction . 1)
+       (gap . 0.0)
+       (padding . 2.0)
+       (thickness . 1.6)
+       (edge-widen . (0.0 . 0.0))
+       (edge-height . (0.7 . 0.7))
+       (shorten-pair . (-0.2 . -0.2))
+       (before-line-breaking-callback . ,Tuplet_bracket::before_line_breaking)
+       (after-line-breaking-callback . ,Tuplet_bracket::after_line_breaking)
+       (molecule-callback . ,Tuplet_bracket::brew_molecule)
+       (meta .  ((interfaces . (tuplet-bracket-interface spanner-interface))))
        ))
 
     (LigatureHead
@@ -450,7 +465,7 @@
        (Y-offset-callbacks  . (,Staff_symbol_referencer::callback))
        (stem-attachment-function . ,note-head-style->attachment-coordinates)
        (font-family . ancient)
-       (style . mensural)
+       (style . default)
        (glyph-name-procedure . ,find-notehead-symbol)
        (meta . ((interfaces . (ligature-head-interface rhythmic-head-interface
                                                        font-interface
@@ -532,7 +547,19 @@
        (padding . 0.8)
        (meta . ((interfaces . (text-interface side-position-interface font-interface mark-interface self-alignment-interface item-interface ))))
        ))
-
+    
+    (MeasureGrouping
+     . (
+       (Y-offset-callbacks . (,Side_position_interface::out_of_staff 
+                              ,Side_position_interface::aligned_side))
+       (molecule-callback . ,Measure_grouping::brew_molecule)
+       (padding . 2)
+       (direction . 1)
+       (thickness . 1)
+       (height . 2.0)
+       (staff-padding . 3)
+       (meta . ((interfaces . (spanner-interface side-position-interface measure-grouping-interface))))
+       ))
     (MultiMeasureRest
      . (
        (spacing-procedure . ,Multi_measure_rest::set_spacing_rods)
@@ -556,7 +583,7 @@
        (direction . 1)
        (padding . 2)
        (font-family . number)
-       (meta . ((interfaces . (side-position-interface font-interface spanner-interface))))
+       (meta . ((interfaces . (side-position-interface self-alignment-interface font-interface spanner-interface text-interface))))
        ))