Esope source files

   1 : C LINEAX    SOURCE    CHAT      05/01/13    01:18:40     5004           
   2 :       SUBROUTINE LINEAX (TX,TY,BX,IPOINT)                                       
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-S,U-Y)                                             
   5 :       DIMENSION TX(*),TY(*)                                                     
   6 : *                                                                               
   7 : * TX : TABLE DE TAILLE 2 CONTENANT LES COORD. EN X DES EXTREMITES DU            
   8 : *      SEGMENT A TRACER                                                         
   9 : * TY : TABLE DE TAILLE 2 CONTENANT LES COORD. EN Y DES EXTREMITES DU            
  10 : *      SEGMENT A TRACER                                                         
  11 : * BX : BORNE POUR LAQUELLE ON VEUT CALCULER Y                                   
  12 : * IPOINT : EXTREMITE QUE L'ON VEUT LINARISER (1 OU 2)                           
  13 : *                                                                               
  14 :       A=(TY(2)-TY(1))/(TX(2)-TX(1))                                             
  15 :       B=TY(1)-A*TX(1)                                                           
  16 :       TY(IPOINT)=A*BX+B                                                         
  17 :       TX(IPOINT)=BX                                                             
  18 :       END                                                                       
  19 :