home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / IRIT / IRITS.ZIP / SOLID5.IRT < prev    next >
Encoding:
Text File  |  1990-05-05  |  953 b   |  44 lines
  1. #
  2. # This solid uses free form surfaces to create a rolling-pin. Note that
  3. # A polygon loaded without its plane definition, its plane normal (point into
  4. # the object) is set by the cross product of its first two edges. You might
  5. # need to flip them (using the unary minus - overloaded above geometric
  6. # objects to perform exactly that) sometimes.
  7. #
  8. #                Created by Gershon Elber,    Mar 89
  9. # 
  10.  
  11. tm = time(true);
  12.  
  13. save_mat = view_mat;
  14. save_res = resolution;
  15.  
  16. # normal(TRUE, 0.1, YELLOW);
  17.  
  18. resolution = 20;
  19.  
  20. T1 = load("surface1");
  21. T2 = T1 * rotx(180);
  22. interact(list(T1, T2), false);
  23.  
  24. T3 = cylin( vector(0.0, 0.0, -2.0), vector(0.0, 0.0, 4.0), 0.12);
  25. view(list(T3), false);
  26.  
  27. S1 = T3 * T2 * T1;
  28. free(T1);
  29. free(T2);
  30. free(T3);
  31.  
  32. final = convex(S1);
  33. free(S1);
  34.  
  35. tm = time(false);
  36. tm; # In Seconds
  37.  
  38. interact(list(final), false);
  39.  
  40. mdump("solid5", view_mat);
  41. gdump("solid5", final);
  42.  
  43. view_mat = save_mat;
  44. resolution = save_res;