function X = WireFrame3(X,Marker)

if nargin < 1
% Example 8, p. 323
X = [3 5 6 7 9 9 11 12 13 15;
     5 17 0 11 20 8 11 0 17 5;
     -9 -1 0 3 -6 -16 3 1 -1 -9]

X = [X(:,[2 5 6 8 7 5 2 4 7 4 3 8 3 1 6 1 2])];
Marker = '.k';
end

hold on; 
% House Frame
%X = [-2 0 0 -1 0 -2 -1 -2 -2; 0 0 2 3 2 2 3 2 0];
h(1) = plot3(X(1,:),X(2,:),X(3,:),'.')

% Plot an axis
Ax = [-10, 10; 0, 0; 0, 0 ];
PlotSegment3(Ax(:,1),Ax(:,2),'-k');
Ax = [0 0; -10, 10; 0 0 ];
PlotSegment3(Ax(:,1),Ax(:,2),'-k');
Ax = [0 0;  0 0; -10, 10; ];
PlotSegment3(Ax(:,1),Ax(:,2),'-k');

% Plot the wireframe
hold on;
if nargin > 1; 
	c = Marker;
else
	c = '.r';
end
for i = 1:size(X,2)-1;
	h(i+1) = PlotSegment3(X(:,i),X(:,i+1),c);
end
