home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / PLOT / IRITSM3S.ZIP / IRIT / CLOSLOOP.IRT < prev    next >
Encoding:
Text File  |  1990-05-05  |  468 b   |  26 lines
  1. #
  2. # Routines to test the boolean operations among geometric objects:
  3. #
  4. # Intersection between a box and a cylinder - make a hole in the box
  5. #
  6. b=box(vector(-3,-2,-1),6,4,2);
  7. c=cylin(vector(0,0,-4),vector(0,0,8),1);
  8.  
  9. save_view = view_mat;
  10. view_mat = view_mat * scale(vector(0.1, 0.1, 0.1));
  11.  
  12. a1=b+c;
  13. interact(list(a1),false);
  14.  
  15. a2=b*c;
  16. interact(list(a2),false);
  17.  
  18. a3=b-c;
  19. interact(list(a3),false);
  20.  
  21. free(b);
  22. free(c);
  23. free(a1);
  24. free(a2);
  25. free(a3);
  26.