O = (0, 0)
A = (1, -1)
B = (1, 1)
poly1, a, b, c, d, C, D = Polygon(A, B, 4.0)
M = Point(d)
e = Ray(O, M)
f = OrthogonalLine(O, e)
N = Intersect(f, a)
g = Ray(O, N)
OMAN, o, m, a_1, n = Polygon(O, M, A, N)
P = Perimeter(OMAN)
W: (x(M), P)