/*	plt/main.c			Paul Albrecht		Sept 1984

	First version written in 1983.  Rewritten in 1984, 1986, and 1988.

	Last Update:	May 5, 1989

	Copyright (C) Paul Albrecht 1988.  All rights reserved.

	Caution:
		The order of the various calls made here is quite important since some
		subroutines count on the environment being set up by the time they are
		called.
*/

#define		MAIN

#include	<signal.h>
#include	"plt.h"
#include	"plot.h"
#include	"axis.h"
#include	"figs.h"
#include	"text.h"
#include	"optn.h"


void	main( argc, argv )
char	*argv[];
{
PtrUnion	arg0, arg1;
FILE		*fp;
short		n;
char		*getenv();

	programName = argv[0];

	UtilInit( fullInit );
	TextInit( 0 );		/* must come before argument processing */
	FigureInit( fullInit );
	AxisInit( fullInit );
	TicInit( fullInit );
	PlotInit( fullInit );

	argvOpts( argv+1, argc-1 );

	if( pterm == 0 )
		pterm = getenv( "PTERM" );
	if( pterm == 0 )
		pterm = "";

	if( npso )
		PTERMSpecificOpts();
	arg0.c = pterm;
	special( SETPTERM, arg0, arg1 );	/* must follow pterm_specific_opts() */

	DataInit( argv );

	if( Data.nCols != 0 )
		PlotDef( Plot.pModes );

	if( pstr.str != 0 )
		ReadStrings( &pstr );
	if( fgstr.str != 0 )
		ReadStrings( &fgstr );

	gsupress();

	if( xa.min == DEFAULT || xa.max == DEFAULT ||
		ya.min == DEFAULT || ya.max == DEFAULT ) {
		if( Data.nCols == 0 )
			estop( "Must specify axis limits" );
	}
	else {	if( Data.nStreams == 1 && Plot.nPlts == 1 ) {
			Plot.quickPlot = YES;
			if( xa.lbl == 0 )
				xa.lbl = "";
		}
	}

	if( Data.nCols != 0 ) {
		if( !Plot.quickPlot )
			ReadPoints();
	}

	SetupAxes();

	if( axisfile ) {
		fp = fopen( axisfile, "w" );
		if( fp == 0 )
			err( YES, "Can't open %s for writing axis specs", axisfile );

		fprintf( fp, "xa %g %g %g %s %d %g\n",
			xa.min, xa.max, xa.tic, xa.pfm, xa.skp, xa.cr );
		fprintf( fp, "ya %g %g %g %s %d %g\n",
			ya.min, ya.max, ya.tic, ya.pfm, ya.skp, ya.cr );
		fprintf( fp, "W %g %g %g %g\n", xwmins, ywmins, xwmaxs, ywmaxs );
		if( fileno(fp) > 2 )
			fclose( fp );
	}

	pinit();

	space( 0, 0, p->xsquare, p->yfull );

	if( omode & ERASE )
		erase();

	if( xa.mode != 0 )
		XAxisDraw();
	if( ya.mode != 0 )
		YAxisDraw();

	MakeGraphTitle( argv+1 );

	/* The ordering below is important for the LaserWriter */

	if( omode & PLOTS ) {
		for( n=0;  n < Plot.nPlts;  n++ )
			PlotDraw( &Plot.plts[n] );
	}

	if( omode & FIGURES ) {
		if( Figure.nLegs > 0 )
			LegendDraw();
		for( n=0;  n < Figure.nFigs;  n++ )
			FigureDraw( &Figure.figs[n] );
	}

	if( omode & LABELS ) {
		for( n=0;  n < nlbls;  n++ )
			TextDraw( &lbls[n] );
	}

	if( Plot.excluded )
		err( NO, "*** Excluded %ld points ***", Plot.excluded );

	pquit(0);
}