Fichier figure014.mp (figure 1) — Modifié le 23 Mars 2008 à 21 h 31

figure014.mp (figure 1)
Source

input geometriesyr16;

figure(0,0,12u,5u);
trace grille(0.5) withcolor orange;
drawoptions(withpen pencircle scaled 1.1bp);
trace polygone(pp(3,2),pp(3,4),pp(1,4),pp(1,9),pp(6,9),pp(6,8),pp(9,8),pp(9,6),pp(11,6),pp(11,2)) dashed evenly;
trace polygone(pp(2,5),pp(2,8),pp(5,8),pp(5,7),pp(8,7),pp(8,5),pp(10,5),pp(10,3),pp(4,3),pp(4,5)) dashed dashpattern(on12bp off6bp on3bp off6bp);
path fig;
fig=pp(2,4.5)..pp(1.5,5)..pp(1.8,8)..pp(2,8.5)..pp(5,8.15)..pp(5.5,8)..pp(6,7.5)..pp(8,7.5)..pp(8.5,7)..pp(9,5.5)..pp(10.5,5)..pp(10.15,3)..pp(10.1,2.5)..pp(8,2.45)..pp(6,2.6)..pp(4,2.5)..pp(3.5,4)..cycle;
trace fig;
drawoptions();
picture imdr;
imdr=image(
  drawoptions(withpen pencircle scaled 1.1bp);
  trace polygone(pp(3,4),pp(2,4),pp(1,5),pp(1,7),pp(2,9),pp(4,9),pp(6,8),pp(8,8),pp(9,7),pp(9,6),pp(10,6),pp(11,5),pp(11,4),pp(10,2),pp(4,2)) dashed evenly;
  trace polygone(pp(2,5),pp(2,8),pp(5,8),pp(6,7),pp(8,7),pp(9,5),pp(10,5),pp(10,3),pp(4,3),pp(4,4),pp(3,5)) dashed dashpattern(on12bp off6bp on3bp off6bp);
  trace fig;
  drawoptions();
  );
trace imdr shifted(u*(6,0));
fin;

end