Fichier fig010.mp (figure 1) — Modifié le 23 Mars 2008 à 20 h 42

fig010.mp (figure 1)
Source

input geometriesyr16;

figureespace(-10u,-10u,10u,10u);
Initialisation(5,30,20,500);
color A,B,C,D,E,F,G,H;
trace Cube(A,B,C,D,F,G,H,E);
trace chemin(C,A,E) dashed dashpattern(on12bp off6bp%
  on3bp off6bp);
trace cercles(A,1/5[A,C],A,C,G) cutafter segment(A,E);
nomme.lft(A);
nomme.lrt(C);
nomme.urt(E);
finespace;

end