%N pgptxt %F $MIR/src/pgptxt.f
%D Write text at arbitrary position and angle
%B
      SUBROUTINE PGPTXT (X, Y, ANGLE, FJUST, TEXT)
      REAL X, Y, ANGLE, FJUST
      CHARACTER*(*) TEXT

 Primitive routine for drawing text. The text may be drawn at any
 angle with the horizontal, and may be centered or left- or right-
 justified at a specified position.  Routine PGTEXT provides a
 simple interface to PGPTXT for horizontal strings. Text is drawn
 using the current values of attributes color-index, line-width,
 character-height, and character-font.  Text is NOT subject to
 clipping at the edge of the window.

 Arguments:
  X      (input)  : world x-coordinate.
  Y      (input)  : world y-coordinate. The string is drawn with the
                    baseline of all the characters passing through
                    point (X,Y); the positioning of the string along
                    this line is controlled by argument FJUST.
  ANGLE  (input)  : angle, in degrees, that the baseline is to make
                    with the horizontal, increasing counter-clockwise
                    (0.0 is horizontal).
  FJUST  (input)  : controls horizontal justification of the string.
                    If FJUST = 0.0, the string will be left-justified
                    at the point (X,Y); if FJUST = 0.5, it will be
                    centered, and if FJUST = 1.0, it will be right
                    justified. [Other values of FJUST give other
                    justifications.]
  TEXT   (input)  : the character string to be plotted.
