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