function vpsend(hvpfig,haxes,hlegax,hvpdataax,hvplegax)
%
%  Name: vpsend
% 
%  Usage: vpsend(haxes,hlegax,hvpdataax,hvplegax)
% 
%   Description:
%     Sends the current plot and legend to the 
%       comparitive viewport window
%

%
%  Version SWD970623
%
%  Author(s): Scott W. Doebling, doebling@lanl.gov
%
%  Institution: Los Alamos National Laboratory,
%		ESA-EA
%
%  Copyright (c) 1997, The Regents of the University
%     	of California. (See top level of code for
%	full copyright statement.)

delete(get(hvpdataax,'children'))

delete(get(hvplegax,'children'))

%  Make a copy of all objects in haxes into hvpdataax

copyobj(get(haxes,'children'),hvpdataax);

%  Reduce line style size to 1.5 pixel

hlinetemp = findobj(hvpdataax,'type','line');
set(hlinetemp,'linewidth',1.5)

%  Set properties of hvpdataax

set(hvpdataax,'view',get(haxes,'view'))
axes(hvpdataax)
axis on
axis equal
rotate3d on

htexttemp = findobj(hvpdataax,'type','text');

set(htexttemp,'fontsize',8)

%  Make a copy of all objects in hlegax into hvplegax

copyobj(get(hlegax,'children'),hvplegax);

%  Reduce legend line style size to 1.5 pixel

hlinetemp = findobj(hvplegax,'type','line');
set(hlinetemp,'linewidth',1.5)

%  Set properties of hvpdataax

axes(hvplegax)
axis on

%  Make the viewport visible

set(hvpfig,'visible','on')

%  ALL DONE

return
