Name:         PGPTXT

Purpose:      write text at arbitrary position and angle

Category:     GRAPHICS

File:         pgplot.src

Author:       T.J. Pearson

Use:          see description below.

Description:

            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.

Updates:      Oct 16, 1998: JPT automatically extracted from source.