Generate engraving text

If you want to use this function to output numerical values from real or integer variables, they must first be converted to text. Use the Convert Number to Text (String) function to do this. See also: Convert number to text (string).

C call:

C     CALL PVB471 (RX,RY,RH,ANG,IKONT,TEXT,IREF,IMIR,IRET)

C     

C     The following variables must be defined beforehand:

C     

C     RX,RY : Coordinate for the text reference point

C     RH    : Text height

C     ANG   : Angle of the text

C     TEXT  : Text to be engraved

C     IKONT : Contour type of the engraving

C     IREF  : Reference point for the text

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     IMIR  : Mirror text

C              0 = Text is not mirrored

C              1 = Text is mirrored in the Y direction

C              2 = Text is mirrored in the X direction

C     IRET  : is not evaluated, but must be specified

C     

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

C     CHARACTER *80 TEXT

C     

C     Example:

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

C     Generate engraved text

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

      RX = 100.0

      RY = 100.0

      RH = 10.0

      ANG = 0.0

      IKONT = 19

      IREF = 3

      IMIR = 0

      TEXT = 'ABC123'

      CALL PVB471 (RX,RY,RH,ANG,IKONT,TEXT,IREF,IMIR,IRET)