Scan[Show,Table[PNGraphics[​​PNShakeGraph[​​PNEvolve[{{1{6,7,8}}{1{2,3,4},​​2{1,10,11},3{1,11,12},4{1,12,10},​​10{2,4,6},11{3,2,7},12{4,3,8}}},​​PNTetra,2/3(7^i-1)],3000]],{i,0,3}]];