From c3375b4bb26c900574efbface80c249b635c191c Mon Sep 17 00:00:00 2001
From: Fritz Elfert <felfert@to.com>
Date: Mon, 4 Mar 2002 01:33:24 +0000
Subject: Implemented images

---
 plpprint/prolog.ps.in | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'plpprint/prolog.ps.in')

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
-- 
cgit v1.2.3