Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / gdraw / gdxzoo.F
CommitLineData
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)
13C.
14C. ******************************************************************
15C. * *
16C. * Zoom by the factors ZOOMFU,ZOOMFV *
17C. * around screen coordinates UUZ0,VVZ0 *
18C. * and places the resulting picture at UU0,VV0 *
19C. * *
20C. * After GDZOOM has been called, any drawing operation *
21C. * will actually draw accordingly to last GDZOOM parameters *
22C. * *
23C. * If ZOOMFU or ZOOMFV is 0 (or negative) the zoom *
24C. * parameters (GZUA,...,GZVC in common GCDRAW) are reset *
25C. * *
26C. * It is now possible to show in different windows the *
27C. * `zoomed-views' obtained just clicking in different *
28C. * points of the main picture or of the zoomed-pictures *
29C. * *
30C. * ==>Called by : <USER>, <GXINT> *
31C. * Author: S. Giani *
32C. * *
33C. ******************************************************************
34C.
35#include "geant321/gcdraw.inc"
36C.
37C. ------------------------------------------------------------------
38C.
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
89C
90 END