A = (-2.32, 0.64)
B = (-0.26, 5.02)
C = (6.34, 6.44)
D = (8.46, 1.6)
polígono1, a, b, c, d = Polygon(A, B, C, D)
P = Midpoint(a)
Q = Midpoint(b)
R = Midpoint(c)
S = Midpoint(d)
polígono2, e, f, g, h = Polygon(P, Q, R, S)
Textopolígono1: "Area " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + polígono1
Textopolígono2: "Area " + (Name[P]) + (Name[Q]) + (Name[R]) + (Name[S]) + " = " + polígono2
i = Segment(B, D)
j = Segment(A, C)
k = Distance(d, b)
l = Distance(c, a)
m = Distance(h, g)
E = Intersect(j, i)
F = Intersect(b, a)
G = Intersect(i, j)
α = Angle(C, E, B)