ResourceFunction["WolframModel"][{{1,2,1},{1,3,4}}​​{{4,5,4},{5,4,3},{1,2,5}},{{0,0,0},{0,0,0}},2000,"FinalStatePlot"]
Out[]=