home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / samples / tablet / tabsamp5.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  773 b   |  32 lines
  1. '***********************************************************************
  2. '    TabSamp5.rlz                      
  3. '
  4. '    Realizer Library Guide Sample
  5. '
  6. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  7. '    All rights reserved.
  8. '
  9. '***********************************************************************
  10.  
  11. RUN "Tablet"
  12.  
  13. FormNew(1)
  14. FormSetObject(10, _Tablet, "", _Center, _Top, 200 pxl, 200 pxl)
  15. FormControl(_Show)
  16.  
  17. TabletSelect(10)
  18. FOR i = 1 to 100 STEP 2
  19.     TabletEllipse(100-i, 100-i, 100+i, 100+i)
  20. NEXT i
  21. TabletControl(_Show)
  22.  
  23. FOR i = 1 to 100 STEP 2
  24.     TabletPen(_Red)
  25.     TabletEllipse(100-i, 100-i, 100+i, 100+i)
  26.     TabletControl(_Show; 1)
  27.     TabletUndo
  28.     TabletPen(_Black)
  29.     TabletEllipse(100-i, 100-i, 100+i, 100+i)
  30.     TabletControl(_Show; 1)
  31.     TabletUndo
  32. NEXT i