Créer un triangle avec un outil triangulaire à 3 points (Salvagnini-IST)

C     Appel :

C     CALL PVB402 (SON,RXS,RYS,RX1,RY1,RX2,RY2,DL,IW,IZ,RV,IRET)

C     

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

C     

C     SON     : numéro d'identification de l'outil

C     RXS,RYS : sommet du triangle

C     RX1,RY1 : premier angle du triangle

C     RX2,RY2 : deuxième angle du triangle

C     DL      : longueur du triangle

C     IW      : direction de la séquence de grignotage

C     IZ      : code du type de grignotage

C     RV      : Chevauchement

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

C     

C     NOTE : La variable de texte SON doit être déclarée dans l'en-tête du programme !

C     CHARACTER *20 SON

C     

C     Exemple :

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

C     triangle à 3 points

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

      SON = "TRIANGLE"

      RXS = 70.15

      RYS = 62.0

      RX1 = 0.0

      RY1 = 98.7

      RX2 = 0.0

      RY2 = 53.3

      DL = 80.2

      IW = 1

      IZ = 2

      RV = 0.5

      CALL PVB402 (SON,RXS,RYS,RX1,RY1,RX2,RY2,DL,IW,IZ,RV,IRET)