home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / X / mit / demos / gpc / objects / simple.vrb < prev    next >
Encoding:
Text File  |  1991-02-13  |  1.2 KB  |  77 lines
  1. read_geometry_file "pix.geo";
  2. identity3 1;
  3. identity3 2;
  4. identity3 3;
  5.  
  6. rotate3    11 1 z_axis replace;
  7. translate3 14   .5  .5  .0 replace;
  8. translate3 15  -.5 -.5  .0 replace;
  9. rotate3    16 -1 z_axis replace;
  10.  
  11. line_color 1 1 1;
  12. interior_color 0 1 0;
  13. interior_style solid;
  14.  
  15. begin_test 36;
  16.     apply_to_local3  14 replace;
  17.     apply_to_local3   2 preconcat;
  18.     apply_to_local3  15 preconcat;
  19.     interior_shading 2;
  20.     polygon3
  21.         .1 .1 .0
  22.         .9 .1 .0
  23.         .9 .9 .0
  24.         .1 .9 .0
  25.         vertex_colors
  26.         {
  27.             1. 1. 0.
  28.             1. 0. 0.
  29.             1. 0. 1.
  30.             0. 1. 1.
  31.         }
  32.         facet_colors { 0. 1. 1. }
  33.     ;
  34.  
  35.     apply_to_local3  3 replace;
  36.     polygon .3 .3 .7 .3 .7 .7 .3 .7 ;
  37.     line .2 .2 .8 .8 .8 .2 .2 .8 ;
  38.  
  39.     interior_style hollow;
  40.     interior_color .5 .5 .5;
  41.     apply_to_local3  14 replace;
  42.     apply_to_local3   1 preconcat;
  43.     apply_to_local3  15 preconcat;
  44.  
  45.     polygon .2 .2 .8 .2 .8 .8 .2 .8 ;
  46.     line_color 0 0 1; 
  47.     line .2 .2 .8 .8 .8 .2 .2 .8 ;
  48.  
  49.     interior_color 1.0 1.0 0.0;
  50.     %polygon .5 .5 1. .5 1. 1.  .5 1.;%
  51.  
  52.     interior_style solid;
  53.     fill_area_set3
  54.     {
  55.         .6 .6 .0
  56.         .6 .9 .0
  57.         .9 .9 .0
  58.         .9 .6 .0
  59.     }
  60.     {
  61.         .5 .5 .0
  62.         1. .5 .0
  63.         1. 1. .0
  64.         .5 1. .0
  65.     }
  66.     ;
  67.  
  68.     execute_structure 5;
  69.  
  70.     concat_matrix3 11 1 preconcat;
  71.     concat_matrix3 16 2 preconcat;
  72.  
  73. end_test;
  74.  
  75. pause;
  76.  
  77.