home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / gfx / 3d / irit / scripts / box-box.irt < prev    next >
Encoding:
Text File  |  1994-06-23  |  559 b   |  39 lines
  1. #
  2. # Intersection of two boxes:
  3. #
  4. #                Created by Gershon Elber,    Jan. 89
  5. #
  6. save_mat = view_mat;
  7. view_mat = save_mat * scale(vector( 0.15, 0.15, 0.15 ));
  8.  
  9. b1 = box(vector(-3, -2, -1), 6, 4, 2);
  10. b2 = box(vector(-4, -3, -2), 2, 2, 4);
  11.  
  12. a1 = b2 + b1;
  13. interact(list(view_mat, a1));
  14. free(a1);
  15.  
  16. a2 = b2 * b1;
  17. interact(a2);
  18. free(a2);
  19.  
  20. a3 = b2 - b1;
  21. interact(a3);
  22. free(a3);
  23.  
  24. a4 = b1 - b2;
  25. interact(a4);
  26. free(a4);
  27.  
  28. iritstate("intercrv", true);
  29. a5 = b2 * b1;
  30. interact(list(a5, b1, b2));
  31. free(a5);
  32. iritstate("intercrv", false);
  33.  
  34.  
  35. free(b1);
  36. free(b2);
  37. view_mat = save_mat;
  38.  
  39.