Esope source files

   1 : C TBTRXY    SOURCE    CHAT      05/01/13    03:33:50     5004           
   2 : c subroutine utilisee dans tableau
   3 : ***************************************************
   4 : *
   5 : *  MET A JOUR LES VALEURS DE IHDEC ET IVDEC
   6 : *  (pour le centrage du tableau)
   7 : ***************************************************
   8 :         SUBROUTINE TBTRXY ( TABTR , NBPX, NBPY)
   9 : 
  10 : *
  11 : *  DEFINITION DES VARIABLES
  12 : *
  13 :       IMPLICIT INTEGER(I-N)
  14 : -INC TMNTAB
  15 : -INC CCOPTIO                                                                    
  16 :         INTEGER         NBPX,NBPY
  17 :         INTEGER         IHAUT,ILARG
  18 : *
  19 :         DO 200 IX=1 , NBPX
  20 :         DO 100 IY=1 , NBPY
  21 :         IF  (TABTR.ZCTRER) THEN
  22 :           IHAUT = TABTR.IHTCOL + TABTR.CIDY (IX,IY)-TABTR.CSGY (IX,IY)+1
  23 :           ILARG = TABTR.CIDX (IX,IY)-TABTR.CSGX (IX,IY)+2
  24 :           IF  (ZHORIZ) THEN
  25 :             IF  (IHAUT.LT. (26-TABTR.IHTCOL)) THEN
  26 :               TABTR.IVDEC (IX,IY)= (27-IHAUT)/2
  27 :             ELSE
  28 :               TABTR.IVDEC (IX,IY)=0
  29 :             ENDIF
  30 :             IF  (ILARG.LT.7) THEN
  31 :               TABTR.IHDEC (IX,IY)= (8-ILARG)/2
  32 :             ELSE
  33 :               TABTR.IHDEC (IX,IY)=0
  34 :             ENDIF
  35 :           ELSE
  36 :             IF  (IHAUT.LT. (39-TABTR.IHTCOL)) THEN
  37 :               TABTR.IVDEC (IX,IY)= (40-IHAUT)/2
  38 :             ELSE
  39 :               TABTR.IVDEC (IX,IY)=0
  40 :             ENDIF
  41 :             IF  (ILARG.LT.4) THEN
  42 :               TABTR.IHDEC (IX,IY)= (5-ILARG)/2
  43 :             ELSE
  44 :               TABTR.IHDEC (IX,IY)=0
  45 :             ENDIF
  46 :           ENDIF
  47 :         ELSE
  48 :           TABTR.IVDEC (IX,IY)=0
  49 :           TABTR.IHDEC (IX,IY)=0
  50 :         ENDIF
  51 : 100     CONTINUE
  52 : 200     CONTINUE
  53 : *
  54 :         END
  55 :  
  56 :