Punkt um einen Drehpunkt drehen

C     Aufruf:

C     CALL PTH058 (X1,Y1,X2,Y2,W,X3,Y3,LUWRIT,LUREAD)

C     

C     Folgende Variablen müssen zuvor festgelegt werden:

C     

C     X1/Y1  : Koordinate vom Punkt, der gedreht wird

C     X2/Y2  : Koordinate vom Drehpunkt

C     W      : Drehwinkel

C     X3/Y3  : Koordinate vom gedrehten Punkt (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     Einen Punkt um einen Drehpunkt drehen

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

      X1 = 60.0

      Y1 = 50.0

      X2 = 0.0

      Y2 = 0.0

      W  = 30.0

      CALL PTH058 (X1,Y1,X2,Y2,W,X3,Y3,LUWRIT,LUREAD)