[u/mrichter/AliRoot.git] / GEANT321 / gdraw / gdxzoo.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:29  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.27  by  S.Giani
*-- Author :
      SUBROUTINE GDXZOO(ISEL1,ZOOMFU,ZOOMFV,UUZ0,VVZ0,UU0,VV0)
C.
C.    ******************************************************************
C.    *                                                                *
C.    *       Zoom by the factors ZOOMFU,ZOOMFV                        *
C.    *       around screen coordinates UUZ0,VVZ0                      *
C.    *       and places the resulting picture at UU0,VV0              *
C.    *                                                                *
C.    *       After GDZOOM has been called, any drawing operation      *
C.    *       will actually draw accordingly to last GDZOOM parameters *
C.    *                                                                *
C.    *       If ZOOMFU or ZOOMFV is 0 (or negative) the zoom          *
C.    *       parameters (GZUA,...,GZVC in common GCDRAW) are reset    *
C.    *                                                                *
C.    *       It is now possible to show in different windows the      *
C.    *       `zoomed-views' obtained just clicking in different       *
C.    *       points of the main picture or of the zoomed-pictures     *
C.    *                                                                *
C.    *    ==>Called by : <USER>, <GXINT>                              *
C.    *       Author: S. Giani                                         *
C.    *                                                                *
C.    ******************************************************************
C.
#include "geant321/gcdraw.inc"
C.
C.    ------------------------------------------------------------------
C.
      IF (ZOOMFU.LE.0.OR.ZOOMFV.LE.0) THEN
         GZUA=1
         GZVA=1
         GZUB=0
         GZVB=0
         GZUC=0
         GZVC=0
       ELSE
        II=0
 15     CONTINUE
        II=II+1
        GZUA=1
        GZVA=1
        GZUB=0
        GZVB=0
        GZUC=0
        GZVC=0
        CALL IRQLC(1,2,ISTAT,NT,PX,PY)
        IF(ISTAT.EQ.0)THEN
         DO 16 J=2,II
          CALL ICLWK(J)
 16      CONTINUE
         RETURN
        ENDIF
        IF(ISTAT.EQ.1)THEN
         CALL IDAWK(1)
 17      CONTINUE
         UUZ0=PX
         VVZ0=PY
         GZUA=GZUA*ZOOMFU
         GZVA=GZVA*ZOOMFV
         GZUB=(GZUB+GZUC)*ZOOMFU
         GZVB=(GZVB+GZVC)*ZOOMFV
         GZUC=UU0-UUZ0*ZOOMFU
         GZVC=VV0-VVZ0*ZOOMFV
         CALL IOPWK(II+1,1,II+1)
         CALL IACWK(II+1)
         CALL GDSHOW(ISEL1)
         CALL IRQLC(II+1,2,ISTA2,NT,PX,PY)
         IF(ISTA2.EQ.0)THEN
          CALL IDAWK(II+1)
          CALL IACWK(1)
          GOTO 15
         ELSE
          CALL IDAWK(II+1)
          II=II+1
          GOTO 17
         ENDIF
        ENDIF
      ENDIF
C
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:20:29 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.27 by S.Giani
	11	*-- Author :
	12	SUBROUTINE GDXZOO(ISEL1,ZOOMFU,ZOOMFV,UUZ0,VVZ0,UU0,VV0)
	13	C.
	14	C. ******************************************************************
	15	C. * *
	16	C. * Zoom by the factors ZOOMFU,ZOOMFV *
	17	C. * around screen coordinates UUZ0,VVZ0 *
	18	C. * and places the resulting picture at UU0,VV0 *
	19	C. * *
	20	C. * After GDZOOM has been called, any drawing operation *
	21	C. * will actually draw accordingly to last GDZOOM parameters *
	22	C. * *
	23	C. * If ZOOMFU or ZOOMFV is 0 (or negative) the zoom *
	24	C. * parameters (GZUA,...,GZVC in common GCDRAW) are reset *
	25	C. * *
	26	C. * It is now possible to show in different windows the *
	27	C. * `zoomed-views' obtained just clicking in different *
	28	C. * points of the main picture or of the zoomed-pictures *
	29	C. * *
	30	C. * ==>Called by : <USER>, <GXINT> *
	31	C. * Author: S. Giani *
	32	C. * *
	33	C. ******************************************************************
	34	C.
	35	#include "geant321/gcdraw.inc"
	36	C.
	37	C. ------------------------------------------------------------------
	38	C.
	39	IF (ZOOMFU.LE.0.OR.ZOOMFV.LE.0) THEN
	40	GZUA=1
	41	GZVA=1
	42	GZUB=0
	43	GZVB=0
	44	GZUC=0
	45	GZVC=0
	46	ELSE
	47	II=0
	48	15 CONTINUE
	49	II=II+1
	50	GZUA=1
	51	GZVA=1
	52	GZUB=0
	53	GZVB=0
	54	GZUC=0
	55	GZVC=0
	56	CALL IRQLC(1,2,ISTAT,NT,PX,PY)
	57	IF(ISTAT.EQ.0)THEN
	58	DO 16 J=2,II
	59	CALL ICLWK(J)
	60	16 CONTINUE
	61	RETURN
	62	ENDIF
	63	IF(ISTAT.EQ.1)THEN
	64	CALL IDAWK(1)
65	17 CONTINUE
66	UUZ0=PX
67	VVZ0=PY
68	GZUA=GZUA*ZOOMFU
69	GZVA=GZVA*ZOOMFV
70	GZUB=(GZUB+GZUC)*ZOOMFU
71	GZVB=(GZVB+GZVC)*ZOOMFV
72	GZUC=UU0-UUZ0*ZOOMFU
73	GZVC=VV0-VVZ0*ZOOMFV
74	CALL IOPWK(II+1,1,II+1)
75	CALL IACWK(II+1)
76	CALL GDSHOW(ISEL1)
77	CALL IRQLC(II+1,2,ISTA2,NT,PX,PY)
78	IF(ISTA2.EQ.0)THEN
79	CALL IDAWK(II+1)
80	CALL IACWK(1)
81	GOTO 15
82	ELSE
83	CALL IDAWK(II+1)
84	II=II+1
85	GOTO 17
86	ENDIF
87	ENDIF
88	ENDIF
89	C
90	END