A = (0, 0)
B = Point(xAxis)
C_1 = Point(xAxis)
c = Circle(A, C_1)
C = Point(c)
Vieleck1, d, a, b = Polygon(A, B, C)
D = Midpoint(d)
A' = Mirror(A, B)
e = Segment(C, A')
f = Line(D, e)
E = Intersect(f, b)
C' = Mirror(C, D)
D' = Mirror(D, B)
g = Segment(C, D')
h = Line(D, g)
F = Intersect(h, b)
G = Midpoint(F, C)
R_1 = Midpoint(F, G)
I = Midpoint(F, A)
J_1 = Midpoint(G, C)
i = Line(I, d)
j = Line(F, i)
k = Line(R_1, j)
l = Line(G, k)
m = Line(J_1, l)
K_1 = Intersect(m, a)
K = Intersect(l, a)
M = Intersect(k, a)
Q_2 = Intersect(j, a)
O = Intersect(i, a)
n = Line(I, a)
P_1 = Intersect(n, d)
Q_1 = Midpoint(P_1, D)
J = Mirror(Q_1, D)
D'_1 = Mirror(D, J)
p = Segment(P_1, C)
q = Segment(Q_2, A)
r = Segment(R_1, B)
U = Intersect(q, p)
W = Intersect(p, r)
V = Intersect(q, r)
Vieleck2, w, u, v = Polygon(U, V, W)
L = Midpoint(I, R_1)
N = Midpoint(R_1, J_1)
s = OrthogonalLine(J, d)
t = OrthogonalLine(K, a)
a_1 = OrthogonalLine(L, b)
R = Intersect(a_1, t)
P = Intersect(a_1, s)
Q = Intersect(s, t)
b_1 = Segment(Q, J)
c_1 = Segment(R, P)
d_1 = Segment(R, K)
Vieleck3, q_1, r_1, p_1 = Polygon(R, P, Q)