blob: 9def0a67dd899d43ef86b7a13d6e826ee97d429c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gki.h>
# GTR_WRITECURSOR -- Write the graphics cursor position in NDC coordinates.
procedure gtr_writecursor (fd, x, y)
int fd # graphics stream
real x, y # NDC coords of cursor
int mx, my
begin
mx = max(0, min(GKI_MAXNDC, nint (x * GKI_MAXNDC)))
my = max(0, min(GKI_MAXNDC, nint (y * GKI_MAXNDC)))
call gki_setcursor (fd, mx, my, 0)
end
|
