#
# Intersection of cone and a cylinder:
# Try this one with resolution equal 20 - slower, but much nicer!
#
#			Created by Gershon Elber,	Jan. 89
#

save_mat = view_mat;
view_mat = view_mat * scale(vector(0.2, 0.2, 0.2));
save_res = resolution;
resolution = 32;

cone1 = con2(vector(0, 0, -1),vector(0, 0, 4), 2,1);
cylin1= cylin(vector(0, 3, 1),vector(0, -6, 0), 0.7);

a1 = cone1 + cylin1;
beep();
interact(list(view_mat, a1));
free(a1);

a2 = cone1 * cylin1;
beep();
interact(a2);
free(a2);

a3 = cone1 - cylin1;
beep();
interact(a3);
free(a3);

a4 = cylin1 - cone1;
beep();
interact(a4);
free(a4);

iritstate("intercrv", true);
a5 = cone1 * cylin1;
beep();
interact(list(a5, cylin1, cone1));
free(a5);
iritstate("intercrv", false);

free(cylin1);
free(cone1);

resolution = save_res;
view_mat = save_mat;