中国传统样式-鳞状纹
20260722
R=滑动条(0.1,3,0.01)
赋值(R,1)
RList={0.2, 0.4, 0.6, 0.8, 1}
ArcList=序列(圆周((0, 0), R RList(i)), i, 1, 5)
Circle1=圆周((R, -0.5 R), R)
Circle2=圆周((-R, -0.5 R), R)
#圆弧交点
PList1=序列(交点(圆周((-1 R, -0.5 R), R), ArcList(i), 1), i, 1, 5)
PList2=序列(交点(圆周((R, -0.5 R), R), ArcList(i), 2), i, 1, 5)
#基本图案
BaseShape=映射(圆弧((0, 0), pp, qq), pp, PList2, qq, PList1)
VectorP=(0,0)
赋值(VectorP,(2 R,R))
m=滑动条(0,15,1)
赋值(m,3)
n=滑动条(0,15,1)
赋值(n,3)
Shape1=序列(序列(平移(BaseShape, 向量((i x(VectorP), y(VectorP) j))), i, -1, m), j, 1, n)
Shape2=序列(序列(平移(BaseShape, 向量((1, -0.5) * R+(i x(VectorP), y(VectorP) j))), i, -1, m), j, 1, n)
设置颜色(Shape1,0/255,100/255,0/255)
设置颜色(Shape2,127/255,10/255,255/255)
设置颜色(BaseShape,255/255,00/255,0/255)
设置颜色(ArcList,50/255,50/255,50/255)
设置线径(BaseShape,9)
#设置可见性(l2,1,false)
#设置可见性(l2,1,false)
#设置可见性(l2,1,false)
#设置可见性(l2,1,false)
#设置动态颜色(l24,70/255,100/255,0/255,0)
#设置颜色(l23,70/255,10/255,250/255)
#设置可见性(l2,1,false)
增加阴影
s=滑动条(0.01,1.2,0.01)
赋值(s,0.99)
A=(2,-135)
B=(3.5,-1)
lAB=直线(A,B)
shade1=伸缩(Shape1,lAB,s)
shade2=伸缩(Shape2,lAB,s)
BaseShape2=平移(旋转(BaseShape,Alpha,(0,0)),向量(C))
BaseShapes={BaseShape,BaseShape2}
Shape3=序列(序列(平移(BaseShapes,向量((i x(VectorP),y(VectorP) j))),i,-1,m),j,1,n)
当Alpha=，C=(1,-0.5)时等效
#增加旋转。旋转再平移的画比较麻烦，容易出错，所以平移后整体旋转
Alpha=滑动条(0,360°,1°)
赋值(Alpha,10°)
ShapeRT=平移(旋转({Shape1,Shape2},Alpha,(0,0)),向量((0,0)))