GEANT321/gdraw/gdopt.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:23  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.26  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GDOPT(IOPTC,IVALC)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *       Set options for the drawing package                      *
  17 C.    *                                                                *
  18 C.    *       IOPTN = option (input)                                   *
  19 C.    *       IVALN = value (input)                                    *
  20 C.    *                                                                *
  21 C.    *    ==>Called by : <USER>, <GXINT>                              *
  22 C.    *       Author : P.Zanarini  J.Salt  S.Giani                     *
  23 C.    *                                                                *
  24 C.    ******************************************************************
  25 C.
  26 #include "geant321/gcdraw.inc"
  27 #include "geant321/gcunit.inc"
  28 #include "geant321/gcspee.inc"
  29 #include "geant321/gcrayt.inc"
  30 #include "geant321/gcvdma.inc"
  31 #include "geant321/gcpixe.inc"
  32 C
  33       CHARACTER*4 IOPTC,IVALC
  34 C.
  35 C.    ------------------------------------------------------------------
  36 C.
  37       CALL UCTOH(IVALC,IVAL,4,4)
  38       IF (IOPTC.EQ.'THRZ') THEN
  39          IF (IVALC.EQ.'ON  ') THEN
  40             ITHRZ=IVAL
  41          ELSE IF (IVALC.EQ.'OFF ') THEN
  42             ITHRZ=IVAL
  43          ELSE IF (IVALC.EQ.'180 ') THEN
  44             ITHRZ=IVAL
  45          ELSE IF (IVALC.EQ.'360 ') THEN
  46             ITHRZ=IVAL
  47          ELSE
  48             WRITE (CHMAIL,10200) IOPTC,ITHRZ
  49             CALL GMAIL(0,0)
  50          ENDIF
  51       ELSE IF (IOPTC.EQ.'PROJ') THEN
  52          IF (IVALC.EQ.'PARA') THEN
  53             IPRJ=IVAL
  54          ELSE IF (IVALC.EQ.'PERS') THEN
  55             IPRJ=IVAL
  56          ELSE
  57             WRITE (CHMAIL,10200) IOPTC,IPRJ
  58             CALL GMAIL(0,0)
  59          ENDIF
  60       ELSE IF (IOPTC.EQ.'TRAK') THEN
  61          IF (IVALC.EQ.'LINE') THEN
  62             ITRKOP=IVAL
  63          ELSE IF (IVALC.EQ.'POIN') THEN
  64             ITRKOP=IVAL
  65          ELSE
  66             WRITE (CHMAIL,10200) IOPTC,ITRKOP
  67             CALL GMAIL(0,0)
  68          ENDIF
  69 *JS
  70       ELSE IF (IOPTC.EQ.'HIDE') THEN
  71          IF (IVALC.EQ.'ON  ') THEN
  72             IHIDEN=IVAL
  73          ELSE IF (IVALC.EQ.'OFF ') THEN
  74             IHIDEN=IVAL
  75          ELSE
  76             WRITE (CHMAIL,10200) IOPTC,IHIDEN
  77             CALL GMAIL(0,0)
  78          ENDIF
  79 *JS
  80 **SG
  81       ELSE IF (IOPTC.EQ.'SHAD') THEN
  82          IF (IVALC.EQ.'ON  ') THEN
  83             LEP=10
  84          ELSE IF (IVALC.EQ.'OFF ') THEN
  85             LEP=1
  86          ENDIF
  87
  88       ELSE IF (IOPTC.EQ.'EDGE') THEN
  89          IF (IVALC.EQ.'OFF ') THEN
  90             LLEP=ABS(LEP)
  91             IF(LLEP.EQ.10)LEP=11
  92          ELSE IF (IVALC.EQ.'ON  ') THEN
  93             LLEP=ABS(LEP)
  94             IF(LLEP.EQ.11)LEP=10
  95             IF(LLEP.EQ.1)LEP=1
  96          ENDIF
  97
  98       ELSE IF (IOPTC.EQ.'RAYT') THEN
  99          IF (IVALC.EQ.'ON  ') THEN
 100              RAYTRA=1.
 101              IOMBRA=0
 102 #if defined(CERNLIB_OLD)
 103              RAYTRA=0.
 104 #endif
 105          ELSE IF (IVALC.EQ.'OFF ') THEN
 106              RAYTRA=0.
 107          ENDIF
 108
 109       ELSE IF (IOPTC.EQ.'MAPP') THEN
 110          IF (IVALC.EQ.'0   ') THEN
 111              NMAP=0
 112          ELSE IF (IVALC.EQ.'1   ') THEN
 113              NMAP=1
 114          ELSE IF (IVALC.EQ.'2   ') THEN
 115              NMAP=2
 116          ELSE IF (IVALC.EQ.'3   ') THEN
 117              NMAP=3
 118          ELSE IF (IVALC.EQ.'4   ') THEN
 119              NMAP=4
 120          ENDIF
 121
 122       ELSE IF (IOPTC.EQ.'USER') THEN
 123          IF (IVALC.EQ.'ON  ') THEN
 124              IMYSE=1
 125              CALL GSATT('*   ','SEEN',-10)
 126              CALL GSATT('*   ','COLO',-10)
 127              CALL GSATT('*   ','LSTY',-10)
 128          ELSE IF (IVALC.EQ.'OFF ') THEN
 129              IMYSE=0
 130              CALL GSATT('*   ','SEEN',1)
 131              CALL GSATT('*   ','COLO',1)
 132              CALL GSATT('*   ','LSTY',1)
 133          ENDIF
 134 **SG
 135       ELSE
 136          WRITE (CHMAIL,10000) IOPTC
 137          CALL GMAIL(0,0)
 138          WRITE (CHMAIL,10100)
 139          CALL GMAIL(0,0)
 140       ENDIF
 141 C
 142 10000 FORMAT(' GDOPT: ',A4,' is not a valid option')
 143 *JS
 144 10100 FORMAT('    Valid options : THRZ , PROJ , TRAK , HIDE , SHAD')
 145 *JS
 146 10200 FORMAT(' GDOPT: Option ',A4,' is ',A4)
 147 *SG
 148 10300 FORMAT(' GDOPT: Option ',A4,' is ',A4)
 149 10400 FORMAT(' Please, compute and set the right size of Zebra',
 150      +       ' store, needed for your drawing, with LHC option',
 151      +       ' OFF. If it is done, good luck !!!')
 152 *SG
 153       END
 154