function A = k3(inp,blksize,skip)

perc=0.75 % autocorrelation percentage for filterwidth
fact1=0.02;
fact2=0.05;
filtsize=(corper(inp',perc)-1)/2

R = kproc2(inp,blksize,filtsize,fact1,fact2);

[nr,nc] = size(R);

for i = 1:nc;
    i	
    if (R(1,i) == 1)
	A = [A,R(:,i)];
    else
	s = find_match(R(:,i),A,blksize,skip);
	if (s == -1)
	    A = new_lane(R(:,i),A,blksize);
	else
	    A = expank(R(:,i),A,s,blksize);
	end
    toc 
    end
end

[rg,cg]=size(inp);
res=lane2im(A,rg,cg);
comboc(inp,res);
axis normal;
text(0,-50,['row: ',num2str(blksize),' column: ',num2str(filtsize),' fact1: ',num2str(fact1),' fact2: ',num2str(fact2),' skip: ',num2str(skip)]);
%colormap(cool);
toc




