d=0.8;
a=0.05;

M={0,0};

rot[α_]:=(({{Cos[α], -Sin[α]}, {Sin[α], Cos[α]}}));

t1[xy_]:=xy+{d,a};
t2[xy_]:=xy+{0,-0.5};
t3[xy_]:=xy+{0,-1}
t4[xy_]:=xy+{0,-1}

T1[xylist_]:=t1/@ xylist;
T1a[xylistList_]:=T1/@ xylistList;
T2[xyList_]:=t2/@ xyList;
T2a[xyListList_]:=T2/@xyListList;
T3[xyList_]:=t3/@ xyList;
T4[xyList_]:=t4/@ xyList;
T4a[xyListList_]:=T4/@xyListList;

htrn[xy_]:=M+rot[π].(-M+xy);

shirt=(1/40){{0,0},{-3,0},{-2,5},{0,10},{3,12},{6,12},{8,11},{10,12},{14,12},{16,11},{19,2},{16,1}};
zakje = (1/40){{10,5},{10,8},{13,8},{13,5},{11.5,4},{10,5}};
kraag = (1/40){{5,12},{7,10},{8,11},{9,10},{11,12}};
kraag2 = (1/40){{5,12},{8,10},{11,12}};
nummer = (1/40){{6,2},{10,2},{10,3},{7,3},{7,4},{10,4},{10,7},{6,7},{6,6},{9,6},{9,5},{6,5},{6,2}};

line1 = (1/40){{-1,27.5},{-1,20}};
line2 = (1/40){{2,31.33},{2,20}};
line2a = (1/40){{2,15},{2,11.333}};
line3 = (1/40){{5,32},{5,12}};
line4 = (1/40){{8,31},{8,11}};
line5 = (1/40){{11,32},{11,12}};
line6 = (1/40){{14,32},{14,20.33}};
line6a = (1/40){{14,17},{14,12}};
line7 = (1/40){{17,28},{17,21.33}};
lines= {line1,line2,line2a, line3,line4,line5,line6,line6a, line7};


trihs = htrn /@ shirt;
ejkaz = htrn /@ zakje;
gaark = htrn /@ kraag;
senil = htrn/@lines;

NN =6;
MM =6;

F2:=Table[Line[Nest[T2,Nest[T1,shirt,i],j]],{i,0,NN},{j,1,MM+1}];
F3:=Table[Line[Nest[T2,Nest[T1,trihs,i],j]],{i,0,NN},{j,0,MM}];

F4:=Table[Line[Nest[T4a,Nest[T1a,lines,i],j]],{i,0,NN-1},{j,1,MM/2}];
F5:=Table[Line[Nest[T3,Nest[T1,ejkaz,i],j]],{i,1,NN},{j,1,MM/2}];
F6:=Table[Line[Nest[T2,Nest[T1,gaark,i],j]],{i,1,NN},{j,1,MM}];
F7:=Table[Line[Nest[T2,Nest[T1,kraag,i],j]],{i,0,NN-1},{j,1,MM}];
F8:=Table[Line[Nest[T3,Nest[T1,nummer,i],j]],{i,0,NN-1},{j,1,MM/2}];
Show[Graphics[{F2,F3,Red,F4,Red, F8,Red, F5,Red,F6,Red,F7}]]
(*Export["d:\shirtjes2.eps",Graphics[{F2,F3,Red,F4,Red, F8,Red, F5,Red,F6,Red,F7}]]*)