image thumbnail
from Clock Bell by Krishna Lalith
Place the coins on turn basis, on the board to complete &/or to block to gain different medals.

Clock_Show(Clocky,move)
function Clock_Show(Clocky,move)

%Radial
for ii=1:12
    if (Clocky(ii,1)==move && Clocky(ii,2)==move && Clocky(ii,3)==move && Clocky(ii,4)==move),
        XX=[ii ii ii ii];
        YY=[1 2 3 4];
        Show(XX,YY,move);
    end
end

%Diametrical
for ii=1:6
    if (Clocky(ii,1)==move && Clocky(ii,3)==move && Clocky(ii+6,2)==move && Clocky(ii+6,4)==move),
        XX=[ii ii ii+6 ii+6];
        YY=[1 3 2 4];
        Show(XX,YY,move);
    end
    if (Clocky(ii,2)==move && Clocky(ii,4)==move && Clocky(ii+6,1)==move && Clocky(ii+6,3)==move),
        XX=[ii ii ii+6 ii+6];
        YY=[2 4 1 3];
        Show(XX,YY,move);
    end
end

%Semi-Circular
for jj=1:4
    for ii=1:12
        if (Clocky(ii,jj)==move && Clocky(Lin2Cir(ii+1),jj)==move && Clocky(Lin2Cir(ii+2),jj)==move && Clocky(Lin2Cir(ii+3),jj)==move),
            XX=[ii Lin2Cir(ii+1) Lin2Cir(ii+2) Lin2Cir(ii+3)];
            YY=[jj jj jj jj];
            Show(XX,YY,move);
        end
    end
end

%Circular
for jj=1:4
    for ii=1:12
        if (Clocky(ii,jj)==move && Clocky(Lin2Cir(ii+2),jj)==move && Clocky(Lin2Cir(ii+4),jj)==move && Clocky(Lin2Cir(ii+6),jj)==move),
            XX=[ii Lin2Cir(ii+2) Lin2Cir(ii+4) Lin2Cir(ii+6)];
            YY=[jj jj jj jj];
            Show(XX,YY,move);
        end
    end  
end

%Semi-Spiral
for ii=1:12
    if (Clocky(ii,4)==move && Clocky(Lin2Cir(ii+1),3)==move && Clocky(Lin2Cir(ii+2),2)==move && Clocky(Lin2Cir(ii+3),1)==move),
        XX=[ii Lin2Cir(ii+1) Lin2Cir(ii+2) Lin2Cir(ii+3)];
        YY=[4 3 2 1];
        Show(XX,YY,move);
    end
    if (Clocky(ii,1)==move && Clocky(Lin2Cir(ii+1),2)==move && Clocky(Lin2Cir(ii+2),3)==move && Clocky(Lin2Cir(ii+3),4)==move),
        XX=[ii Lin2Cir(ii+1) Lin2Cir(ii+2) Lin2Cir(ii+3)];
        YY=[1 2 3 4];
        Show(XX,YY,move);
    end
end

%Spiral
for ii=1:12
    if (Clocky(ii,4)==move && Clocky(Lin2Cir(ii+2),3)==move && Clocky(Lin2Cir(ii+4),2)==move && Clocky(Lin2Cir(ii+6),1)==move),
        XX=[ii Lin2Cir(ii+2) Lin2Cir(ii+4) Lin2Cir(ii+6)];
        YY=[4 3 2 1];
        Show(XX,YY,move);
    end
    if (Clocky(ii,1)==move && Clocky(Lin2Cir(ii+2),2)==move && Clocky(Lin2Cir(ii+4),3)==move && Clocky(Lin2Cir(ii+6),4)==move),
        XX=[ii Lin2Cir(ii+2) Lin2Cir(ii+4) Lin2Cir(ii+6)];
        YY=[1 2 3 4];
        Show(XX,YY,move);
    end
end

Contact us at files@mathworks.com