home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 67 / IOPROG_67A.ISO / soft / Tools / mwsppv4.exe / CLOCK.SCRIPT < prev    next >
Encoding:
Text File  |  1998-01-06  |  661 b   |  42 lines
  1. !!Script
  2. // Copyright ⌐ 1997-1998 - Modelworks Software
  3.  
  4.  
  5. var output = getOutput();
  6. var test = null;
  7.  
  8. function tick( timeNow )  
  9. {
  10.   
  11.   var timeIndex = timeNow % 60; 
  12.   var zDirection = 1.0;
  13.   var whatSpin = (timeIndex / 30) * 3.14159;
  14.   if ( whatSpin > 3.14159 ) 
  15.   {
  16.     whatSpin = 3.14159 - (whatSpin - 3.14159);
  17.     zDirection = -1
  18.   }
  19.   else 
  20.   {
  21.     zDirection = 1
  22.   }
  23.   output.writeLine("tick " + timeNow + ": 0 0 " + zDirection + " " + whatSpin);
  24. }
  25.  
  26. function DoCommand()
  27. {
  28.   if (test == null)
  29.   {
  30.     test = newList();
  31.   }
  32.   
  33.   output.clear();
  34.   for (var i = 0; i <= 120; i++)
  35.   {
  36.     tick(i);
  37.   }
  38. }
  39.  
  40. !!/Script
  41.  
  42.