[code]A=(1, 1)[br]B=(2, 1)[br]C=(3, 2)[br]D=(4, 2)[br]E=(5, 1)[br]list1 = {A,B, C, D, E}[br]eps = 1/2[br]F = (0, 0)[br]G = ClosestPoint(list1, F)[br]H = DynamicCoordinates(F, If(Distance(F, G) < eps, x(G), x(F)), If(Distance(F, G) < eps, y(G), y(F)))[br][/code]

Based upon [url=https://www.geogebra.org/u/michael+borcherds]Michael Borcherds[/url]'s applet:[br][br]https://www.geogebra.org/m/prtSTvxt