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 / primitiv.irt < prev    next >
Text File  |  1991-03-21  |  2KB  |  67 lines
  1. #
  2. # Display of all primitives of the system:
  3. # BOX, GBOX, CONE, CYLIN, SPHERE, TORUS
  4. #
  5. #                Created by Gershon Elber,    Dec. 88
  6. #
  7.  
  8. save_mat = view_mat;
  9. save_res = resolution;
  10. view_mat = view_mat * scale(vector( 0.5, 0.5, 0.5 ));
  11. axes15 = axes * scale(vector(1.5, 1.5, 1.5));
  12.  
  13. b=box(vector(-0.5, -0.5, -0.5), 1.0, 1.0, 1.0);
  14. view(list(axes15, b), true); free(b);
  15. g=gbox(vector(-0.25, -0.25, -0.25), vector( 1.1, 0.1, 0.2),
  16.             vector( 0.4, 0.9, 0.2), vector( 0.3, 0.05, 1.4));
  17. view(list(g), false); free(g);
  18.  
  19. pause(1.0);
  20.  
  21. view(list(axes15), true);
  22. c=cone(vector(-0.5, 0.0, 0.0), vector(-0.5, 0.0, 0.0), 0.5);
  23. view(list(c), false);
  24. c=cone(vector( 0.5, 0.0, 0.0), vector( 0.5, 0.0, 0.0), 0.5);
  25. view(list(c), false);
  26. c=cone(vector( 0.0,-0.5, 0.0), vector( 0.0,-0.5, 0.0), 0.5);
  27. view(list(c), false);
  28. c=cone(vector( 0.0, 0.5, 0.0), vector( 0.0, 0.5, 0.0), 0.5);
  29. view(list(c), false);
  30. c=cone(vector( 0.0, 0.0,-0.5), vector( 0.0, 0.0,-0.5), 0.5);
  31. view(list(c), false);
  32. c=cone(vector( 0.0, 0.0, 0.5), vector( 0.0, 0.0, 0.5), 0.5);
  33. view(list(c), false); free(c);
  34.  
  35. pause(1.0);
  36.  
  37. view(list(axes15), true);
  38. c=cylin(vector(-0.8, 0.0, 0.0), vector(-0.5, 0.3, 0.3), 0.3);
  39. view(list(c), false);
  40. c=cylin(vector( 0.8, 0.0, 0.0), vector( 0.8, 0.0, 0.0), 0.3);
  41. view(list(c), false);
  42. c=cylin(vector( 0.0,-0.8, 0.0), vector( 0.1,-0.5, 0.2), 0.3);
  43. view(list(c), false);
  44. c=cylin(vector( 0.0, 0.8, 0.0), vector( 0.0, 0.8, 0.0), 0.3);
  45. view(list(c), false);
  46. c=cylin(vector( 0.0, 0.0,-0.8), vector( 0.4, 0.2,-0.5), 0.3);
  47. view(list(c), false);
  48. c=cylin(vector( 0.0, 0.0, 0.8), vector( 0.0, 0.0, 0.8), 0.3);
  49. view(list(c), false); free(c);
  50.  
  51. pause(1.0);
  52.  
  53. resolution = 12;
  54.  
  55. s=sphere(vector( 0.0, 0.0, 0.0), 0.5);
  56. view(list(axes15, s), true); free(s);
  57.  
  58. pause(1.0);
  59.  
  60. t=torus(vector( 0.0, 0.0, 0.0), vector( 0.1, 0.2, 1.0), 0.5, 0.2);
  61. view(list(axes15, t), true); free(t);
  62.  
  63. free(axes15);
  64.  
  65. resolution = save_res;
  66. view_mat = save_mat;
  67.