Install["MobileAutomata\\zmalink.exe"]
LinkObject[".\MobileAutomata\zmalink.exe\Windows\zmalink.exe",5,4]
<<MobileAutomata/MA.m
MA2DToNet[list_]:=Module[{u,j,k},u[_]=Infinity;Reverse[Table[j=list[[i]];k=u[j];u[j]=i;i->{u[j+{-1,-1}],u[j+{-1,0}],u[j+{-1,1}],u[j+{0,-1}],k,u[j+{0,1}],u[j+{1,-1}],u[j+{1,0}],u[j+{1,1}]},{i,Length[list],1,-1}]]]
MA2PathGraphics[list_]:=Graphics[Line[list],FrameTrue,FrameTicksNone]
MA2PathGraphics3D[list_]:=Graphics3D[MapIndexed[Cuboid[Flatten[{#1,-#2}]]&,list],BoxRatios->{1,1,3}]
MA2PathGraphics3DP[list_]:=Graphics3D[Line[MapIndexed[Flatten[{#1,-#2}]&,list]],BoxRatios->{1,1,3}]
NeighborCountsI[g_,i0_,n_]:=Map[If[MemberQ[#,Infinity],Infinity,Length[#]]&,Module[{gp=Dispatch[Prepend[g,∞->{∞}]]},NestList[Union[Flatten[{#,#/.gp}]]&,{i0},n]]]
Differences[list_]:=Drop[list,1]-Drop[list,-1]
MA2DSearch[2,1000]
First[First[%38]]
{{0,0,0,0,0}{1,{-1,0}},{0,0,0,0,1}{0,{1,0}},{0,0,0,1,0}{1,{1,0}},{0,0,0,1,1}{0,{0,1}},{0,0,1,0,0}{1,{0,1}},{0,0,1,0,1}{1,{-1,0}},{0,0,1,1,0}{0,{0,1}},{0,0,1,1,1}{0,{-1,0}},{0,1,0,0,0}{1,{0,1}},{0,1,0,0,1}{0,{0,-1}},{0,1,0,1,0}{0,{-1,0}},{0,1,0,1,1}{1,{0,-1}},{0,1,1,0,0}{0,{0,1}},{0,1,1,0,1}{0,{0,-1}},{0,1,1,1,0}{1,{1,0}},{0,1,1,1,1}{1,{0,1}},{1,0,0,0,0}{0,{0,1}},{1,0,0,0,1}{0,{1,0}},{1,0,0,1,0}{0,{0,-1}},{1,0,0,1,1}{1,{0,1}},{1,0,1,0,0}{1,{0,1}},{1,0,1,0,1}{0,{0,-1}},{1,0,1,1,0}{1,{-1,0}},{1,0,1,1,1}{0,{0,-1}},{1,1,0,0,0}{1,{1,0}},{1,1,0,0,1}{0,{0,1}},{1,1,0,1,0}{1,{1,0}},{1,1,0,1,1}{1,{1,0}},{1,1,1,0,0}{1,{-1,0}},{1,1,1,0,1}{0,{1,0}},{1,1,1,1,0}{0,{0,1}},{1,1,1,1,1}{0,{1,0}}}
Show[MA2PathGraphics[MA2DPath[2,%39,200]]];
MA2DPath[2,%39,20]
{{22,22},{21,22},{21,23},{22,23},{22,22},{23,22},{22,22},{22,23},{22,22},{22,21},{21,21},{21,22},{21,21},{21,22},{20,22},{19,22},{19,23},{20,23},{19,23},{18,23}}
MA2DToNet[%47]
{1{11,2,3,10,5,4,∞,6,∞},2{∞,15,18,11,12,3,10,5,4},3{15,18,∞,12,∞,∞,5,4,∞},4{12,∞,∞,5,8,∞,6,∞,∞},5{11,12,∞,10,7,8,∞,6,∞},6{10,7,8,∞,∞,∞,∞,∞,∞},7{11,12,∞,10,9,8,∞,∞,∞},8{12,∞,∞,9,∞,∞,∞,∞,∞},9{11,12,∞,10,∞,∞,∞,∞,∞},10{∞,11,12,∞,∞,∞,∞,∞,∞},11{∞,∞,15,∞,13,12,∞,∞,∞},12{∞,15,18,13,14,∞,∞,∞,∞},13{∞,∞,15,∞,∞,14,∞,∞,∞},14{∞,15,18,∞,∞,∞,∞,∞,∞},15{∞,16,17,∞,∞,18,∞,∞,∞},16{∞,∞,20,∞,∞,17,∞,∞,18},17{∞,20,∞,∞,19,∞,∞,18,∞},18{∞,19,∞,∞,∞,∞,∞,∞,∞},19{∞,20,∞,∞,∞,∞,∞,∞,∞},20{∞,∞,∞,∞,∞,∞,∞,∞,∞}}
MA2DPath[2,%39,200];
MA2DToNet[%]
Show[MA2PathGraphics[MA2DPath[2,#,200]]]&/@First[%38];
Show[MA2PathGraphics3DP[MA2DPath[2,#,200]]]&/@First[%38];
(Note: must start 1, 10,....)