Leminiscate Polygon

[richmond62]

Just an incarnation of Mark Waddingham's post in the Use-List:
-

-

Code: Select all

on mouseUp
   put 200 into A
   put 1 into PLINE
   repeat with t = -pi to pi step (2*pi / 720)
      put (220 + (A * cos(t) / (1 + sin(t)^2))) into X
      put (220 + (A * sin(t) * cos(t) / (1 + sin(t)^2))) into Y
      put X, Y into line PLINE of fld "fPOINTS"
      add 1 to PLINE
   end repeat
   set the points of grc "WIGGLE" to fld "fPOINTS"
end mouseUp

[stam]

Just an incarnation of Mark Waddingham's post in the Use-List:

Very nice, thank you for sharing Richmond!
Throw a 'lock screen' in there and it's near instantaneous