A = (-2, -4)
B = (6, -4)
Vieleck1, a, b, c, d, C, D = Polygon(A, B, 4)
Z = (16, 9)
e = Segment(C, Z)
f = Segment(B, Z)
E = Point(e)
g = OrthogonalLine(E, a)
F = Intersect(g, f)
Vieleck2, h, i, j, k, G, H = Polygon(F, E, 4)
l = Segment(D, G)
m = Segment(E, C)
n = Segment(F, B)
p = Segment(H, A)
I = Midpoint(D, C)
J = Midpoint(A, B)
K = Midpoint(C, B)
L = Midpoint(E, F)
P = Midpoint(D, A)
Q = Midpoint(G, H)
S = Midpoint(G, E)
r = Segment(I, J)
s = Segment(K, L)
t = Segment(P, Q)
T = Midpoint(k)
b_1 = Segment(S, T)
W = Midpoint(r)
B_1 = Midpoint(b_1)
c_1 = Segment(E, B)
d_1 = Segment(G, A)
M = Intersect(t, d_1)
N = Intersect(s, c_1)
q = OrthogonalLine(M, a)
a_1 = OrthogonalLine(N, a)
O = Intersect(q, l)
R = Intersect(q, p)
U = Intersect(a_1, n)
V = Intersect(a_1, m)
e_1 = Segment(O, V)
f_1 = Segment(R, U)
A_1 = Midpoint(f_1)
C_1 = Midpoint(e_1)
g_1 = Segment(G, E)
h_1 = Segment(E, F)
i_1 = Segment(H, F)
j_1 = Segment(H, G)