Supply a concatstrings PostScript function
To allow postscript documents to work without Ghostscript. svn: r22030
This commit is contained in:
parent
b7f6055af8
commit
fefe1f842a
@ -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'
|
||||||
|
Loading…
Reference in New Issue
Block a user