r = 4
A = Point(xAxis)
e = Segment(A + (r, 0.0), A + (2.5 * r, 0.0))
α = 2.7576202181510423 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
lista1 = Sequence(Ray[(k, 0.0), Rotate[(k + 1.0, 0.0), α, (k, 0.0)]], k, -10.0, 30.0)
lista2 = Sequence(Ray[(k, 0.0), Rotate[(k + 1.0, 0.0), -(α), (k, 0.0)]], k, -10.0, 30.0)
B: A + (r, r)
C: A + (r, -(r))
a = Segment(A, B)
D = Point(e)
b = Segment(B, D)
c = Segment(D, C)
d = Segment(A, C)