From a400842baa8cc52d6c526070a89e5688b2f65f6d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 25 Jul 1991 01:07:09 +0000
Subject: [PATCH] Addition of operations and procedures to manipulate image and
 colormap datatypes.  Requires microcode version 11.89 or later.

---
 v7/src/runtime/runtime.pkg | 18 +++++++++++++++++-
 v8/src/runtime/runtime.pkg | 18 +++++++++++++++++-
 2 files changed, 34 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index d2c9d0339..155d35aa6 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.112 1991/07/09 00:50:15 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.113 1991/07/25 01:07:09 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -2006,6 +2006,7 @@ MIT in each case. |#
 	  graphics-close
 	  graphics-coordinate-limits
 	  graphics-device-coordinate-limits
+	  graphics-device/properties
 	  graphics-disable-buffering
 	  graphics-drag-cursor
 	  graphics-draw-line
@@ -2031,8 +2032,23 @@ MIT in each case. |#
   (export ()
 	  x-close-all-displays
 	  x-close-display
+	  x-colormap/allocate-color
+	  x-colormap/free
+	  x-colormap/query-color
+	  x-colormap/store-color
+	  x-colormap/store-colors
+	  x-colormap?
 	  x-geometry-string
 	  x-graphics-device-type
+	  x-image/destroy
+	  x-image/draw
+	  x-image/draw-subimage
+	  x-image/fill-from-byte-vector
+	  x-image/get-pixel
+	  x-image/height
+	  x-image/set-pixel
+	  x-image/width
+	  x-image?
 	  x-open-display)
   (initialization (initialize-package!)))
 
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 5b78a1602..acc630ead 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.112 1991/07/09 00:50:15 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.113 1991/07/25 01:07:09 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -2006,6 +2006,7 @@ MIT in each case. |#
 	  graphics-close
 	  graphics-coordinate-limits
 	  graphics-device-coordinate-limits
+	  graphics-device/properties
 	  graphics-disable-buffering
 	  graphics-drag-cursor
 	  graphics-draw-line
@@ -2031,8 +2032,23 @@ MIT in each case. |#
   (export ()
 	  x-close-all-displays
 	  x-close-display
+	  x-colormap/allocate-color
+	  x-colormap/free
+	  x-colormap/query-color
+	  x-colormap/store-color
+	  x-colormap/store-colors
+	  x-colormap?
 	  x-geometry-string
 	  x-graphics-device-type
+	  x-image/destroy
+	  x-image/draw
+	  x-image/draw-subimage
+	  x-image/fill-from-byte-vector
+	  x-image/get-pixel
+	  x-image/height
+	  x-image/set-pixel
+	  x-image/width
+	  x-image?
 	  x-open-display)
   (initialization (initialize-package!)))
 
-- 
2.25.1