[ view(-1,1,0,1), Marges(0,0,0,0), size(16),
number:=14,
TilesLineStyle:=solid, TilesWidth:=2, TilesColor:=HexaColor("FFB6C1"),
TilesFillColor1:=HexaColor("8B0000"),
TilesFillColor2:=HexaColor("FFA500"),
TilesFillColor3:=HexaColor("FFFFFF"),
TilesFillColor4:=HexaColor("DC143C"),
TilesFillColor5:=HexaColor("483D8B"),
TilesFillColor6:=HexaColor("FFB6C1"),
TilesFillColor7:=HexaColor("006400"),
TilesFillColor8:=HexaColor("D3D3D3"),
xdeb:=-2,xfin:=2, niv:=18, tuile:=1,
$P:=PavAperiodiqueTiles(number,xdeb,xfin, tuile),
{Génération du pavage}
$Pav:=PavAperiodique(number, P, niv),
{Dessin du pavage}
DrawTiles(Pav),
{Affichage du nom du pavage}
PavAperiodiqueNames(number, "pfnpv", 0),
LineStyle:=noline, FillStyle:=full, FillOpacity:=0.7,
LabelStyle:=bottom+left+framed, LabelSize:=large,
LabelDot(Xmin+i*Ymin, ["\slshape ", @pfnpv], "NE", 0, 0.1)
]
Alphonse Capriani a écrit:En tout cas, chez moi pas de soucis...
Revenir vers Macros à télécharger
Utilisateurs parcourant ce forum : Aucun utilisateur inscrit et 17 invités