nnn2=Line/@Lines2D[7];
nnn2x=AddRim2D[nnn2];
gnnn2=ReverseEngineer[nnn2x];
nonnn2=ReverseEngineerNodes[nnn2x];
Position[%,{0,1.}]
{{169}}
nxn=NeighborLists[gnnn2,169,9];
Show[GraphicsArray[Partition[Graphics[{AbsoluteThickness[.25],PointSize[.05],nnn2,Point/@nonnn2[[#]]},AspectRatio->Automatic]&/@nxn,5]]];
SeedRandom[234534];rv=RandomVoronoi[100];
Show[%,PlotRange->Transpose[{{-0.0661216,0.0556743},{1.12561,1.03073}}]];
arv=AddRim2D[rv];
Show[%,PlotRange->Transpose[{{-0.0661216,0.0556743},{1.12561,1.03073}}]];
grv=ReverseEngineer[arv];
grvn=ReverseEngineerNodes[arv];
Following is very slow to compute....
NearestNeighbor[{0.569225,0.565278},grvn]
94
rvxn=NeighborLists[grv,94,9];
Show[GraphicsArray[Partition[Graphics[{AbsoluteThickness[.25],PointSize[.05],First[arv],Point/@grvn[[#]]},AspectRatio->Automatic,PlotRange->Transpose[{{-0.0661216,0.0556743},{1.12561,1.03073}}]]&/@rvxn,5]]];
Show[GraphicsArray[Partition[Graphics[{AbsoluteThickness[.25],PointSize[.05],First[arv],Point/@grvn[[#]]},AspectRatio->Automatic,PlotRange->Transpose[{{-0.0661216,0.0556743},{1.12561,1.03073}}]]&/@ShellNeighborLists[grv,94,9],5]]];
SeedRandom[234534];prv=PerturbedVoronoi[10,.7];
Show[%,PlotRange->Transpose[{{0.205339,-0.535968},{11.529,11.4881}}]];
parv=AddRim2D[prv];
Show[%,PlotRange->Transpose[{{0.205339,-0.535968},{11.529,11.4881}}]];
Following is very slow to compute....