A_1 = (-5, 5)
B_1 = (15, 5)
a_1 = Segment(A_1, B_1)
C = Point(a_1)
A = (2, 1)
B = (7, 1)
poly1, c, a, b = Polygon(A, B, C)
Textpoly1: "Fläche " + (Name[A]) + (Name[B]) + (Name[C]) + " = " + poly1
D = (-5, 1)
E = (15, 1)
d = Segment(D, E)
e = OrthogonalLine(C, d)
F = Intersect(d, e)
f = Segment(B, F)
g = Segment(A, F)
h_c = Segment(C, F)