2. Pavage aléatoires par superposition en jouant avec les calques. (Random tiling)
Liste de départ (invisibles)
m1=Séquence(Séquence(Cercle((i + 1, j + 1), 1), i, 0, c - 1, 2), j, 0, l - 1, 2)
m2=Séquence(Séquence(Cercle((i, j), 1), i, 0, c - 1, 2), j, 0, l - 1, 2)
l1=Aplatir(m1)
l2=Aplatir(m2)
Script du bouton
SoitVueActive(1)
Exécute(Séquence("S"+i+"=Element(l1,"+(i)+")", i, 1, c*l/4))
Exécute(Séquence("SetDynamicColor(S"+i+",74/255,0,132/255,1)", i, 1, c*l/4))
Exécute(Séquence("SetLayer( S"+i+",RandomBetween( 0, 2))", i, 1, c*l/4))
Exécute(Séquence("SetLineThickness( S"+i+",0)", i, 1, c*l/4))
Exécute(Séquence("C"+i+"=Element(l2,"+(i)+")", i, 1, c*l/4))
Exécute(Séquence("SetDynamicColor(C"+i+",250/255,236/255,216/255,1)", i, 1, c*l/4))
Exécute(Séquence("SetLayer( C"+i+",RandomBetween( 0, 1))", i, 1, c*l/4))
Exécute(Séquence("SetLineThickness( C"+i+",0)", i, 1, c*l/4))
