blob: 7c40d1b712b604370d18b0bd21d4500b5b22007c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gki.h>
include <gio.h>
# GAMOVE -- Absolute move. Move the pen to the indicated position in
# preparation for a draw.
procedure gamove (gp, x, y)
pointer gp # graphics descriptor
real x, y # new position of pen
include "gpl.com"
begin
if (op > 1)
call gpl_flush()
if (IS_INDEF(x) || IS_INDEF(y)) {
# Set current position to indefinite.
cx = INDEF
cy = INDEF
} else {
# Set current position to (x,y) in GKI coordinates.
call gpl_wcstogki (gp, x, y, cx, cy)
}
end
|
