home *** CD-ROM | disk | FTP | other *** search
/ Great Canadian Scientists / GCS_CD.iso / mac / PC / GCSData / intro_o.dxr / 00009.ls < prev    next >
Encoding:
Text File  |  1996-09-01  |  276 b   |  16 lines
  1. on StartAnimationSync rate
  2.   global gStart, tps, timer
  3.   set fps to rate
  4.   put fps
  5.   set tps to 60 / fps
  6.   put tps
  7.   set timer to the ticks
  8.   set gStart to the frame
  9.   put gStart
  10. end
  11.  
  12. on AnimationSync
  13.   global gStart, tps, timer
  14.   go(((the ticks - timer) / tps) + gStart)
  15. end
  16.