function out=eig3plot(A)
%
% Analogous to eigplot. Plots sixty unit-vectors matching
% the vertices of a 60-faceted bucky-ball, and concatenates
% each of these vectors with its image under multiplication 
% by A.
%
if nargin<1, A=zeros(3,3); A(1,2)=-1; A(2,1)=1; A(3,3)=1; A=A/3; end 
[B,V]=bucky;
W=V*A'+V;
clg
hold on
plot3([-2,2],[0,0],[0,0],'w');
plot3([0,0],[-2,2],[0,0],'w');
plot3([0,0],[0,0],[-2,2],'w');
gplot(B,V,'b-');
for i=1:60
    hi=plot3([0,V(i,1),W(i,1)],[0,V(i,2),W(i,2)],[0,V(i,3),W(i,3)],'c-');
    set(hi,'color',(1+V(i,:))/2);
    end