重瓣花开放演示
20260722
Len=滑动条(0, 10,0.01)
n=滑动条(3, 10,1)
r = 滑动条(0, 10,0.01)
R = 滑动条(0, 10,0.01)
赋值(n,3)
赋值(n,1)
#圆弧((0,0),(r,0),(r;2pi/n))
#圆弧((Len+r);pi/n),((Len+r),0),((Len+r);2pi/n))
#线段((r;pi/n),((Len+r);2pi/n))
#线段((r,0),((Len+r),0)
Base={圆弧((0,0),(r,0),(r;2pi/n)),圆弧(((Len+r);pi/n),((Len+r),0),((Len+r);2pi/n)),线段((r;2pi/n),((Len+r);2pi/n)),线段((r,0),((Len+r),0))}
Base2={圆弧(((Len+r);pi/n),((Len+r),0),((Len+r);2pi/n)),线段((r;2pi/n),((Len+r);2pi/n)),线段((r,0),((Len+r),0))}
m=滑动条(0, 10,1)
Ratio = 滑动条(-0.2, 1.5,0.01)
ShapeRT=序列(平移(旋转(Base, i 2pi/n, (0, 0)), 向量((0,0))),i,1,n)
#ShapeRT2=序列(序列(平移(位似(旋转(Base, i 2pi/n, (0, 0)), Ratio k,(0, 0)), 向量((0,0))),i,1,n),k,0,m)
#ShapeRT2=序列(序列(平移(位似(旋转(Base2,i*2*((π)/(n)),(0,0)),Ratio k,(0,0)),向量((0,0))),i,1,n),k,0,m)
ShapeRT2=序列(序列(平移(位似(旋转(Base2,i*2*((π)/(n)),(0,0)),(1+k Ratio),(0,0)),向量((0,0))),i,1,n),k,0,m)
如果一层画板位似放大叠加旋转会更好