home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pose1os2.zip / EXAMPLES / LOGO / SCENE1 / CAMERA.SIM < prev    next >
Text File  |  1995-04-29  |  651b  |  47 lines
  1. initialize {
  2.     x = -.19;
  3.     y = .275;
  4.     z = 1;
  5.  
  6.     direction_x = 0;
  7.     direction_y = 1;
  8.     direction_z = 0;
  9.  
  10.     up_x = 0;
  11.     up_y = 0;
  12.     up_z = 1;
  13.  
  14.     right_x = -1.3333;
  15.     right_y = 0;
  16.     right_z = 0;
  17.  
  18.     lookat_x = -.19;
  19.     lookat_y = .275;
  20.     lookat_z = 10;
  21.  
  22.     rotate(0,0,180);
  23.     zangle = 180;
  24.  
  25.     step = .1;
  26. }
  27.  
  28. evaluate {
  29.     z -= step;
  30.  
  31.     if(z < 0 && lookat_z == 10)
  32.         lookat_z = 0;
  33.  
  34.     if(z < -3)
  35.     {
  36.         step = .05;
  37.  
  38.         if(zangle > 0)
  39.         {
  40.             zangle -= 5;
  41.             rotate(0,0,zangle);
  42.         }
  43.         else
  44.             step = 0;
  45.     }
  46. }
  47.