home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / ui_utils / scripit.lzh / SCRIPIT / WBGFX.DEMO < prev    next >
Encoding:
Text File  |  1991-08-16  |  1.1 KB  |  47 lines
  1. ;; Workbench text and graphics demo.
  2. ;; A Scripit script by Khalid Aldoseri.
  3.  
  4. ;; Select the Workbench window to act upon.
  5. select window workbench
  6. ;; Send Workbench a Redraw command to clear its backdrop window
  7. wb redraw
  8. ;; Save the current pen mode of the WB window
  9. gfx savemode
  10. ;; Set the front pen to 1, back pen to 0, draw mode to JAM2
  11. gfx pen 1,0,JAM2
  12. ;; Move the current pointer to 130,20
  13. gfx move 130,20
  14. ;; and write some text there.
  15. gfx text "Is it possible to draw graphics onto Workbench??" 
  16. ;; Let's wait a while.
  17. wait 75
  18. ;; Change pen again.
  19. gfx pen 3,2,JAM2
  20. ;; And type some more text, but this time word by word.
  21. gfx move 200,35
  22. gfx text "YES!!"
  23. wait
  24. gfx text "  Scripit"
  25. wait
  26. gfx text " can"
  27. wait
  28. gfx text " do"
  29. wait
  30. gfx text " it!"
  31. wait 75
  32. gfx pen 1,0,JAM2
  33. ;; Draw some boxes
  34. gfx box 250,50,350,150
  35. gfx box 200,75,400,125
  36. gfx box 200,50,400,150
  37. ;; Change the pen to color 3
  38. gfx pen 3,0,JAM2
  39. ;; Draw a few more things.
  40. gfx circle 300,100,50
  41. gfx ellipse 300,100,100,50
  42. gfx ellipse 300,100,100,25
  43. gfx line 254,77,346,123
  44. gfx line 254,123,346,77
  45. ;; Retore the pen colors and draw mode to what they were.
  46. gfx restoremode
  47.