blob: 7ed83b31710694d7aee959946109b5dc32750843 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gio.h>
# GSVIEW -- Set the viewport of the current WCS.
procedure gsview (gp, x1, x2, y1, y2)
pointer gp # graphics descriptor
real x1, x2 # range of NDC in X
real y1, y2 # range of NDC in Y
pointer w
begin
w = GP_WCSPTR (gp, GP_WCS(gp))
WCS_SX1(w) = x1
WCS_SX2(w) = x2
WCS_SY1(w) = y1
WCS_SY2(w) = y2
WCS_FLAGS(w) = or (WCS_FLAGS(w), WF_DEFINED)
GP_WCSSTATE(gp) = MODIFIED
call gpl_reset()
end
|
