*** empty log message ***

2 files changed, 6 insertions, 6 deletions

diff --git a/src/bltGrPSOutput.C b/src/bltGrPSOutput.C
index 1833477..dbfed5e 100644
--- a/src/bltGrPSOutput.C
+++ b/src/bltGrPSOutput.C
@@ -815,10 +815,12 @@ void PostScript::prolog()
 "} def\n"
 "\n"
 "/DrawText {\n"
+"  gsave\n"
+"  /strings exch def\n"
 "  translate\n"
 "  neg rotate\n"
 "  0 0 moveto\n"
-"  {\n"
+"  strings {\n"
 "    {\n"
 "      gsave\n"
 "      1 -1 scale\n"
@@ -826,6 +828,7 @@ void PostScript::prolog()
 "      grestore\n"
 "    } forall\n"
 "  } forall\n"
+"  grestore\n"
 "} bind def \n"
 "\n"
 "/EndText {\n"
diff --git a/src/bltGrText.C b/src/bltGrText.C
index e3cdb77..d2f0fd3 100644
--- a/src/bltGrText.C
+++ b/src/bltGrText.C
@@ -142,17 +142,14 @@ void TextStyle::printText(PostScript* psPtr, const char *text, int x, int y)
 					      ops->justify, 0, &w1, &h1);
 
   // cerr << '(' << x << ',' << y << ')' << ' ' << text << endl;
-  psPtr->append("gsave\n");
-  psPtr->format("[\n");
-  //  psPtr->format("%g %g %g [\n", ops->angle, x, y);
+  psPtr->format("%g %d %d [\n", ops->angle, x, y);
   Tcl_ResetResult(graphPtr_->interp_);
   Tk_TextLayoutToPostscript(graphPtr_->interp_, layout);
   const char* ss = Tcl_GetStringResult(graphPtr_->interp_);
   psPtr->append(ss);
   Tcl_ResetResult(graphPtr_->interp_);
-  psPtr->format("] %g %d %d DrawText\n", ops->angle, x, y);
+  psPtr->format("] DrawText\n");
   //  psPtr->format("] %d %g %g %s %s DrawText\n", fm.linespace, xx/-2.0, yy/2.0, justify, "false");
-  psPtr->append("grestore\n");
 
 #if 0
   double w2, h2;