Context Navigation

setgc.c@ 572daa7

Last change on this file since 572daa7 was fa38804, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Removed form-feed comments.
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	settc() -- set text cursor
	38	=============================================================================
	39	*/
	40
[7258c6a]	41	void settc(int16_t rv, int16_t cv)
[f40a309]	42	{
	43	itcpos(rv, cv);
	44
	45	stcrow = rv;
	46	stccol = cv;
	47
	48	cyval = rv * 14;
	49	cxval = cv << 3;
	50
	51	sgcsw = FALSE;
	52	cmtype = CT_TEXT;
	53
	54	if (infield(stcrow, stccol, curfet))
	55	cfetp = infetp;
	56	else
	57	cfetp = (struct fet *)NULL;
	58	}
[6262b5c]	59

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