2 #include "unpure-pure-container.hh"
3 #include "lily-imports.hh"
6 axis_offset_symbol (Axis a)
9 ? ly_symbol2scm ("X-offset")
10 : ly_symbol2scm ("Y-offset");
14 axis_parent_positioning (Axis a)
17 ? Grob::x_parent_positioning_proc
18 : Grob::y_parent_positioning_proc;
28 (+ (PROC GROB) (orig-proc GROB))
31 add_offset_callback (Grob *g, SCM proc, Axis a)
33 SCM sym = axis_offset_symbol (a);
34 SCM data = g->get_property_data (sym);
35 g->set_property (sym, Lily::grob_offset_function (proc, data));
45 (PROC GROB (orig-proc GROB))
48 chain_callback (Grob *g, SCM proc, SCM sym)
50 SCM data = g->get_property_data (sym);
51 g->set_property (sym, Lily::grob_compose_function (proc, data));
55 chain_offset_callback (Grob *g, SCM proc, Axis a)
57 chain_callback (g, proc, axis_offset_symbol (a));