In[]:=
GraphicsGridPartitionParallelMap​​ResourceFunction["WolframModelPlot"]ResourceFunction["WolframModel"][​​#[[1]],#[[2]],#[[3]],"FinalState"],
&,
,4,Background

Out[]=