Author: manolo
Date: 2010-03-17 10:23:41 -0700 (Wed, 17 Mar 2010)
New Revision: 7289
Log:
PostScript text output: text is now rendered altering the spacing between
characters
Modified:
branches/branch-1.3/src/Fl_PS_Printer.cxx
Modified: branches/branch-1.3/src/Fl_PS_Printer.cxx
===================================================================
--- branches/branch-1.3/src/Fl_PS_Printer.cxx 2010-03-17 14:40:31 UTC (rev
7288)
+++ branches/branch-1.3/src/Fl_PS_Printer.cxx 2010-03-17 17:23:41 UTC (rev
7289)
@@ -176,14 +176,11 @@
// 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 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
-//"/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
-
;
_______________________________________________
fltk-commit mailing list
[email protected]
http://lists.easysw.com/mailman/listinfo/fltk-commit
