A = (-3.34, 0.02)
B = (3.84, 0.08)
a_2 = Segment(A, B)
D = (-0.98, 2.8000000000000003)
b_2 = Line(D, a_2)
c_1 = Segment(D, A)
d_2 = Line(B, c_1)
C = Intersect(b_2, d_2)
e = OrthogonalLine(D, a_2)
E = Intersect(a_2, e)
α = Angle(B, E, D)
poly1, a, b, c, d = Polygon(A, B, C, D)
h_a = Segment(D, E)
Textpoly1: "Fläche " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + poly1
f = Distance(h_a, a)