;draws a four-lobed green 'clover' like shape centered on mousepos
;usage "drawclover (size in pixels)"
;uses ipt1 sine and cosine-- by Foxy
{ MOUSEPOS y = x = "$1" GREPSUB ATOI sz = "" CHATSTR =
0 255 0 PENCOLOR 2 PENSIZE
sz 71 * 200 / hw = y hw - cy =
x hw 2 * + ox = y oy = 1 sd =
{ sd fd = sd = x hw sd * + cx = y hw fd * - cy =
45 fd 0 < 180 * + sd fd != 90 * + st = st 192 + stp =
{ cx st SINE sz * 2000 / + nx = cy st COSINE sz * 2000 / + ny =
ox oy nx ny LINE nx ox = ny oy = 12 st +=
} { st stp < } WHILE
} [ 1 -1 -1 1 ] FOREACH
} CHATSTR "^drawclover ([0-9]+)$" GREPSTR IF