Esope source files

   1 : C TBAFF     SOURCE    CHAT      05/01/13    03:32:28     5004           
   2 : c subroutine utilisee dans tableau
   3 : ***************************************************
   4 : *
   5 : *  AFFICHE LA PAGE IPX * IPY
   6 : *
   7 : ***************************************************
   8 :         SUBROUTINE TBAFF (IPX, IPY, TABTR)
   9 : 
  10 : *
  11 : *  DEFINITION DES VARIABLES
  12 : *
  13 :       IMPLICIT INTEGER(I-N)
  14 : -INC TMNTAB
  15 :         INTEGER         IPX,IPY
  16 :         INTEGER         IEX,IEY,IX,IY,IXD,IYD
  17 :         INTEGER         IDEBY,IDEBX,IFINY,IFINX
  18 :         LOGICAL         ZHTMP,ZVTMP
  19 :         INTEGER         ICOUL
  20 : *
  21 : *  INITIALISATION DE LA NOUVELLE PAGE
  21 :         CALL TBEFF
  22 : *
  23 : *  AFFICHAGE DU LOGO SI NECESSAIRE
  24 :         ICOUL = TABTR.ILOGC
  25 :         IF  (TABTR.ZLOGO) THEN
  25 :           CALL NLOGO (ICOUL,TABTR.XLPOS,TABTR.YLPOS,TABTR.TLOGO)
  26 :         ENDIF
  27 : *
  28 : *  AFFICHER LES CASES DE LA PAGE IPX,IPY
  29 :         IDEBY = TABTR.CSGY  (IPX,IPY)
  30 :         IDEBX = TABTR.CSGX  (IPX,IPY)
  31 :         IFINY = TABTR.CIDY  (IPX,IPY)
  32 :         IFINX = TABTR.CIDX  (IPX,IPY)
  33 :         IXD   = TABTR.IHDEC (IPX,IPY)
  34 :         IYD   = TABTR.IVDEC (IPX,IPY)
  35 :         IY = 5 + TABTR.IHTCOL + IYD
  36 :         DO 1020 IEY=IDEBY , IFINY
  37 :           IX=2+IXD
  38 :           DO 1010 IEX=IDEBX , IFINX
  39 :             IF  ( (IEY.EQ.IFINY).AND.TABTR.ZAULIG) THEN
  40 :               ZHTMP = TABTR.ZHSEP (IEX,IEY+1)
  41 :               TABTR.ZHSEP (IEX,IEY+1)=.TRUE.
  41 :         CALL TBAFN  ( IEX, IEY, IX, IY, TABTR )
  42 :               TABTR.ZHSEP (IEX,IEY+1) = ZHTMP
  43 :             ENDIF
  44 :             IF  ( (IEX.EQ.IFINX).AND.TABTR.ZAULIG) THEN
  45 :               ZVTMP = TABTR.ZVSEP (IEX+1,IEY)
  46 :               TABTR.ZVSEP (IEX+1,IEY)=.TRUE.
  46 :         CALL TBAFN  ( IEX, IEY, IX, IY, TABTR )
  47 :               TABTR.ZVSEP (IEX+1,IEY) = ZVTMP
  48 :             ENDIF
  48 :         CALL TBAFN  ( IEX, IEY, IX, IY, TABTR )
  49 :             IX = IX + 1
  50 : 1010      CONTINUE
  51 :           IY = IY + 1
  52 : 1020    CONTINUE
  53 : *
  54 : *  AFFICHAGE DES TITRES
  54 :         CALL TBAFNT ( IPX, IPY, TABTR )
  55 : *
  56 : *  MEMORISATION POUR L'IMPRESSION
  56 :         CALL MAJSEG (1,0,0,0,0)
  57 : 
  58 :         END
  59 : 
  60 :  
  61 :