Context Navigation

setgc.c@ 7af8be4

Last change on this file since 7af8be4 was b28a12e, checked in by Thomas Lopatic <thomas@…>, 8 years ago
Zero redundant declarations.
Property mode set to `100644`
File size: 1.2 KB

Rev	Line
[f40a309]	1	/*
	2	=============================================================================
	3	setgc.c -- set cursors and keep them in sync
	4	Version 2 -- 1988-08-19 -- D.N. Lynx Crowe
	5	=============================================================================
	6	*/
	7
[b28a12e]	8	#include "ram.h"
[f40a309]	9
	10	/*
	11	=============================================================================
	12	setgc() -- set graphics cursor
	13	=============================================================================
	14	*/
	15
[7258c6a]	16	void setgc(int16_t xv, int16_t yv)
[f40a309]	17	{
	18	gcurpos(xv, yv);
	19
	20	cxval = xv;
	21	cyval = yv;
	22
	23	stcrow = yv / 14;
	24	stccol = xv >> 3;
	25
	26	sgcsw = TRUE;
	27	cmtype = CT_GRAF;
	28
	29	if (infield(stcrow, stccol, curfet))
	30	cfetp = infetp;
	31	else
	32	cfetp = (struct fet *)NULL;
	33	}
	34
	35	/*
	36
	37	*/
	38
	39	/*
	40	=============================================================================
	41	settc() -- set text cursor
	42	=============================================================================
	43	*/
[7258c6a]	44
[f40a309]	45	void settc(int16_t rv, int16_t cv)
	46	{
	47	itcpos(rv, cv);
	48
	49	stcrow = rv;
	50	stccol = cv;
	51
	52	cyval = rv * 14;
	53	cxval = cv << 3;
	54
	55	sgcsw = FALSE;
	56	cmtype = CT_TEXT;
	57
	58	if (infield(stcrow, stccol, curfet))
	59	cfetp = infetp;
	60	else
	61	cfetp = (struct fet *)NULL;
[6262b5c]	62	}
	63

Note: See TracBrowser for help on using the repository browser.