A = (2, 1)
B = (6, 4)
a = Line(A, B)
m = Slope(a)
b = OrthogonalLine(B, xAxis)
c = OrthogonalLine(A, b)
C = Intersect(b, c)
polígono1, b_1, a_1, c_1 = Polygon(A, C, B)
texto1: "pendiente =  \frac{" + a_1 + "}{" + b_1 + "} = " + m