source: buchla-68k/ram/setgc.c@ fa38804

Last change on this file since fa38804 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
Line 
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
8#include "ram.h"
9
10/*
11 =============================================================================
12 setgc() -- set graphics cursor
13 =============================================================================
14*/
15
16void setgc(int16_t xv, int16_t yv)
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
41void settc(int16_t rv, int16_t cv)
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}
59
Note: See TracBrowser for help on using the repository browser.