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 / box-box.irt < prev    next >
Text File  |  1991-03-21  |  534b  |  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 = view_mat * scale(vector( 0.1, 0.1, 0.1 ));
  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(a1),false);
  14. free(a1);
  15.  
  16. a2=b2*b1;
  17. interact(list(a2),false);
  18. free(a2);
  19.  
  20. a3=b2-b1;
  21. interact(list(a3),false);
  22. free(a3);
  23.  
  24. a4=b1-b2;
  25. interact(list(a4),false);
  26. free(a4);
  27.  
  28. intercrv = true;
  29. a5=b2*b1;
  30. interact(list(a5,b1,b2),false);
  31. free(a5);
  32. intercrv = false;
  33.  
  34.  
  35. free(b1);
  36. free(b2);
  37. view_mat = save_mat;
  38.  
  39.