*** empty log message ***

1 files changed, 7 insertions, 44 deletions

diff --git a/src/bltGrPSOutput.C b/src/bltGrPSOutput.C
index 7f12e07..639aa5c 100644
--- a/src/bltGrPSOutput.C
+++ b/src/bltGrPSOutput.C
@@ -625,7 +625,7 @@ void PostScript::prolog()
 "/DrawSymbolProc 0 def			% Routine to draw symbol outline/fill\n"
 "/StippleProc 0 def			% Stipple routine (bar segments)\n"
 "/DashesProc 0 def			% Dashes routine (line segments)\n"
-"  \n"
+"\n"
 "% Define the array ISOLatin1Encoding (which specifies how characters are \n"
 "% encoded for ISO-8859-1 fonts), if it isn't already present (Postscript \n"
 "% level 2 is supposed to define it, but level 1 doesn't). \n"
@@ -881,55 +881,18 @@ void PostScript::prolog()
 "  % so that the origin is at the baseline and positioning point for\n"
 "  % the first line of text.\n"
 "  justify lineLength mul baseline neg translate\n"
+"  % Iterate over each of the lines to output it.  For each line,\n"
+"  % compute its width again so it can be properly justified, then\n"
+"  % display it.\n"
 "  strings {\n"
-"   dup cstringwidth pop\n"
-"   justify neg mul 0 moveto\n"
-"   cstringshow\n"
-" %   {\n"
-" %     gsave\n"
-" %     1 -1 scale\n"
-" %     show\n"
-" %     grestore\n"
-" %   } forall\n"
+"    dup cstringwidth pop\n"
+"    justify neg mul 0 moveto\n"
+"    cstringshow\n"
 "    0 spacing neg translate\n"
 "  } forall\n"
 "  grestore\n"
 "} bind def \n"
 "\n"
-"/EndText {\n"
-"  %Stack :\n"
-"  grestore\n"
-"} def\n"
-"\n"
-"/BeginText {\n"
-"  %Stack :  w h theta centerX centerY\n"
-"  gsave\n"
-"    % Translate the origin to the center of bounding box and rotate\n"
-"    translate neg rotate\n"
-"    % Translate back to the origin of the text region\n"
-"    -0.5 mul exch -0.5 mul exch translate\n"
-"} def\n"
-"\n"
-"/DrawAdjText {\n"
-"  %Stack : str strWidth x y\n"
-"  moveto				% Go to the text position\n"
-"  exch dup dup 4 2 roll\n"
-"\n"
-"  % Adjust character widths to get desired overall string width\n"
-"  % adjust X = (desired width - real width)/#chars\n"
-"\n"
-"  stringwidth pop sub exch\n"
-"  length div\n"
-"  0 3 -1 roll\n"
-"\n"
-"  % Flip back the scale so that the string is not drawn in reverse\n"
-"\n"
-"  gsave\n"
-"    1 -1 scale\n"
-"    ashow\n"
-"  grestore\n"
-"} def\n"
-"\n"
 "/DrawBitmap {\n"
 "  % Stack: ?bgColorProc? boolean centerX centerY width height theta imageStr\n"
 "  gsave\n"