A = (-2, 5)
B = (-2, 2)
C = (1, 2)
D = (1, 5)
a = Segment(A, B)
b = Segment(B, C)
c = Segment(C, D)
d = Segment(D, A)
Vieleck1, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)
E = (3, 2)
F = (6, 2)
Vieleck2, e, f, g, h, G, H = Polygon(E, F, 4)
I = (-2, 7)
J = (1, 7)
K = Point(Circle[J, 3])
i = Segment(J, K)
L = Point(Circle[I, 3])
j = Segment(I, L)
k = Segment(I, J)
l = Segment(K, L)
Vieleck3, l_1, i_1, j_1, k_1 = Polygon(L, I, J, K)
M = (3, 7)
N = (6, 7)
m = Segment(M, N)
O = (6, 10)
n = Segment(N, O)
Ph = (9, 10)
p = Line(Ph, m)
q = Line(M, n)
P = Intersect(q, p)
r = Segment(O, P)
s = Segment(P, M)
Vieleck4, q_1, m_1, n_1, o = Polygon(P, M, N, O)