Créer un triangle avec un outil triangulaire avec point et 2 angles (Salvagnini-IST)

C     Appel :

C     PVB403 (SON,RXS,RYS,RW1,RW2,DL,IW,IZ,RV,IRET)

C     

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

C     RXS,RYS = sommet du triangle

C     RW1     = premier angle du triangle

C     RW2     = deuxième angle du triangle

C     DL      = longueur du triangle

C     IW      = séquence de grignotage

C     IZ      = 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 avec point et 2 angles

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

      SON = "TRIANGLE"

      RXS = 70.15

      RYS = 62.0

      RW1 = 152.375

      RW2 = -6.75

      DL = 80.2

      IW = 1

      IZ = 2

      RV = 0.5

      CALL PVB403 (SON,RXS,RYS,RW1,RW2,DL,IW,IZ,RV,IRET)