1. PN4000 online help
2. Variant
3. System
4. Variant info
5. Routines
6. Functions for CAD (text, line, circle, rectangle)
7. Insert rectangle into a variant (CADGEO)

Insert rectangle into a variant (CADGEO)

C call:

C     CALL PVB446 (XP,YP,RB,RH,RA,IC,IT,IRET)

C     

C     The following variables must be defined beforehand:

C     

C     XP/YP : Coordinate for the reference point of the rectangle

C     RB    : Width of the rectangle

C     RH    : Height of the rectangle

C     RA    : Angle of the rectangle

C     IC    : Colour of the rectangle

C     IT    : Reference point

C              0 = centred

C              1 = top right

C              2 = top left

C              3 = bottom left

C              4 = bottom right

C             12 = Reference point upper edge centred

C             23 = Reference point left edge centred

C             34 = Reference point lower edge centred

C             41 = Reference point right edge centred

C     IRET  : is not evaluated, but must be specified

C     

C     Example:

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

C     Generate rectangle

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

      XP = 150.0

      YP = 250.0

      RB = 110.0

      RH = 85.0

      RA = 0.0

      IC = 3

      IT = 0

      CALL PVB446 (XP,YP,RB,RH,RA,IC,IT,IRET)