Soy de oro puro

fi = 1.618033988749895
A = (1.72, 3.98)
b = OrthogonalLine(A, yAxis)
B = Point(b)
h = Ray(A, B)
c = Segment(A, B)
d: c * fi
E_1: A - (d, 0.0)
F_1 = Mirror(E_1, A)
a = OrthogonalLine(A, xAxis)
g = OrthogonalLine(B, c)
C = Intersect(Semicircle[F_1, E_1], a)
f = OrthogonalLine(C, a)
D = Intersect(f, g)
D' = Mirror(D, C)
E = Intersect(Semicircle[D, D'], a)
A' = Mirror(A, E)
i = OrthogonalLine(E, a)
G = Intersect(Semicircle[A', A], i)
j = OrthogonalLine(G, i)
H = Intersect(j, c)
H' = Mirror(H, B)
I = Intersect(Semicircle[H, H'], g)
l = OrthogonalLine(I, g)
J = Intersect(j, l)
F = Intersect(g, i)
F' = Mirror(F, I)
K = Intersect(Semicircle[F', F], l)
m = OrthogonalLine(K, l)
L = Intersect(i, m)
L' = Mirror(L, G)
M = Intersect(Semicircle[L, L'], j)
M' = Mirror(M, J)
O = Intersect(Semicircle[M, M'], l)
K' = Mirror(K, O)
n = OrthogonalLine(M, j)
t = OrthogonalLine(O, n)
Q = Intersect(Semicircle[K', K], t)
a_1 = OrthogonalLine(Q, m)
R = Intersect(m, a_1)
P = Intersect(n, t)
N = Intersect(m, n)
N' = Mirror(N, R)
S = Intersect(Semicircle[N', N], a_1)
b_1 = OrthogonalLine(S, a_1)
T = Intersect(n, b_1)
P' = Mirror(P, T)
U = Intersect(Semicircle[P', P], b_1)
f_1 = OrthogonalLine(U, t)
V = Intersect(t, f_1)
Q' = Mirror(Q, V)
W = Intersect(Semicircle[Q', Q], f_1)
h_1 = OrthogonalLine(W, f_1)
Z = Intersect(a_1, h_1)
S' = Mirror(S, Z)
A_1 = Intersect(Semicircle[S', S], h_1)
i_1 = OrthogonalLine(A_1, b_1)
B_1 = Intersect(b_1, i_1)
U' = Mirror(U, B_1)
C_1 = Intersect(Semicircle[U', U], i_1)
j_1 = OrthogonalLine(C_1, i_1)
D_1 = Intersect(f_1, j_1)
polígono1, a_2, b_2, d_2, c_2 = Polygon(A, B, D, C)
polígono2, a_3, e_2, f_2, b_3 = Polygon(A, E, F, B)
polígono3, h_2, g_2, f_3, b_4 = Polygon(H, G, F, B)
polígono4, g_3, j_2, i_2, f_4 = Polygon(G, J, I, F)
polígono5, j_3, k_2, l_1, g_4 = Polygon(J, K, L, G)
polígono6, j_4, m_1, n_1, k_3 = Polygon(J, M, N, K)
polígono7, p_2, o, k_4, n_2 = Polygon(P, O, K, N)
polígono8, p_3, q_1, r_1, n_3 = Polygon(P, Q, R, N)
polígono9, p_4, q_2, s_1, t_1 = Polygon(P, Q, S, T)
polígono10, v, q_3, s_2, u = Polygon(V, Q, S, U)
polígono11, w, z, s_3, u_1 = Polygon(W, Z, S, U)
polígono12, w_1, a_4, b_5, u_2 = Polygon(W, A_1, B_1, U)
polígono13, w_2, a_5, c_3, d_3 = Polygon(W, A_1, C_1, D_1)