-Real
-Dimension_cache::relative_coordinate (Dimension_cache *d) const
-{
- Real r =0.0;
-
- for (Dimension_cache* c = parent_l_;
- c != d;
- c = c->parent_l_)
- r += c->offset_;
- return r;
-}
-
-Dimension_cache *
-Dimension_cache::common_group (Dimension_cache const* s) const
-{
- Link_array<Dimension_cache const> my_groups;
- for (Dimension_cache const *c = this;
- c ; c = c->parent_l_)
- my_groups.push (c);
-
-
- Dimension_cache const *common=0;
-
- for (Dimension_cache const * d = s;
- !common && d;
- d = d->parent_l_)
- common = my_groups.find_l (d);
-
- return (Dimension_cache*)common;
-}
-
-
-