x1=11;
y1=3;
x2=0;
y2=13;

robotbody={{0,0},{2,5},{2,7},{4,10},{4,12},{3,13},{2,13},{1,12},{1,11},{0,13},{2,15},{4,17},{6,18},{8,18},{10,17},{11,16},{12,14},{12,15},{13,16},{14,16},{15,15},{15,13},{13,10},{13,8},{11,3},{10,4},{8,5},{6,5},{4,4},{2,2},{0,0}};
lijn1={{3,13},{6,16},{11,16}};
lijn2={{2,13},{2,15}};
lijn3={{4,14},{4,17}};
lijn4={{6,16},{6,18}};
lijn5={{8,16},{8,18}};
lijn6={{10,16},{10,17}};
lijn7={{4,10},{6,10}};
lijn8={{12,13},{12,14}};
S={{6,5},{8,5.5},{9,6},{9,6.5},{8,7},{7,7.5},{7,8},{8,8.5},{10,9}};
oog1={{6,13},{7,14},{8,13},{6,13}};
oog2={{9,13},{10,14},{11,13},{9,13}};
pupil1={{6.9,13},{6.9,13.2},{7.1,13.2},{7.1,13}};
pupil2={{9.9,13},{9.9,13.2},{10.1,13.2},{10.1,13}};
armen={{2,6},{3,5},{4,5},{5,6},{5,8},{6,10},{7,9},{10,9},{11,10},{12,13},{15,13}};
mond={{7,11},{8,10},{9,10},{10,11},{7,11}};
hand1streep1={{3,5},{3,6}};
hand1streepW={{2,7},{3,6},{3.5,7},{4,6},{5,7}};
hand1streep2={{4,5},{4,6}};
hand2streep1={{13,16},{13,15}};
hand2streep2={{14,16},{14,15}};
hand2streepW={{12,14},{13,15},{13.5,14},{14,15},{15,14}};

megaman={robotbody,S, lijn1,lijn2,lijn3,lijn4,lijn5,lijn6,lijn7,oog1,oog2,pupil1,pupil2,armen,mond,hand1streep1,hand1streep2,hand1streepW,hand2streep1,hand2streep2,hand2streepW};

T1xy[{x_,y_}]:={x,y}+{x1,y1};
T2xy[{x_,y_}]:={x,y}+{x2,y2};

T1[fg_]:=Map[T1xy ,fg,{2}];
T2[fg_]:=Map[T2xy ,fg,{2}];

Show[Graphics[Line[megaman]]]
squad:=Table[Line[Nest[T1,Nest[T2,megaman,i],j]],{i,0,10},{j,0,7}];
Show[Graphics[{Purple,squad}]]
Export["d:\superman.eps",Graphics[{squad}]]