home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / gfx / 3d / irit / scripts / contours.irt < prev    next >
Encoding:
Text File  |  1994-09-04  |  1003 b   |  51 lines
  1. #
  2. # Intersection of cone and a cylinder:
  3. # Try this one with resolution equal 20 - slower, but much nicer!
  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. save_res = resolution;
  11. resolution = 8;
  12.  
  13. cone1 = con2( vector( 0, 0, -1 ), vector( 0, 0, 4 ), 2, 1 );
  14. cylin1= cylin( vector( 0, 3, 0 ), vector( 0, -6, 2 ), 0.7 );
  15.  
  16. a = cone1 + cylin1;
  17. free( cylin1 );
  18. free( cone1 );
  19. beep();
  20. interact( list( view_mat, a ) );
  21.  
  22. #
  23. # Currently variables can not be introduced in a loop (except the iteration
  24. # variable), so we prepare all variables in advance.
  25. #
  26. cntrs = nil();
  27. iritstate("intercrv", true);
  28. for ( i = -0.9, 0.1, 2.9,
  29.     p = circpoly( vector( 0.0, 0.0, 1.0 ), vector( 0.0, 0.0, i ), 6.0 ):
  30.     c = a * p:
  31.     viewobj( c ):
  32.     snoc(c, cntrs)
  33.     );
  34. iritstate("intercrv", false);
  35.  
  36. viewremove("c");
  37. viewobj(cntrs);
  38. pause();
  39.  
  40. save( "contours", cntrs );
  41. free( a );
  42. free( p );
  43. free( c );
  44. free( cntrs );
  45.  
  46. resolution = save_res;
  47. view_mat = save_mat;
  48.  
  49.  
  50.  
  51.