A = (2, 2)
B = (6, 2)
polygon1, f, g, h, i, C, D = Polygon(A, B, 4)
E = Point(f)
F = Point(h)
j = Segment(E, F)
G = Point(i)
H = Point(g)
k = Segment(G, H)
I = Point(f)
J = Point(j)
K = Point(k)
c = Circle(I, J, K)
L = Point(f)
M = Point(k)
d = Circle(L, J, M)
N = Point(c)
O = Point(d)
e = Circle(N, F, O)
P = Center(e)
l = Segment(P, F)
afstandPF = Distance(P, F)
Midpoint(P, F)
TekstPF: Name[P] + (Name[F]) + " = " + afstandPF
afstandAB = Distance(A, B)
Midpoint(A, B)
TekstAB: Name[A] + (Name[B]) + " = " + afstandAB