Previous: symex3 Up: ../plot79_s.html Next: symmk
SUBROUTINE SYMJU (STRATR,BOXATR)
C$ (Text Justification Attributes)
C$ When text strings are plotted, it is often useful to be
C$ able to simply achieve right-justification or centering
C$ about a point without burdening the user with the necessary
C$ calculations. Normally, text is plotted starting from the
C$ current point along the requested character path, and
C$ individual character boxes are lined up such that the
C$ baseline corresponding to the bottoms of upper-case letters
C$ lies along the path.
C$
C$ The entire text string may be justified along the path by
C$ selecting one of the following string attributes:
C$
C$ "FIRST" - Current point denotes position of first
C$ character to be drawn.
C$ "OFF" - Same as "FIRST".
C$ "CENTER" - Current point denotes position of center of text
C$ string parallellogram.
C$ "LAST" - Current point denotes position of a character
C$ which would follow the last character to be
C$ drawn.
C$
C$ To move individual character boxes perpendicular to the
C$ path, a box justification attribute may be chosen as
C$ follows:
C$
C$ "BOTTOM" - Boxes shifted so that descenders of lower-case
C$ letters g, p, q, and y just touch the path.
C$ "OFF" - Boxes aligned with upper-case baseline lying
C$ along path. This is the default.
C$ "CENTER" - Boxes aligned with symbol centers lying along
C$ path.
C$ "TOP" - Boxes aligned with tops of upper-case letters
C$ lying along path.
C$
C$ The default positioning corresponds to (STRATR,BOXATR) =
C$ ("FIRST","OFF"). A string will be centered about the
C$ current point if ("CENTER","CENTER") is requested.
C$ Right-justification (as for digits along a vertical axis)
C$ is requested by ("LAST", "OFF").
C$
C$ These strings are provided as the arguments "STRATR" and
C$ "BOXATR". Only the first character is significant and will
C$ be tested, but more may be of course provided. Thus "F",
C$ "FI", "FIRST", and "FOO" will all be interpreted as
C$ "FIRST". The arguments may be either upper-case or
C$ lower-case.
C$ (30-JAN-82)