home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / gfx / 3d / irit / scripts / cone2cyl.irt < prev    next >
Encoding:
Text File  |  1993-12-30  |  709 b   |  37 lines
  1. #
  2. # Intersection of cone and a cylinders (more complex this time):
  3. #
  4. #            Created by Gershon Elber,    Sep. 89
  5. #
  6.  
  7. save_mat = view_mat;
  8. view_mat = view_mat * scale(vector(0.2, 0.2, 0.2));
  9. save_res = resolution;
  10.  
  11. resolution = 32;
  12. cone1 = cone(vector(0, 0, -1), vector(0, 0, 4), 2);
  13. cylin1 = cylin(vector(0, 3, 0.3), vector(0, -6, 0), 1);
  14. cube1 = box(vector(-2, -2, -2), 4, 4, 3.6);
  15.  
  16. s1 = (cone1 - cylin1) * cube1;
  17. beep();
  18. view(list(view_mat, s1), on);
  19. free(cylin1);
  20. free(cone1);
  21. free(cube1);
  22.  
  23. resolution = 16;
  24. cylin2 = cylin(vector(0, 0, -2),vector(0, 0, 6), 0.5);
  25. s2 = s1 - cylin2;
  26. beep();
  27. interact(s2);
  28. free(cylin2);
  29. free(s1);
  30.  
  31. s2 = convex(s2);
  32.  
  33. save("cone2cyl", s2);
  34.  
  35. resolution = save_res;
  36. view_mat = save_mat;
  37.