home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / i / iritsm3s.zip / irit / solid3.irt < prev    next >
Text File  |  1991-11-29  |  1KB  |  58 lines
  1. #
  2. # Yet another mechanical part (?)
  3. #
  4.  
  5. tm = time(true);
  6.  
  7. save_mat = view_mat;
  8. save_res = resolution;
  9.  
  10. # normal(on, 0.02, YELLOW);
  11.  
  12. resolution = 12;
  13.  
  14. B1 = box(vector( -0.5, -0.2, 0.0), 1.0, 0.4, 0.15);
  15. B2 = box(vector(-0.25, -0.3, 0.1), 0.5, 0.6, 0.5);
  16.  
  17. M1 = B1 - B2;
  18. free(B1);
  19. free(B2);
  20. beep(600,200);
  21. interact(list(M1), false);
  22.  
  23. C1 = sphere(vector( 0.0, 0.0, 0.2), 0.18);
  24. view(list(C1), false);
  25.  
  26. M2 = M1 - C1;
  27.  
  28. free(M1);
  29. free(C1);
  30. beep(600,200);
  31. view(list(M2), true);
  32.  
  33. C2 = circle(vector( 0.55, 0.0, 0.0), 0.12);
  34. C2 = extrude(C2, vector(-0.2, 0.0, 0.2));
  35. C2 = C2 * circpoly(vector( 0.0, 0.0, 1.0), vector( 0.55, 0.0, 0.05), 0.25);
  36. C3 = circle(vector(-0.55, 0.0, 0.0), 0.12);
  37. C3 = extrude(C3, vector( 0.2, 0.0, 0.2));
  38. C3 = C3 * circpoly(vector( 0.0, 0.0, 1.0), vector( -0.55, 0.0, 0.05), 0.25);
  39. view(list(C2, C3), false);
  40.  
  41. M3 = M2 - C2 - C3;
  42. free(M2);
  43. free(C2);
  44. free(C3);
  45. final = convex(M3);
  46. free(M3);
  47.  
  48. tm = time(false);
  49. tm; # In Seconds
  50.  
  51. beep(1200,200);
  52. interact(list(final), false);
  53.  
  54. save("solid3", list(view_mat,final));
  55. free(final);
  56. resolution = save_res;
  57. view_mat = save_mat;
  58.