2 axis-group-element.cc -- implement Axis_group_element
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
9 #include "axis-group-element.hh"
10 #include "axis-group-element.hh"
11 #include "dimension-cache.hh"
13 Link_array<Score_element>
14 Axis_group_element::get_extra_dependencies() const
16 Link_array<Score_element> e(elem_l_arr ());
20 Link_array<Score_element>
21 Axis_group_element::elem_l_arr () const
26 Link_array<Score_element> r;
27 for (SCM s = get_elt_property ("elements"); gh_pair_p (s); s = gh_cdr (s))
30 r.push (unsmob_element (e));
36 Link_array<Score_element>
37 Axis_group_element::get_children ()
39 Link_array<Score_element> childs;
40 Link_array<Score_element> elems = elem_l_arr ();
42 for (int i=0; i < elems.size (); i++)
44 Score_element* e = elems[i];
46 Axis_group_element * axis_group= dynamic_cast <Axis_group_element *> (e);
48 childs.concat (axis_group->get_children ());
54 Axis_group_element::Axis_group_element()
59 set_elt_property ("elements", SCM_EOL);
60 set_elt_property ("transparent", SCM_BOOL_T);
64 Axis_group_element::set_axes (Axis a1, Axis a2)
68 if (a1 != X_AXIS && a2 != X_AXIS)
70 if (a1 != Y_AXIS && a2 != Y_AXIS)
73 dim_cache_[a1]->set_callback(extent_callback);
74 dim_cache_[a2]->set_callback (extent_callback);
78 Axis_group_element::extent_callback (Dimension_cache const *c)
81 Axis_group_element * me
82 = dynamic_cast<Axis_group_element*> (c->element_l ());
85 for (SCM s = me->get_elt_property ("elements"); gh_pair_p (s); s = gh_cdr (s))
88 Score_element * se = SMOB_TO_TYPE (Score_element, e);
90 Interval dims = se->extent (a);
92 r.unite (dims + se->relative_coordinate (me, a));
103 Axis_group_element::add_extra_element (Score_element *e)
110 Axis_group_element::add_element (Score_element *e)
115 for (int i = 0; i < 2; i++)
117 if (!e->parent_l (axes_[i]))
118 e->set_parent (this, axes_[i]);
120 set_elt_property ("elements",
121 gh_cons (e->self_scm_,
122 get_elt_property ("elements")));
124 assert (e->parent_l(Y_AXIS) == this || e->parent_l (X_AXIS) == this);