Previous: symds Up: ../plot79_s.html Next: symex3
SUBROUTINE SYMEX (TEXT,ISTART,LENTXT,WCLEN)
C$ (String Extent)
C$ Find plotted length of a text string. The current
C$ orientation and size attributes for text are assumed. The
C$ current point determines the location where the text is
C$ drawn, and is unchanged on return. The string then
C$ terminates at the point (Current Point) + WCLEN*(Path Unit
C$ Vector), assuming default string justification. This
C$ information may be useful for concatenation of successive
C$ text strings. The arguments are:
C$
C$ TEXT(*).....INTEGER array or Hollerith string defining
C$ characters to be plotted.
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$ WCLEN.......Length of string in world coordinate units.
C$
C$ (29-JAN-83)