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 "dimension-cache.hh"
11 #include "group-interface.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
24 Group_interface__extract_elements (this, (Score_element
*)0, "elements");
27 Link_array
<Score_element
>
28 Axis_group_element::get_children ()
30 Link_array
<Score_element
> childs
;
31 Link_array
<Score_element
> elems
= elem_l_arr ();
33 for (int i
=0; i
< elems
.size (); i
++)
35 Score_element
* e
= elems
[i
];
37 Axis_group_element
* axis_group
= dynamic_cast <Axis_group_element
*> (e
);
39 childs
.concat (axis_group
->get_children ());
45 Axis_group_element::Axis_group_element()
50 set_elt_property ("elements", SCM_EOL
);
51 set_elt_property ("transparent", SCM_BOOL_T
);
55 Axis_group_element::set_axes (Axis a1
, Axis a2
)
59 if (a1
!= X_AXIS
&& a2
!= X_AXIS
)
61 if (a1
!= Y_AXIS
&& a2
!= Y_AXIS
)
64 dim_cache_
[a1
]->set_callback(extent_callback
);
65 dim_cache_
[a2
]->set_callback (extent_callback
);
69 Axis_group_element::extent_callback (Dimension_cache
const *c
)
72 Axis_group_element
* me
73 = dynamic_cast<Axis_group_element
*> (c
->element_l ());
76 for (SCM s
= me
->get_elt_property ("elements"); gh_pair_p (s
); s
= gh_cdr (s
))
79 Score_element
* se
= SMOB_TO_TYPE (Score_element
, e
);
81 Interval dims
= se
->extent (a
);
83 r
.unite (dims
+ se
->relative_coordinate (me
, a
));
92 Axis_group_element::add_element (Score_element
*e
)
97 for (int i
= 0; i
< 2; i
++)
99 if (!e
->parent_l (axes_
[i
]))
100 e
->set_parent (this, axes_
[i
]);
102 Group_interface
gi (this);