Ajouter une ligne de pliage (définition principale de la ligne de pliage)

C     Appel :

C     CALL PVB440 (IN,RW,RH,RL,IT,ICL,ICT,R1,R2,R3,I1,I2,I3,BT,IRET)

C     

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

C     

C     IN    : numéro de pliage (1,2,3,...)

C     RW    : angle de pliage (+90.0,-90.0,...)

C     RH    : hauteur du texte pour l'angle de pliage (0=auto)

C     RL    : déplacement du texte (0=centre)

C     IT    : type de texte pour la sortie

C             négatif = dans la ligne, positif = à côté de la ligne

C              100 = numéro de pliage

C               10 = angle de pliage

C                1 = texte de pliage

C              110 = seulement numéro de pliage + angle

C     ICL   : couleur de la ligne de pliage (0=auto)

C     ICT   : couleur du texte (0=auto)

C     R1-R3 : ajout réel (actuellement non utilisé)

C     I1-I3 : ajout entier

C     BT    : texte de pliage

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

C     

C     Exemple :

C     

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

C     BENDING-NR  1

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

C     

      IN = 1

      RW = 90.0

      RH = 10

      RL = 20

      IT = -111

      ICL = 1

      ICT = 5

      R1 = 0.0

      R2 = 0.0

      R3 = 0.0

      I1 = 0

      I2 = 0

      I3 = 0

      BT = ''

      CALL PVB440 (IN,RW,RH,RL,IT,ICL,ICT,R1,R2,R3,I1,I2,I3,BT,IRET)