g = Ray((0, 0, 0), Vector[(0, 0, 1)])
C = Point(g)
a = Plane(C, xOyPlane)
ControlRecta = PointIn(a)
f = Line(C, ControlRecta)
H = Point(f)
A = Point(zAxis)
Radio: 7
b = Sphere((0, 0, (-Radio)), Radio)
B, O = Intersect(zAxis, b)
h = Segment(C, O)
i = Segment(O, H)