Supply a concatstrings PostScript function

To allow postscript documents to work without Ghostscript.

svn: r22030
This commit is contained in:
John Ralls 2013-04-20 23:09:26 +00:00
parent b7f6055af8
commit fefe1f842a

View File

@ -123,6 +123,13 @@ class PSDrawDoc(BaseDoc, DrawDoc):
self.file.write( self.file.write(
'%%EndComments\n' '%%EndComments\n'
'/cm { 28.34 mul } def\n' '/cm { 28.34 mul } def\n'
'%% Copied from http://en.wikibooks.org/wiki/PostScript_FAQ#How_to_concatenate_strings.3F, where it\'s attributed to Ghostscript, which might be why it worked originally\n'
'/concatstrings % (a) (b) -> (ab)\n'
' { exch dup length\n'
' 2 index length add string\n'
' dup dup 4 2 roll copy length\n'
' 4 -1 roll putinterval\n'
' } bind def\n'
'% build iso-latin-1 version of a font\n' '% build iso-latin-1 version of a font\n'
'/font-to-iso-latin-1 { % <font> font-to-iso-latin-1 <font>\n' '/font-to-iso-latin-1 { % <font> font-to-iso-latin-1 <font>\n'
'%% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1\n' '%% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1\n'