home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 564a.lha / igensurf_v1.0 / examples / wave.cal < prev   
Text File  |  1991-09-28  |  515b  |  25 lines
  1.  
  2. {
  3.     wave.cal: Create a wave
  4.  
  5.     igensurf -v -s 30 -t 30 wave.cal | writetddd >wave.obj
  6. }    
  7.  
  8. #name wave
  9.  
  10. X_Scale    : 100.0;        { Scale factor for the x axis }
  11. Y_Scale    : 100.0;        { Scale factor for the y axis }
  12. Z_Scale    : 5.0;            { Scale factor for the z axis }
  13.  
  14. X_0           : 30.0;    { Wave center    }
  15. Y_0            : 30.0;
  16. Wave_Length   : 17.0;
  17.  
  18. x(s,t) = X_Scale * s;
  19. y(s,t) = Y_Scale * t;
  20. z(s,t) = Z_Scale * sin(2 * PI * Dist(s,t, X_0, Y_0) / Wave_Length);
  21.  
  22. Dist(s,t,X,Y) = sqrt( sqr(x(s,t) - X) + sqr(y(s,t) - Y) );
  23.  
  24. sqr(X) = X * X;
  25.