startT = 5-(Sqrt[8])Cos[15/180Pi]-(2-(Sqrt[8])Sin[15/180Pi])/Tan[Pi/3]
hoogte = 7 - startT
afstand = hoogte + ((2 (3-(Sqrt[3])))/(Sqrt[3]))

fig0A = {{0,startT},{2-(Sqrt[8])Sin[15/180Pi],5-(Sqrt[8])Cos[15/180Pi]}}
fig0B = {{2,5},{1.5,6},{.8,7},{0,7}}
fig0C ={{-2,5},{-2.2,5.2},{-2.4,5.25},{-2.6,5.2},{-3,4.3},{-2.5,3.3},{-2,2.75},{-1.75,2.5},{-2+(Sqrt[8])Sin[15/180Pi],5-(Sqrt[8])Cos[15/180Pi]}}
fig0D = {{.4,7},{.6,5.5},{0,4.25}}
fig0E = {{.8,7},{1.2,5.3},{.7,4.1}}
fig0F = {{1.5,6},{1.6,5},{1.2,4.1}}
fig0G = {{-2.4,5.2},{-2.8,4.4},{-2.9,4.3}}
fig0H = {{-1,4},{-.5,4.5}}
fig0I = {{-.1,startT+.2},{1.9-(Sqrt[8])Sin[15/180Pi],5.2-(Sqrt[8])Cos[15/180Pi]}}

fig1 ={fig0A,fig0B,fig0C,fig0D,fig0E,fig0F,fig0G,fig0H,fig0I}

fig0={{0,startT},{2-(Sqrt[8])Sin[15/180Pi],5-(Sqrt[8])Cos[15/180Pi]},{2,5},{0,7},{-2,5},{-2+(Sqrt[8])Sin[15/180Pi],5-(Sqrt[8])Cos[15/180Pi]},{0,startT},{0,5}}

Show[Graphics[Line[fig1]]]

figZ[{x_,y_}]:={x,y-startT-(afstand)i};
figZero:= figZ /@ fig0;

figZeroa:= figZ /@ fig0A;
figZerob:= figZ /@ fig0B;
figZeroc:= figZ /@ fig0C;
figZerod:= figZ /@ fig0D;
figZeroe:= figZ /@ fig0E;
figZerof:= figZ /@ fig0F;
figZerog:= figZ /@ fig0G;
figZeroh:= figZ /@ fig0H;
figZeroi:= figZ /@ fig0I;

t1[{x_,y_}]:={x,y+afstand×j};
T1[fg_]:=t1 /@ fg;

trans1[{x_,y_}]:={x+6i,y+(5-startT)i};
transAll1[fg_]:= trans1 /@ fg;

trans2[{x_,y_}]:={x,y}.(({{Cos[((2π)/3)], -Sin[((2π)/3)]}, {Sin[((2π)/3)], Cos[((2π)/3)]}}));
transAll2[fg_]:= trans2 /@ fg;

trans3[{x_,y_}]:={x,y}.(({{Cos[((2π)/(-3))], -Sin[((2π)/(-3))]}, {Sin[((2π)/(-3))], Cos[((2π)/(-3))]}}));
transAll3[fg_]:= trans3 /@ fg;

Rija1:=Table[Line[T1[transAll1[figZeroa]]],{i,-10,10},{j,-10,10}];
Rijb1:=Table[Line[T1[transAll1[figZerob]]],{i,-10,10},{j,-10,10}];
Rijc1:=Table[Line[T1[transAll1[figZeroc]]],{i,-10,10},{j,-10,10}];
Rijd1:=Table[Line[T1[transAll1[figZerod]]],{i,-10,10},{j,-10,10}];
Rije1:=Table[Line[T1[transAll1[figZeroe]]],{i,-10,10},{j,-10,10}];
Rijf1:=Table[Line[T1[transAll1[figZerof]]],{i,-10,10},{j,-10,10}];
Rijg1:=Table[Line[T1[transAll1[figZerog]]],{i,-10,10},{j,-10,10}];
Rijh1:=Table[Line[T1[transAll1[figZeroh]]],{i,-10,10},{j,-10,10}];
Riji1:=Table[Line[T1[transAll1[figZeroi]]],{i,-10,10},{j,-10,10}];

Rija2:=Table[Line[T1[transAll2[figZeroa]]],{i,-10,10},{j,-10,10}];
Rijb2:=Table[Line[T1[transAll2[figZerob]]],{i,-10,10},{j,-10,10}];
Rijc2:=Table[Line[T1[transAll2[figZeroc]]],{i,-10,10},{j,-10,10}];
Rijd2:=Table[Line[T1[transAll2[figZerod]]],{i,-10,10},{j,-10,10}];
Rije2:=Table[Line[T1[transAll2[figZeroe]]],{i,-10,10},{j,-10,10}];
Rijf2:=Table[Line[T1[transAll2[figZerof]]],{i,-10,10},{j,-10,10}];
Rijg2:=Table[Line[T1[transAll2[figZerog]]],{i,-10,10},{j,-10,10}];
Rijh2:=Table[Line[T1[transAll2[figZeroh]]],{i,-10,10},{j,-10,10}];
Riji2:=Table[Line[T1[transAll2[figZeroi]]],{i,-10,10},{j,-10,10}];

Rija3:=Table[Line[T1[transAll3[figZeroa]]],{i,-10,10},{j,-10,10}];
Rijb3:=Table[Line[T1[transAll3[figZerob]]],{i,-10,10},{j,-10,10}];
Rijc3:=Table[Line[T1[transAll3[figZeroc]]],{i,-10,10},{j,-10,10}];
Rijd3:=Table[Line[T1[transAll3[figZerod]]],{i,-10,10},{j,-10,10}];
Rije3:=Table[Line[T1[transAll3[figZeroe]]],{i,-10,10},{j,-10,10}];
Rijf3:=Table[Line[T1[transAll3[figZerof]]],{i,-10,10},{j,-10,10}];
Rijg3:=Table[Line[T1[transAll3[figZerog]]],{i,-10,10},{j,-10,10}];
Rijh3:=Table[Line[T1[transAll3[figZeroh]]],{i,-10,10},{j,-10,10}];
Riji3:=Table[Line[T1[transAll3[figZeroi]]],{i,-10,10},{j,-10,10}];

Rij1:=Table[Line[T1[transAll1[figZero]]],{i,-1,1},{j,-1,1}];
Rij2:=Table[Line[T1[transAll2[figZero]]],{i,-1,1},{j,-1,1}];
Rij3:=Table[Line[T1[transAll3[figZero]]],{i,-1,1},{j,-1,1}];

Show[Graphics[{Red,Rija1,Rijb1,Rijc1,Rija2,Rijb2,Rijc2,Rija3,Rijb3,Rijc3,Black,Rijd3,Rije3,Rijf3,Rijg3,Rijh3,Riji3,Rijd2,Rije2,Rijf2,Rijg2,Rijh2,Riji2,Rijd1,Rije1,Rijf1,Rijg1,Rijh1,Riji1}]]

|