/*	plt/plt.h		Paul Albrecht		Aug 1984

	Last Edit:	Oct 14, 1988

	NOTE:	Edit tabs should be set to every 4 chars.

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

#include	<stdio.h>
#include	<math.h>


#ifdef		PROTOTYPES
#define		PROTO( NAME, ARGS )		NAME(ARGS)
#else
#define		PROTO( NAME, ARGS )		NAME()
#endif


#ifdef		NDEBUG
#define		ASSERT(CONDITION,TEXT)		;
#else
#define		ASSERT(CONDITION,TEXT)	\
			if( !(CONDITION) )	assert( TEXT, __FILE__, __LINE__ );
#endif

#define		FHUGE		1e38
#define		YES			1
#define		NO			0
#define		DEFAULT		(Const)(-32767)
#define		FDEFAULT	(-32767.0)

#ifdef		MAIN
#define		COMMON
#define		SVAL(X)		= X
#else
#define		COMMON		extern
#define		SVAL(X)
#endif

#define		ENDP(ARRAY)	(&ARRAY[sizeof(ARRAY)/sizeof(ARRAY[0])])

#define		FREE(PTR)	{ 	char *charPtr=(char *)(PTR);				\
							ASSERT( charPtr != 0, "Freeing null ptr" );	\
							free( charPtr );	}


typedef		int				Const;
typedef		unsigned int	Uint;
typedef		unsigned int	Boolean;
typedef		short			Ptype;	/* Type expected by plotting routines */

#define		SETPTERM		(Const)1
#define		GRAPHELEMENT	(Const)2
#define		SETFONT			(Const)3
#define		SETLINEWIDTH	(Const)4
#define		SETGRAY			(Const)5
#define		SETGRAYD		(Const)6
#define		SETLINEMODE		(Const)7
#define		SETCOLOR		(Const)8

#define		EAXIS			'a'
#define		EFIGURE			'f'
#define		ELABEL			'l'
#define		EPLOT			'p'
#define		ETITLE			't'

#define		SEP_GRAPH		(Const)01
#define		SPECIAL_FNT		(Const)02
#define		ROT_LABEL		(Const)04

#define		DEFAULT_FONT	"Times-Roman"
#define		DEFAULT_PS		16.0
#define		DEFAULT_LW		3.0


#define		PS_BLACK		0.0
#define		PS_WHITE		1.0

#define		NULLS		((char *)0)

#define		NOTHING			(Const)0
#define		ERASE			(Const)01
#define		TITLES			(Const)02
#define		LABELS			(Const)04
#define		PLOTS			(Const)010
#define		FIGURES			(Const)020
#define		TICMARKS		(Const)0100
#define		TICNUMS			(Const)0200
#define		GRIDMARKS		(Const)0400
#define		AXIS			(Const)01000

typedef struct	pdev	{
	char	*pterm;		/* identifying name of plot device */
	short	mode;		/* info on device capabilities */
	Ptype	xfull;		/* full dimension in device units */
	Ptype	xsquare;	/* x dimension for equal to yfull */
	Ptype	yfull;		/* full dimension in device units */
	float	xwmins;		/*  x0 for plot area in (0,0)->(1,1) units */
	float	xwmaxs;		/*  y0 for plot area in (0,0)->(1,1) units */
	float	ywmins;		/*  x1 for plot area in (0,0)->(1,1) units */
	float	ywmaxs;		/*  y1 for plot area in (0,0)->(1,1) units */
	Ptype	ch;			/* Char height in y device units */
	Ptype	cw;			/* Char width in x device units */
	double	xinches;	/* horizontal size of plot display */
	double	yinches;	/* vertical size of plot display */
	} *PTERM;

typedef	union	{
	double	*d;
	long	*l;
	Boolean	*b;
	char	**s;
	char	*c;
	}	PtrUnion;


typedef	enum {	fullInit }	Mode;


COMMON	PTERM	p;

COMMON	double	dn(), default_ps SVAL(DEFAULT_PS),
		chhtscl SVAL(1), chwdscl SVAL(1),
		fscl SVAL(FDEFAULT), xdim SVAL(FDEFAULT),
		ydim SVAL(FDEFAULT), xorig SVAL(FDEFAULT), yorig SVAL(FDEFAULT),
		oldGrayLevel SVAL(-1), old_ps SVAL(-1), old_lw SVAL(-1);

COMMON	Ptype	chht, chwd, xinch, yinch;

COMMON	short	omode SVAL(ERASE|TITLES|LABELS|PLOTS|FIGURES);

COMMON	Boolean	fixed_font SVAL(DEFAULT);

COMMON	char	*pterm, *old_font, *old_lm SVAL(""), *programName;


void	PROTO( assert, (char *,char *,int) );


double	DoubleNum();
long	LongNum();
char	*zmem(), *azmem(), *StringSave();