a = 68.4 (slider from 0 to 360, step 0.1)
A = Intersect(xAxis, yAxis)
B = Point(xAxis)
b = Segment(A, B)
A' = Rotate(A, a°, A)
B' = Rotate(B, a°, A)
b' = Segment(A', B')
list1 = Sequence((k * 5 / 20, 0), k, 0, 20)
list2 = Sequence(Rotate[Element[list1, k], a * π / 180, A], k, 1, 21)
list3 = Sequence(Segment[Element[list1, k], Element[list2, 22 - k]], k, 1, 21)