home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 564a.lha / igensurf_v1.0 / examples / spiral2.cal < prev    next >
Encoding:
Text File  |  1991-09-27  |  300 b   |  16 lines
  1. {
  2.     spiral2.cal: Create a spiral
  3.  
  4.     igensurf -v -s 20 -t 10 spiral2.cal | writetddd >spiral2.obj
  5. }    
  6.  
  7. #name spiral2
  8. #scale 100
  9.  
  10. height  : 5;        { Height of spiral }
  11. n_turns : 3;        { Number of turns  }
  12.  
  13. x(s,t) = t * cos(n_turns * 2 * PI * s);
  14. y(s,t) = t * sin(n_turns * 2 * PI * s);
  15. z(s,t) = height * s;
  16.