;drawheart, draws a painted heart of specified size, centered roughly on mousepos
;by Foxy- requires ipt1 sine and cosine
;usage "drawheart "
;uses last used pen size and color
{ MOUSEPOS y = x = "$1" GREPSUB ATOI sz = "" CHATSTR =
sz 71 * 200 / hw = y hw - cy =
x hw 2 * + ox = y oy =
x y hw 2 * + ox oy LINE
{ sd = x hw sd * + cx = 90 45 sd * - st = st 190 + stp =
{ cx st SINE sz * 2000 / + nx = cy st COSINE sz * 2000 / + ny =
ox oy nx ny LINE nx ox = ny oy = 10 st +=
} { st stp < } WHILE
} [ 1 -1 ] FOREACH
ox oy x y hw 2 * + LINE
} CHATSTR "^drawheart ([0-9]+)$" GREPSTR IF