blob: 2892e397439dbeec00d10c233ba8aea96514ece6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gio.h>
# GSCUR -- Set the current graphics cursor to the position (x,y) in world
# coordinates.
procedure gscur (gp, x, y)
pointer gp # graphics descriptor
real x, y # new position for cursor
real mx, my
begin
call gpl_flush()
call gpl_wcstogki (gp, x, y, mx, my)
call gki_setcursor (GP_FD(gp), nint(mx), nint(my), GP_CURSOR(gp))
end
|
