A = (1.5, 1.5)
B = (5.5, 1)
C = (6.5, 3.5)
D = (2.5, 5)
q1, a, b, c, d = Polygon(A, B, C, D)
f = OrthogonalLine(D, xAxis)
g = OrthogonalLine(C, f)
h = OrthogonalLine(B, f)
i = OrthogonalLine(B, g)
j = OrthogonalLine(A, f)
k = OrthogonalLine(D, f)
l = OrthogonalLine(C, g)
m = OrthogonalLine(A, j)