static void
effect_point (edit_env env, box b, tree xt, tree yt, SI& x, SI& y) {
if (is_double (xt)) x= as_int (b->x1 + as_double (xt) * b->w ());
else x= env->as_length (xt);
if (is_double (yt)) y= as_int (b->y1 + as_double (yt) * b->h ());
else y= env->as_length (yt);
}
tree
edit_env_rep::local_begin_extents (box b) {
tree old= tree (TUPLE,
env ["w-length"], env ["h-length"],
env ["l-length"], env ["b-length"],
env ["r-length"], env ["t-length"]);
env ("w-length")= as_string (b->w ()) * "tmpt";
env ("h-length")= as_string (b->h ()) * "tmpt";
env ("l-length")= as_string (b->x1) * "tmpt";
env ("b-length")= as_string (b->y1) * "tmpt";
env ("r-length")= as_string (b->x2) * "tmpt";
env ("t-length")= as_string (b->y2) * "tmpt";
return old;
}