home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pose1os2.zip / EXAMPLES / TRACK / SCENE1 / SPHERE2.SIM < prev    next >
Text File  |  1995-02-10  |  231b  |  18 lines
  1. initialize {
  2.     dir = -.1;
  3.     radius = .9;
  4.  
  5.     pigment.color = "Blue";
  6.     finish.phong = .8;
  7. }
  8.  
  9. evaluate {
  10.     if(radius == .1)
  11.         dir = .1;
  12.  
  13.     if(radius == 1.0)
  14.         dir = -.1;
  15.  
  16.     radius += dir;
  17. }
  18.