PostScript text output: text is now rendered altering the spacing between characters

git-svn-id: file:///fltk/svn/fltk/branches/branch-1.3@7289 ea41ed52-d2ee-0310-a9c1-e6b18d33e121

1 files changed, 4 insertions, 7 deletions

diff --git a/src/Fl_PS_Printer.cxx b/src/Fl_PS_Printer.cxx
index 82f0bd921..ac6bdca6b 100644
--- a/src/Fl_PS_Printer.cxx
+++ b/src/Fl_PS_Printer.cxx
@@ -176,13 +176,10 @@ static const char * prolog =
 // show at position with desired width
 // usage:
 // width (string) x y show_pos_width
-"/show_pos_width {GS moveto dup stringwidth pop 3 2 roll exch div -1 matrix scale concat "
-"show GR } bind def\n"
-
-//"/show_pos_width {GS moveto dup stringwidth pop 3 2 roll exch div "
-//"dup 0.85 lt {pop 0.85} if "
-//"dup /sx exch def -1 matrix scale concat "
-//"show 8 FS sx 10 string cvs 0 4 getinterval 0 -3 rmoveto show GR } bind def\n" // displays also scaling value
+"/show_pos_width {GS moveto dup dup stringwidth pop exch length exch 3 index exch sub exch "
+"div 0 2 index 1 -1 scale ashow pop pop GR} bind def\n" // spacing altered to match desired width
+//"/show_pos_width {GS moveto dup stringwidth pop 3 2 roll exch div -1 matrix scale concat "
+//"show GR } bind def\n" // horizontally scaled text to match desired width
 
 ;