D = Point(g)
C = Point(Circle[D, 6.0])
c_2 = Segment(D, C)
A = (6, 2)
B = (12, 2)
Vieleck1, a, b, c, d = Polygon(A, B, C, D)
TextVieleck1: "Fläche " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + Vieleck1
f = OrthogonalLine(D, a)
g_1 = Line(A, B)
h = OrthogonalLine(D, g_1)
E = Intersect(h, g_1)
h_a = Segment(D, E)
α = Angle(B, E, D)