Calculer la parallèle à une ligne

C     Appel :

C     CALL PTH011 (X1,Y1,X2,Y2,RL,ABST,X3,Y3,X4,Y4,LUWRIT,LUREAD)

C     

C     Les variables suivantes doivent être définies au préalable :

C     

C     X1/Y1  : coordonnées X/Y du point 1

C     X2/Y2  : coordonnées X/Y du point 2

C     RL     : côté, vu du premier point au deuxième point

C              -1.0 = gauche

C               1.0 = droite

C     ABST   : Distance

C     X3/Y3  : coordonnées X/Y du point 1 de la parallèle (valeur de retour)

C     X4/Y4  : coordonnées X/Y du point 2 de la parallèle (valeur de retour)

C     LUWRIT : n'est pas évalué, mais doit être spécifié

C     LUREAD : n'est pas évalué, mais doit être spécifié

C     

C     Exemple :

C     ----------------------------------

C     Calculer la parallèle à une ligne

C     ----------------------------------

      X1 = 50.0

      Y1 = 50.0

      X2 = 80.0

      Y2 = 100.0

      RL = -1.0

      ABST = 15.0

      CALL PTH011 (X1,Y1,X2,Y2,RL,ABST,X3,Y3,X4,Y4,LUWRIT,LUREAD)