Previous: symtx Up: ../plot79_s.html Next: symtxb
SUBROUTINE SYMTX3 (TEXT,ISTART,LENTXT,PL3)
C$ (Text - Curvilinear Coordinates)
C$ Plot a text string in curvilinear coordinates. The
C$ 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$ PL3.........3-D pen movement routine, generally PL3CA.
C$
C$ The string is drawn in a box lying along the current
C$ character path with the current point positioned according
C$ to the current character justification attributes. the
C$ current point on return is the same as on entry.
C$ (11-SEP-85)