Category : OS/2 Files
Archive   : IRIT-OS2.ZIP
Filename : CLOSLOOP.IRT

 
Output of file : CLOSLOOP.IRT contained in archive : IRIT-OS2.ZIP

#
# Routines to test the boolean operations among geometric objects:
#
# Intersection between a box and a cylinder - make a hole in the box
#
b=box(vector(-3,-2,-1),6,4,2);
c=cylin(vector(0,0,-4),vector(0,0,8),1);

save_view = view_mat;
view_mat = view_mat * scale(vector(0.1, 0.1, 0.1));

a1=b+c;
interact(list(a1),false);

a2=b*c;
interact(list(a2),false);

a3=b-c;
interact(list(a3),false);

free(b);
free(c);
free(a1);
free(a2);
free(a3);