home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / IRIT / IRITS.ZIP / PRIMITIV.IRT < prev    next >
Encoding:
Text File  |  1990-05-05  |  2.0 KB  |  71 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. beep(1000,100);
  20. pause(1.0);
  21.  
  22. view(list(axes15), true);
  23. c=cone(vector(-0.5, 0.0, 0.0), vector(-0.5, 0.0, 0.0), 0.5);
  24. view(list(c), false);
  25. c=cone(vector( 0.5, 0.0, 0.0), vector( 0.5, 0.0, 0.0), 0.5);
  26. view(list(c), false);
  27. c=cone(vector( 0.0,-0.5, 0.0), vector( 0.0,-0.5, 0.0), 0.5);
  28. view(list(c), false);
  29. c=cone(vector( 0.0, 0.5, 0.0), vector( 0.0, 0.5, 0.0), 0.5);
  30. view(list(c), false);
  31. c=cone(vector( 0.0, 0.0,-0.5), vector( 0.0, 0.0,-0.5), 0.5);
  32. view(list(c), false);
  33. c=cone(vector( 0.0, 0.0, 0.5), vector( 0.0, 0.0, 0.5), 0.5);
  34. view(list(c), false); free(c);
  35.  
  36. beep(1000,100);
  37. pause(1.0);
  38.  
  39. view(list(axes15), true);
  40. c=cylin(vector(-0.8, 0.0, 0.0), vector(-0.5, 0.3, 0.3), 0.3);
  41. view(list(c), false);
  42. c=cylin(vector( 0.8, 0.0, 0.0), vector( 0.8, 0.0, 0.0), 0.3);
  43. view(list(c), false);
  44. c=cylin(vector( 0.0,-0.8, 0.0), vector( 0.1,-0.5, 0.2), 0.3);
  45. view(list(c), false);
  46. c=cylin(vector( 0.0, 0.8, 0.0), vector( 0.0, 0.8, 0.0), 0.3);
  47. view(list(c), false);
  48. c=cylin(vector( 0.0, 0.0,-0.8), vector( 0.4, 0.2,-0.5), 0.3);
  49. view(list(c), false);
  50. c=cylin(vector( 0.0, 0.0, 0.8), vector( 0.0, 0.0, 0.8), 0.3);
  51. view(list(c), false); free(c);
  52.  
  53. beep(1000,100);
  54. pause(1.0);
  55.  
  56. resolution = 12;
  57.  
  58. s=sphere(vector( 0.0, 0.0, 0.0), 0.5);
  59. view(list(axes15, s), true); free(s);
  60.  
  61. beep(1000,100);
  62. pause(1.0);
  63.  
  64. t=torus(vector( 0.0, 0.0, 0.0), vector( 0.1, 0.2, 1.0), 0.5, 0.2);
  65. view(list(axes15, t), true); free(t);
  66.  
  67. free(axes15);
  68.  
  69. resolution = save_res;
  70. view_mat = save_mat;
  71.