prologues:=2; vardef affichenom(text t)= forsuffixes p_=t: nomme.top(p_); endfor; enddef; input geometriesyr16 figure(0,0,10u,10u); pair A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S; A=u*(1,1); B-A=u*(0.5,0); C-B=u*(2,0); D-C=u*(0.5,0); E-D=u*(4.5,0); F-E=u*(0,2); H-F=u*(0,2.5); I-H=u*(-3,0); J-I=u*(-2.5,0); K-J=u*(-2,0); L-K=u*(0,-2); M-L=u*(0,-1); N-M=B-A; G-B=F-E; O-G=C-B; P-O=D-C; Q-I=F-H; S-L=J-K; R-S=I-J; %marque_p:="plein"; %affichenom(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S); %pointe(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S); trace polygone(A,E,H,K); trace chemin(M,N,G,O,C);trace chemin(D,P,Q,R,L); trace segment(J,S); trace segment(I,Q); trace segment(B,N); trace segment(I,R); trace segment(J,S); trace segment(Q,F); trace appelation(K,S,0,btex Bains etex); trace appelation(J,R,0,btex Chambre 1 etex); trace appelation(B,O,0,btex Chambre 2 etex); trace appelation(M,B,0,btex WC etex); trace appelation(I,F,0,btex Cuisine etex); trace appelation(D,F,0,btex Salon etex); pair X,Y; X=u*(8,6.5); Y-X=u*(1,0); trace segment(X,Y); trace marquesegment(X,Y); trace appelation(X,Y,2mm,btex 2~m etex); fin; end