home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / software / utilities / icon_tools / iconian296 / macros / star.icrx < prev    next >
Text File  |  1995-09-17  |  639b  |  36 lines
  1. /* An example REXX script for Iconian */
  2.  
  3. address 'ICONIAN.1'
  4. options results
  5.  
  6. /* grab current mouse coords */
  7. 'getcoord x'
  8. mx=result
  9. 'getcoord y'
  10. my=result
  11.  
  12. /* Lock the GUI so the user can interfere! */
  13. lockgui
  14.  
  15. /* Select the connected-draw (freehand) drawing tool */
  16. freehand
  17.  
  18. /*Start at the top point of our star.  Nothing has been drawn yet. */
  19. moveto mx my-15
  20.  
  21. /* Start drawing, as if the left mouse button is down */
  22. leftmouse down
  23.  
  24. /* Draw lines connecting the points */
  25. moveto mx-12 my+16
  26. moveto mx+15 my-3
  27. moveto mx-15 my-3
  28. moveto mx+12 my+16
  29. moveto mx my-15
  30.  
  31. /* Finish drawing */
  32. leftmouse up
  33.  
  34. /* Let go of the GUI. */
  35. unlockgui
  36.