ResourceFunction["WolframModel"][{{1,2,3}}{{4,4,2},{4,1,3}},​​{{0,0,0}},8]["StatesPlotsList","MaxImageSize"180]
Out[]=