Zona no accesible

A = (1.0579, -0.93802)
B = (8.19206, -0.93802)
a = Segment(A, B)
b = OrthogonalLine(A, a)
C = Point(b)
c = OrthogonalLine(C, b)
d = OrthogonalLine(B, a)
D = Intersect(c, d)
polígono1, b_1, a_1, c_1, d_1 = Polygon(B, A, C, D)
e = Segment(C, A)
f = Segment(A, B)
g = Segment(B, D)
P = PointIn(polígono1)
Q = PointIn(polígono1)
P' = Mirror(P, a_1)
P'' = Mirror(P', a)
P''' = Mirror(P'', d_1)
h = Segment(P''', Q)
G = Intersect(h, d_1)
i = Segment(P'', G)
F = Intersect(i, a)
j = Segment(P', F)
E = Intersect(j, a_1)
k = Segment(P, E)
l = PolyLine(P, E, F, G, Q)
m = Line(P''', B)
I = Intersect(m, a_1)
polígono2, b_2, i_1, a_2 = Polygon(I, A, B)
n = false