Cool stuff. I can't reproduce it on Mathematica 12, though.
The image processing part at the beginning :
x=ImageAdjust[Erosion[Dilation[DeleteSmallComponents[Dilation[EdgeDetect[i],20]],BoxMatrix[100]],120]]
returns a black image.
This is really great Diego! I have often wanted to have functionality like this for computationally extracting positions from chess literature (such as books about particular openings) :). I have built some of my own chess functionality for the Wolfram Language; take a look at the following links if you are interested.
https://resources.wolframcloud.com/FunctionRepository/resources/ImportPGN
https://resources.wolframcloud.com/FunctionRepository/resources/ChessPGNDisplay
Thanks!
Thank you for your kind words Pedro.
This is really impressive! You did it in such a clear way, I loved how you wrote it.
I am impressed.
Thank you for doing that.
-- you have earned Featured Contributor Badge
Your exceptional post has been selected for our editorial column Staff Picks http://wolfr.am/StaffPicks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!
