In[]:=
ArrayPlot[#,ColorRules->{0->White,1->Lighter[Orange],2->Darker[Orange]},ImageSize->{Automatic,330}]&/@Partition[ResourceFunction["BlockCellularAutomaton"][{{2,2}{1,1},{1,1}{2,2},{1,2}{1,2},{2,1}{2,1},{2,0}{0,2},{1,0}{1,0},{0,2}{2,0},{0,1}{0,1},{0,0}{0,0}},Join[RandomChoice[{.2,.8}->{2,0},81],RandomChoice[{.7,.3}->{2,0},120],RandomChoice[{.2,.8}->{2,0},81]],2000],350]
Out[]=
,
,
,
,
In[]:=
SeedRandom[3453465];ArrayPlot[#,ColorRules->{0->White,1->Lighter[Orange],2->Darker[Orange]},ImageSize->{Automatic,330}]&/@Partition[ResourceFunction["BlockCellularAutomaton"][{{2,2}{1,1},{1,1}{2,2},{1,2}{1,2},{2,1}{2,1},{2,0}{0,2},{1,0}{1,0},{0,2}{2,0},{0,1}{0,1},{0,0}{0,0}},Join[RandomChoice[{.15,.85}->{2,0},81],RandomChoice[{.75,.25}->{2,0},120],RandomChoice[{.15,.85}->{2,0},81]],350*3],350]
Out[]=
,
,
In[]:=
SeedRandom[3453465];ArrayPlot[#,ColorRules->{0->White,1->Lighter[Orange],2->Darker[Orange]},ImageSize->{Automatic,330}]&/@Partition[ResourceFunction["BlockCellularAutomaton"][{{2,2}{1,1},{1,1}{2,2},{1,2}{1,2},{2,1}{2,1},{2,0}{0,2},{1,0}{1,0},{0,2}{2,0},{0,1}{0,1},{0,0}{0,0}},Join[RandomChoice[{.15,.85}->{2,0},4*81],RandomChoice[{.75,.25}->{2,0},4*120],RandomChoice[{.15,.85}->{2,0},4*81]],350*3],350]
Out[]=
,
,
In[]:=
SeedRandom[3453465];ArrayPlot[#,ColorRules->{0->White,1->Lighter[Orange],2->Darker[Orange]},ImageSize->{Automatic,330}]&@ResourceFunction["BlockCellularAutomaton"][{{2,2}{1,1},{1,1}{2,2},{1,2}{1,2},{2,1}{2,1},{2,0}{0,2},{1,0}{1,0},{0,2}{2,0},{0,1}{0,1},{0,0}{0,0}},Join[RandomChoice[{.15,.85}->{2,0},4*81],RandomChoice[{.75,.25}->{2,0},4*120],RandomChoice[{.15,.85}->{2,0},4*81]],350*3]
Out[]=
