/*
   =============================================================================
	setgc.c -- set cursors and keep them in sync
	Version 2 -- 1988-08-19 -- D.N. Lynx Crowe
   =============================================================================
*/

#include "all.h"

extern	int16_t	infield(int16_t row, int16_t col, struct fet *fetp);

extern	int16_t gcurpos(int16_t xloc, int16_t yloc);
extern	void itcpos(int16_t row, int16_t col);

extern	int16_t	cmtype;
extern	int16_t	cxval;
extern	int16_t	cyval;
extern	int16_t	sgcsw;
extern	int16_t	stccol;
extern	int16_t	stcrow;

/*
   =============================================================================
	setgc() -- set graphics cursor
   =============================================================================
*/

void setgc(int16_t xv, int16_t yv)
{
	gcurpos(xv, yv);

	cxval  = xv;
	cyval  = yv;

	stcrow = yv / 14;
	stccol = xv >> 3;

	sgcsw  = TRUE;
	cmtype = CT_GRAF;

	if (infield(stcrow, stccol, curfet))
		cfetp = infetp;
	else
		cfetp = (struct fet *)NULL;
}

/* 
*/

/*
   =============================================================================
	settc() -- set text cursor
   =============================================================================
*/

void settc(int16_t rv, int16_t cv)
{
	itcpos(rv, cv);

	stcrow = rv;
	stccol = cv;

	cyval  = rv * 14;
	cxval  = cv << 3;

	sgcsw  = FALSE;
	cmtype = CT_TEXT;

	if (infield(stcrow, stccol, curfet))
		cfetp = infetp;
	else
		cfetp = (struct fet *)NULL;
}