0
$\begingroup$

There is code to drawing image as a continuous-line 

tako=Import["http://imgur.com/vJkdS4x.png"]

enter image description here

data = ColorQuantize[ColorConvert[tako, "Grayscale"], 2]
pos = PixelValuePositions[ImageAdjust[data], 0];
res = FindShortestTour[pos];
Graphics[Line[pos[[res[[2]]]]]]

enter image description here

but there is intersection points if I zoom it.

enter image description here

How can I draw it without intersections?

Improve this question
$\endgroup$
2
  • 2
    $\begingroup$ I can tell you why it happens, but I'm not sure you can easily solve it. From the docs for FindShortestTour, "For large datasets, FindShortestTour finds a tour whose length is at least close to the minimum." And "Use PerformanceGoal->"Quality" to find an optimal result." However, you've got way too many points to solve a TSP optimally on your data. Looking at the intersections you've got you might be able to unda a large number of them manually, though. $\endgroup$
    – Martin Ender
    Dec 13, 2016 at 14:12
  • 1
    $\begingroup$ see this: demonstrations.wolfram.com/… $\endgroup$
    – mrz
    Dec 20, 2016 at 12:01

0

Reset to default

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Browse other questions tagged or ask your own question.