home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / IRIT / IRITS.ZIP / SOLID3H.IRT < prev    next >
Encoding:
Text File  |  1990-05-05  |  1.1 KB  |  57 lines
  1. #
  2. # Yet another mechanical part (?)
  3. # Takes more than 8 minutes on my 12Mhz 286 with copro.
  4. #
  5.  
  6. tm = time(true);
  7.  
  8. save_mat = view_mat;
  9. save_res = resolution;
  10.  
  11. # normal(on, 0.02, YELLOW);
  12.  
  13. resolution = 32;
  14.  
  15. B1 = box(vector( -0.5, -0.2, 0.0), 1.0, 0.4, 0.15);
  16. B2 = box(vector(-0.25, -0.3, 0.1), 0.5, 0.6, 0.5);
  17.  
  18. M1 = B1 - B2;
  19. free(B1);
  20. free(B2);
  21. beep(600,200);
  22. interact(list(M1), false);
  23.  
  24. C1 = sphere(vector( 0.0, 0.0, 0.2), 0.181);
  25. view(list(C1), false);
  26.  
  27. M2 = M1 - C1;
  28. free(M1);
  29. free(C1);
  30. beep(600,200);
  31. view(list(M2), true);
  32.  
  33. C2 = plane(vector( 0.0, 0.0, 1.0), vector( 0.55, 0.0, 0.05), 0.15);
  34. C2 = extrude(C2, vector(-0.2, 0.0, 0.2));
  35. C3 = plane(vector( 0.0, 0.0, 1.0), vector(-0.55, 0.0, 0.05), 0.15);
  36. C3 = extrude(C3, vector( 0.2, 0.0, 0.2));
  37. view(list(C2, C3), false);
  38.  
  39. M3 = M2 - C2 - C3;
  40. free(M2);
  41. free(C2);
  42. free(C3);
  43. final = convex(M3);
  44. free(M3);
  45.  
  46. tm = time(false);
  47. tm; # In Seconds
  48.  
  49. beep(1200,200);
  50. interact(list(final), false);
  51.  
  52. mdump("solid3h", view_mat);
  53. gdump("solid3h", final);
  54. free(final);
  55. resolution = save_res;
  56. view_mat = save_mat;
  57.