Traiettoria occhio

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