A = (0, 0)
P = Point(xAxis)
Q = Mirror(A, P)
B = Mirror(P, Q)
H = Point(xAxis)
c = Circle(A, H)
U = Point(c)
T = Mirror(A, U)
C = Mirror(U, T)
a = Segment(C, B)
b = Segment(A, C)
d = Line(Q, b)
e = Line(P, d)
S = Intersect(e, a)
R = Intersect(d, a)
f = Segment(P, T)
g = Segment(P, S)
h = Segment(U, Q)
i = Segment(U, R)
D = Intersect(i, g)
Z = Intersect(f, i)
V = Intersect(f, h)
W = Intersect(h, g)
j = Segment(A, B)
Vieleck1, z, v, d_1 = Polygon(V, D, Z)
Vieleck2, d_2, v_1, w = Polygon(V, W, D)
TextVieleck1: "Fläche " + (Name[V]) + (Name[D]) + (Name[Z]) + " = " + Vieleck1
TextVieleck2: "Fläche " + (Name[V]) + (Name[W]) + (Name[D]) + " = " + Vieleck2
Vieleck3, z_1, v_2, w_1, d_3 = Polygon(Z, V, W, D)
k = Segment(P, V)
l = Segment(Z, T)
m = Segment(P, W)
n = Segment(D, S)
p = Segment(U, Z)
q = Segment(D, R)
r = Segment(U, V)
s = Segment(W, Q)