blob: 81f7b6a3466458514951e675c4ff4b2387f72d88 (
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
28
29
30
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gio.h>
# GSWIND -- Set the window into world coordinates of the current WCS.
procedure gswind (gp, x1, x2, y1, y2)
pointer gp # graphics descriptor
real x1, x2 # range of world coords in X
real y1, y2 # range of world coords in Y
pointer w
begin
call gpl_flush()
w = GP_WCSPTR (gp, GP_WCS(gp))
if (!IS_INDEF(x1))
WCS_WX1(w) = x1
if (!IS_INDEF(x2))
WCS_WX2(w) = x2
if (!IS_INDEF(y1))
WCS_WY1(w) = y1
if (!IS_INDEF(y2))
WCS_WY2(w) = y2
WCS_FLAGS(w) = or (WCS_FLAGS(w), WF_DEFINED)
GP_WCSSTATE(gp) = MODIFIED
call gpl_reset()
end
|
