Update(CX,CY,Current_Link,CC)

function Update(CX,CY,Current_Link,CC)
%--------------------------------------------------------------------------
if Current_Link==[1 1;1 0],         
   fill([CX-1 CX+1 CX+1 CX CX CX-1],[CY+1 CY+1 CY CY CY-1 CY-1],CC); 
   line([CX-1 CX],[CY-1 CY-1],'linewidth',2,'color','k');
   line([CX+1 CX+1],[CY CY+1],'linewidth',2,'color','k');
   line([CX CX CX+1],[CY-1 CY CY],'linewidth',2,'color','k');
   line([CX-1 CX-1 CX+1],[CY-1 CY+1 CY+1],'linewidth',2,'color','k');
end

if Current_Link==[1 1;0 1],
   fill([CX-1 CX+1 CX+1 CX CX CX-1],[CY+1 CY+1 CY-1 CY-1 CY CY],CC);
   line([CX CX+1],[CY-1 CY-1],'linewidth',2,'color','k');
   line([CX-1 CX-1],[CY CY+1],'linewidth',2,'color','k');
   line([CX-1 CX CX],[CY CY CY-1],'linewidth',2,'color','k');
   line([CX-1 CX+1 CX+1],[CY+1 CY+1 CY-1],'linewidth',2,'color','k');
end

if Current_Link==[1 0;1 1],   
   fill([CX-1 CX CX CX+1 CX+1 CX-1],[CY+1 CY+1 CY CY CY-1 CY-1],CC); 
   line([CX-1 CX],[CY+1 CY+1],'linewidth',2,'color','k');
   line([CX+1 CX+1],[CY CY-1],'linewidth',2,'color','k');
   line([CX CX CX+1],[CY+1 CY CY],'linewidth',2,'color','k');
   line([CX-1 CX-1 CX+1],[CY+1 CY-1 CY-1],'linewidth',2,'color','k');
end

if Current_Link==[0 1;1 1],
   fill([CX CX+1 CX+1 CX-1 CX-1 CX],[CY+1 CY+1 CY-1 CY-1 CY CY],CC); 
   line([CX CX+1],[CY+1 CY+1],'linewidth',2,'color','k');
   line([CX-1 CX-1],[CY CY-1],'linewidth',2,'color','k');
   line([CX CX CX-1],[CY+1 CY CY],'linewidth',2,'color','k');
   line([CX+1 CX+1 CX-1],[CY+1 CY-1 CY-1],'linewidth',2,'color','k');
end
%--------------------------------------------------------------------------