A - M

x

B = Intersect(xAxis, yAxis)
F = Point(Ray[B, Vector[(1, 0)]])
D = Point(Ray[B, Vector[(-1, 0)]])
polígono1, f, L, h, i, G, C = Polygon(B, F, 4)
j = OrthogonalLine(D, xAxis)
F_1 = Point(j)
k = Segment(F_1, F)
l = Segment(F_1, G)
d = Segment(D, B)
p = Segment(D, F_1)
G'' = Intersect(yAxis, l)
F'' = Intersect(yAxis, k)
g = Segment(G'', F'')