20260722[br][br][br]R=滑动条(0.1,3,0.01)[br]赋值(R,1)[br][br] RList={0.2, 0.4, 0.6, 0.8, 1}[br]ArcList=序列(圆周((0, 0), R RList(i)), i, 1, 5)[br]Circle1=圆周((R, -0.5 R), R)[br]Circle2=圆周((-R, -0.5 R), R)[br]#圆弧交点[br]PList1=序列(交点(圆周((-1 R, -0.5 R), R), ArcList(i), 1), i, 1, 5)[br]PList2=序列(交点(圆周((R, -0.5 R), R), ArcList(i), 2), i, 1, 5)[br][br]#基本图案[br]BaseShape=映射(圆弧((0, 0), pp, qq), pp, PList2, qq, PList1)[br][br]VectorP=(0,0)[br]赋值(VectorP,(2 R,R))[br][br]m=滑动条(0,15,1)[br]赋值(m,3)[br]n=滑动条(0,15,1)[br]赋值(n,3)[br][br]Shape1=序列(序列(平移(BaseShape, 向量((i x(VectorP), y(VectorP) j))), i, -1, m), j, 1, n)[br]Shape2=序列(序列(平移(BaseShape, 向量((1, -0.5) * R+(i x(VectorP), y(VectorP) j))), i, -1, m), j, 1, n)[br][br]设置颜色(Shape1,0/255,100/255,0/255)[br]设置颜色(Shape2,127/255,10/255,255/255)[br]设置颜色(BaseShape,255/255,00/255,0/255)[br]设置颜色(ArcList,50/255,50/255,50/255)[br]设置线径(BaseShape,9)[br][br][br]#设置可见性(l2,1,false)[br]#设置可见性(l2,1,false)[br]#设置可见性(l2,1,false)[br]#设置可见性(l2,1,false)[br][br]#设置动态颜色(l24,70/255,100/255,0/255,0)[br][br]#设置颜色(l23,70/255,10/255,250/255)[br]#设置可见性(l2,1,false)

增加阴影[br][br]s=滑动条(0.01,1.2,0.01)[br]赋值(s,0.99)[br][br]A=(2,-135)[br]B=(3.5,-1)[br]lAB=直线(A,B)[br]shade1=伸缩(Shape1,lAB,s)[br]shade2=伸缩(Shape2,lAB,s)

BaseShape2=平移(旋转(BaseShape,Alpha,(0,0)),向量(C))[br]BaseShapes={BaseShape,BaseShape2}[br]Shape3=序列(序列(平移(BaseShapes,向量((i x(VectorP),y(VectorP) j))),i,-1,m),j,1,n)[br]当Alpha=，C=(1,-0.5)时等效

#增加旋转。旋转再平移的画比较麻烦，容易出错，所以平移后整体旋转[br][br]Alpha=滑动条(0,360°,1°)[br]赋值(Alpha,10°)[br]ShapeRT=平移(旋转({Shape1,Shape2},Alpha,(0,0)),向量((0,0)))