/*****************************************************************/
/*							         */
/*   Copyright (c) Quinn-Curtis, 1991, 1992                      */
/*							         */
/*   Filename:  RTSTDHDR.H                                       */
/*   Revision:  3.0                                              */
/*   Date:      2/3/92                                           */
/*							         */
/*   Description: -Routines for virtual arrays                   */
/*     	          -Standard numeric types, arrays structures     */
/*                -Defines the font directory used in demos 	 */
/*****************************************************************/
#ifdef __cplusplus
extern "C" {
#endif


#ifndef stdhdrdefs

#define INC_RTGRAPH 1
#define INC_RTBARGR 1
#define INC_RTMETER 1
#define INC_RTTEXT  1
#define INC_RTCHART 1
#define INC_RTMOUSE 1
#define INC_PRNSUPPORT 1

#define M_PI  3.14159265358979323846

/* used in C++ versions */
#define defaultfontdir "c:\\c600\\source\\samples\\*.fon" /* default dir for *.fon */

#define realtype double             /* defines the numeric type used */
#define memoryleft coreleft
typedef realtype far *realpntr;
typedef struct {unsigned modef,mr, mc;
		realpntr *mpntr; } matstruct;
#define stdhdrdefs
#endif

/* miscellaneous routines */
void gettime(int *hours, int *minutes, int *seconds, int *hundr);
void gotoxy(int x,int y);
void clrscr(void);
void rtdelay(int d);
int random(int rd);
long coreleft(void);
void heapdump( char fill );
void heapstat( int status );
realtype rtpowercalc( realtype realnum, realtype power);
realtype rtrandom(void);

int heapoverflow(long size);
realtype getpntrreal(realtype far *p, unsigned int n);
void putpntrreal(realtype far *p, unsigned int n, realtype r);
int getpntrint(int far *p, unsigned int n);
void putpntrint(int far *p, unsigned int n, int i);
char getpntrbyte(char far *p, unsigned int n);
void putpntrbyte(char far *p, unsigned int n, char value);

void defmat(matstruct far *m, unsigned int r, unsigned int c, int *err);
int getmaterror();
void freemat(matstruct far *m);
void wrmat(matstruct far *m, unsigned int r, unsigned int c, realtype v);
realtype rdmat(matstruct far *m, unsigned int r, unsigned int c);
void cpypntr2matcol(realtype far *p, unsigned int n,
			 matstruct far *m, unsigned int c);
void cpypntr2matrow(realtype far *p, unsigned int n,
		    matstruct far *m, unsigned int r);
void cpymat2pntr(matstruct *m, unsigned c, realtype *p, unsigned n);
#ifdef __cplusplus
}
#endif