Leminiscate Polygon
Posted: Wed Nov 03, 2021 9:38 am
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