/* An example REXX script for Iconian */

address 'ICONIAN.1'
options results

/* grab current mouse coords */
'getcoord x'
mx=result
'getcoord y'
my=result

/* Lock the GUI so the user can interfere! */
lockgui

/* Select the connected-draw (freehand) drawing tool */
freehand

/*Start at the top point of our star.  Nothing has been drawn yet. */
moveto mx my-15

/* Start drawing, as if the left mouse button is down */
leftmouse down

/* Draw lines connecting the points */
moveto mx-12 my+16
moveto mx+15 my-3
moveto mx-15 my-3
moveto mx+12 my+16
moveto mx my-15

/* Finish drawing */
leftmouse up

/* Let go of the GUI. */
unlockgui