/*	plt/window.c		Paul Albrecht		Sept 1984

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

	Last Update:	13 June 1995 (GBM)
	EMACS_MODES:	tabstop=4
*/

#include	"plt.h"
#include	"plot.h"
#include	"axis.h"
#include	"figs.h"
#include	"text.h"

static void turnoff();

WindowDef( config, subsect )
char	*config, *subsect;
{
static	float
	mgrid[] = {0, .935, 1, .935, 0, .941, 1 , .941, -1 },
	mwin[]  = {.12, .1, .94, .85 };
static	float
	*msgrid = mgrid,
	mswin[]  = {.2, .17, .92, .85 };
static	float
	bgrid[] = {0, .935, 1, .935, 0, .941, 1 , .941, 0, .463, 1, .463, 0,
	.468, 1, .468, -1 },
	bwin[]  = {.074, .53, .96, .88, .074, .06, .96, .41 };
static	float
	*bsgrid = bgrid,
	bswin[] = {.1, .53, .945, .85, .1, .07, .945, .39 };
static	float
	qgrid[] = {0, .935, 1, .935, 0, .941, 1 , .941, 0, .463, 1, .463, 0,
	.468, 1, .468, .498, 0, .498, .94, .502, 0, .502, .94, -1},
	qwin[]  = {.074, .53, .454, .88, .58, .53, .96, .88, .074, .06,
	.454, .41, .58, .06, .96, .41 };
static	float
	qpgrid[] = {0, .935, 1, .935, 0, .941, 1 , .941, 0, .463, 1, .463, 0,
	.468, 1, .468, .498, 0, .498, .94, .503, 0, .503, .94, -1},
	qpwin[]  = {.08, .54, .45, .87, .59, .54, .96, .87, .08, .07,
	.45, .40, .59, .07, .96, .40 };
static	float
	*qsgrid = qgrid,
	qswin[] = {.1, .53, .435, .85, .6, .53, .945, .85, .1, .07,
	.435, .39, .6, .07, .945, .39 };

float	*wl, *gr;

	if( config == 0 )
		config = "m";
	if( subsect == 0 )
		subsect = "0";

	if( strcmp(config,"m") == 0 ) {
		gr = mgrid;
		wl = mwin;
		title.text = "";
	}
	else	if( strcmp(config,"ms") == 0 ) {
		gr = msgrid;
		wl = mswin;
		title.text = "";
	}
	else	if( strcmp(config,"b") == 0 ) {
		gr = bgrid;
		wl = bwin;
	}
	else	if( strcmp(config,"bs") == 0 ) {
		gr = bsgrid;
		wl = bswin;
	}
	else	if( strcmp(config,"q") == 0 ) {
		gr = qgrid;
		wl = qwin;
	}
	else	if( strcmp(config,"qs") == 0 ) {
		gr = qsgrid;
		wl = qswin;
	}
	else	if( strcmp(config,"qp") == 0 ) {
		gr = qpgrid;
		wl = qpwin;
	}

	if( *subsect < '1' || *subsect > '9' ) {
		xa.min = ya.min = xmin = ymin = xwmins = ywmins = 0;
		xa.max = ya.max = xmax = ymax = xwmaxs = ywmaxs = 1;

		theight = 0.97;
		title.just = "CC";

		while( *gr >= 0 ) {
			FigureDef( CONNECT, WINC, gr[0], gr[1], gr[2], gr[3], NULLS );
			gr += 4;
		}
		FigureDef( BOX, WINC, 0.0, 0.0, 1.0, 1.0, NULLS );
		SupressionDef( "xy" );
	}
	else {	wl  +=  (*subsect-'1')*sizeof(*wl);
		xwmins = wl[0];
		ywmins = wl[1];
		xwmaxs = wl[2];
		ywmaxs = wl[3];
		omode &= ~ERASE;
		title.just = "CB";
		theight = 1.07;
		if( config[0] != 'm' )
			TextInit( -1 );
		SupressionDef( "e" );
		xa.lbl = "";
	}
}

/************ Supress the generation of parts of the graph ***************/


SupressionDef( str )
char	*str;
{
char	tmp[120];

	if( Plot.supress != 0 ) {
		strcpy( tmp, Plot.supress );
		free( Plot.supress );
	}
	else
		tmp[0] = 0;
	strcat( tmp, str );

	Plot.supress = StringSave( tmp );
}


gsupress()
{
AxisPtr	a;
char	chr;

	a = 0;
	while( chr = *Plot.supress++ ) {
		switch( chr ) {
			case 'a': turnoff(a,AXIS);		break;
			case 'e': turnoff(a,ERASE);		break;
			case 'f': turnoff(a,FIGURES);		break;
			case 'g': turnoff(a,GRIDMARKS);		break;
			case 'm': turnoff(a,TICMARKS);		break;
			case 'n': turnoff(a,TICNUMS);		break;
			case 'l': turnoff(a,LABELS);		break;
			case 'p': turnoff(a,PLOTS);		break;
			case 't': turnoff(a,TITLES);		break;
			case 'x': xa.mode = 0;			break;
			case 'y': ya.mode = 0;			break;
			case 'C': omode = xa.mode = ya.mode = 077777;
				  a = 0;
				  break;
			case 'A': a = 0;		break;
			case 'X': a = &xa;		break;
			case 'Y': a = &ya;		break;
			default: err( NO, "Bad element `%c' for supress", chr );
		}
	}
}

static void turnoff( a, flag )
AxisPtr	a;
Const	flag;
{
short	mask;

	mask  = ~flag;
	if( a == 0 )
		omode &= mask;
	if( a == 0 || a == &xa )
		xa.mode &= mask;
	if( a == 0 || a == &ya )
		ya.mode &= mask;
}