home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / gfx / 3d / irit / scripts / cone3cyl.irt < prev    next >
Encoding:
Text File  |  1994-06-23  |  810 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 = 32;
  12.  
  13. cone1 = con2(vector(0, 0, -1),vector(0, 0, 4), 2,1);
  14. cylin1= cylin(vector(0, 3, 1),vector(0, -6, 0), 0.7);
  15.  
  16. a1 = cone1 + cylin1;
  17. beep();
  18. interact(list(view_mat, a1));
  19. free(a1);
  20.  
  21. a2 = cone1 * cylin1;
  22. beep();
  23. interact(a2);
  24. free(a2);
  25.  
  26. a3 = cone1 - cylin1;
  27. beep();
  28. interact(a3);
  29. free(a3);
  30.  
  31. a4 = cylin1 - cone1;
  32. beep();
  33. interact(a4);
  34. free(a4);
  35.  
  36. iritstate("intercrv", true);
  37. a5 = cone1 * cylin1;
  38. beep();
  39. interact(list(a5, cylin1, cone1));
  40. free(a5);
  41. iritstate("intercrv", false);
  42.  
  43. free(cylin1);
  44. free(cone1);
  45.  
  46. resolution = save_res;
  47. view_mat = save_mat;
  48.