input constantes;
input geometriepoint;
beginfig(1);
  affixe.I(u*(4,4))n;
  affixe.T(u*(1,1))no;
  affixe.S(u*(0,5))so;
  affixe.M(10/6[z.T,z.I])o;
  affixe.N(16/10[z.S,z.I])ne;
  affixe.P(4/5[z.I,z.T])e;
  affixe.R(4/5[z.I,z.S])ne;
  draw droite(T,M,1.25);
  draw droite(S,N,1.25);
  draw droite(S,T,1.25);
  draw droite(R,P,1.25);
  draw droite(M,N,1.25);
endfig;
end