{{0,1,1}->{{0,0,1},1},{0,1,0}->{{0,1,0},-1},{0,0,1}->{{1,0,1},1},{1,0,1}->{{0,1,1},-1},{0,0,0}->{{0,0,1},1}}
{{0,1,1}{{0,0,1},1},{0,1,0}{{0,1,0},-1},{0,0,1}{{1,0,1},1},{1,0,1}{{0,1,1},-1},{0,0,0}{{0,0,1},1}}
Show[GridMAGraphics[MMAEvolveList[%273,{Table[0,{18}],10},50]]];
Show[SMWNetworkPictureR[MAToMWRule[%273],MAToMWState[MAInitialState[61]],100,{1},ParallelSeparation->.2,Arrows->True,Symmetrized->True,Ribbon->False,Dip->0]];
Show[SMWXGraphicsStreamed[SMWEvolveListX[MAToMWRule[%273],MAToMWState[MAInitialState[21]],25]]];
Show[SMWNetworkPictureR[MAToMWRule[%273],MAToMWState[MAInitialState[61]],7,{1},Complete->True,ParallelSeparation->.2,Arrows->True,Symmetrized->True,Ribbon->False,Dip->0]];
Show[SMWNetworkPictureR[MAToMWRule[%273],MAToMWState[MAInitialState[61]],10,{1},Complete->True,ParallelSeparation->.2,Arrows->True,Symmetrized->True,Ribbon->False,Dip->0,NodeSize->.15,NodeNumber->True]];
Show[SMWNetworkPictureR[MAToMWRule[%273],MAToMWState[MAInitialState[61]],15,{1},Complete->True,ParallelSeparation->.2,Arrows->True,Symmetrized->True,Ribbon->False,Dip->0,NodeSize->.15,NodeNumber->True]];