i=
;​​corners=ImageCorners[i,1,.004,2,MaxFeatures->200,MaxFeatureDisplacement->5];​​HighlightImage[i,corners]​​neighbors=NearestNeighborGraph[corners,1]​​Min[DistanceMatrix[{corners}]]​​FindShortestPath[neighbors]