blob: 486035b673eea85cdd6fe5890f0b0ac6ff287b14 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gio.h>
# GGVIEW -- Get the viewport of the current WCS.
procedure ggview (gp, x1, x2, y1, y2)
pointer gp # graphics descriptor
real x1, x2 # range of NDC in X (output)
real y1, y2 # range of NDC in Y (output)
pointer w
begin
w = GP_WCSPTR (gp, GP_WCS(gp))
x1 = WCS_SX1(w)
x2 = WCS_SX2(w)
y1 = WCS_SY1(w)
y2 = WCS_SY2(w)
end
|
