mostra astroide

A = Point(xAxis)
B = Point(xAxis)
C = Point(yAxis)
D = Point(yAxis)
a = Line(A, B)
b = Line(C, D)
O = Intersect(a, b)
E = Point(a)
c = Circle(O, E)
F = Point(c)
d = Line(F, a)
e = Line(F, b)
G = Intersect(a, e)
H = Intersect(b, d)
f = Segment(G, H)
g = 1.15 (slider from 0 to Radius[c], step 0.05)
h = Circle(G, g)
P = Intersect(h, f, 1)
luogo1 = Locus(P, F)
i = CurveCartesian(Radius[c] * cos(t)^(3), Radius[c] * sin(t)^(3), t, 0, 6.283185307179586)
j = false