function N = new_lane(lane,A,blksize)

[nr,nc] = size(A);
[lr,lc] = size(lane);

sval = lane(2);

T = zeros(lane(1)*blksize + 1, 1);
T(1) = lane(1);
%T(2) = sval;
start = (lane(1) - 1)*blksize + 2;
T(start:start+blksize-1,1) = lane(2:lr);
lane = T;

[lr,lc] = size(lane);
if (lr < nr)
    T = zeros(nr,1);
    T(1:lr,1) = lane;
    lane = T;
end

if (lr > nr)
    T = zeros(lr,nc);
    T(1:nr,:) = A;
    A = T;
end

for i = 1:nc,
    if (sval <= A(2,i))
	N = [N, lane, A(:,i:nc)];
	break;
    else
	N = [N,A(:,i)];
    end
end

