home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / IRIT / IRITS.ZIP / SOLID1.IRT < prev    next >
Encoding:
Text File  |  1990-05-05  |  638 b   |  35 lines
  1. #
  2. # This simple solid was taken from: Geometric Modeling,
  3. # by Michael E. Mortenson page 440.
  4. #
  5. #                Created by Gershon Elber,    Jan 89
  6. #
  7.  
  8. save_mat = view_mat;
  9. view_mat = view_mat * scale(vector( 0.2, 0.2, 0.2 ));
  10.  
  11. A = BOX(vector(  -1, -1,   -2), 2, 2, 4);
  12. B = BOX(vector(-0.5, -2,   -1), 2, 4, 2);
  13. C = BOX(vector(   0, -3, -0.5), 2, 6, 1);
  14.  
  15. D = A + B;
  16. free(A);
  17. free(B);
  18. beep(1000, 100);
  19. interact(list(D), false);
  20.  
  21. E = D - C;
  22. free(C);
  23. free(D);
  24. beep(1000,100);
  25.  
  26. final = convex(E);
  27. free(E);
  28. interact(list(final), false);
  29.  
  30. mdump("solid1", view_mat);
  31. gdump("solid1", final);
  32. free(final);
  33.  
  34. view_mat = save_mat;
  35.