Generating a triangle with a triangle tool with 3 points (Salvagnini-IST)

C call:

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

C     

C     The following variables must be defined beforehand:

C     

C     SON     : ID number of the tool

C     RXS,RYS : Apex of the triangle

C     RX1,RY1 : First corner point of the triangle

C     RX2,RY2 : Second corner point of the triangle

C     DL      : Length of the triangle

C     IW      : Direction of the nibbling sequence

C     IZ      : Nibbling type code

C     RV      : Overlap

C     IRET   : is not evaluated, but must be specified

C     

C     NOTE: The text variable SON must be declared in the program header!

C     CHARACTER *20 SON

C     

C     Example:

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

C     Triangle with 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)