Faire pivoter un point autour d'un point de rotation

C     Appel :

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

C     

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

C     

C     X1/Y1  : coordonnées du point à pivoter

C     X2/Y2  : coordonnées du point de rotation

C     W      : Angle de rotation

C     X3/Y3  : coordonnées du point pivoté (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     Faire pivoter un point autour d'un point de rotation

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)