Re: How change character Metrics?

From	Martin Leese <please@see.Web.for.e-mail.INVALID>
Newsgroups	comp.lang.postscript
Subject	Re: How change character Metrics?
Date	2015-05-15 09:24 -0600
Organization	A noiseless patient Spider
Message-ID	<mj532a$pnt$1@dont-email.me> (permalink)
References	<mj0rb8$qbb$1@dont-email.me> <d187407b-2f2a-47ad-8d8a-e6717b021447@googlegroups.com> <mj2lq6$nd9$1@dont-email.me> <mj34vq$l62$1@dont-email.me>

Show all headers | View raw

Martin Leese wrote:
...
> So my posted code will not work on
> PostScript Level 1 interpreters.
...
> On the other hand, I suspect few people
> care about Level 1 anymore

It seems that I care.  Here is code that
should work even at PostScript Level 1:

%!
% PostScript code to test kerning of font.
%
/tempFont 20 dict def  % Font dictionary
/tempMetrics 2 dict def  % Kerning dictionary
tempMetrics /S [0 570] put
tempMetrics /P [0 520] put

/CenturySchL-Bold findfont {
     exch dup /FID ne {
         exch tempFont 3 1 roll put  % key is not /FID so copy
     } {
         pop pop  % key is /FID so discard
     } ifelse
} forall
tempFont /FontName /SPAMFont put
tempFont /Metrics tempMetrics put
/SPAMFont tempFont definefont
88 scalefont setfont
100 550 moveto (SPAM) show
showpage

Changing the FontName is not necessary.

-- 
Regards,
Martin Leese
E-mail: please@see.Web.for.e-mail.INVALID
Web: http://members.tripod.com/martin_leese/

Thread

How change character Metrics? Martin Leese <please@see.Web.for.e-mail.INVALID> - 2015-05-13 18:48 -0600
  Re: How change character Metrics? luser- -droog <mijoryx@yahoo.com> - 2015-05-13 23:50 -0700
    Re: How change character Metrics? Martin Leese <please@see.Web.for.e-mail.INVALID> - 2015-05-14 11:26 -0600
      Re: How change character Metrics? Martin Leese <please@see.Web.for.e-mail.INVALID> - 2015-05-14 15:45 -0600
        Re: How change character Metrics? Martin Leese <please@see.Web.for.e-mail.INVALID> - 2015-05-15 09:24 -0600
  Re: How change character Metrics? ken <ken@spamcop.net> - 2015-05-14 07:56 +0100
    Re: How change character Metrics? Martin Leese <please@see.Web.for.e-mail.INVALID> - 2015-05-14 11:52 -0600

csiph-web