GEANT321/gdraw/gdxzoo.F

   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