% kind of the same as QUIVER3 but another type of scaling
%
% Initial version: Magnus Billvik, Swedish Institute of Space Physics,
%Uppsala, June 2005

function point3d(x,y,z,vx,vy,vz,scale,color)

for i=1:length(x)
    line([x(i) x(i)+vx(i)*scale], [y(i) y(i)+vy(i)*scale], [z(i) z(i)+vz(i)*scale], 'color', color);
end