1. PN4000 online help
2. Variant
3. System
4. Variant info
5. Routines
6. Functions for bending lines
7. Add bend line (point definition of the bend line)

Add bend line (point definition of the bend line)

C call:

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

C     

C     The following variables must be defined beforehand:

C     

C     IN    : Bend number

C     IP    : 1 = Start point, 2 = End point

C     XP,YP : Coordinate of the point

C     IRET  : is not evaluated, but must be specified

C     

C     Example:

C     

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

C->      2  Cutout 2 deg frdm

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)