<<"MobileAutomata/MA.m"
kludge[{0->{u_,___},x___}]:={0->{u},x}
kludge[SMWEvolveListNWX[MAToMWRule[marule2],MAToMWState[mastate],10]]
{0{{1,3,3,{A,C,A}}},1{{0,0,3,{A,C,A}},{2,2,2,{A,D}},{3,1,1,{B}}},2{{0,0,1,{A}},{1,0,2,{A,D}},{3,2,2,{C,B}},{4,1,1,{A}}},3{{1,0,1,{B}},{2,0,2,{C,B}},{4,2,2,{B,C}},{5,1,1,{A}}},4{{2,0,1,{A}},{3,0,2,{B,C}},{5,2,2,{D,A}},{10,1,1,{B}}},5{{3,0,1,{A}},{4,0,2,{D,A}},{6,2,2,{C,B}},{9,1,1,{A}}},6{{0,0,1,{A}},{5,0,2,{C,B}},{7,2,2,{C,A}},{8,1,1,{B}}},7{{0,0,1,{A}},{6,0,2,{C,A}},{8,2,2,{A,D}}},8{{6,0,1,{B}},{7,0,2,{A,D}},{9,2,2,{A,C}}},9{{5,0,1,{A}},{8,0,2,{A,C}},{10,2,2,{A,D}}},10{{4,0,1,{B}},{9,0,2,{A,D}}}}
Show[DirectedNeighborsPictureR[%103,{0},NodeSize->.15,Hyperbola->False,Arrows->True,Symmetrized->False,Ribbon->True,RibbonColorTable->{GrayLevel[.85],GrayLevel[0],GrayLevel[.85],GrayLevel[0]}]];
Show[DirectedNeighborsPictureR[kludge[SMWEvolveListNWX[MAToMWRule[marule2],MAToMWState[mastate],20]],{0},NodeSize->.15,Hyperbola->False,Arrows->True,Symmetrized->False,Ribbon->True,RibbonColorTable->{GrayLevel[.85],GrayLevel[0],GrayLevel[.85],GrayLevel[0]}]];
Show[DirectedNeighborsPictureR[kludge[SMWEvolveListNWX[MAToMWRule[marule2],MAToMWState[mastate],100]],{0},Hyperbola->False,Arrows->True,Symmetrized->False,Ribbon->False],DisplayFunction->$DisplayFunction];
marule1={{0,0,0}{{1,1,1},1},{0,0,1}{{1,0,1},1},{0,1,0}{{0,1,1},-1},{0,1,1}{{0,0,0},1},{1,0,0}{{1,0,0},1},{1,0,1}{{1,1,1},1},{1,1,0}{{1,0,1},-1},{1,1,1}{{0,0,0},-1}};
Show[DirectedNeighborsPictureR[kludge[SMWEvolveListNWX[MAToMWRule[marule1],MAToMWState[MAInitialState[61]],100]],{0},Hyperbola->False,Arrows->True,Symmetrized->False,Ribbon->False],DisplayFunction->$DisplayFunction];
Show[DirectedNeighborsPictureR[kludge[SMWEvolveListNWX[MAToMWRule[marule1],MAToMWState[MAInitialState[101]],200]],{0},Hyperbola->False,Arrows->True,Symmetrized->False,Ribbon->False],DisplayFunction->$DisplayFunction];