hyppts=FlattenTableTable+,x,{x,-4,4,.2},{c,0,5},1;
2
c
2
x
itran[{y_,x_}]:=
Abs[-]
,x2
y
2
x
shift[list_,s_]:=(#1-s&)/@list
Show[Surround[Graphics[(Point[itran[#1]]&)/@hyppts,AspectRatioAutomatic]]];
Position[FromCAState[CAEvolveList[ElementaryRule[90],CenterList[100,{1}],48]],1];
Show[Surround[Graphics[(Point[Reverse[{-1,1}#1]]&)/@%2,AspectRatioAutomatic]]];
Show[Surround[Graphics[(Point[Reverse[{-1,1}itran[#1]]]&)/@shift[%2,First[%2]],AspectRatioAutomatic]]];
Show[Surround[Graphics[(Point[Reverse[{-1,1}#1]]&)/@hyppts,AspectRatioAutomatic]]];
Show[Surround[Graphics[(Point[Reverse[{-1,1}itran[#1]]]&)/@hyppts,AspectRatioAutomatic]]];
Position[FromCAState[CAEvolveList[ElementaryRule[254],CenterList[100,{1}],48]],1];
Show[Surround[Graphics[(Point[Reverse[{-1,1}#1]]&)/@%21,AspectRatioAutomatic]]];
Show[Surround[Graphics[(Point[Reverse[{-1,1}itran[#1]]]&)/@shift[%21,First[%21]],AspectRatioAutomatic]]];
Position[FromCAState[CAEvolveList[Reversible[ElementaryRule[150]],{ConstantList[100,0],CenterList[100,{1}]},48]],1];
Show[Surround[Graphics[(Point[Reverse[{-1,1}#1]]&)/@%24,AspectRatioAutomatic]]];
Show[Surround[Graphics[(Point[Reverse[{-1,1}itran[#1]]]&)/@shift[%24,First[%24]],AspectRatioAutomatic]]];
Position[FromCAState[CAEvolveList[Reversible[ElementaryRule[150]],{ConstantList[200,0],CenterList[200,{1}]},98]],1];
Show[Surround[Graphics[(Point[Reverse[{-1,1}#1]]&)/@%27,AspectRatioAutomatic]]];
Show[Surround[Graphics[{AbsolutePointSize[1.5],(Point[Reverse[{-1,1}itran[#1]]]&)/@shift[%27,First[%27]]},AspectRatioAutomatic]]];