5 * Revision 1.1.1.1 1995/10/24 10:20:22 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.26 by S.Giani
12 SUBROUTINE GDCURS(U0,V0,MCHAR)
14 C. ******************************************************************
16 C. * When this routine is called in interactive *
17 C. * version of GEANT3 and with PIGS or GKS option set, *
18 C. * it draws on screen the present position of the cursor, *
19 C. * then moving UP-DOWN and LEFT-RIGHT arrows (or similars) *
20 C. * the user goes on the screen point he wants be selected *
21 C. * and press a key (but not <CR>) to hold that point. *
22 C. * If the user types <CR>, it has to press a key again. *
23 C. * The routine returns then in U0,V0 the user coordinates *
24 C. * of the graphics cursor, and in MCHAR the ascii value *
25 C. * of the key pressed. *
27 C. * ==>Called by : <USER>, <GXINT>, GDTREE *
28 C. * Author : P.Zanarini ********* *
30 C. ******************************************************************
32 C. ------------------------------------------------------------------
35 * Request the locator position
37 CALL IRQLC(1,1,ISTAT,ITNR,U0,V0)