%
%    NAVPLOT - script to plot navigation data in one large window.
%
%    MIT SeaGrant Lab

%    Copyright (C) 1995-1998
%    Massachussetts Institute of Technology
%    Sea Grant AUV Laboratory
%    $Id: navplot.m,v 1.6 2000/06/21 21:25:54 rob Exp $	
position =  [  4    32   815   658];

 if exist( 'h_nav' ) ~= 1
     h_nav = figure;
     winpos( position(1,:) );
 else
     figure(h_nav);
  end



 set( h_nav, 'Name', 'Navigation Plot', 'DeleteFcn', 'clear h_nav' );

 legendStr = ' ''Dead Reckoning'' ';

posx0 = dataNav(1,mPos_x);
posy0 = dataNav(1,mPos_y);

posx  = dataNav(:,mPos_x) - posx0;
posy  = dataNav(:,mPos_y) - posy0;

 plot( posy, posx, '.','linewidth', 1 );
  
 title(strvcat('Location in Inertial North-East-Down Frame;',...
	       ['Initial UTM Coord North = ', num2str(posx0),' ',...
		'East = ', num2str(posy0)], ...
	       'Dead Reckoning-Blue; ',...
	       missionID))

 xlabel( 'Relative UTM East, Meters' )
 ylabel( 'Relative UTM North, Meters' )

 set( gca, 'DataAspectRatio', [1 1 .25] );

 zoom on;
 hold off;
 grid on
 
 return

