A: (0, 4)
f = OrthogonalLine(A, xAxis)
B = Point(f)
C = (8, 4)
g = Line(C, f)
h = Segment(A, C)
i = Line(B, h)
D = Intersect(i, g)
v1, a, b, d, c = Polygon(A, B, D, C)
E = Midpoint(A, C)
F = Midpoint(B, D)
G = Midpoint(E, C)
H = Midpoint(A, E)
I = Midpoint(B, F)
J = Midpoint(F, D)
K = Midpoint(A, B)
L = Midpoint(C, D)
j = Segment(K, L)
k = Segment(G, J)
l = Segment(E, F)
m = Segment(H, I)