Klein Ray

KleinRay[ <Point>, <Point> ]

Klein Line

KleinLine[ <Point>, <Point> ]

Klein Segment

KleinSegment[ <Point>, <Point> ]

a = Ray(A, B)
C, D = Intersect(Circle[(0, 0), (1, 0)], a)
b = Segment(A, C)
C, a = KleinRay(A, B)
D, b = KleinRay(B, A)
d = Segment(D, C)
a = Segment(A, B)