RERuleGraphic[rn_Integer]:= Module[{rbits=IntegerDigits[rn,2,8]}, GraphicsColumn[GraphicsRow[Table[rxx[IntegerDigits[7-i,2,3], {1,1-rbits[[i+1]]}],{i,0,7}],0], GraphicsRow[Table[rxx[IntegerDigits[7-i,2,3], {0,rbits[[i+1]]}],{i,0,7}],0],0] ]
rxx[{a_,b_,c_},{d_,e_}]:=Surround[Graphics[tabbed[{e,c,b,a,d},{0,0}],AspectRatio->Automatic]]
tabbed[{a_,b_,c_,d_,e_},{x0_,y0_}]:= EdgedRectangle[{x0+#[[1]]-1/2,y0+#[[2]]-1/2},{x0+#[[1]]+1/2,y0+#[[2]]+1/2},GrayLevel[1-#[[3]]]]&/@{{1,0,b},{0,1,e},{0,0,c},{0,-1,a},{-1,0,d}}
Show[RERuleGraphic[150]];
Show[ReversibleElementaryRuleGraphic[150]];
Show[XCAGraphics[XCAEvolveList[Reversible[ElementaryRule[150]],{CenterList[128,{1}],ConstantList[128,0]},200]]];
Show[XCAGraphics[XCAEvolveList[Reversible[ElementaryRule[150]],{CenterList[256,{1}],ConstantList[256,0]},200]]];
Show[XCAGraphics[XCAEvolveList[Reversible[ElementaryRule[150]],{CenterList[256,{1}],ConstantList[256,0]},800]]];
Show[XCAGraphics[XCAEvolveList[Reversible[ElementaryRule[150]],{CenterList[256,{1}],CenterList[256,{1}]},200]]];
800-{721,689,705,673}
{79,111,95,127}
2%
{158,222,190,254}
256-32
224
256-64-32
160
Show[XCAGraphics[XCAEvolveList[Reversible[ElementaryRule[150]],{CenterList[224,{1}],ConstantList[224,0]},200]]];