home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / IRIT / IRITS.ZIP / BOX-BOX.IRT < prev    next >
Encoding:
Text File  |  1990-05-05  |  657 b   |  44 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. beep(1100,300);
  14. interact(list(a1),false);
  15. free(a1);
  16.  
  17. a2=b2*b1;
  18. beep(1100,300);
  19. interact(list(a2),false);
  20. free(a2);
  21.  
  22. a3=b2-b1;
  23. beep(1100,300);
  24. interact(list(a3),false);
  25. free(a3);
  26.  
  27. a4=b1-b2;
  28. beep(1100,300);
  29. interact(list(a4),false);
  30. free(a4);
  31.  
  32. intercrv = true;
  33. a5=b2*b1;
  34. beep(1100,300);
  35. interact(list(a5,b1,b2),false);
  36. free(a5);
  37. intercrv = false;
  38.  
  39.  
  40. free(b1);
  41. free(b2);
  42. view_mat = save_mat;
  43.  
  44.