home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / gfx / 3d / irit / scripts / coplanar.irt < prev    next >
Encoding:
Text File  |  1994-09-15  |  971 b   |  59 lines
  1. #
  2. # Simple demo of handling coplanar Booleans.
  3. #
  4. #                        Gershon Elber,  July 1992.
  5. #
  6.  
  7. iritstate("coplanar", true); # Try it with 'iritstate("coplanar", false);'
  8. iritstate("intercrv", false);
  9. resolution = 20;
  10.  
  11. a = cylin(vector( 0.0, 0.0, 0.0 ), vector( 0.0, 0.0, 1.0 ), 1.0 );
  12. b = cylin(vector( 0.5, 0.0, 0.0 ), vector( 0.0, 0.0, 1.0 ), 1.0 );
  13.  
  14. interact(list(a, b));
  15.  
  16. c = a + b;
  17. interact( c );
  18.  
  19. c = a * b;
  20. interact( c );
  21.  
  22. c = a - b;
  23. interact( c );
  24.  
  25. c = b - a;
  26. interact( c );
  27.  
  28. a = cylin(vector( 0.0, 0.0, 0.0 ), vector( 0.0, 0.0, 1.0 ), 1.0);
  29. b = a * scale(vector( 2.0, 0.5, 1.0 ) );
  30. interact( list( a, b ) );
  31.  
  32. c = a + b;
  33. interact( c );
  34.  
  35. c = a * b;
  36. interact( c );
  37.  
  38. c = a - b;
  39. interact( c );
  40.  
  41. c = b - a;
  42. interact( c );
  43.  
  44. a = box(vector( -2.0,  -2.0, 0.0 ), 4.0, 4.0, 1.0 );
  45. b = cylin(vector( 0.0, 0.0, 0.0 ), vector( 0.0, 0.0, 2.0 ), 1.0 );
  46. interact( list( a, b ) );
  47.  
  48. c = a + b;
  49. interact( c );
  50.  
  51. c = a * b;
  52. interact( c );
  53.  
  54. c = a - b;
  55. interact( c );
  56.  
  57. c = b - a;
  58. interact( c );
  59.