Previous: symds Up: ../plot79_s.html Next: symex3


SYMEX

       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)