TILE SWAPPING GAME

             The little one at my home likes to play the hidden object games. There are also mini games as a part of the hidden object game. One such game I came across was tile swapper, which is of course a good old one. I thought of trying this game with MATLAB and to my surprise ,it came out better than I expected.

Method I used:

I divided the image into equal parts and randomized the position of the images.

I created push buttons and placed these random parts on it.

When a button is clicked followed by another button click, the image on the previous button click is swapped with the last button clicked image. This process continues until all the image parts are at the correct position.

How to play:

1.       Select an image from the popup menu

2.       Select the number of tiles from the popup menu

3.       Click an image part

4.       Click another image part

The selected  image parts are swapped

5.       Continue the process until all the image parts are in correct position.

6.       If the image parts are in correct position then msgbox pops up with a message.

MATLAB CODE:

function tile_swap_game

clear all;

clc

%FIGURE WINDOW

figure('Position',[250 150 700 450],'Name','TILE SWAP GAME','NumberTitle','off','MenuBar','None','Resize','off');

%DECLARE THE GLOBAL VARIABLES

global indexvalue currvalue prevalue correctPos Pname x1 y1 flag A Rnum presentPos files I TImg;

%GET THE JPEG IMAGES IN THE CURRENT FOLDER

directory=dir('*.jpg');

files={directory.name}';

%TITLE SIZE

msize={'2X2';'3X3';'4X4';'5X5';'6X6';'7X7';'8X8'};

%DEFINE THE GUI POPMENUS

uicontrol('Style','text','position',[495 400 75 25],'String','SELECT IMAGE');

fctrl=uicontrol('Style','popupmenu','position',[495 350 160 40],'Value',1,'String',files,'Callback',@displayfile);

uicontrol('Style','text','position',[495 320 75 25],'String','# TILES');

sctrl=uicontrol('Style','popupmenu', 'position',[495 290 160 20],'Value',1,'String',msize,'Callback',@tile);

%DISPLAY THE SELECTED IMAGE FROM THE POPMENU OPTION

    function displayfile(~,~)

        ptr=get(fctrl,'Value');

        filename=char(files(ptr));

        I=imread(filename);

        %RESIZE IMAGE TO STANDARD SIZE

        I=imresize(I,[448 447]);

        TImg=im2double(I);

       uicontrol('Style','Pushbutton','Position',[1 1 448 447],'CData' ,TImg);

       

    end

%GET THE TITLE SIZE AND DIVIDE THE IMAGE BASED ON THE SIZE

    function tile(~,~)

         

        if(isempty(I))

         

            displayfile;

        end

        ptr1=get(sctrl,'Value');

        num=ptr1+1;

        mvalue=mod(size(I),num);

        A=imresize(I,[size(I,1)-mvalue(1,1) size(I,2)-mvalue(1,2)]);

      

        m=size(A,1)/num;

        n=size(A,2)/num;

        x=1;

        y=1;

        x1=m;

        y1=n;

        indexvalue=1;

        correctPos=zeros([num^2 5]);

        presentPos=zeros([num^2 5]);

        inc=1;

        %DIVIDE THE IMAGE SIZE INTO EQUAL PARTS

        %EXAMPLE: IF #TITLE IS 4X4 THEN IMAGE WILL BE DIVIDED INTO 16 EQUAL

        %PARTS

        for i = 1:num

            m=x1*i;

            for j=1:num

   

                n=y1*j;

                correctPos(inc,1:4)=[x y m n];

               inc=inc+1;

               y=n;

            end

            x=m;

            y=1;

        end

        %RANDOMIZE THE IMAGE PARTS

        Rnum=randperm(num^2);

        %RE-POSITION THE [X,Y] CO-ORDINATES FOR THE UICONTROL FIELD

        %'POSITION'

        presentPos=sortrows(correctPos,-2);

        correctPos(:,5)=[1:(inc-1)]';

        presentPos(:,5)=[1:(inc-1)]';

        for j = 1 : inc-1

            %GET THE RANDOM NUMBER

            i=Rnum(j);

            %READ THE IMAGE PART BASED ON THE RANDOM NUMBER

            Ind=im2double(A(correctPos(i,1):correctPos(i,3),correctPos(i,2):correctPos(i,4),:));

            %DISPLAY THE IMAGE PART ON THE UICONTROL OBJECT 'PUSHBUTTON'

            Pname(j)=uicontrol('Style','Pushbutton','Position',[presentPos(j,1) presentPos(j,2) x1 y1],'CData' ,Ind,'UserData',j,'callback',@swap);

   

        end

    end

   

    %FUNCTION TO SWAP TWO TITLES

    function swap(obj,~)

        currvalue=get(obj,'UserData');

        if indexvalue == 2

   

           Temp=presentPos(currvalue,:);

           presentPos(currvalue,:)=presentPos(prevalue,:);

           set(Pname(currvalue),'Position',[presentPos(currvalue,1) presentPos(currvalue,2) x1 y1]);

           presentPos(prevalue,:)=Temp;

           set(Pname(prevalue),'Position',[presentPos(prevalue,1) presentPos(prevalue,2) x1 y1]);

   

           Evaluate_Position;

   

           if(flag==1)

             winner;

           end

   

           indexvalue=1;

        else

           prevalue=currvalue;

           indexvalue=indexvalue+1;

        end

   

    end

    %CHECK IF ALL THE IMAGE PARTS ARE PLACED IN THE CORRECT POSITION

    function Evaluate_Position

       

        flag=1;      

      

        tot=find(presentPos(:,5)==Rnum');

        if(numel(tot)==size(Rnum,2))

           flag=1;

        else

           flag=0;

        end

    end

    %DISPLAY THE IMAGE AND 

    function winner

        uicontrol('Style','Pushbutton','Position',[1 1 448 447],'CData' ,TImg);

        msgbox('YOU WIN!!!','CONGRATS');

    end

end

NOTE:  

a. Check whether the current directory contains JPEG images before executing the code

b. If you find the code is broken or unable to execute, mail me.I will mail you the code. Happy Weekend:-)