]> git.donarmstrong.com Git - lilypond.git/blobdiff - scm/define-grobs.scm
* stepmake/aclocal.m4 (depth): make sure $srcdir is absolute.
[lilypond.git] / scm / define-grobs.scm
index 9284ff078a2e6a25595ee53d51e95c2a8d2e42b8..49baf4aa65e6a261a1aacf3461e044ed8c933e77 100644 (file)
        (meta . ((class . Item)
                 (interfaces . (accidental-interface
                                font-interface))))))
-
+    
     (AccidentalSuggestion
      . (
-
        (stencil . ,Accidental_interface::print)
-                                       
-       (X-offset-callbacks . (,Self_alignment_interface::centered_on_parent
-                              ,Self_alignment_interface::aligned_on_self))
+       (X-offset . ,(ly:make-simple-closure
+                     `(,+
+                       ,(ly:make-simple-closure (list Self_alignment_interface::centered_on_x_parent))
+                       ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self)))))
        (self-alignment-X . ,CENTER)
        (cautionary . #t)
        (cautionary-style . smaller)
-       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
+       (Y-offset . ,Side_position_interface::y_aligned_side)
        (cautionary-style . parentheses)
        (direction . ,UP)
        (staff-padding . 0.25)
        (script-priority . 0)
+       (side-axis . ,X)
        (meta . ((class . Item)
                 (interfaces . (side-position-interface
                                script-interface
@@ -67,7 +68,6 @@
     (Ambitus
      . (
        (axes . (0 1))
-
        (X-extent . ,Axis_group_interface::width)
        (X-extent . ,Axis_group_interface::height)
 
@@ -92,7 +92,7 @@
 
        (join-heads . #t)
        (thickness . 2)
-       (X-offset-callbacks . (,Self_alignment_interface::centered_on_parent))
+       (X-offset . ,Self_alignment_interface::centered_on_x_parent)
 
        (meta . ((class . Item)
                 (interfaces . (ambitus-interface
      . (
        (font-family . music)
        (padding . 0.5)
-       (X-offset-callbacks . (,Side_position_interface::aligned_side))
+       (X-offset . ,Side_position_interface::x_aligned_side)
        (direction . -1)
        (cautionary-style . parentheses)
 
        (stencil . ,Accidental_interface::print)
        (after-line-breaking . ,Accidental_interface::after_line_breaking)
+       (side-axis . ,X)
        
        (meta . ((class . Item)
                 (interfaces . (item-interface
        (stencil . ,Note_head::print)
        (glyph-name . ,note-head::calc-glyph-name)
        
-       (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
+       (Y-offset . ,Staff_symbol_referencer::callback)
        (meta . ((class . Item)
                 (interfaces . (font-interface
                                note-head-interface
        (X-extent . ,Arpeggio::width)
        (stencil . ,Arpeggio::print)
 
-       (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
-       (X-offset-callbacks . (,Side_position_interface::aligned_side))
+       (Y-offset . ,Staff_symbol_referencer::callback)
+       (X-offset . ,Side_position_interface::x_aligned_side)
        (direction . -1)
        (padding . 0.5)
+       (side-axis . ,X)
        (staff-position . 0.0)
        (meta . ((class . Item)
                 (interfaces . (arpeggio-interface
 
     (BarNumber
      . (
-
        (stencil . ,Text_interface::print)
-       ;
        (breakable . #t)
        (break-visibility . ,begin-of-line-visible)
        (padding . 1.0)
        (direction . 1)
        (font-family . roman)
        (font-size . -2)
-       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
-       (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
+       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (side-axis . ,Y)
+       (X-offset . ,Self_alignment_interface::x_aligned_on_self)
        (self-alignment-X . 1)
 
        (meta .
 
        (stencil . ,Text_interface::print)
 
-       (Y-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
+       (Y-offset . ,Self_alignment_interface::y_aligned_on_self)
        (direction . 1)
        (font-family . number)
 
 
        (stencil . ,Figured_bass_continuation::print)
 
-       (Y-offset-callbacks . (,Figured_bass_continuation::center_on_figures))
+       (Y-offset . ,Figured_bass_continuation::center_on_figures)
        (meta . ((class . Spanner)
                 (interfaces . (figured-bass-continuation-interface))
                 ))))
        ;; todo: clean this up a bit: the list is getting
        ;; rather long.
        (gap . 0.8)
-       (position-callbacks . (,Beam::least_squares
-                              ,Beam::check_concave
-                              ,Beam::slope_damping
-                              ,Beam::shift_region_to_valid
-                              ,Beam::quanting))
-
-       (positions . ,Beam::calc_positions)
+       (positions .  ,(ly:make-simple-closure
+                       (ly:make-simple-closure
+                        (list chain-grob-member-functions
+                          `(,cons 0 0)
+                          Beam::calc_least_squares_positions
+                          Beam::slope_damping
+                          Beam::shift_region_to_valid
+                          Beam::quanting
+                          ))))
+
+       ;; this is a hack to set stem lengths, if positions is set.
+       (quantized-positions . ,Beam::set_stem_lengths)
+       (concaveness . ,Beam::calc_concaveness)
        (direction . ,Beam::calc_direction)
        (stencil . ,Beam::print)
-                                       
 
        ;; TODO: should be in SLT.
        (thickness . 0.48) ; in staff-space
                        (ambitus . (extra-space . 2.0))
                        (custos . (minimum-space . 1.0))
                        (key-signature . (minimum-space . 1.5))
+                       (time-signature . (minimum-space . 1.5))
                        (staff-bar . (minimum-space . 1.5))
                        (clef . (minimum-space . 2.0))
                        (first-note . (fixed-space . 1.0)) ;huh?
        (stencil . ,Text_interface::print)
 
        (text . ,(make-musicglyph-markup "scripts.rcomma"))
-       (Y-offset-callbacks . (,Breathing_sign::offset_callback))
+       (Y-offset . ,Breathing_sign::offset_callback)
        (break-visibility . ,begin-of-line-invisible)
        (meta . ((class . Item)
                 (interfaces . (break-aligned-interface
        (break-visibility . ,begin-of-line-visible)
        (space-alist . ((ambitus . (extra-space . 2.0))
                        (staff-bar . (extra-space . 0.7))
-                       (key-cancellation . (minimum-space . 4.0))
-                       (key-signature . (minimum-space . 4.0))
+                       (key-cancellation . (minimum-space . 3.5))
+                       (key-signature . (minimum-space . 3.5))
                        (time-signature . (minimum-space . 4.2))
                        (first-note . (minimum-fixed-space . 5.0))
                        (next-note . (extra-space . 0.5))
                        (right-edge . (extra-space . 0.5))))
-       (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
+       (Y-offset . ,Staff_symbol_referencer::callback)
        (meta . ((class . Item)
                 (interfaces . (clef-interface
                                staff-symbol-referencer-interface
        (stencil . ,Text_interface::print)
 
        (no-spacing-rods . #t)
-       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
-       (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
+       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (X-offset . ,Self_alignment_interface::x_aligned_on_self)
        (direction . 1)
        (padding . 0.5)
        (staff-padding . 0.5)
        (script-priority . 200)
        ;; todo: add X self alignment?
        (baseline-skip . 2)
+       (side-axis . ,Y)
        (font-series . bold)
        (meta . ((class . Item)
                 (interfaces . (text-script-interface
        (break-visibility . ,end-of-line-visible)
        (style . vaticana)
        (neutral-direction . -1)
-       (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
+       (Y-offset . ,Staff_symbol_referencer::callback)
        (space-alist . (
                        (first-note . (minimum-fixed-space . 0.0))
                        (right-edge . (extra-space . 0.1))))
        (positioning-done . ,Dot_column::calc_positioning_done) 
        (X-extent . ,Axis_group_interface::width)
        
-       (X-offset-callbacks . (,Dot_column::side_position))
+       (X-offset . ,Dot_column::side_position)
        (meta . ((class . Item)
                 (interfaces . (dot-column-interface
                                axis-group-interface))))))
 
     (DoublePercentRepeat
      . (
-
        (stencil . ,Percent_repeat_item_interface::double_percent)
-
        (breakable . #t)
        (slope . 1.0)
        (font-encoding . fetaMusic)
      . (
 
        (stencil . ,Text_interface::print)
-
-       (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self
-                              ,Self_alignment_interface::centered_on_other_axis_parent))
-       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
+       (X-offset . ,(ly:make-simple-closure `(,+ ,(ly:make-simple-closure (list Self_alignment_interface::centered_on_y_parent))
+                                                 ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self)))))
+       (Y-offset . ,Side_position_interface::y_aligned_side)
        (font-encoding . fetaNumber)
        (self-alignment-X . 0)
        (font-size . -2) 
        (direction . 1)
        (padding . 0.2)
        (staff-padding . 0.25)
+       (side-axis . ,Y)
        (meta . ((class . Item)
                 (interfaces . (side-position-interface
                                self-alignment-interface
     (DynamicLineSpanner
      . (
        (axes . (1))
-       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
+       (Y-offset . ,Side_position_interface::y_aligned_side)
        (staff-padding . 0.1)
        (padding . 0.6)
        (avoid-slur . outside)
        (slur-padding . 0.3)
        (minimum-space . 1.2)
        (direction . -1)
+       (side-axis . ,Y)
 
        (Y-extent . ,Axis_group_interface::height)
        (X-extent . ,Axis_group_interface::width)
        (stencil . ,Text_interface::print)
        (direction . ,Script_interface::calc_direction)
 
-       (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
+       (X-offset . ,Self_alignment_interface::x_aligned_on_self)
        (self-alignment-X . 0)
-       (Y-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
+       (Y-offset . ,Self_alignment_interface::y_aligned_on_self)
        (self-alignment-Y . 0)
        (font-series . bold)
        (font-encoding . fetaDynamic)
        (stencil . ,Grid_line_interface::print)
 
        (self-alignment-X . ,CENTER)
-       (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self
-                              ,Self_alignment_interface::centered_on_parent))
+       (X-offset . ,(ly:make-simple-closure
+                     `(,+  ,(ly:make-simple-closure (list Self_alignment_interface::centered_on_x_parent))
+                           ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self)))))
        (layer . 0)
        (meta . ((class . Item)
                 (interfaces . (self-alignment-interface
        (minimum-length . 2.0)
        (bound-padding . 1.0)
        (self-alignment-Y . 0)
-       (Y-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
+       (Y-offset . ,Self_alignment_interface::y_aligned_on_self)
        (meta . ((class . Spanner)
                 (interfaces . (hairpin-interface
                                line-interface
     (HorizontalBracket
      . (
        (thickness . 1.0)
-
        (stencil . ,Horizontal_bracket::print)
-
-       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
+       (Y-offset . ,Side_position_interface::y_aligned_side)
        (padding . 0.2)
        (staff-padding . 0.2)
        (direction . -1)
+       (side-axis . ,Y)
        (bracket-flare . (0.5 . 0.5))
        (meta . ((class . Spanner)
                 (interfaces . (horizontal-bracket-interface
     (InstrumentName
      . (
        (breakable . #t)
-       (Y-offset-callbacks . (,Self_alignment_interface::aligned_on_self
-                              ,Side_position_interface::aligned_on_support_refpoints))
+       (Y-offset . ,(ly:make-simple-closure `(,+ ,(ly:make-simple-closure (list Self_alignment_interface::y_aligned_on_self))
+                                                 ,(ly:make-simple-closure (list Side_position_interface::y_aligned_on_support_refpoints)))))
+       
        ;; This direction is for aligned_on_support_refpoints
        ;; (?) --hwn
        (direction . 0)
                        (left-edge . (extra-space . 1.0))))
 
        (self-alignment-Y . 0)
-
        (stencil . ,Text_interface::print)
-
        (break-align-symbol . instrument-name)
        (break-visibility . ,begin-of-line-visible)
        (baseline-skip . 2)
+       (side-axis . ,X)
        (meta . ((class . Item)
                 (interfaces . (font-interface
                                self-alignment-interface
                        (key-signature . (extra-space . 0.5))
                        (right-edge . (extra-space . 0.5))
                        (first-note . (fixed-space . 2.5))))
-       (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
+       (Y-offset . ,Staff_symbol_referencer::callback)
        (break-align-symbol . key-cancellation)
        (break-visibility . ,begin-of-line-invisible)
        (breakable . #t)
        (stencil . ,Key_signature_interface::print)
 
        (space-alist . (
-                       (time-signature . (extra-space . 1.25))
+                       (time-signature . (extra-space . 1.15))
                        (staff-bar . (extra-space . 1.1))
                        (right-edge . (extra-space . 0.5))
                        (first-note . (fixed-space . 2.5))))
-       (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
+       (Y-offset . ,Staff_symbol_referencer::callback)
        (break-align-symbol . key-signature)
        (break-visibility . ,begin-of-line-visible)
        (breakable . #t)
 
        (stencil . ,Text_interface::print)
 
-       (X-offset-callbacks . (,Self_alignment_interface::aligned_on_parent))
+       (X-offset . ,Self_alignment_interface::aligned_on_x_parent)
        (self-alignment-X . 0)
        (word-space . 0.6)
        (font-series . bold-narrow)
 
        (stencil . ,Text_interface::print)
 
-       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
+       (Y-offset . ,Side_position_interface::y_aligned_side)
        (direction . 1)
        (padding . 0.8)
+       (side-axis . ,Y)
        (meta . ((class . Item)
                 (interfaces . (text-interface
                                side-position-interface
 
     (MeasureGrouping
      . (
-       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
+       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (side-axis . ,Y)
 
        (stencil . ,Measure_grouping::print)
 
 
        (stencil . ,Multi_measure_rest::print)
 
-       (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
+       (Y-offset . ,Staff_symbol_referencer::callback)
        (staff-position . 0)
        (expand-limit . 10)
        (thick-thickness . 6.6)
      . (
        (springs-and-rods . ,Multi_measure_rest::set_spacing_rods)
        (stencil . ,Text_interface::print)
-       (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self
-                              ,Self_alignment_interface::centered_on_other_axis_parent))
-       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
+       (X-offset . ,(ly:make-simple-closure
+                     `(,+ ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self))
+                          ,(ly:make-simple-closure (list Self_alignment_interface::x_centered_on_y_parent)))))
+       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (side-axis . ,Y)
+
        (self-alignment-X . 0)
        (direction . 1)
        (padding . 0.4)
                                text-interface))))
              ))
 
-
     (MultiMeasureRestText
      . (
-
        (stencil . ,Text_interface::print)
-
-       (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self
-                              ,Self_alignment_interface::centered_on_other_axis_parent))
-       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
+       (X-offset . ,(ly:make-simple-closure
+                     `(,+ ,(ly:make-simple-closure (list Self_alignment_interface::x_centered_on_y_parent))
+                          ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self)))))
+       
+       (Y-offset . ,Side_position_interface::y_aligned_side)
        (self-alignment-X . 0)
        (direction . 1)
        (padding . 0.2)
        (stencil . ,Note_head::print)
        (stem-attachment . ,Note_head::calc_stem_attachment)
        (glyph-name . ,note-head::calc-glyph-name) 
-       (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
-       (X-offset-callbacks . (,Note_head::stem_x_shift))
+       (Y-offset . ,Staff_symbol_referencer::callback)
+       (X-offset . ,Note_head::stem_x_shift)
        (meta . ((class . Item)
                 (interfaces . (rhythmic-grob-interface
                                rhythmic-head-interface
      . (
        (self-alignment-X . 0)
        (break-visibility . ,begin-of-line-visible)
-       (X-offset-callbacks . (,Self_alignment_interface::centered_on_parent
-                              ,Self_alignment_interface::aligned_on_self))
-       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
+       (X-offset . ,(ly:make-simple-closure
+                     `(,+ ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self))
+                          ,(ly:make-simple-closure (list Self_alignment_interface::centered_on_x_parent)))))
+       
+       (Y-offset . ,Side_position_interface::y_aligned_side)
 
        (stencil . ,Text_interface::print)
 
 
     (OttavaBracket
      . (
-       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
+       (Y-offset . ,Side_position_interface::y_aligned_side)
 
        (stencil . ,Ottava_bracket::print)
 
                                percent-repeat-interface))))))
     (PercentRepeatCounter
      . (
-
        (stencil . ,Text_interface::print)
-
-       (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self
-                              ,Self_alignment_interface::centered_on_other_axis_parent))
-       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
+       (X-offset . ,(ly:make-simple-closure
+                     `(,+ ,(ly:make-simple-closure (list Self_alignment_interface::x_centered_on_y_parent))
+                          ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self)))))
+       (Y-offset . ,Side_position_interface::y_aligned_side)
        (self-alignment-X . 0)
        (direction . 1)
        (padding . 0.2)
 
        (stencil . ,Text_interface::print)
 
-       (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
-       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
+       (X-offset . ,Self_alignment_interface::x_aligned_on_self)
+       (Y-offset . ,Side_position_interface::y_aligned_side)
 
        (after-line-breaking . ,shift-right-at-line-begin)
 
        (stencil . ,Rest::print)
        (X-extent . ,Rest::width)
        (Y-extent . ,Rest::height)
-
-       (Y-offset-callbacks . (
-                              ,Staff_symbol_referencer::callback
-                              ,Rest::polyphonic_offset_callback
-                              ,Rest::y_offset_callback
-                              ))
+       (Y-offset . ,Rest::y_offset_callback)
        (minimum-distance . 0.25)
        (meta . ((class . Item)
                 (interfaces . (font-interface
        (padding . 0.20)
        (staff-padding . 0.25)
        ;; (script-priority . 0) priorities for scripts, see script.scm
-       (X-offset-callbacks . (,Self_alignment_interface::centered_on_parent))
+       (X-offset . , Self_alignment_interface::centered_on_x_parent)
+       
 
        (stencil . ,Script_interface::print)
        (direction . ,Script_interface::calc_direction)
      . (
 
        (springs-and-rods . ,Spacing_spanner::set_springs)
-
+       (average-spacing-wishes . #t)
        (grace-space-factor . 0.6)
        (shortest-duration-space . 2.0)
        (spacing-increment . 1.2)
 
        (font-series . bold)
        (padding . 1.0)
-       (X-offset-callbacks . (,Side_position_interface::aligned_side))
+       (X-offset . ,Side_position_interface::x_aligned_side)
+       (side-axis . ,X)
        (direction . ,LEFT)
        (meta . ((class . Item)
                 (interfaces . (side-position-interface
        (stencil . ,Text_interface::print)
 
        (direction . 1)
-       (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
+       (X-offset . ,Self_alignment_interface::x_aligned_on_self)
        (no-spacing-rods . #t)
        (padding . 0.0) ;; padding relative to SostenutoPedalLineSpanner
        (font-shape . italic)
 
        (X-extent . ,Axis_group_interface::height)
 
-       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
+       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (side-axis . ,Y)
 
        (padding . 1.2)
        (minimum-space . 1.0)
        ;; We use the normal minima as minimum for the ideal lengths,
        ;; and the extreme minima as abolute minimum length.
 
-       (X-offset-callbacks . (,Stem::offset_callback))
-       (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
+       (X-offset . ,Stem::offset_callback)
+       (Y-offset . ,Staff_symbol_referencer::callback)
        (meta . ((class . Item)
                 (interfaces . (stem-interface
                                font-interface))))))
        (self-alignment-X . 0)
        (direction . 1)
        (padding . 0.0)  ;; padding relative to SustainPedalLineSpanner
-       (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
+       (X-offset . ,Self_alignment_interface::x_aligned_on_self)
        (meta . ((class . Item)
                 (interfaces . (piano-pedal-interface
                                text-spanner-interface
      . (
        (axes . (1))
        (X-extent . ,Axis_group_interface::height)
-       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
+       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (side-axis . ,Y)
        (padding . 1.2)
        (staff-padding . 1.2)
        (minimum-space . 1.0)
     (SystemStartBracket
      . (
        (Y-extent . #f)
-       (X-offset-callbacks . (,(lambda (g a) -0.8)))
+       (X-offset . -0.8)
        (stencil . ,System_start_delimiter::print)
        (glyph . "bracket")
        (collapse-height . 5.0)
      . (
 
        (stencil . ,Text_interface::print)
-       (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
+       (Y-offset . ,Staff_symbol_referencer::callback)
        (font-size . -2)
        (stem-attachment . (1.0 . 1.35))
        (font-series . bold)
        (meta . ((class . Item)
                 (interfaces
                  . (rhythmic-head-interface
-                    font-interface
+                    font-interface rhythmic-grob-interface
                     note-head-interface
                     staff-symbol-referencer-interface
                     text-interface))))))
     (TextScript
      . (
        (no-spacing-rods . #t)
-       (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
+       (X-offset . ,Self_alignment_interface::x_aligned_on_self)
        (direction . -1)
 
        ;; sync with Fingering ?
        (staff-padding . 0.8)
        (dash-fraction . 0.2)
        (dash-period . 3.0)
+       (side-axis . ,Y)
        (direction . 1)
        (meta . ((class . Spanner)
                 (interfaces . (text-spanner-interface
        (staff-padding . 1.0)
        (padding . 0.5)
        (direction . 1)
-       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
+       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (side-axis . ,Y)
        (meta . ((class . Spanner)
                 (interfaces . (text-spanner-interface
                                side-position-interface
                                font-interface))))))
 
     (TrillPitchAccidental
-     . ((X-offset-callbacks . (,Side_position_interface::aligned_side))
+     . ((X-offset . ,Side_position_interface::x_aligned_side)
        (padding . 0.2)
        (direction . ,LEFT)
        (font-size . -4)
+       (side-axis . ,X)
        (stencil . ,Accidental_interface::print)
        (meta . ((class . Item)
                 (interfaces . (item-interface
                                font-interface))))))
 
     (TrillPitchGroup
-     . ((X-offset-callbacks . (,Side_position_interface::aligned_side))
+     . ((X-offset . ,Side_position_interface::x_aligned_side)
        (axes . (,X))
        (font-size . -4)
        (stencil . ,parenthesize-elements)
        (direction . ,RIGHT)
+       (side-axis . ,X)
        (padding . 0.3)
        (meta . ((class . Item)
                 (interfaces . (side-position-interface
      . (
        (stencil . ,Note_head::print)
        (duration-log . 2)
-       (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
+       (Y-offset . ,Staff_symbol_referencer::callback)
        (font-size . -4)
        (meta . ((class . Item)
                 (interfaces . (item-interface
        (self-alignment-X . 0)
        (direction . 1)
        (padding . 0.0)  ;; padding relative to UnaCordaPedalLineSpanner
-       (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
+       (X-offset . ,Self_alignment_interface::x_aligned_on_self)
        (meta . ((class . Item)
                 (interfaces . (text-interface
                                self-alignment-interface
      . (
        (axes . (1))
        (X-extent . ,Axis_group_interface::height)
-       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
+       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (side-axis . ,Y)
        (padding . 1.2)
        (staff-padding . 1.2)
        (minimum-space . 1.0)
     (VerticalAxisGroup
      . (
        (axes . (1))
-       (Y-offset-callbacks . (,Hara_kiri_group_spanner::force_hara_kiri_callback))
-
+       (Y-offset . ,Hara_kiri_group_spanner::force_hara_kiri_callback)
        (Y-extent . ,Hara_kiri_group_spanner::y_extent)
        (X-extent . ,Axis_group_interface::width)
        (meta . ((class . Spanner)
                 (interfaces . (axis-group-interface
+                               hara-kiri-group-interface
                                vertically-spaceable-interface))))))
 
     (VocalName
      . (
        (breakable . #t)
-       (Y-offset-callbacks . (,Side_position_interface::aligned_on_support_refpoints))
+       (Y-offset . ,Side_position_interface::y_aligned_on_support_refpoints)
        (direction . 0)
        (space-alist . ((left-edge . (extra-space . 1.0))))
        (break-align-symbol . instrument-name)
        (break-align-symbol . clef)
        (break-visibility . ,begin-of-line-visible)
        (baseline-skip . 2)
+       (side-axis . ,Y)
        (meta . ((class . Item)
                 (interfaces . (font-interface
                                self-alignment-interface
        (direction . ,UP)
        (padding . 1)
        (font-encoding . fetaNumber)
-       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
+       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (side-axis . ,Y)
        (thickness . 1.6)  ;;  linethickness
        (edge-height . (2.0 . 2.0)) ;; staffspace;
        (minimum-space . 5)