Ajouter une ligne de pliage (définition des points de la ligne de pliage)

C     Appel :

C     CALL PVB441 (IN,IP,XP,YP,IRET)

C     

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

C     

C     IN    : numéro de pliage

C     IP    : 1 = point de départ, 2 = point final

C     XP,YP : coordonnées du point

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

C     

C     Exemple :

C     

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

C->      2  découpe 2 degré de liberté

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

C     

      INDEX         = INDEX + 1

      RXDEF1(INDEX) =               -5.0000

      RYDEF1(INDEX) =  YMAIN -      50.0000

      RXDEF2(INDEX) =               40.0000

      RYDEF2(INDEX) =  YMAIN -      -5.0000

      IN  = 1

      XP  = RXDEF2(INDEX)

      YP  = YMAIN - 10

      CALL PVB441 (IN,2,XP,YP,IRET)