Traiettoria occhio

C = (-2.44, -0.98)
F = (0, 6)
E = (0, -3)
c = Line(E, F)
OcchiO = Point(c)
a = Line(OcchiO, C)
D = (-1.48, 0.5)
d = Line(OcchiO, D)
B = (-3, 6)
A = (-3, -3)
Lamp = Segment(A, B)
G = Intersect(Lamp, a)
H = Intersect(d, Lamp)
O: (x(D), y(OcchiO))
u = UnitOrthogonalVector(c)
buco = Segment(C, D)
LampVisib = Segment(G, H)
Vedo: O + (LampVisib, 0.0)
f = Segment(O, Vedo)