Article View: comp.lang.postscript
Article #7638(Re: Postscript code to display a font) Bugfix1
From: Anders Ulfheden
Date: Tue, 22 Nov 1988 12:43
Date: Tue, 22 Nov 1988 12:43
43 lines
1597 bytes
1597 bytes
In article <648@draken.nada.kth.se> ulfis@nada.kth.se (Anders Ulfheden) writes:
> /nstr 1 string def
> /fontsiz fontsiz 1.2 mul def
> Displayfont findfont fontsiz scalefont setfont
> 0 1 7
> {
> /xx exch def
> /xpos xx vspace mul vspace 2 div add minwidth add def
> 0 1 31
> {
> /yy exch def
> /ypos yy hspace mul hspace 2 div add neg maxheight add
> fontsiz fontlift div neg add def
> xx yy
> 8 mul add
> nstr 0
Bugfix1:
/nstr 1 string def
/fontsizDisp fontsiz 1.2 mul def
Displayfont findfont fintsizDisp scalefont setfont
0 1 7
{
/xx exch def
/xpos xx vspace mul vspace 2 div add minwidth add def
0 1 31
{
/yy exch def
/ypos yy hspace mul hspace 2 div add neg maxheight add
fintsizDisp fontlift div neg add def
xx yy
8 mul add
nstr 0
3 -1 roll
Thanks to Hans Eriksson (hans@ditmela.oz.au).
+------------------------------------------------------------------------------
| Anders Ulfheden
| USENET: ulfis@nada.kth.se
| Royal Institute of Technology
| Stockholm, Sweden
Technical Details
Message-ID:
<651@draken.nada.kth.se>Path:
arc1-ca.pugleaf.net!utzoo!attcan!uunet!mcvax!enea!kth!draken!ulfisReferences:
<10987@dartvax.Dartmouth.EDU> <648@draken.nada.kth.se>Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!attcan!uunet!mcvax!enea!kth!draken!ulfis From: ulfis@nada.kth.se (Anders Ulfheden) Newsgroups: comp.lang.postscript Subject: (Re: Postscript code to display a font) Bugfix1 Message-ID: <651@draken.nada.kth.se> Date: 22 Nov 88 12:43:53 GMT References: <10987@dartvax.Dartmouth.EDU> <648@draken.nada.kth.se> Reply-To: ulfis@nada.kth.se (Anders Ulfheden) Organization: Royal Institute of Technology, Stockholm, Sweden Lines: 43