In[]:=
GraphicsGrid[Partition[ArrayPlot[#,ImageSize->50]&/@AggregationArrayData[Range[6]][​​Last[SeedRandom[3234];RandomTotalisticAggregation[​​{Range[6],Join[IdentityMatrix[3],-IdentityMatrix[3]]},​​Position[CrossMatrix[{1,1,1}],1]-2,2000]]],UpTo[8]]]
Out[]=
In[]:=
With[{ru={1}},GraphicsGrid[Partition[ArrayPlot[#,ImageSize->50]&/@AggregationArrayData[ru][​​Last[SeedRandom[3234];RandomTotalisticAggregation[​​{ru,Join[IdentityMatrix[3],-IdentityMatrix[3]]},​​Position[CrossMatrix[{1,1,1}],1]-2,2000]]],UpTo[6]]]]
Out[]=
In[]:=
Table[With[{rr={2}},ArrayPlot3D[AggregationArrayData[rr][​​Last[SeedRandom[3234+i];RandomTotalisticAggregation[​​{rr,DeleteCases[Tuples[{1,0,-1},3],{0,0,0}]},​​{{0,0,0},{0,0,1}},1000]]]]],{i,3}]
In[]:=
Table[Table[With[{rr={n}},ArrayPlot3D[AggregationArrayData[rr][​​Last[SeedRandom[3234+i];RandomTotalisticAggregation[​​{rr,DeleteCases[Tuples[{1,0,-1},3],{0,0,0}]},​​{{0,0,0},{0,0,1}},1000]]]]],{i,3}],{n,5}]
Out[]=

,
,
,
,
,
,
,
,
,
,
,
,
,
,
