In[]:=
HourglassPlot[r1_,r2_,cent_List]:=ArrayPlot[CellularAutomaton[{r1,4,1},CellularAutomaton[{r2,4,1},{cent,0},{{{100}}}],200],ImageSize->{Automatic,300},ColorRules->{0->White,1->Red,2->Blue,3->Green}]
In[]:=
HourglassPlot[r1_,r2_,cent_Integer]:=ArrayPlot[CellularAutomaton[{r1,4,1},CellularAutomaton[{r2,4,1},{ConstantArray[cent,5],0},{{{100}}}],200],ImageSize->{Automatic,300},ColorRules->{0->White,1->Red,2->Blue,3->Green}]
In[]:=
choiceResults=;
In[]:=
Last[choiceResults]
Out[]=
{116925332984570389854850436681967053316,227302834849186220069334011951332035360}
In[]:=
HourglassPlot[Splice[{116925332984570389854850436681967053316,227302834849186220069334011951332035360},_],2]
Out[]=
In[]:=
HourglassPlot[Splice[{116925332984570389854850436681967053316,227302834849186220069334011951332035360},_],{2,1,0,1,2}]
Out[]=