pan_button_move_script.m

if dimension==1
    if (0<currentgraphx) & (currentgraphx<=columnsshown) & (1<=currentgraphy) & (currentgraphy<=rows) & (currenty>=1) &(panbuttondownvalue==1);
        firstcolumn=firstcolumnbefore+((currentgraphx-panningoriginx)*-1);
        currentiteration=currentiterationbefore+((currentgraphy-panningoriginy)*-1);
        CA_Display;
    end;
end;

if dimension==2; 
    if (0<currentgraphx) & (currentgraphx<=columnsshown) & (0<currentgraphy) & (currentgraphy<=rowsshown) &(panbuttondownvalue==1);
        firstcolumn=firstcolumnbefore+((currentgraphx-panningoriginx)*-1);
        firstrow=firstrowbefore+((currentgraphy-panningoriginy)*-1);
        CA_Display;
    end;
end;