#
# 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, 3 );

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

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

a2=b*c;
interact(a2);

a3=b-c;
interact(a3);

view_mat = save_view;

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