diff options
author | Fritz Elfert <felfert@to.com> | 2002-03-04 01:33:24 +0000 |
---|---|---|
committer | Fritz Elfert <felfert@to.com> | 2002-03-04 01:33:24 +0000 |
commit | c3375b4bb26c900574efbface80c249b635c191c (patch) | |
tree | 4a0688a395d46a08a36a037a5f10059861c13ae6 /plpprint/prolog.ps.in | |
parent | 848f7edd96f174ff33b366c4f310d73c45b8e842 (diff) | |
download | plptools-c3375b4bb26c900574efbface80c249b635c191c.tar.gz plptools-c3375b4bb26c900574efbface80c249b635c191c.tar.bz2 plptools-c3375b4bb26c900574efbface80c249b635c191c.zip |
Implemented images
Diffstat (limited to 'plpprint/prolog.ps.in')
-rw-r--r-- | plpprint/prolog.ps.in | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/plpprint/prolog.ps.in b/plpprint/prolog.ps.in index 4321eaf..a2e9b52 100644 --- a/plpprint/prolog.ps.in +++ b/plpprint/prolog.ps.in @@ -156,4 +156,21 @@ putinterval def grestore end }bind def +/I{ + 7 dict begin + /rows exch def + /cols exch def + twips /ury exch def + twips /urx exch def + twips /lly exch def + twips /llx exch def + /ibuf cols string def + gsave + llx top lly sub translate + urx llx sub lly ury sub scale + cols rows 8 [cols 0 0 rows neg 0 rows] + {currentfile ibuf readhexstring pop} image + grestore + end +}bind def %%EndResource |