Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / gdraw / gdzoom.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 GDZOOM(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. * ==>Called by : <USER>, <GXINT> *
27C. * Author : P.Zanarini ********* *
28C. * *
29C. ******************************************************************
30C.
31#include "geant321/gcdraw.inc"
32C.
33C. ------------------------------------------------------------------
34C.
35 IF (ZOOMFU.LE.0.OR.ZOOMFV.LE.0) THEN
36 GZUA=1
37 GZVA=1
38 GZUB=0
39 GZVB=0
40 GZUC=0
41 GZVC=0
42 ELSE
43 GZUA=GZUA*ZOOMFU
44 GZVA=GZVA*ZOOMFV
45 GZUB=(GZUB+GZUC)*ZOOMFU
46 GZVB=(GZVB+GZVC)*ZOOMFV
47 GZUC=UU0-UUZ0*ZOOMFU
48 GZVC=VV0-VVZ0*ZOOMFV
49 ENDIF
50C
51 END