home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 3.0 / TESTDRIVE_3.ISO / realizer / demos / animate / world.rlz < prev   
Encoding:
Text File  |  1992-09-30  |  1.1 KB  |  39 lines
  1. '***********************************************************************
  2. '    World.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. fontBig = FontQUnique
  16. FontNew(fontBig; "Helv", 28, _Bold)
  17. fontMed = FontQUnique
  18. FontNew(fontMed; "Helv", 14, _Italics)
  19.  
  20. FormNew(FormQUnique; "World Wide Enterprises", _Title + _Close + _Minimize)
  21. FormControl(_Size; 10 pct, 10 pct, 80 pct, 40 pct)
  22. FormControl(_Show)
  23. FormSetObject(20, "Animate", "", 2 pct, 0 pct, 30 pct, 100 pct)
  24. FormSetObject(30, _CaptionCenter, "World Wide Enterprises", fontBig, 18 pct, 20 pct, 82 pct, _Default; _Brick)
  25. FormSetObject(40, _CaptionCenter, "Providing quality products to the world" + chr$(13) + chr$(10) + "since 1879", fontMed, 16 pct, 50 pct, 86 pct, 30 pct)
  26.  
  27. s = 400
  28. AnimateSelect(20)
  29. AnimateCells("World#.bmp", 1, 6)
  30. FOR i = 1 to 6
  31.     AnimateFrame(i, 0, 0, s)
  32. NEXT i
  33. AnimateControl(_Start)
  34.  
  35.  
  36.  
  37.  
  38.  
  39.