In[]:=
TokenEventGraph[{{x_}:>(ReplacePart[x,#->1]&/@Position[x,0])},{{{0,0},{0,0}}},2]
Out[]=
In[]:=
TokenEventGraph[{{x_}:>(ReplacePart[x,#->1]&/@Position[x,0])},{{{0,0},{0,0}}},2,"TokenRenderingFunction"->(ArrayPlot[#,Mesh->True,ImageSize->20]&)]
Out[]=
In[]:=
TokenEventGraph[{{x_}:>(ReplacePart[x,#->1]&/@Position[x,0])},{{{0,0},{0,0}}},5,"TokenRenderingFunction"->(ArrayPlot[#,Mesh->True,ImageSize->20]&)]
Out[]=
In[]:=
TokenEventGraph[{{x_}:>(ReplacePart[x,#->1]&/@Position[x,0])},{ConstantArray[0,{3,3}]},2,"TokenRenderingFunction"->(ArrayPlot[#,Mesh->True,ImageSize->20]&)]
Out[]=
In[]:=
TokenEventGraph[{{x_}:>(ReplacePart[x,#->1]&/@Position[x,0])},{ConstantArray[0,{3,3}]},10,"TokenLabeling"->None,AspectRatio->1/2]
Out[]=