home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / gfx / 3d / irit / scripts / solid3.irt < prev    next >
Encoding:
Text File  |  1993-12-30  |  979 b   |  55 lines
  1. #
  2. # Yet another mechanical part (?)
  3. #
  4.  
  5. time(true);
  6.  
  7. save_mat = view_mat;
  8. save_res = resolution;
  9.  
  10. resolution = 12;
  11.  
  12. B1 = box(vector( -0.5, -0.2, 0.0), 1.0, 0.4, 0.15);
  13. B2 = box(vector(-0.25, -0.3, 0.1), 0.5, 0.6, 0.5);
  14.  
  15. M1 = B1 - B2;
  16. free(B1);
  17. free(B2);
  18. beep();
  19. interact(list(view_mat, M1));
  20.  
  21. C1 = sphere(vector( 0.0, 0.0, 0.2), 0.18);
  22. view(C1, false);
  23.  
  24. M2 = M1 - C1;
  25.  
  26. free(M1);
  27. free(C1);
  28. beep();
  29. view(M2, true);
  30.  
  31. C2 = circle(vector( 0.55, 0.0, 0.0), 0.12);
  32. C2 = extrude(C2, vector(-0.2, 0.0, 0.2));
  33. C2 = C2 * circpoly(vector( 0.0, 0.0, 1.0), vector( 0.55, 0.0, 0.05), 0.25);
  34. C3 = circle(vector(-0.55, 0.0, 0.0), 0.12);
  35. C3 = extrude(C3, vector( 0.2, 0.0, 0.2));
  36. C3 = C3 * circpoly(vector( 0.0, 0.0, 1.0), vector( -0.55, 0.0, 0.05), 0.25);
  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. time(false); # In Seconds
  47.  
  48. beep();
  49. interact(final);
  50.  
  51. save("solid3", final);
  52. free(final);
  53. resolution = save_res;
  54. view_mat = save_mat;
  55.