From 26af092532e817163d82cd2d0210ec1ca2296e56 Mon Sep 17 00:00:00 2001 From: Manolo Gouy Date: Wed, 17 Mar 2010 17:23:41 +0000 Subject: 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 --- src/Fl_PS_Printer.cxx | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) (limited to 'src') 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 ; -- cgit v1.2.3