Papierstreifen

A = Point(xAxis)
B = Mirror(A, yAxis)
C = Point(yAxis)
D = Mirror(C, xAxis)
a = OrthogonalLine(C, yAxis)
b = OrthogonalLine(A, xAxis)
E = Intersect(a, b)
c = Segment(C, A)
d = OrthogonalLine(E, c)
F = Intersect(d, c)
α = Angle(A, F, E)
M_1 = Intersect(d, xAxis)
e = Circle(M_1, A)
M_2 = Intersect(d, yAxis)
f = Circle(M_2, C)
i = true
P = Point(yAxis)
g = Circle(P, x(A) - y(C))
H, I = Intersect(g, xAxis)
h = Ray(P, I)
k = Circle(P, x(A))
K = Intersect(k, h)
j = Segment(P, K)