home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / gfx / 3d / irit / scripts / polypris.irt < prev    next >
Encoding:
Text File  |  1993-12-30  |  1.7 KB  |  58 lines
  1. #
  2. # Manual construction of layout (prisa) of simple polyhedra.
  3. #
  4.  
  5. square = poly( list( vector( 0, 0, 0 ),
  6.              vector( 0, 1, 0 ),
  7.              vector( 1, 1, 0 ),
  8.              vector( 1, 0, 0 ),
  9.              vector( 0, 0, 0 ) ),
  10.            true );
  11. attrib( square, "width", "0.02" );
  12. color( square, red );
  13.  
  14. rectan = poly( list( vector( 0, 0, 0 ),
  15.              vector( 0, 1, 0 ),
  16.              vector( 2, 1, 0 ),
  17.              vector( 2, 0, 0 ),
  18.              vector( 0, 0, 0 ) ),
  19.            true );
  20. attrib( rectan, "width", "0.02" );
  21. color( rectan, red );
  22.  
  23. triang = poly( list( vector( 0,   0,   0 ),
  24.              vector( 0,   1,   0 ),
  25.              vector( 1.5, 0.5, 0 ),
  26.              vector( 0,   0,   0 ) ),
  27.            true );
  28. attrib( triang, "width", "0.02" );
  29. color( triang, red );
  30.  
  31. view_mat = scale( vector( 0.2, 0.2, 0.2 ) );
  32. cube_prisa = list( square,
  33.            square * trans( vector(  1,  0, 0 ) ),
  34.            square * trans( vector(  2,  0, 0 ) ),
  35.            square * trans( vector( -1,  0, 0 ) ),
  36.            square * trans( vector(  0,  1, 0 ) ),
  37.            square * trans( vector(  0, -1, 0 ) ) );
  38. interact( list( view_mat, cube_prisa) );
  39. save( "cubepris", cube_prisa );
  40.  
  41. box_prisa = list( rectan,
  42.           square * trans( vector(  2,  0, 0 ) ),
  43.           square * trans( vector( -1,  0, 0 ) ),
  44.           rectan * trans( vector(  0,  1, 0 ) ),
  45.           rectan * trans( vector(  0,  2, 0 ) ),
  46.           rectan * trans( vector(  0, -1, 0 ) ) );
  47. interact( list( view_mat, box_prisa ) );
  48. save( "box_pris", box_prisa );
  49.  
  50.  
  51. piram_prisa = list( square,
  52.             triang * trans( vector(  1,  0, 0 ) ),
  53.             triang * rotz( 90 ) * trans( vector( 1,  1, 0 ) ),
  54.             triang * rotz( 180 ) * trans( vector( 0,  1, 0 ) ),
  55.             triang * rotz( 270 ) * trans( vector( 0,  0, 0 ) ) );
  56. interact( list( view_mat, piram_prisa ) );
  57. save( "pirapris", piram_prisa );
  58.