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)