blob: 4972fb7530479564a551850c1d03c5a3e51d9163 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gio.h>
# GGWIND -- Get the window into world coordinates of the current WCS.
procedure ggwind (gp, x1, x2, y1, y2)
pointer gp # graphics descriptor
real x1, x2 # range of world coords in X (output)
real y1, y2 # range of world coords in Y (output)
pointer w
begin
call gactivate (gp, 0)
w = GP_WCSPTR (gp, GP_WCS(gp))
x1 = WCS_WX1(w)
x2 = WCS_WX2(w)
y1 = WCS_WY1(w)
y2 = WCS_WY2(w)
end
|
