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
31
32
33
34
35
36
37
38
39
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#define import_spp
#define import_libc
#define import_xnames
#include <iraf.h>
/* C_IMDRCUR -- Read the logical image cursor (temporary routine, will be
** phased out in a later release).
*/
int
c_imdrcur (
char *device, /* logical device name or "stdimage" */
float *x, /* cursor X coordinate (out) */
float *y, /* cursor Y coordinate (out) */
int *wcs, /* wcs of coords (out, = frame*100+d_wcs) */
int *key, /* keystroke which triggered read (out) */
char *strval, /* string value, if key=':' */
int maxch, /* max chars out */
int d_wcs, /* 0 for frame coords, 1 for image coords */
int pause /* true to pause for key to terminate read */
)
{
PKCHAR x_strval[SZ_LINE+1];
XINT x_maxch = maxch, x_d_wcs = d_wcs, x_pause = pause;
XINT x_wcs, x_key;
if (IMDRCUR (c_sppstr(device), x, y, &x_wcs, &x_key, x_strval, &x_maxch,
&x_d_wcs, &x_pause) >= 0)
c_strpak (x_strval, strval, maxch);
*wcs = x_wcs;
*key = x_key;
return (*key = (*key == XEOF) ? EOF : *key);
}
|
