Previous: symsz Up: ../plot79_s.html Next: symtx3
SUBROUTINE SYMTX (TEXT,ISTART,LENTXT)
C$ (Symbol Text)
C$ Plot a text string. The current orientation and size
C$ attributes for text are assumed. The current point
C$ determines the location where the text is drawn, and is
C$ unchanged on return. The arguments are:
C$
C$ TEXT(*).....INTEGER array or Hollerith string defining
C$ characters to be plotted. For convenience,
C$ leading and trailing blanks are ***IGNORED***
C$ when justifying the text left, right, or
C$ centered. In the rare cases where such blanks
C$ are required, a substitution character should
C$ be defined to be equivalent to one of the
C$ Hershey blank characters.
C$ ISTART......Index of starting character in TEXT(*),
C$ counting from 1 from the left. If LENTXT .LT.
C$ 0, this indicates that symbol numbers begin in
C$ TEXT(ISTART).
C$ LENTXT......Number of characters in TEXT(*) to plot. If
C$ LENTXT .GT. 0, TEXT(*) contains packed
C$ Hollerith characters. If LENTXT .LT. 0, then
C$ TEXT(*) contains IABS(LENTXT) Hershey symbol
C$ numbers (one/word) defining the characters to
C$ be plotted. only the first "MAXSYM" (=150)
C$ characters will be plotted if a packed string
C$ is passed. This restriction arises from the
C$ dimension of NUMSYM(*) below, and may be easily
C$ changed if required.
C$
C$ (11-SEP-85)