Parallele zu einer Linie berechnen

C     Aufruf:

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

C     

C     Folgende Variablen müssen zuvor festgelegt werden:

C     

C     X1/Y1  : X/Y-Koordinate von Punkt 1

C     X2/Y2  : X/Y-Koordinate von Punkt 2

C     RL     : Seite, von ersten Punkt zum zweiten Punkt gesehen

C              -1.0 = links

C               1.0 = rechts

C     ABST   : Abstand

C     X3/Y3  : X/Y-Koordinate von Punkt 1 der Parallelen (Rückgabewert)

C     X4/Y4  : X/Y-Koordinate von Punkt 2 der Parallelen (Rückgabewert)

C     LUWRIT : wird nicht ausgewertet, muss aber angegeben werden

C     LUREAD : wird nicht ausgewertet, muss aber angegeben werden

C     

C     Beispiel:

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

C     Parallele zu einer Linie berechnen

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)