#
# Intersection of two boxes:
#
#				Created by Gershon Elber,	Jan. 89
#
save_mat = view_mat;
view_mat = view_mat * scale(vector( 0.1, 0.1, 0.1 ));

b1=box(vector(-3,-2,-1),6,4,2);
b2=box(vector(-4,-3,-2),2,2,4);

a1=b2+b1;
interact(list(a1),false);
free(a1);

a2=b2*b1;
interact(list(a2),false);
free(a2);

a3=b2-b1;
interact(list(a3),false);
free(a3);

a4=b1-b2;
interact(list(a4),false);
free(a4);

intercrv = true;
a5=b2*b1;
interact(list(a5,b1,b2),false);
free(a5);
intercrv = false;


free(b1);
free(b2);
view_mat = save_mat;