H Point Mobile

A = (50, 260)
C = (100, 260)
B = (75, 0)
poly1, c, a, b = Polygon(A, B, C)
D = (130, 260)
F = (180, 260)
E = (155, 0)
poly2, f, d, e = Polygon(D, E, F)
G = (115, 170)
h = Line(B, A)
i = Line(E, F)
H = Point(h)
j = Line(H, b)
I = Intersect(j, i)
poly4, h_1, i_1, f_1, a_1 = Polygon(H, I, F, A)
distanceHI = Distance(H, I)
TexteHI: Name[H] + (Name[I]) + " \, = \, " + distanceHI
J = Midpoint(C, D)
g = OrthogonalLine(J, e)
K = Point(g)
poly3, d_1, c_1, k = Polygon(C, K, D)
l = Segment(C, D)