birdBoven={{0,0},{-2,2*Cos[Pi/6]},{-4,4},{-10,5},{-25,25*N[Sqrt[3],50]/3}};
snavel2= {{-3,0},{-2,2*Cos[Pi/6]}};
snavel = {{0,0},{-3,0}};
veer1 = {{-25.3,2},{-24.3,3},{-24.8,4},{-23.8,5}};
veer2 = {{-26,3},{-25,4},{-25.5,5},{-24.5,6}};
veer3 = {{-25,0},{-24,1},{-24.5,2},{-23.5,3}};
birdAchter={{-25,25*N[Sqrt[3],50]/3},{-28,25*N[Sqrt[3],50]/6},{-25,0}};
eye = Table[{Cos[i]-5, Sin[i]+2.2}, {i, 0,2Pi, Pi/5}];
iris = Table[{Cos[i]/4-5, Sin[i]/4+1.8}, {i, 0,2Pi, Pi/5}];
feather={{}};
bird={birdBoven,birdAchter,eye,snavel,iris,snavel2,veer1,veer2,veer3};
Show[Graphics[Line[bird]]]


trans[xy_]:= xy+{25,0};
Trans[xylist_] := trans /@ xylist;
TRANS[xylistlist_] :=Trans /@ xylistlist;

transb[xy_]:= xy+{-25,0};
Transb[xylist_] := transb /@ xylist;
TRANSB[xylistlist_] :=Transb /@ xylistlist;
rot60[xy_]:=(({{Cos[(π/3)], -Sin[(π/3)]}, {Sin[(π/3)], Cos[(π/3)]}})).xy;
Rot60[xylist_]:=rot60 /@xylist;
ROT60[xylistlist_]:= Rot60 /@xylistlist;

Rot180[xylist_]:=Rot60[Rot60[Rot60[xylist]]];
ROT180[xylistlist_]:=ROT60[ROT60[ROT60[xylistlist]]];

ROTTRANS[xylistlist_]:=TRANSB[ROT180[TRANS[xylistlist]]];


birdtemp={birdAchter};

W1:= Table[Line[Nest[Rot60,eye,m]],{m,0,5}];
W4:= Table[Line[Nest[Rot60,iris,m]],{m,0,5}];
W2:=Table[Line[Nest[Rot60,birdBoven,j]],{j,0,5}];
W3:=Table[Line[Nest[ROT60,Nest[ROTTRANS,birdtemp,i],k]],{i,0,1},{k,0,5}];
W6:=Table[Line[Nest[Rot60,snavel2,i]],{i,0,5}];
W5:=Table[Line[Nest[Rot60,snavel,i]],{i,0,5}];
W7:=Table[Line[Nest[Rot60,veer1,j]],{j,0,5}];
W8:=Table[Line[Nest[Rot60,veer2,j]],{j,0,5}];
W9:=Table[Line[Nest[Rot60,veer3,j]],{j,0,5}];
Graphics[{W2,W3, W1,W4,W5,W7,W8,W6,W9}]

ROTTRANS[xylistlist_]:=TRANSB[ROT180[TRANS[xylistlist]]];