A = (0.8374859370651393, -0.650568193621254, 0)
B = (-0.6805392000381678, -0.039453347173430575, 4.682860168468783)
f = Segment(A, B)
α = 6.283185307179586 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
l1 = Sequence(Segment[Rotate[A, k, zAxis], Rotate[B, k, zAxis]], k, 0°, α, 15°)
l2 = 涂色(l1)
l1长 = 25
l1元素1 = Element(l1, 1)
l1元素2 = Element(l1, 2)
l1元素3 = Element(l1, 3)
l1元素4 = Element(l1, 4)
l1元素5 = Element(l1, 5)
l1元素6 = Element(l1, 6)
l1元素7 = Element(l1, 7)
l1元素8 = Element(l1, 8)
l1元素9 = Element(l1, 9)
l1元素10 = Element(l1, 10)
l1元素11 = Element(l1, 11)
l1元素12 = Element(l1, 12)
l1元素13 = Element(l1, 13)
l1元素14 = Element(l1, 14)
l1元素15 = Element(l1, 15)
l1元素16 = Element(l1, 16)
l1元素17 = Element(l1, 17)
l1元素18 = Element(l1, 18)
l1元素19 = Element(l1, 19)
l1元素20 = Element(l1, 20)
l1元素21 = Element(l1, 21)
l1元素22 = Element(l1, 22)
l1元素23 = Element(l1, 23)
l1元素24 = Element(l1, 24)
l1元素25 = Element(l1, 25)

Tool: 涂色
请点击列表，会生成一个新列表；再在指令栏输入：执行()【括号里面写新列表的名称】
Input: l1
Output: l5

l1长 = Length(l1)
l2 = Sequence(Name[l1] + "元素" + (k) + "=Element(" + (Name[l1]) + "," + (k) + ")", k, 1, l1长)
l4: {Name[l1] + "长=CopyFreeObject(Length(" + (Name[l1]) + "))"}
l3 = Sequence("SetDynamicColor(" + (Name[l1]) + "元素" + (k) + ",x(Point(Polyline({(1, 0, 0), (1, 0, 1), (0, 0, 1), (0, 1, 1), (0, 1, 0), (1, 1, 0), (1, 0, 0)}), " + (k) + "/ " + (Name[l1]) + "长)),y(Point(Polyline({(1, 0, 0), (1, 0, 1), (0, 0, 1), (0, 1, 1), (0, 1, 0), (1, 1, 0), (1, 0, 0)}), " + (k) + "/" + (Name[l1]) + "长)),z(Point(Polyline({(1, 0, 0), (1, 0, 1), (0, 0, 1), (0, 1, 1), (0, 1, 0), (1, 1, 0), (1, 0, 0)}), " + (k) + "/ " + (Name[l1]) + "长)))", k, 1, l1长)
l5 = Join({l4, l2, l3})