Comprobar

r = 10
A = (0.66, -2.9)
polígono1, a, a_1, b, B = Polygon(A, A + (r, 0.0), 3.0)
c = OrthogonalLine(B, a)
C = Intersect(c, a)
d = Segment(B, C)
D = Point(d)
e = false
texto1: "Has cometido un error de apreciación del " + (100.0 * abs(Distance[D, B] - Distance[D, C]) / d) + " %"
E: D