source: liacs/la/opdr3/vullijst.m@ 400

function lijst=vullijst(A)
    % bij aanroep van deze funcie wordt een beeld matrix A
    % geplaatst in het midden van een 2 maal zo breed en hoog beeld
    % omringd met nullen
    %
    % bepaal dementie
    [m,n] = size(A);
    % maak nieuwe lijst
    lijst = zeros(2*m,2*n);
    %bepaal translatie
    xmove = .5 * m;
    ymove = .5 * n;
    for i=1:m
        for j=1:n
            lijst(xmove + i, ymove + j) = A(i,j);
        end
    end
    colormap(gray(256));
    image(lijst);