Traiettoria occhio

A = (-3, -1)
B = (-3, 3)
Lamp = Segment(A, B)
D = (-1, 1)
E = (3, -3)
F = (3, 6)
c = Line(E, F)
OcchiO = Point(c)
O: (x(D), y(OcchiO))
d = Line(OcchiO, D)
H = Intersect(d, Lamp)
LampVisib = Segment(A, H)
u = UnitOrthogonalVector(c)
C = (-1, 6)
muro = Segment(C, D)
Vedo: O + (LampVisib, 0.0)
f = Segment(O, Vedo)