a = 4.8 (slider from 1 to 7, step 0.1)
A = (-1.76, -2.64)
b_1: abs(a)
B = Point(Circle[A, abs(a)])
b = Segment(A, B)
mnohoúhelník1, c, d, e, f, F, E = Polygon(A, B, 4)
g = Line(A, F)
h = Line(B, g)
i = Line(E, g)
k = Circle(E, a / 2)
C_1, H = Intersect(k, i)
j = Line(H, e)
G = Intersect(g, j)
l = Line(G, d)
C = Intersect(l, h)
m = Line(C, j)
D = Intersect(g, m)
n = Segment(H, D)
p = Segment(B, C)
q = Segment(F, G)
r = Segment(E, H)
s = Segment(A, D)
t = Segment(H, G)
a_1 = Segment(G, C)
c_1 = Segment(C, D)
d_1 = Line(G, B)
e_1 = Line(C, F)
f_1 = Line(E, G)
g_1 = Line(H, F)
h_1 = Line(E, B)
i_1 = Line(F, A)
j_1 = Line(H, A)
k_1 = Line(E, D)
l_1 = Line(A, C)
m_1 = Line(D, B)
n_1 = Line(H, C)
I = Midpoint(E, F)
L_1 = Midpoint(B, C)
K = Midpoint(B, L_1)
J = Midpoint(C, G)
L = Midpoint(J, G)
M = Midpoint(A, E)