e = 15.8 (slider from 0 to 20, step 0.1)
f = 13.4 (slider from 0 to 15, step 0.1)
A = (0.5, -2)
a_1: abs(e)
C = Point(Circle[A, abs(e)])
a = Segment(A, C)
E = Point(a)
b = OrthogonalLine(E, a)
c = Circle(E, f / 2)
D = Intersect(c, b, 2)
B = Intersect(c, b, 1)
d = Segment(A, D)
g = Segment(A, B)
h = Segment(B, C)
i = Segment(D, C)
F = Midpoint(A, E)
j = OrthogonalLine(F, a)
G = Intersect(j, d)
H = Intersect(j, g)
k = Segment(G, E)
l = Segment(H, E)
I = Midpoint(E, C)
m = OrthogonalLine(I, a)
J = Intersect(m, i)
K = Intersect(m, h)
n = Segment(E, K)
p = Segment(E, J)
q = Segment(G, J)
r = Segment(H, K)
s = Segment(G, H)
t = Segment(J, K)
Vieleck1, a_2, b_1, c_1, d_1 = Polygon(A, B, C, D)
Vieleck2, h_1, g_1, e_1 = Polygon(G, E, H)
Vieleck3, k_1, j_1, e_2 = Polygon(J, E, K)
f_1 = Segment(D, B)
i_1 = Segment(A, C)
l_1 = Segment(E, B)