Esope source files

   1 : C TBGTXY    SOURCE    KK2000    05/05/30    21:15:58     5096           
   2 : c subroutine utilisee dans tableau
   3 :         SUBROUTINE TBGTXY (IPX,IPY,TABTR,IX,IY,FX,FY)
   4 : c attend un click de l'utilisateur et renvoie les coordonnées
   5 : c de la case relative et de la case absolues.
   6 :       IMPLICIT INTEGER(I-N)
   7 : -inc TMNTAB
   8 : -INC CCOPTIO                                                                    
   9 :         integer         ipx,ipy
  10 :         integer         ix,iy,fx,fy
  11 :         real          rxpos,rypos
  12 :         integer         ideb,ifin,ih
  13 : *
  13 :         call trdig  (rxpos,rypos,inouse)
  14 :         fx = ((rxpos+3.6)/3.75)
  15 :         if (ZHORIZ) then
  16 :           fy = (-(rypos-21.2)/0.65)
  17 :         else
  18 :           fy = (-(rypos-29.9)/0.65)
  19 :         endif
  20 :         fy = fy + 1
  21 : 
  22 :         ideb = tabtr.csgx (ipx,ipy)
  23 :         ifin = tabtr.cidx (ipx,ipy)
  24 :         dfx  = tabtr.ihdec(ipx,ipy)
  25 :         if (fx.lt.(1+dfx)) ix=0
  26 :         if (fx.eq.(1+dfx)) ix=1
  27 :         if (fx.gt.(1+dfx)) ix=ideb+fx-dfx-2
  28 :         if (ix.gt.ifin+1) ix=0
  29 : 
  30 :         ideb = tabtr.csgy(ipx,ipy)
  31 :         ifin = tabtr.cidy(ipx,ipy)
  32 :         dfy  = tabtr.ivdec(ipx,ipy)
  33 :         ih   = tabtr.ihtcol
  34 :         if (fy.lt.(ih+4+dfy)) iy=0
  35 :         if (fy.eq.(ih+4+dfy)) iy=1
  36 :         if (fy.gt.(ih+4+dfy)) iy=ideb+fy-dfy-5-ih
  37 :         if (iy.gt.ifin+1) iy=0
  38 : 
  39 : *
  40 :         end
  41 :  
  42 :  
  43 :