home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / gfx / 3d / irit / scripts / solid4.irt < prev    next >
Encoding:
Text File  |  1993-12-30  |  1.1 KB  |  63 lines
  1. #
  2. # This solid was taken from: Geometric Modeling,
  3. # by Michael E. Mortenson page 468, figure 10.34
  4. #
  5. #                Created by Gershon Elber,    Feb 89
  6. # 
  7. #   Be patient - this one takes about 15 minutes on my 12Mhz 286 with co-pro.
  8. #
  9.  
  10. time(true);
  11.  
  12. save_res = resolution;
  13.  
  14. resolution = 8;
  15. T1 = CYLIN(vector( -1.1, 0.0, 0.0), vector(  2.2, 0.0, 0.0), 0.1);
  16. T2 = CYLIN(vector( -0.8, 0.0, 0.0), vector( 0.05, 0.0, 0.0), 0.15);
  17. T3 = CYLIN(vector(  0.8, 0.0, 0.0), vector(-0.05, 0.0, 0.0), 0.15);
  18.  
  19. S1 = T1 + T2 + T3;
  20. free(T1);
  21. free(T2);
  22. free(T3);
  23. S1 = convex(S1);
  24. beep();
  25. view(S1, true);
  26.  
  27. S2 = S1 * roty(90);
  28. S3 = S1 * rotz(90);
  29. beep();
  30. view(list(S2, S3), false);
  31.  
  32. S4 = S1 + S2 + S3;
  33. free(S1);
  34. free(S2);
  35. free(S3);
  36. beep();
  37. view(S4, true);
  38.  
  39. resolution = 20;
  40. T4 = sphere(vector(0.0, 0.0, 0.0), 1.0);
  41.  
  42. S5 = T4 - S4;
  43. free(S4);
  44. free(T4);
  45.  
  46. final = convex(S5);
  47. free(S5);
  48.  
  49. time(false); # In Seconds
  50.  
  51. interact(final);
  52.  
  53. save("solid4", final);
  54.  
  55. # Now make the box cut out of it:
  56. T5 = box(vector(-0.01, -0.01, -0.01), 1.5, 1.5, 1.5);
  57. cut = final - T5;
  58. cut = convex(cut);
  59.  
  60. save("solid4c", cut);
  61.  
  62. resolution = save_res;
  63.