;pcirc makes a circle of specified props around mouse position --by Foxy
;usage " pcirc  "
;redone for ipt1
{ "" CHATSTR = "$1" GREPSUB prn = "$2" GREPSUB ATOI rd =
 MOUSEPOS 22 - r = 22 - c = rd 7 / 1 + st = rd poldis =
 { 360 cst * st / poldir =
   poldir sine poldis * 1000 / dy = poldir cosine poldis * 1000 / dx =
   prn c dx + r dy + ADDLOOSEPROP cst ++
 } { cst st < } WHILE
} CHATSTR "^pcirc (.*) ([0-9]+)$" GREPSTR IF