mostra l'astroide

A = Intersect(xAxis, yAxis)
B = (5, 0)
c = Circle(A, B)
α = 0.6108652381980153 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
B' = Rotate(B, α, A)
β = Angle(B, A, B')
a = Segment(A, B')
b = OrthogonalLine(B', xAxis)
d = OrthogonalLine(B', yAxis)
C = Intersect(b, xAxis)
D = Intersect(d, yAxis)
e = Segment(C, D)
f = OrthogonalLine(B', e)
E = Intersect(f, e)
luogo1 = Locus(E, α)
g = true