1. 通过叠加+随机+图层 镶嵌平铺-黑白双色
V2
代码片段：
#隐藏元素：m1、m2 错开
m1=序列(序列(圆周((i + 1, j + 1), 1), i, 0, c - 1, 2), j, 0, l - 1, 2)
m2=序列(序列(圆周((i, j), 1), i, 0, c - 1, 2), j, 0, l - 1, 2)
l1=扁平列表(m1)
l2=扁平列表(m2)
#按钮脚本：放于S列，白色，随机0-2层，无线型；放于C列，黑色，随机0-1层，无线型，
设置活动视图(1)
执行(序列("S"+i+"=Element(l1,"+(i)+")", i, 1, c*l))
执行(序列("SetDynamicColor(S"+i+",0,0,0,1)", i, 1, c*l))
执行(序列("SetLayer( S"+i+",RandomBetween( 0, 2))", i, 1, c*l))
执行(序列("SetLineThickness( S"+i+",0)", i, 1, c*l/4))
执行(序列("C"+i+"=Element(l2,"+(i)+")", i, 1, c*l))
执行(序列("SetDynamicColor(C"+i+",1,1,1,1)", i, 1, c*l))
执行(序列("SetLayer( C"+i+",RandomBetween( 0, 1))", i, 1, c*l))
执行(序列("SetLineThickness( C"+i+",0)", i, 1, c*l/4))
V2 (PNG)
V1
Bouts de code:
m1=序列(序列(圆周((i + 1, j + 1), 1), i, 0, c - 1, 2), j, 0, l - 1, 2)
m2=序列(序列(圆周((i, j), 1), i, 0, c - 1, 2), j, 0, l - 1, 2)
l1=扁平列表(m1)
l2=扁平列表(m2)
执行(序列("S"+i+"=Element(l1,"+(i)+")", i, 1, c*l/4))
执行(序列("SetDynamicColor(S"+i+",0,0,0,1)", i, 1, c*l/4))
执行(序列("SetLayer( S"+i+",RandomBetween( 0, 2))", i, 1, c*l/4))
执行(序列("C"+i+"=Element(l2,"+(i)+")", i, 1, c*l/4))
执行(序列("SetDynamicColor(C"+i+",1,1,1,1)", i, 1, c*l))
执行(序列("SetLayer( C"+i+",RandomBetween( 0, 1))", i, 1, c*l/4))
黑白→双色版
#按钮脚本：放于S列，紫色，随机0-2层，无线型；放于C列，奶白色，随机0-1层，无线型，
设置活动视图(1)
执行(序列("S"+i+"=Element(l1,"+(i)+")", i, 1, c*l))
执行(序列("SetDynamicColor(S"+i+",74/255,0,132/255,1)", i, 1, c*l))
执行(序列("SetLayer( S"+i+",RandomBetween( 0, 2))", i, 1, c*l))
执行(序列("SetLineThickness( S"+i+",0)", i, 1, c*l/4))
执行(序列("C"+i+"=Element(l2,"+(i)+")", i, 1, c*l))
执行(序列("SetDynamicColor(C"+i+",250/255,236/255,216/255,1)", i, 1, c*l))
执行(序列("SetLayer( C"+i+",RandomBetween( 0, 1))", i, 1, c*l))
执行(序列("SetLineThickness( C"+i+",0)", i, 1, c*l/4))
#Colonnes
c=滑动条(1,30,1)
赋值(c,30)
设置活动视图(1)
中心定位(C)
c=30
#n=35
n=滑动条(1,50,2)
赋值(n,35)
更新时：
赋值(l,l+1)
赋值(c,c+1)
设置活动视图(1)
中心定位(((c+1)/2,(l+1)/2))
#Colonnes
bg=滑动条(1,3,1)
赋值(bg,3)
更新时的脚本
设置活动视图(1)
如果(bg==1,设置背景颜色( 0,143/255,108/255 ))
如果(bg==2,设置背景颜色( 9/255,73/255,66/255 ))
如果(bg==3,设置背景颜色( 197/255,212/255,182/255 ))
m1=序列(序列(圆周((i+1,j+1),1),i,0,c-1,2),j,0,l-1,2)
m2=序列(序列(圆周((i,j),1),i,0,c,2),j,0,l,2)
l1=扁平列表(m1)
l2=扁平列表(m2)
m3=序列(序列(圆周((i+1,j+1),1),i,0,c-1,2),j,0,l-1,2)
l3=扁平列表(m3)
更新按钮点击脚本
设置活动视图(1)
设置背景颜色( 197/255,212/255,182/255 )
执行(序列("S"+i+"=Element(l1,"+(i)+")", i, 1, c*l/4))
执行(序列("SetDynamicColor(S"+i+",0,143/255,108/255,1)", i, 1, c*l/4))
执行(序列("SetLayer( S"+i+",RandomBetween( 0, 2))", i, 1, c*l/4))
执行(序列("SetLineThickness( S"+i+",0)", i, 1, c*l/4))
执行(序列("C"+i+"=Element(l2,"+(i)+")", i, 1, c*l/4+2))
执行(序列("SetDynamicColor(C"+i+",197/255,212/255,182/255,1)", i, 1, c*l/4+2))
执行(序列("SetLayer( C"+i+",RandomBetween( 0, 2))", i, 1, c*l/4+2))
执行(序列("SetLineThickness( C"+i+",0)", i, 1, c*l/4+2))
执行(序列("D"+i+"=Element(l3,"+(i)+")", i, 1, c*l/4))
执行(序列("SetDynamicColor(D"+i+",9/255,73/255,66/255,1)", i, 1, c*l/4))
执行(序列("SetLayer( D"+i+",RandomBetween( 0, 1))", i, 1, c*l/4))
执行(序列("SetLineThickness( D"+i+",0)", i, 1, c*l/4))
双调彩色版-+半透明
4. Pavage aléatoires par superposition en jouant avec les calques. (Random tiling) – GeoGebra
设置活动视图(1)
执行(序列("S"+i+"=Element(l1,"+(i)+")", i, 1, c*l/4))
执行(序列("SetDynamicColor(S"+i+",25,abs(sin("+i+")),241/255,1)", i, 1, c*l/4))
执行(序列("SetLayer( S"+i+",RandomBetween( 0, 1))", i, 1, c*l/4))
执行(序列("SetLineThickness( S"+i+",0)", i, 1, c*l/4))
执行(序列("C"+i+"=Element(l2,"+(i)+")", i, 1, c*l/4))
执行(序列("SetDynamicColor(C"+i+",abs(sin("+i+")),52/255,52/255,57/255)", i, 1, c*l/4))
执行(序列("SetLayer( C"+i+",RandomBetween( 0, 1))", i, 1, c*l/4))
执行(序列("SetLineThickness( C"+i+",0)", i, 1, c*l/4))
5 三色 图层可调节
5. Pavage aléatoires par superposition en jouant avec les calques. (Random tiling) – GeoGebra
设置活动视图(1)
执行(序列("S"+i+"=Element(l1,"+(i)+")", i, 1, c*l/4))
执行(序列("SetDynamicColor(S"+i+",25,25,241/255,1)", i, 1, c*l/4))
执行(序列("SetLayer( S"+i+",RandomBetween( 0, i))", i, 1, c*l/4))
执行(序列("SetLineThickness( S"+i+",0)", i, 1, c*l/4))
执行(序列("C"+i+"=Element(l2,"+(i)+")", i, 1, c*l/4))
执行(序列("SetDynamicColor(C"+i+",25,52/255,57/255,1)", i, 1, c*l/4))
执行(序列("SetLayer( C"+i+",RandomBetween( 0, j))", i, 1, c*l/4))
执行(序列("SetLineThickness( C"+i+",0)", i, 1, c*l/4))
执行(序列("D"+i+"=Element(l3,"+(i)+")", i, 1, c*l/4))
执行(序列("SetDynamicColor(D"+i+",25,52/255,52/255,1)", i, 1, c*l/4))
执行(序列("SetLayer( D"+i+",RandomBetween( 0, k))", i, 1, c*l/4))
执行(序列("SetLineThickness( D"+i+",0)", i, 1, c*l/4))
20260721 修改自：Jean-Baptiste Etienne — 2023年5月28日 - 下午9:55 的 1. Pavage aléatoires par superposition en jouant avec les calques. (Random tiling) – GeoGebra
2. Pavage aléatoires par superposition en jouant avec les calques. (Random tiling) – GeoGebra
三色版
3. Pavage aléatoires par superposition en jouant avec les calques. (Random tiling) – GeoGebra
双调彩色版
4. Pavage aléatoires par superposition en jouant avec les calques. (Random tiling) – GeoGebra
5. Pavage aléatoires par superposition en jouant avec les calques. (Random tiling) – GeoGebra