source: liacs/la/opdr4/wireframe.m@ 69

function wireframe(D,C,n)
    % given 2 dim array f n Data points and square nxn adjacency 
    % array C of connections
    % plot wireframe edge by edge between projected Begin and End x,y
    % coordinates
    % vectors X and Y are of length 2 and contain respectively the two
    % x and y coordinates of the Begin- and Endpoints
    % determine x,y range first for whole dataset
    
    % wel het figuurtje laten zien natuurlijk
    figure
    % hulp lijntjes
    grid on

    % even randen
    % xmin=1.2*min(min(D([1],:)));
    % xmax=1.2*max(max(D([1],:)));
    % ymin=1.2*min(min(D([2],:)));
    % ymax=1.2*max(max(D([2],:)));
    % gebruik onderstaande voor een vierkant
    xmin=1.2*min(min(D([1 2],:)));
    xmax=1.2*max(max(D([1 2],:)));
    ymin = xmin;
    ymax = xmax;
    axis([xmin,xmax,ymin,ymax]);

    X = [0; 10];
    Y = [0; 10];
    % no cleanups between plot commands
    hold on
    % loop door de connectie array heen
    % we trekken enkel lijntjes van de kleine naar de grootte om dubbel
    % werk te voorkomen
    for i=1:n
        for j=i:n
            if ( C(i,j) == 1 )
                point1 = D(:,i);
                point2 = D(:,j);
                X = [ point1(1); point2(1) ];
                Y = [ point1(2); point2(2) ];
                plot(X, Y,'k-')

            end
        end
    end
    %draw black line between 2 connected data vertex points at a time
    hold off