A_1 = Point(xAxis)
C_2 = Point(yAxis)
M = (0, 0)
c = Circle(C_2, Length[Vector[M, A_1]])
C_1 = (-4, 4)
D_1, E_1 = Intersect(c, xAxis)
k = Ellipse(E_1, D_1, C_2)
A = Point(k)
B = Point(k)
C = Point(k)
D = Point(k)
E = Point(k)
F = Point(k)
Vieleck1, f, g, h, i, j, k_1 = Polygon(A, B, C, D, E, F)
a = Line(C, B)
b = Line(E, F)
e = Line(B, A)
l = Line(D, E)
m = Line(C, D)
n = Line(A, F)
P = Intersect(b, a)
Q = Intersect(l, e)
R = Intersect(n, m)
p = Line(P, R)