A = Point(yAxis)
B = Point(yAxis)
c = Circle(A, B)
a = Line(A, B)
b = OrthogonalLine(A, a)
C = Intersect(c, b, 1.0)
d = OrthogonalLine(B, a)
e = OrthogonalLine(C, b)
D = Intersect(d, e)
f = Segment(A, D)
D' = Mirror(D, a)
polígono1, d_1, d', a_1 = Polygon(D', A, D)
g = AngularBisector(B, D, A)
E = Intersect(a, g)
h = Circle(E, B)
F = Intersect(h, f, 1.0)
F' = Mirror(F, a)
k = CircleArc(E, F, F')
E' = Rotate(E, 90.0°, A)
F'_1 = Rotate(F, 90.0°, A)
F'' = Rotate(F', 90.0°, A)
k' = Arc(Rotate[Circle[E, F], 90.0°, A], F'_1, F'')
G = Rotate(F'_1, 90.0°, A)
F''' = Rotate(F'', 90.0°, A)
k'' = Arc(Rotate[Rotate[Circle[E, F], 90.0°, A], 90.0°, A], G, F''')
G' = Rotate(G, 90.0°, A)
H = Rotate(F''', 90.0°, A)
k''' = Arc(Rotate[Rotate[Rotate[Circle[E, F], 90.0°, A], 90.0°, A], 90.0°, A], G', H)