home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / demos / animate / roller.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  909 b   |  35 lines
  1. '***********************************************************************
  2. '    Roller.rlz                      
  3. '
  4. '    Animation Demo
  5. '
  6. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  7. '    All rights reserved.
  8. '
  9. '***********************************************************************
  10.  
  11. RUN "Animate" 
  12. RUN "StdSys"
  13.  
  14. AddSys(_LoadDir, QSys(_ProgDir) + "bitmaps")
  15.  
  16. 'Create a form with an animation window 
  17. FormNew(FormQUnique; "The Rolling Ball", _Close + _Title + _Minimize) 
  18. FormControl(_Size; _Center, _Center, 70 pct, 200 pxl) 
  19. FormSetObject(20, _Animate, "", _Center, _Center,  100 pct, 100 pct) 
  20. FormControl(_Show) 
  21.  
  22. 'Prepare the animation 
  23. AnimateSelect(20) 
  24. AnimateCells("Roll#.BMP", 1, 5) 
  25. CellOrder = {1, 2, 3, 4, 5, 4, 3, 2} 
  26. FOR i = 0 to 35
  27.     cell = CellOrder[i Mod 8 + 1] 
  28.     AnimateFrame(cell, i*12 - 70, 10, 200) 
  29. NEXT i 
  30.  
  31. 'Start the ball rolling 
  32. AnimateControl(_Start)
  33.  
  34.  
  35.