home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / gfx / 3d / irit / scripts / solid1.irt < prev    next >
Encoding:
Text File  |  1994-09-17  |  563 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();
  19. interact(list(view_mat, D));
  20.  
  21. E = D - C;
  22. free(C);
  23. free(D);
  24. beep();
  25.  
  26. final = convex(E);
  27. free(E);
  28. interact(final);
  29. cpoly(final);
  30.  
  31. save("solid1", final);
  32. free(final);
  33.  
  34. view_mat = save_mat;
  35.