home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / samples / tablet / tabsamp3.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  749 b   |  31 lines
  1. '***********************************************************************
  2. '    TabSamp3.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. FormSetColor(_Yellow; _Field)
  15. FormSetObject(10, _Tablet, "", _Center, _Center, 100 pxl ,100 pxl)
  16. FormControl(_Show)
  17.  
  18. TabletSelect(10)
  19. TabletRoundRect(10, 10, 40, 40, 15, 35)
  20. TabletPen(_Red)
  21. TabletLine(10, 90, 90, 10)
  22. TabletPen(_Blue; 5)
  23. TabletEllipse(60, 60, 90, 90)
  24. TabletControl(_Show)
  25.  
  26. x = {60, 95, 95}
  27. y = {5, 5, 40}
  28. TabletPen(_Green)
  29. TabletBrush(_Orange)
  30. TabletPolygon(x, y)
  31. TabletControl(_Show)