Ein Schachbrett mit Fluchtpunkten
Author: Peter Scholl

A = (-4.0370501466380295, 5.532950959766072)
B = (6.5514743629248295, 5.548684279988305)
Horizont = Line(A, B)
C = (1.690736102211744, 1.054637491425563)
a = Segment(A, C)
b = Segment(C, B)
D = Point(a)
c = Line(D, Horizont)
E = Intersect(c, b)
d = Segment(A, E)
e = Segment(B, D)
F = Intersect(d, e)
f = Line(F, Horizont)
G = Intersect(f, a)
H = Intersect(f, b)
g = Segment(A, H)
h = Segment(B, G)
I = Intersect(d, h)
i = Line(I, Horizont)
J = Intersect(i, a)
K = Intersect(i, b)
j = Segment(A, K)
k = Segment(B, J)
L = Intersect(d, k)
l = Line(L, Horizont)
M = Intersect(l, a)
N = Intersect(l, b)
m = Segment(A, N)
n = Segment(B, M)
O = Intersect(d, n)
p = Line(O, Horizont)
P = Intersect(p, a)
Q = Intersect(p, b)
q = Segment(A, Q)
r = Segment(B, P)
R = Intersect(d, r)
s = Line(R, Horizont)
S = Intersect(s, a)
T = Intersect(s, b)
t = Segment(A, T)
a_1 = Segment(B, S)
U = Intersect(d, a_1)
b_1 = Line(U, Horizont)
V = Intersect(b_1, a)
W = Intersect(b_1, b)
c_1 = Segment(A, W)
d_1 = Segment(B, V)
Z = Intersect(e, g)
A_1 = Intersect(g, h)
B_1 = Intersect(g, k)
C_1 = Intersect(g, n)
D_1 = Intersect(g, r)
E_1 = Intersect(g, a_1)
F_1 = Intersect(g, d_1)
G_1 = Intersect(d, d_1)
e_1 = Line(G_1, Horizont)
H_1 = Intersect(e_1, a)
I_1 = Intersect(e_1, b)
f_1 = Segment(A, I_1)
g_1 = Segment(B, H_1)
J_1 = Intersect(g, g_1)
K_1 = Intersect(j, g_1)
L_1 = Intersect(j, d_1)
M_1 = Intersect(j, a_1)
N_1 = Intersect(j, r)
O_1 = Intersect(j, n)
P_1 = Intersect(j, k)
Q_1 = Intersect(h, j)
R_1 = Intersect(e, j)
S_1 = Intersect(e, m)
T_1 = Intersect(h, m)
U_1 = Intersect(k, m)
V_1 = Intersect(m, n)
W_1 = Intersect(m, r)
Z_1 = Intersect(m, a_1)
A_2 = Intersect(m, d_1)
B_2 = Intersect(m, g_1)
C_2 = Intersect(q, g_1)
D_2 = Intersect(q, d_1)
E_2 = Intersect(q, a_1)
F_2 = Intersect(q, r)
G_2 = Intersect(n, q)
H_2 = Intersect(k, q)
I_2 = Intersect(h, q)
J_2 = Intersect(e, q)
K_2 = Intersect(e, t)
L_2 = Intersect(e, c_1)
M_2 = Intersect(e, f_1)
N_2 = Intersect(h, f_1)
O_2 = Intersect(h, c_1)
P_2 = Intersect(h, t)
Q_2 = Intersect(k, t)
R_2 = Intersect(k, c_1)
S_2 = Intersect(k, f_1)
T_2 = Intersect(n, f_1)
U_2 = Intersect(n, c_1)
V_2 = Intersect(n, t)
W_2 = Intersect(r, t)
Z_2 = Intersect(r, c_1)
A_3 = Intersect(r, f_1)
B_3 = Intersect(a_1, f_1)
C_3 = Intersect(a_1, c_1)
D_3 = Intersect(t, a_1)
E_3 = Intersect(t, d_1)
F_3 = Intersect(c_1, d_1)
G_3 = Intersect(d_1, f_1)
H_3 = Intersect(f_1, g_1)
I_3 = Intersect(c_1, g_1)
J_3 = Intersect(t, g_1)
Vieleck1, d_2, c_2, e_2, f_2 = Polygon(D, C, E, F)
Vieleck2, f_3, z, a_2, i_1 = Polygon(F, Z, A_1, I)
Vieleck3, b_2, a_3, q_1, p_1 = Polygon(B_1, A_1, Q_1, P_1)
Vieleck4, b_3, c_3, o, l_1 = Polygon(B_1, C_1, O, L)
Vieleck5, l_2, i_2, g_2, j_1 = Polygon(L, I, G, J)
Vieleck6, q_2, t_1, s_1, r_1 = Polygon(Q_1, T_1, S_1, R_1)
Vieleck7, r_2, z_1, h_1, k_1 = Polygon(R_1, Z, H, K)
Vieleck8, s_2, j_2, q_3, n_1 = Polygon(S_1, J_2, Q, N)
Vieleck9, o_1, r_3, p_2, m_1 = Polygon(O, R, P, M)
Vieleck10, t_2, w, l_3, k_2 = Polygon(T, W, L_2, K_2)
Vieleck11, k_3, j_3, i_3, p_3 = Polygon(K_2, J_2, I_2, P_2)
Vieleck12, i_4, t_3, u_1, h_2 = Polygon(I_2, T_1, U_1, H_2)
Vieleck13, u_2, p_4, o_2, v_1 = Polygon(U_1, P_1, O_1, V_1)
Vieleck14, o_3, c_4, d_3, n_2 = Polygon(O_1, C_1, D_1, N_1)
Vieleck15, d_4, r_4, u, e_3 = Polygon(D_1, R, U, E_1)
Vieleck16, u_3, s_3, v, g_3 = Polygon(U, S, V, G_1)
Vieleck17, f_4, e_4, m_2, l_4 = Polygon(F_1, E_1, M_1, L_1)
Vieleck18, m_3, z_2, w_1, n_3 = Polygon(M_1, Z_1, W_1, N_1)
Vieleck19, w_2, v_2, g_4, f_5 = Polygon(W_1, V_1, G_2, F_2)
Vieleck20, g_5, v_3, q_4, h_3 = Polygon(G_2, V_2, Q_2, H_2)
Vieleck21, q_5, r_5, o_4, p_5 = Polygon(Q_2, R_2, O_2, P_2)
Vieleck22, r_6, s_4, t_4, u_4 = Polygon(R_2, S_2, T_2, U_2)
Vieleck23, u_5, v_4, w_3, z_3 = Polygon(U_2, V_2, W_2, Z_2)
Vieleck24, a_4, z_4, c_5, b_4 = Polygon(A_3, Z_2, C_3, B_3)
Vieleck25, c_6, d_5, e_5, f_6 = Polygon(C_3, D_3, E_3, F_3)
Vieleck26, f_7, g_6, h_4, i_5 = Polygon(F_3, G_3, H_3, I_3)
Vieleck27, d_6, e_6, f_8, w_4 = Polygon(D_3, E_2, F_2, W_2)
Vieleck28, m_4, l_5, o_5, n_4 = Polygon(M_2, L_2, O_2, N_2)
Vieleck29, e_7, z_5, a_5, d_7 = Polygon(E_2, Z_1, A_2, D_2)
Vieleck30, c_7, j_4, e_8, d_8 = Polygon(C_2, J_3, E_3, D_2)
Vieleck31, b_5, a_6, l_6, k_4 = Polygon(B_2, A_2, L_1, K_1)
K_3 = Intersect(d, g_1)
Vieleck32, k_5, g_7, f_9, j_5 = Polygon(K_3, G_1, F_1, J_1)
h_5 = Segment(H_1, C)
m_5 = Segment(C, I_1)
n_5 = Segment(I_1, H_3)
s_5 = Segment(H_1, H_3)