K = (-1.1869463414634158, 6.53870243902439)
G = (3.3579317073170727, 5.421960975609755)
E = (-1.8621853658536598, 10.590136585365853)
A = (1.9814829268292675, 13.213180487804879)
B = (3.513756097560975, 9.135775609756097)
poly1, a, b, c, d, e = Polygon(B, A, E, K, G)
A' = (7.2016, 13.213180487804879)
h = Line(A, A')
i = Line(B, h)
B' = Point(i)
razon = 0.6545084971874737
k = 0.5 (slider from 0 to 0.5, step 0.1)
α = 1.2566370614359172 rad
g = Line(E, h)
j = Line(G, h)
l = Line(K, h)
C = Midpoint(b)
D = Midpoint(a)
F = Midpoint(e)
H = Midpoint(d)
I = Midpoint(c)
J = Point(g)
L = Point(l)
M = Point(j)
poly2, a', b', m, l_1, j_1 = Polygon(A', B', M, L, J)
N = Midpoint(j_1)
O = Midpoint(a')
P = Midpoint(b')
Q = Midpoint(m)
R = Midpoint(l_1)
poly3, o, p, q, r, n = Polygon(O, P, Q, R, N)
poly4, c_1, d_1, f, h_1, i_1 = Polygon(C, D, F, H, I)
razon2: poly3 / poly2
text1: "razón interopoli/polígono = " + razon2