GEANT321/gdraw/gdscal.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:27  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 GDSCAL(U0,V0)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *       Draw an unitary length segment at position (U0,V0)       *
  17 C.    *       correspondent to current scale factor GSCU               *
  18 C.    *       and zoom factor GZUA                                     *
  19 C.    *                                                                *
  20 C.    *    ==>Called by : <USER>, <GXINT>, GDSPEC                      *
  21 C.    *       Author : P.Zanarini   *********                          *
  22 C.    *                                                                *
  23 C.    ******************************************************************
  24 C.
  25 #include "geant321/gcdraw.inc"
  26       DIMENSION U(2),V(2)
  27       CHARACTER*8 IUMC
  28 C.
  29 C.    ------------------------------------------------------------------
  30 C.
  31       IF (GSCU*GZUA.LE.0.03) THEN
  32          IUMC='100< CM$'
  33          UML=100.
  34       ELSE IF (GSCU*GZUA.LE.0.3) THEN
  35          IUMC='10 <CM $'
  36          UML=10.
  37       ELSE IF (GSCU*GZUA.LE.3.) THEN
  38          IUMC=' 1 <CM $'
  39          UML=1.
  40       ELSE IF (GSCU*GZUA.LE.30.) THEN
  41          IUMC='0.1<CM $'
  42          UML=0.1
  43       ELSE IF (GSCU*GZUA.LE.300.) THEN
  44          IUMC='100< [M$'
  45          UML=0.01
  46       ELSE IF (GSCU*GZUA.LE.3000.) THEN
  47          IUMC='10 <[M $'
  48          UML=0.001
  49       ELSE
  50          IUMC=' 1<[M $'
  51          UML=0.0001
  52       ENDIF
  53 C
  54       SLEN=UML*GSCU*GZUA
  55 C
  56 C             Normalize to PLTRNX,PLTRNY
  57 C
  58       SLEN=SLEN*MIN(PLTRNX,PLTRNY)/20.
  59 C
  60       DX=SLEN/2.
  61       DY=DX/4.
  62       U(1)=U0-DX
  63       U(2)=U0+DX
  64       V(1)=V0
  65       V(2)=V0
  66       CALL GDRAWV(U,V,2)
  67       U(2)=U0-DX
  68       V(1)=V0+DY
  69       V(2)=V0-DY
  70       CALL GDRAWV(U,V,2)
  71       U(1)=U0+DX
  72       U(2)=U0+DX
  73       CALL GDRAWV(U,V,2)
  74 C
  75       CSIZ=SLEN/4.
  76       VV0=V0+3.*DY
  77       CALL GDRAWT(U0,VV0,IUMC,CSIZ,0.,1,0)
  78 C
  79       END