檢視->構圖案本->顯示物件取消
k1=if[k<=0,0,if[k>=1,1,k-0]]
k2=if[k<=1,0,if[k>=2,1,k-1]]
k3=if[k<=2,0,if[k>=3,1,k-2]]
k4=if[k<=3,0,if[k>=4,1,k-3]]
k5=if[k<=4,0,if[k>=5,1,k-4]]
k6=if[k<=5,0,if[k>=6,1,k-5]]


List={
Rotate(Q8, -0°,E),
Rotate(Q2, k1*(-240°),E),
Rotate(Q3, k2*(240°),A),
Rotate(Q4, k3*(-240°),A),
Rotate(Q5, k4*(240°),C),
Rotate(Q6, k5*(-240°),C) ,
Rotate(Q7, k6*(240°), E)
}

k7=if[k<=6,0,if[k>=7,1,k-6]]
k8=if[k<=7,0,if[k>=8,1,k-7]]
k9=if[k<=8,0,if[k>=9,1,k-8]]
k10=if[k<=9,0,if[k>=10,1,k-9]]
k11=if[k<=10,0,if[k>=11,1,k-10]]
k12=if[k<=11,0,if[k>=12,1,k-11]]
k13=if[k<=12,0,if[k>=13,1,k-12]]
k14=if[k<=13,0,if[k>=14,1,k-13]]
k15=if[k<=14,0,if[k>=15,1,k-14]]

List1=Rotate(List, k7*(120°),E)
List2=Rotate(List, k8*(-120°),E)
List3=Rotate(List, k9*(120°),A)
List4=Rotate(List, k10*(-120°),A)
List5=Rotate(List, k11*(120°),C)
List6=Rotate(List, k12*(-120°),C)

List8=Sequence[
Translate[Sequence[Translate[List2,3*k13*i*vector(A,B)],i,-3,3],
3*k13*m*vector(F,A)],m,-3,3]

List9=Sequence[
Translate[Sequence[Translate[List1,3*k14*i*vector(A,B)],i,-3,3],
3*k14*m*vector(E,F)],m,-3,3]

List10=Sequence[
Translate[Sequence[Translate[List,3*k15*i*vector(B,A)],i,-3,3],
3*k15*m*vector(A,F)],m,-3,3]