sslug-teknik team mailing list archive

["mikkel meinike" <mimeini@xxxxxxxxx>]

> Hvis du vil lege mere med PostScript, så kan jeg anbefale
> Erwin Neutzsky Wulffs bog om Postscript-programmering
> ISBN 87-418-8940-1 (hæftet)
> ISBN 87-418-5725-9 (spiralryg)
Den er noteret

Din løsning på problemet er meget anderledes end den jeg er kommet
frem til, men sådan er det jo med programmering.
/Mikkel

/a {/b exch def /c exch def /d exch def /e d findfont def /f e
maxlength dict def e {exch dup /FID ne {dup /Encoding eq {exch dup
length array copy f 3 1 roll put} {exch f 3 1 roll put} ifelse}
{pop pop} ifelse} forall f /FontName c put b aload pop 6 {f
/Encoding get 3 1 roll put} repeat c f definefont pop} def /g
[8#140 /ae 8#176 /AE 8#135 /oslash 8#175 /Oslash 8#133 /aring
8#173 /Aring] def


/Times-Roman /Times-Roman-Dansk g a
/Times-Roman-Dansk findfont 32 scalefont setfont
100 100 moveto (S}R}VERNES H~SE R{B) show
100 600 moveto (S]r]vernes h`se r[b) show


showpage