A = Intersect(xAxis, yAxis)
B = (14, 0)
E = (10, 6.27)
a = OrthogonalLine(E, xAxis)
C = Point(a)
poly1, b, a_1, d = Polygon(A, C, B)
Textpoly1: "Fläche " + (Name[A]) + (Name[C]) + (Name[B]) + " = " + poly1