A = Point(yAxis)
B = Point(yAxis)
c = Circle(A, B)
a = Line(A, B)
d = OrthogonalLine(B, a)
I = (0.98, 0.79)
p = CircleArc(B, A, I)
J = Intersect(c, p, 1.0)
r = Segment(B, J)
K = Midpoint(B, J)
i = Ray(A, K)
b = OrthogonalLine(A, a)
D = Intersect(d, i)
D' = Mirror(D, a)
q = Segment(D', A)
polígono1, j, d', l, m, n, o, L, M, N, O = Polygon(D, D', 6.0)
f = Segment(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, 59.99999999999999°, A)
F'_1 = Rotate(F, 59.99999999999999°, A)
F'' = Rotate(F', 59.99999999999999°, A)
k' = Arc(Rotate[Circle[E, F], 59.99999999999999°, A], F'_1, F'')
G = Rotate(F'_1, 59.99999999999999°, A)
F''' = Rotate(F'', 59.99999999999999°, A)
C = Intersect(c, b, 1.0)
k'' = Arc(Rotate[Rotate[Circle[E, F], 59.99999999999999°, A], 59.99999999999999°, A], G, F''')
G' = Rotate(G, 59.99999999999999°, A)
H = Rotate(F''', 59.99999999999999°, A)
k''' = Arc(Rotate[Rotate[Rotate[Circle[E, F], 59.99999999999999°, A], 59.99999999999999°, A], 59.99999999999999°, A], G', H)
G'' = Rotate(G', 59.99999999999999°, A)
H' = Rotate(H, 59.99999999999999°, A)
e = Arc(Rotate[Rotate[Rotate[Rotate[Circle[E, F], 59.99999999999999°, A], 59.99999999999999°, A], 59.99999999999999°, A], 59.99999999999999°, A], G'', H')
G''' = Rotate(G'', 59.99999999999999°, A)
H'' = Rotate(H', 59.99999999999999°, A)
e' = Arc(Rotate[Rotate[Rotate[Rotate[Rotate[Circle[E, F], 59.99999999999999°, A], 59.99999999999999°, A], 59.99999999999999°, A], 59.99999999999999°, A], 59.99999999999999°, A], G''', H'')