D = (-6, -1)
B_1 = (4, -1)
a = Segment(D, B_1)
A = Point(a)
b = OrthogonalLine(A, a)
c = OrthogonalLine(D, a)
d = Circle(D, A)
C = Intersect(d, c, 2.0)
e = OrthogonalLine(C, c)
B = Intersect(b, e)
F = Midpoint(D, A)
G = Midpoint(A, B)
H = Midpoint(B, C)
I = Midpoint(C, D)
f = CircleArc(D, F, I)
g = CircleArc(A, G, F)
h = CircleArc(B, H, G)
k = CircleArc(C, I, H)
P, a_1, c_1, e_1, d_1 = Polygon(D, A, B, C)
r = Segment(A, G)
T1: "r = " + r
T2: "Flächeninhalt A = " + (2.0 * r * 2.0 * r - r * r * 3.141592653589793 + 2.0 * r * r)