Group Abstract

Message Boards

WOLFRAM COMMUNITY

3.2K Views

2 Replies

6 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Make data for spot the differences game

Mark Whel

Posted 2 years ago

How can I write that program in Python? My program take an image, it will detect objects in that image and process, output a new image which have some differences (rotate, hide, ...). What algorithms/methods in image processing do I need to learn? I need that program to make data for Spot the differences game. Thank you for your help!

POSTED BY: Mark Whel

2 Replies

Sort By:

Henrik Schachner

Henrik Schachner, Radiation Therapy Center, Weilheim, Germany

Posted 2 years ago

Mark, no, sorry, I cannot write such a program in Python - on a Mathematica site you have to accept solutions done in Mathematica. But its a fun problem! My simple idea is to separate the image components with `MorphologicalComponents[]`, erasing them from the image and retouch those parts using `Inpaint[]`. Here is my code: (* importing complete image: ) img0 = Import[ "https://community.wolfram.com//c/portal/getImageAttachment?filename=Spot_the_difference.png&userId=2853753"]; iDims = ImageDimensions[img0]; ( choosing the right side/image: ) img1 = Image[ImageTrim[img0, {{.5, 0} iDims, iDims}], ImageSize -> {.5, 1} iDims]; img2 = Binarize[ColorQuantize[img1, 9, Dithering -> False], .2]; mcmps = MorphologicalComponents[img2]; ( choosing details to disappear: ) ( ( respective indexes can be found using: ) ( ComponentMeasurements[img2,{"Area","Image"}] ) ) missings = {12, 22, 111, 116, 108, 47, 88, 109}; imgMask = Image@Map[If[Or @@ First@Outer[Equal, {#}, missings], 0, 1] &, mcmps, {2}]; img3 = img1 imgMask; GraphicsRow[{img1, Inpaint[img3, Dilation[ColorNegate@imgMask, 3]]}] Can you spot the differences?*

Mark,

no, sorry, I cannot write such a program in Python - on a Mathematica site you have to accept solutions done in Mathematica. But its a fun problem!

My simple idea is

to separate the image components with MorphologicalComponents[],
erasing them from the image
and retouch those parts using Inpaint[].

Here is my code:

    (* importing complete image: *)
    img0 = Import[
       "https://community.wolfram.com//c/portal/getImageAttachment?filename=Spot_the_difference.png&userId=2853753"];
    iDims = ImageDimensions[img0];
    (* choosing the right side/image: *)
    img1 = Image[ImageTrim[img0, {{.5, 0} iDims, iDims}], ImageSize -> {.5, 1} iDims];
    img2 = Binarize[ColorQuantize[img1, 9, Dithering -> False], .2];
    mcmps = MorphologicalComponents[img2];
    (* choosing details to disappear: *)
    (* ( respective indexes can be found using: *)
    (* ComponentMeasurements[img2,{"Area","Image"}] ) *)
    missings = {12, 22, 111, 116, 108, 47, 88, 109};
    imgMask = Image@Map[If[Or @@ First@Outer[Equal, {#}, missings], 0, 1] &, mcmps, {2}];
    img3 = img1 imgMask;
    GraphicsRow[{img1, Inpaint[img3, Dilation[ColorNegate@imgMask, 3]]}]

enter image description here