home *** CD-ROM | disk | FTP | other *** search
/ FHM 100 Bombázó Ajándék CD / fhm_hu_1997.iso / fhm_scr.exe / fhm_scr.dxr / 00086.ls < prev    next >
Encoding:
Text File  |  2001-03-13  |  460 b   |  11 lines
  1. on orbitShapes
  2.   global currStep, xBase, yBase, step, Xpos, Ypos
  3.   k = 1
  4.   repeat with i = 1 to 3
  5.     set the locV of sprite k to Ypos + (cos((20 * sin(currStep / (20 + k))) + (k * 70)) * yBase * (sin(10 + (currStep / 10)) + 0.20000000000000001))
  6.     set the locH of sprite k to Xpos + (cos((20 * sin(currStep / 20)) + (k * 90)) * xBase * (sin(10 + (currStep / (10 + k))) + 0.20000000000000001) * 2)
  7.     k = k + 1
  8.   end repeat
  9.   currStep = currStep + step
  10. end
  11.