%@AUTEUR:Guillaume Connan

prologues:=2;

verbatimtex
%&latex
\documentclass{article}
\usepackage[upright]{fourier}
\begin{document}
etex

input geometriesyr16

typerepre:="persp";

figure(-u,-u,7u,7u);%1
picture depart;
marque_p:="non";
pair A,B,C,D,E,F,G,H,M,N,P,I,J;
path r;
A=(0,0);
B=(4u,0);
C=(5.5u,1.5u);
D=C+A-B;
E=(0,4u);
F=E+B-A;
G=F+C-B;
H=G+D-C;
% Les points en plus :
N=A+.3*(E-A);
P=D+.25*(C-D)+.45*(H-D);

% Le cube :
depart=image(
  trace (-10u,-10u)--(-10u,10u)--(10u,10u);
  trace B--F--E--A--B--C--G--H--E;
  trace F--G;
  trace A--D--C dashed evenly;
  trace H--D dashed evenly;
  nomme.llft(A);
  nomme.lft(E);
  nomme.lrt(F);
  nomme.ulft(H);
  nomme.urt(G);
  nomme.rt(C);
  nomme.lrt(B);
  nomme.lft(D);
  marque_p:="croix";
  nomme.lft(N);
  nomme.top(P);
  );
trace depart;
fin;

end