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