2 hara-kiri-vertical-group-spanner.cc -- implement Hara_kiri_group_spanner
4 source file of the GNU LilyPond music typesetter
6 (c) 1998--2000 Jan Nieuwenhuizen <janneke@gnu.org>
7 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "axis-group-interface.hh"
12 #include "hara-kiri-group-spanner.hh"
17 Hara_kiri_group_spanner::set_interface (Score_element*me)
19 me->set_elt_property ("items-worth-living", SCM_EOL);
20 me->add_offset_callback (force_hara_kiri_callback, Y_AXIS);
21 me->set_interface (ly_symbol2scm ("hara-kiri-spanner-interface"));
22 me->set_extent_callback (Hara_kiri_group_spanner::y_extent, Y_AXIS);
26 Hara_kiri_group_spanner::y_extent(Score_element*me, Axis a)
29 consider_suicide (me);
30 return Axis_group_interface::group_extent_callback (me, a);
35 Hara_kiri_group_spanner::has_interface (Score_element*me)
37 return me->has_interface (ly_symbol2scm ("hara-kiri-spanner-interface"));
41 Hara_kiri_group_spanner::add_interesting_item (Score_element* me,Score_element* n)
43 me->add_dependency (n);
44 Pointer_group_interface (me, "items-worth-living").add_element (n);
48 Hara_kiri_group_spanner::consider_suicide(Score_element*me)
50 SCM worth = me->get_elt_property ("items-worth-living");
51 if (gh_pair_p (worth))
54 Link_array<Score_element> childs = Axis_group_interface::get_children (me);
55 for (int i = 0; i < childs.size (); i++)
56 childs[i]->suicide ();
60 very appropriate name here :-)
68 We can't rely on offsets and dimensions of elements in a hara-kiri
69 group. Use a callback to make sure that hara-kiri has been done
70 before asking for offsets. */
72 Hara_kiri_group_spanner::force_hara_kiri_callback (Score_element *elt, Axis a)
75 consider_suicide (elt);
81 Hara_kiri_group_spanner::force_hara_kiri_in_parent_callback (Score_element*daughter, Axis a)
84 force_hara_kiri_callback (daughter->parent_l (a), Y_AXIS);
89 Hara_kiri_group_spanner::add_element (Score_element * me, Score_element *e)
91 // e->add_offset_callback (force_hara_kiri_in_parent_callback, Y_AXIS);
92 Axis_group_interface::add_element (me, e);