Path: 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

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