h_1(x) = If[-Infinity ≤ x ≤ 0, (0 * x) - 2]
Q = PointIn(x > 0)
b = Plane(yAxis, zAxis)
P = PointIn(x > 1)
c, I, J, T, L, M_1, N_1, caraABIJ, caraAJNK, caraABLK, caraBIML, caraIJNM, caraKLMN, aristaAJ, aristaAB, aristaBI, aristaIJ, aristaAK, aristaJN, aristaKN, aristaKL, aristaBL, aristaLM, aristaIM, aristaMN = Cube(P, Q, Vector[(0, 0, 1)])
ControlDistanciaVelo = Point(h_1)
f = OrthogonalLine(ControlDistanciaVelo, xAxis)
D = Point(f)
g = OrthogonalLine(D, xOyPlane)
Ojo = Point(Ray[D, Vector[(0, 0, 1)]])
h = OrthogonalLine(Ojo, b)
A = Intersect(h, b)
i = Line(P, Q)
j = Line(L, T)
E = Intersect(j, b)
B = Intersect(i, b)
k = Segment(E, B)
l = Segment(E, A)
m = Segment(B, A)
n = Segment(P, Ojo)
p = Segment(Ojo, T)
T' = Intersect(p, b)
P' = Intersect(n, b)
q = Segment(P', T')
r = IntersectPath(b, xOyPlane)
s = Line(P', r)
t = Line(T', r)
N = Intersect(t, l)
M = Intersect(s, m)
a = Segment(N, M)
d = Segment(B, P)
e = Segment(E, T)
f_1 = Segment(M, P')
g_1 = Segment(N, T')