A = (4, 2)
B = (7, 2)
polygon1, f, g, h, C = Polygon(A, B, 3)
D = Centroid(polygon1)
polygon1' = Rotate(polygon1, 60°, D)
E, F = Intersect(g, polygon1')
G, H = Intersect(h, polygon1)
I, J, K, L, M, N = Intersect(polygon1, polygon1')
C' = Rotate(C, 60°, D)
A' = Rotate(A, 60°, D)
B' = Rotate(B, 60°, D)
afstandMF = Distance(M, F)
i = Segment(C, F)
j = Segment(F, B')
k = Segment(B', E)
l = Segment(E, B)
m = Segment(B, I)
n = Segment(I, A')
p = Segment(A', J)
q = Segment(J, A)
r = Segment(A, N)
s = Segment(N, C')
t = Segment(C', M)
a = Segment(M, C)
polygon2, c, f_1, b', e, b, i_1, a', j_1, a_1, n_1, c', m_1 = Polygon(C, F, B', E, B, I, A', J, A, N, C', M)
Tekstpolygon2: "Areal af  " + (Name[C]) + (Name[F]) + (Name[B']) + (Name[E]) + (Name[B]) + (Name[I]) + (Name[A']) + (Name[J]) + (Name[A]) + (Name[N]) + (Name[C']) + (Name[M]) + " = " + polygon2
Punktpolygon2 = PointIn(polygon2)
afstandCF = Distance(C, F)
Midpoint(C, F)
TekstCF: Name[C] + (Name[F]) + " = " + afstandCF