ref: 299c7f1973c97de2dc5dfdb66d392c2c98973f74
parent: ab23fc1f6565fff715163acc6e5db0584ddd3536
author: Ali Gholami Rudi <ali@rudi.ir>
date: Sat Aug 3 14:52:20 EDT 2013
ps: put the findfont call near scalefont and setfont calls
--- a/ps.c
+++ b/ps.c
@@ -54,8 +54,9 @@
"/done {/lastpage where {pop lastpage} if} def\n""\n"
"/f {\n"- " dup /font exch def findfont exch\n"
- " dup /ptsize exch def scaling div dup /size exch def scalefont setfont\n"
+ " /font exch def /ptsize exch def\n"
+ " ptsize scaling div /size exch def\n"
+ " font findfont size scalefont setfont\n"
" linewidth ptsize mul scaling 10 mul div setlinewidth\n"
"} bind def\n"
"\n"