wrap_button_move_script.m

if dimension==1
    if (0<currentgraphx) & (currentgraphx<=columnsshown) & (1<=currentgraphy) & (currentgraphy<=rows) & (currenty>=1) &(wrapbuttondownvalue==1);
        a=abeforewrap;
        if currentgraphx-panningoriginx>0;
            awrap1=a(:,end-(currentgraphx-panningoriginx-1):end,:); awrap2=a(:,1:end-(currentgraphx-panningoriginx),:);
            a=cat(2,awrap1,awrap2);
        elseif currentgraphx-panningoriginx<0;
            awrap1=a(:,panningoriginx-currentgraphx+1:end,:); awrap2=a(:,1:panningoriginx-currentgraphx,:);
            a=cat(2,awrap1,awrap2);
        end;
        CA_Display
    end;
end;

if dimension==2; 
    if (0<currentgraphx) & (currentgraphx<=columnsshown) & (0<currentgraphy) & (currentgraphy<=rowsshown) &(wrapbuttondownvalue==1);
        a=abeforewrap;
        if currentgraphx-panningoriginx>0;
            awrap1=a(:,end-(currentgraphx-panningoriginx-1):end,:); awrap2=a(:,1:end-(currentgraphx-panningoriginx),:);
            a=cat(2,awrap1,awrap2);
        elseif currentgraphx-panningoriginx<0;
            awrap1=a(:,panningoriginx-currentgraphx+1:end,:); awrap2=a(:,1:panningoriginx-currentgraphx,:);
            a=cat(2,awrap1,awrap2);
        end;
        if currentgraphy-panningoriginy>0;;
            awrap3=a(end-(currentgraphy-panningoriginy-1):end,:,:); awrap4=a(1:end-(currentgraphy-panningoriginy),:,:);
            a=cat(1,awrap3,awrap4);
        elseif currentgraphy-panningoriginy<0;
            awrap3=a(panningoriginy-currentgraphy+1:end,:,:); awrap4=a(1:panningoriginy-currentgraphy,:,:);
            a=cat(1,awrap3,awrap4);
        end;
        CA_Display;
    end;
end;