input geometriesyr16;

figure(0,0,18u,11u);
trace papierisometrique withcolor 0.5*white;
pair A,B,C,D,E,F;
A=pp(1,0.5);
B=pp(6,1);
C=pp(4,2);
E=pp(1,2.5);
F-B=E-A;
D-C=E-A;
drawoptions(withpen pencircle scaled 1.5bp);
trace chemin(E,A,B,F,D,E,F);
drawoptions(dashed evenly withpen pencircle scaled 1.5bp);
trace chemin(A,C,B);
trace segment(D,C);
drawoptions();
nomme.bot(A);
nomme.bot(B);
nomme.ulft(C);
nomme.top(D);
nomme.ulft(E);
nomme.urt(F);

A:=B+pp(1,1.5);
C:=A+pp(3,-1.5);
D:=C+pp(2,1);
B:=C+pp(0,2);
trace chemin(A,C,D) withpen pencircle scaled1.5bp;
trace segment(C,B) withpen pencircle scaled1.5bp;
nomme.lft(A);
nomme.bot(C);
nomme.lrt(D);
nomme.top(B);

C:=D+pp(4,0);
A:=C+pp(0,3);
F:=C+pp(4,0);
B:=C+pp(2,-1);
trace chemin(A,C,B,F) withpen pencircle scaled1.5bp;
nomme.top(A);
nomme.lft(C);
nomme.urt(F);
nomme.bot(B);

B:=A+pp(-1,0.5);
F:=B+pp(0,2);
C:=B+pp(-2,1);
D:=C+pp(0,2);
trace chemin(B,F,D,C,B) withpen pencircle scaled1.5bp;
nomme.top(D);
nomme.ulft(C);
nomme.urt(F);
nomme.bot(B);

B:=C+pp(-6,-1);
F:=B+pp(0,2);
C:=B+pp(2,1);
D:=C+pp(0,2);
trace chemin(B,F,D) withpen pencircle scaled1.5bp;
trace chemin(B,C,D) dashed evenly withpen pencircle scaled 1.5bp;
nomme.top(D);
nomme.lrt(C);
nomme.ulft(F);
nomme.bot(B);

C:=F+pp(-1,-0.5);
A:=C+pp(-3,-1.5);
E:=A+pp(-2,1);
trace chemin(E,A,C) withpen pencircle scaled1.5bp;
nomme.urt(C);
nomme.ulft(E);
nomme.bot(A);

fin;


figure(0,0,18u,6u);
trace papierisometriquepointe withcolor 0.2*white;
pair A,B,C,D,E,F,G;
path base[];
fillcolor:=0.8*white;

A=pp(1,1.5);
B=pp(3,0.5);
C:=B+pp(2,1);
D:=B+pp(0,4);
base1=polygone(A,B,D);
transparence base1;
trace chemin(B,D,A,B,C) withpen pencircle scaled1.5bp;

A:=C+pp(2,3);
C:=A+pp(4,0);
D:=C+pp(-1,1.5);
B:=C+pp(-1,-0.5);
E:=A+pp(0,-3);
base2=polygone(A,B,C,D);
transparence base2;
trace chemin(E,A,B,C,D,A) withpen pencircle scaled1.5bp;

A:=E+pp(9,-0.5);
B:=A+pp(2,0);
C:=B+pp(1,0.5);
D:=C+pp(1,1.5);
E:=D+pp(-1,1.5);
F:=A+pp(0,2);
G:=F+pp(-1,-0.5);
base3=polygone(A,B,C,D,E,F);
transparence base3;
trace chemin(A,B,C,D,E,F,A) withpen pencircle scaled1.5bp;
trace segment(G,B) dashed evenly withpen pencircle scaled 1.5bp;

fin;


figure(0,0,18u,9u);
trace papierpointe withcolor 0.5*white;
pair A,B,C,D,E,F,G,H,Y,Z;
path base[];
fillcolor:=0.8*white;

A=pp(2,2);
B:=A+pp(1,0);
C:=B+pp(1,1);
D:=C+pp(0,1);
E:=D+pp(-1,1);
F:=E+pp(-1,0);
G:=F+pp(-1,-1);
H:=G+pp(0,-1);
Z:=D+pp(3,2);
base1=polygone(A,B,C,D,E,F,G,H);
transparence base1;
trace base1 withpen pencircle scaled1.5bp;
trace segment (D,Z) withpen pencircle scaled1.5bp;

Z:=B+pp(9,0);
A:=Z+pp(0,5);
B:=A+pp(2,1);
C:=B+pp(1,0);
D:=C+pp(1,-1);
base2=polygone(A,B,C,D);
transparence base2;
trace base2 withpen pencircle scaled1.5bp;
trace segment (A,Z) withpen pencircle scaled1.5bp;

Z:=D+pp(5,1);
A:=Z+pp(1,-2);
B:=A+pp(2,0);
C:=B+pp(0,-2);
D:=C+pp(-1,-2);
E:=D+pp(-2,3);
base3=polygone(A,B,C,D,E);
transparence base3;
trace base3 withpen pencircle scaled1.5bp;
trace segment (A,Z) withpen pencircle scaled1.5bp;

Z:=D+pp(6,1);
A:=Z+pp(1,2);
B:=A+pp(2,1);
C:=B+pp(0,1);
D:=C+pp(-2,1);
E:=D+pp(-1,-1);
base4=polygone(A,B,C,D,E);
transparence base4;
trace base4 withpen pencircle scaled1.5bp;
trace segment (D,Z) dashed evenly withpen pencircle scaled1.5bp;

Y=pp(2,10);
A:=Y+pp(0,4);
B:=A+pp(2,2);
C:=B+pp(2,-2);
base5=polygone(A,B,C);
transparence base5;
trace base5 withpen pencircle scaled1.5bp;
trace segment (A,Y) withpen pencircle scaled1.5bp;

Y:=C+pp(4,2);
A:=Y+pp(2,-2);
B:=A+pp(4,-1);
C:=B+pp(-3,-2);
base6=polygone(A,B,C);
transparence base6;
trace base6 withpen pencircle scaled1.5bp;
trace segment (A,Y) withpen pencircle scaled1.5bp;

Y:=B+pp(4,-1);
A:=Y+pp(2,2);
B:=A+pp(0,3);
C:=B+pp(-3,-2);
base7=polygone(A,B,C);
transparence base7;
trace base7 withpen pencircle scaled1.5bp;
trace segment (A,Y) withpen pencircle scaled1.5bp;

C:=A+pp(3,1);
B:=C+pp(2,-3);
A:=B+pp(3,1);
Y:=A+pp(3,2);
base8=polygone(A,B,C);
transparence base8;
trace base8 withpen pencircle scaled1.5bp;
trace segment (A,Y) withpen pencircle scaled1.5bp;

fin;


figure(0,0,18u,9u);
trace papierisometrique withcolor 0.5*white;
pair S[];
path base[];
fillcolor:=0.8*white;

S1:=pp(3,0.5);
S2:=S1+pp(0,1);
S3:=S2+pp(3,1.5);
S4:=S3+pp(-1,0.5);
S5:=S4+pp(-1,-0.5);
S6:=S5+pp(-2,1);
S7:=S6+pp(-1,-0.5);
S8:=S7+pp(2,-1);
S9:=S8+pp(-1,-0.5);
base1=polygone(S2,S3,S4,S5,S6,S7,S8,S9);
transparence base1;
trace base1 withpen pencircle scaled1.5bp;
trace segment (S1,S2) withpen pencircle scaled1.5bp;

S1:=S6+pp(0,1);
S2:=S1+pp(0,3);
S3:=S2+pp(1,-0.5);
S4:=S3+pp(0,-2);
S5:=S4+pp(1,-0.5);
S6:=S5+pp(0,-1);
S7:=S2+pp(2,1);
base2=polygone(S1,S2,S3,S4,S5,S6);
transparence base2;
trace base2 withpen pencircle scaled1.5bp;
trace segment (S2,S7) withpen pencircle scaled1.5bp;

S1:=S4+pp(5,-0.5);
S2:=S1+pp(0,2);
S3:=S2+pp(1,0.5);
S4:=S3+pp(1,-0.5);
S5:=S4+pp(0,1);
S6:=S5+pp(1,0.5);
S7:=S6+pp(0,-2);
S8:=S7+pp(-1,-0.5);
S9:=S8+pp(-1,0.5);
S10:=S9+pp(0,-1);
S11:=S2+pp(-1,0.5);
base3=polygone(S1 for i=2 upto 10 : ,S[i] endfor);
transparence base3;
trace base3 withpen pencircle scaled1.5bp;
trace segment (S11,S2) withpen pencircle scaled1.5bp;


S1:=S2+pp(0,-3);
S2:=S1+pp(1,0.5);
S3:=S2+pp(2,-1);
S4:=S3+pp(1,0.5);
S5:=S4+pp(-1,0.5);
S6:=S5+pp(1,0.5);
S7:=S6+pp(1,-0.5);
S8:=S7+pp(1,0.5);
S9:=S8+pp(-2,1);
S10:=S9+pp(1,0.5);
S11:=S10+pp(3,-1.5);
S12:=S11+pp(-5,-2.5);
S13:=S12+pp(0,-2);
base4=polygone(S1 for i=2 upto 12 : ,S[i] endfor);
transparence base4;
trace base4 withpen pencircle scaled1.5bp;
trace segment (S12,S13) withpen pencircle scaled1.5bp;


S1:=S11+pp(1,0.5);
S2:=S1+pp(-1,2.5);
S3:=S2+pp(1,-0.5);
S4:=S3+pp(0.5,-1.25);
S5:=S3+pp(1,-0.5);
S6:=S5+pp(1,-0.5);
S7:=S6+pp(-1,-1.5);
S8:=S1+pp(1,0.5);
base5=polygone(S1 for i=2 upto 7 : ,S[i] endfor);
transparence base5;
trace base5 withpen pencircle scaled1.5bp;
trace segment (S1,S8) dashed evenly withpen pencircle scaled1.5bp;

S1:=S7+pp(1,-1.5);
S2:=S1+pp(-1,-0.5);
S3:=S2+pp(0,-0.5);
S4:=S3+pp(1,0.5);
S5:=S4+pp(0,-0.5);
S6:=S5+pp(-1,-0.5);
S7:=S6+pp(0,-2);
S8:=S7+pp(1,0.5);
S9:=S7+pp(-1,0.5);
base6=polygone(S1 for i=2 upto 4 : ,S[i] endfor);
base7=polygone(S5 for i=6 upto 8 : ,S[i] endfor);
transparence base7; transparence base6;
trace base6 withpen pencircle scaled1.5bp;
trace base7 withpen pencircle scaled1.5bp;
trace segment (S9,S7) withpen pencircle scaled1.5bp;


fin;

end