home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 564a.lha / igensurf_v1.0 / examples / wastebasket.cal < prev    next >
Encoding:
Text File  |  1991-09-27  |  413 b   |  19 lines
  1. {
  2.     wastebasket.cal : Create a wastebasket contour
  3.  
  4.     igensurf -v wastebasket.cal |  writetddd > wastebasket.obj
  5. }
  6.  
  7. #name wastebasket
  8. #scale 100
  9.  
  10. step_s : 1;
  11. step_t : 40;
  12.  
  13. x(s,t) = (1 - s * .15) * xf(t);
  14. y(s,t) = (1 - s * .15) * yf(t);
  15. z(s,t) = 15 - 14 * s;
  16.  
  17. xf(t) = select(floor(t*4)+1, 4.5, -4.5, -4.5,  4.5, 4.5) + 1.5 * cos(t*2*PI);
  18. yf(t) = select(floor(t*4)+1, 3.5,  3.5, -3.5, -3.5, 3.5) + 1.5 * sin(t*2*PI);
  19.