home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / gfx / 3d / irit / scripts / cubes.irt < prev    next >
Encoding:
Text File  |  1994-12-30  |  1.3 KB  |  48 lines
  1. #
  2. # Model from "Partitioning Polyhedral Objects into Nonintersecting parts'
  3. # by mark Segal and Carlo H. Sequin, IEE CG&A, January 1988, pp 53-67.
  4. #
  5.  
  6. b1 = box(vector(  0.2,  0.2,  0.2),  0.8,  0.8,  0.8);
  7. b2 = box(vector(  0.2,  0.2, -0.2),  0.8,  0.8, -0.8);
  8. b3 = box(vector(  0.2, -0.2,  0.2),  0.8, -0.8,  0.8);
  9. b4 = box(vector(  0.2, -0.2, -0.2),  0.8, -0.8, -0.8);
  10. b5 = box(vector( -0.2,  0.2,  0.2), -0.8,  0.8,  0.8);
  11. b6 = box(vector( -0.2,  0.2, -0.2), -0.8,  0.8, -0.8);
  12. b7 = box(vector( -0.2, -0.2,  0.2), -0.8, -0.8,  0.8);
  13. b8 = box(vector( -0.2, -0.2, -0.2), -0.8, -0.8, -0.8);
  14.  
  15. cubes = b1 ^ b2 ^ b3 ^ b4 ^ b5 ^ b6 ^ b7 ^ b8;
  16. free(b1); free(b2); free(b3); free(b4); free(b5); free(b6); free(b7); free(b8);
  17.  
  18. rot_cubes = cubes * rotx(30) * rotz(25);
  19.  
  20. iritstate("intercrv", true);
  21. crvs_cubes = cubes + rot_cubes;
  22. color( crvs_cubes, green );
  23. interact(list(crvs_cubes, cubes, rot_cubes));
  24. free(crvs_cubes);
  25. iritstate("intercrv", false);
  26.  
  27. u_cubes = cubes + rot_cubes;
  28. interact(u_cubes);
  29.  
  30. i_cubes = cubes * rot_cubes;
  31. interact(i_cubes);
  32.  
  33. s_cubes = cubes - rot_cubes;
  34. interact(s_cubes);
  35.  
  36. view_mat = rotx(0);
  37. u_cubes = convex(u_cubes);
  38. i_cubes = convex(i_cubes);
  39. s_cubes = convex(s_cubes);
  40. save("cubes_u", u_cubes);
  41. save("cubes_i", i_cubes);
  42. save("cubes_s", s_cubes);
  43.  
  44. free(u_cubes); free(i_cubes); free(s_cubes);
  45.  
  46. free(cubes);
  47. free(rot_cubes);
  48.