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+128,{1}],ConstantList[256+128,0]},300]]];
Show[XCAGraphics[XCAEvolveList[Reversible[ElementaryRule[150]],{CenterList[32,{1}],ConstantList[32,0]},60]]];
Table[XCAGraphics[XCAEvolveList[Reversible[ElementaryRule[150]],{CenterList[n,{1}],ConstantList[n,0]},60]],{n,10,30}];
Show[GraphicsRow[%]];
p150[n_,init_,steps_:60]:=XCAGraphics[XCAEvolveList[Reversible[ElementaryRule[150]],{CenterList[n,init],ConstantList[n,0]},steps]]
Show[p150[14,{1,1,0,1,1}]];
Show[p150[14,{1,1,0,1,1}]];
Show[XCAGraphics[XCAEvolveList[Reversible[ElementaryRule[150]],{RandomList[400],RandomList[400]},400]]];