home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / IRIT / IRITS.ZIP / CONE-CYL.IRT < prev    next >
Encoding:
Text File  |  1990-05-05  |  886 b   |  48 lines
  1. #
  2. # Intersection of cone and a cylinder:
  3. # Try this one with resolution equal 20 - slower, but much nicer!
  4. #
  5. #            Created by Gershon Elber,    Jan. 89
  6. #
  7.  
  8. save_mat = view_mat;
  9. view_mat = view_mat * scale(vector(0.2, 0.2, 0.2));
  10. save_res = resolution;
  11. resolution = 8;
  12.  
  13. cone1 = cone(vector(0,0,-1),vector(0,0,4),2);
  14. cylin1= cylin(vector(0,3,1),vector(0,-6,0),0.7);
  15.  
  16. a1 = cone1+cylin1;
  17. beep(500,300);
  18. interact(list(a1), false);
  19. free(a1);
  20.  
  21. a2 = cone1*cylin1;
  22. beep(500,300);
  23. interact(list(a2), false);
  24. free(a2);
  25.  
  26. a3 = cone1-cylin1;
  27. beep(500,300);
  28. interact(list(a3), false);
  29. free(a3);
  30.  
  31. a4 = cylin1-cone1;
  32. beep(500,300);
  33. interact(list(a4), false);
  34. free(a4);
  35.  
  36. intercrv = true;
  37. a5 = cone1*cylin1;
  38. beep(500,300);
  39. interact(list(a5,cylin1,cone1), false);
  40. free(a5);
  41. intercrv = false;
  42.  
  43. free(cylin1);
  44. free(cone1);
  45.  
  46. resolution = save_res;
  47. view_mat = save_mat;
  48.