;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