n=滑动条(0, 10,1)[br][br]m=滑动条(0, 10,1)[br]R = 滑动条(0, 10,0.01)[br]Alpha = 滑动条(0, 360°,1°)[br][br]#Z字旋转平移[br]Base1={折线((-1,2),(-1,0),(1,0),(1,-2)),折线((-2,-1.0),(0,-1),(0,1),(2,1.0))}[br]ShapeRT1=序列(序列(序列(平移(位似(旋转(Base1, 0 ii, (0, 0)), R,(0, 0)), 向量(( 3 R i,3 R j))),ii,0,0),i,1,n),j,1,m)[br][br]#大Z小N字旋转平移[br]Base2={折线((-1,2),(-1,0),(1,0),(1,-2)),折线((-2,-1.0),(0,-1),(0,1),(2,1.0))}[br]ShapeRT2=序列(序列(序列(平移(平移(位似(旋转(Base2,0 ii,(0,0)),R,(0,0)),向量((3 R,2 R) j)),向量((0,3 ii) )),ii,0,n),i,1,1),j,1,m)[br][br]#纵向单列万字平移[br]Base3={折线((-1,2),(-1,0),(1,0),(1,-2)),折线((-1,-1.0),(0,-1),(0,1),(1,1.0))}[br]ShapeRT3=序列(序列(序列(平移(平移(位似(旋转(Base3,0 ii,(0,0)),R,(0,0)),向量((3 R,0*2 R)i)),向量((0,3 ii) )),ii,0,n),i,1,1),j,0,0)[br][br]#横向向单列万字平移[br]Base4={折线((-1,1),(-1,0),(1,0),(1,-1)),折线((-2,-1.0),(0,-1),(0,1),(2,1.0))}[br]ShapeRT4=序列(序列(序列(平移(平移(位似(旋转(Base4,0 ii,(0,0)),R,(0,0)),向量((3 R,0*2 R)i)),向量((0,3 ii) )),ii,0,0),i,1,n),j,0,0)[br][br][br][br]#纵横交错万字平移[br]Base5={折线((-1,2),(-1,0),(1,0),(1,-2)),折线((-2,-1.0),(0,-1),(0,1),(2,1.0))}[br]ShapeRT5=序列(序列(序列(平移(平移(位似(旋转(Base5,0 ii,(0,0)),R,(0,0)),向量((3 R,- R)i+(R,3R)j)),向量((0,3 ii) )),ii,0,0),i,0,n),j,0,m)[br]Alpha = 滑动条(0, 360°,1°)[br]ShapeRT5R=旋转(ShapeRT5,Alpha,(0,0))[br][br][br]#横向向单列万字平移[br]Base42={折线((-1,1),(-1,0),(1,0),(1,-1)),折线((-2,-1.0),(0,-1),(0,1),(2,1.0)),折线((-3,2),(1,2),(1,1)),折线((3,-2),(-1,-2),(-1,-1))}[br]ShapeRT42=序列(序列(序列(平移(平移(位似(旋转(Base42,0 ii,(0,0)),R,(0,0)),向量((3 R,0*2 R)i)),向量((0,3 ii) )),ii,0,0),i,1,n),j,0,0)[br][br]#横向向单列万字平移[br]Base43={折线((-1,1),(-1,0),(1,0),(1,-1)),折线((-2,-1.0),(0,-1),(0,1),(2,1.0)),折线((3,-2),(-1,-2),(-1,-1))}[br]ShapeRT43=序列(序列(序列(平移(平移(位似(旋转(Base42,0 ii,(0,0)),R,(0,0)),向量((3 R,0*2 R)i+(R,4R)j)),向量((0,3 ii) )),ii,0,0),i,1,n),j,1,m)[br][br][br]Step=滑动条(1, 8,1)[br][br]#设置可见性(l2,1,false)[br]设置显示条件(Base1,Step==1)[br]设置显示条件(ShapeRT1,Step==1)[br]设置显示条件(Base2,Step==2)[br]设置显示条件(ShapeRT2,Step==2)[br]设置显示条件(Base3,Step==3)[br]设置显示条件(ShapeRT3,Step==3)[br]设置显示条件(Base4,Step==4)[br]设置显示条件(ShapeRT4,Step==4)[br]设置显示条件(Base5,Step==5)[br]设置显示条件(ShapeRT5,Step==5)[br]设置显示条件(ShapeRT5R,Step==6)[br]设置显示条件(Base42,Step==7)[br]设置显示条件(ShapeRT42,Step==7)[br]设置显示条件(Base43,Step==8)[br]设置显示条件(ShapeRT43,Step==8)[br][br]设置颜色(Base1,"red")[br]设置颜色(Base2,"red")[br]设置颜色(Base3,"red")[br]设置颜色(Base4,"red")[br]设置颜色(Base42,"red")[br]设置颜色(Base43,"red")[br]设置颜色(Base5,"red")[br]设置颜色(Base5,"red")[br]设置图层(Base1,1)[br]设置图层(Base2,1)[br]设置图层(Base3,1)[br]设置图层(Base4,1)[br]设置图层(Base42,1)[br]设置图层(Base43,1)[br]设置图层(Base5,1)[br]