input constantes; beginfig(1); z0=(0,0); z1=(10u,0); z2=(10u,10u); z3=(0,10u); transform T; z0 transformed T=1/4[z0,z1]; z1 transformed T=1/4[z1,z2]; z2 transformed T=1/4[z2,z3]; path carre; carre=z0--z1--z2--z3--cycle; fill carre withcolor 0.8white; fill carre transformed T withcolor white; draw carre; draw carre transformed T; picture dessin; dessin=currentpicture; for j=1 upto 8: dessin:=dessin transformed T transformed T; draw dessin; endfor endfig; beginfig(2); z0=(0,0); z1=(10u,0); z2=z1 rotatedabout(z0,60); transform S; z0 transformed S=1/5[z0,z1]; z1 transformed S=1/5[z1,z2]; z2 transformed S=1/5[z2,z0]; path triangle; triangle=z0--z1--z2--cycle; fill triangle withcolor 0.8white; fill triangle transformed S withcolor white; draw triangle; draw triangle transformed S; picture dessine; dessine=currentpicture; for j=1 upto 5: dessine:=dessine transformed S transformed S; draw dessine; endfor endfig; beginfig(3); z0=u*(0,0); z1=u*(6,0); z2=z0 rotatedabout(z1,-120); z3=z1 rotatedabout(z2,-120); z4=z2 rotatedabout(z3,-120); z5=z3 rotatedabout(z4,-120); transform R; z0 transformed R=1/4[z0,z1]; z1 transformed R=1/4[z1,z2]; z2 transformed R=1/4[z2,z3]; path hexagone; hexagone=z0--z1--z2--z3--z4--z5--cycle; fill hexagone withcolor 0.8white; fill hexagone transformed R withcolor white; draw hexagone; draw hexagone transformed R; picture des; des=currentpicture; for j=1 upto 8: des:=des transformed R transformed R; draw des; endfor endfig; beginfig(4); z0=u*(0,0); z1=u*(6,0); z2=z0 rotatedabout(z1,-108); z3=z1 rotatedabout(z2,-108); z4=z2 rotatedabout(z3,-108); transform Q; z0 transformed Q=1/4[z0,z1]; z1 transformed Q=1/4[z1,z2]; z2 transformed Q=1/4[z2,z3]; path pentagone; pentagone=z0--z1--z2--z3--z4--cycle; fill pentagone withcolor 0.8white; fill pentagone transformed Q withcolor white; draw pentagone; draw pentagone transformed Q; picture dess; dess=currentpicture; for j=1 upto 8: dess:=dess transformed Q transformed Q; draw dess; endfor endfig; beginfig(5); z0=u*(0,0); z1=u*(4,0); z2=z0 rotatedabout(z1,150); z3=z1 rotatedabout(z2,150); z4=z2 rotatedabout(z3,150); z5=z3 rotatedabout(z4,150); z6=z4 rotatedabout(z5,150); z7=z5 rotatedabout(z6,150); z8=z6 rotatedabout(z7,150); z9=z7 rotatedabout(z8,150); z10=z8 rotatedabout(z9,150); z11=z9 rotatedabout(z10,150); transform P; z0 transformed P=1/4[z0,z1]; z1 transformed P=1/4[z1,z2]; z2 transformed P=1/4[z2,z3]; path dodecagone; dodecagone=z0--z1--z2--z3--z4--z5--z6--z7--z8--z9--z10--z11--cycle; fill dodecagone withcolor 0.8white; fill dodecagone transformed P withcolor white; draw dodecagone; draw dodecagone transformed P; picture de; de=currentpicture; for j=1 upto 24: de:=de transformed P transformed P; draw de; endfor endfig; beginfig(6); z0=u*(5,0); z1=u*(0,10); z3=u*(10,10); z2=u*(5,20); transform O; z0 transformed O=1/4[z0,z1]; z1 transformed O=1/4[z1,z2]; z2 transformed O=1/4[z2,z3]; path losange; losange=z0--z1--z2--z3--cycle; fill losange withcolor 0.8white; fill losange transformed O withcolor white; draw losange; draw losange transformed O; picture dee; dee=currentpicture; for j=1 upto 8: dee:=dee transformed O transformed O; draw dee; endfor endfig; end