From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 15 Sep 1993 04:07:38 +0000 (+0000)
Subject: Generalized graphics images
X-Git-Tag: 20090517-FFI~7842
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ac82e6ce97151fc5b05b6df325fa185e095f1252;p=mit-scheme.git

Generalized graphics images
---

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index eecdc8d87..c1ae70093 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.192 1993/09/01 22:45:42 cph Exp $
+$Id: runtime.pkg,v 14.193 1993/09/15 04:07:38 adams Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -2104,6 +2104,7 @@ MIT in each case. |#
   (files "graphics")
   (parent ())
   (export ()
+	  enumerate-graphics-device-types
 	  graphics-bind-drawing-mode
 	  graphics-bind-line-style
 	  graphics-clear
@@ -2130,7 +2131,16 @@ MIT in each case. |#
 	  graphics-set-line-style
 	  graphics-type-available?
 	  make-graphics-device
-	  make-graphics-device-type))
+	  make-graphics-device-type
+	  image?
+	  image/descriptor
+	  image/destroy
+	  image/width
+	  image/height
+	  image/draw
+	  image/draw-subimage
+	  image/fill-from-byte-vector
+))
 
 (define-package (runtime x-graphics)
   (files "x11graph")
@@ -2225,6 +2235,11 @@ MIT in each case. |#
 	  x-image/set-pixel
 	  x-image/width
 	  x-image?)
+  (import (runtime graphics)
+	  register-graphics-device-type
+	  make-image-type
+	  image/create
+	  )
   (initialization (initialize-package!)))
 
 (define-package (runtime starbase-graphics)
@@ -2232,6 +2247,8 @@ MIT in each case. |#
   (parent ())
   (export ()
 	  starbase-graphics-device-type)
+  (import (runtime graphics)
+	  register-graphics-device-type)
   (initialization (initialize-package!)))
 
 (define-package (runtime state-space)
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index eecdc8d87..c1ae70093 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.192 1993/09/01 22:45:42 cph Exp $
+$Id: runtime.pkg,v 14.193 1993/09/15 04:07:38 adams Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -2104,6 +2104,7 @@ MIT in each case. |#
   (files "graphics")
   (parent ())
   (export ()
+	  enumerate-graphics-device-types
 	  graphics-bind-drawing-mode
 	  graphics-bind-line-style
 	  graphics-clear
@@ -2130,7 +2131,16 @@ MIT in each case. |#
 	  graphics-set-line-style
 	  graphics-type-available?
 	  make-graphics-device
-	  make-graphics-device-type))
+	  make-graphics-device-type
+	  image?
+	  image/descriptor
+	  image/destroy
+	  image/width
+	  image/height
+	  image/draw
+	  image/draw-subimage
+	  image/fill-from-byte-vector
+))
 
 (define-package (runtime x-graphics)
   (files "x11graph")
@@ -2225,6 +2235,11 @@ MIT in each case. |#
 	  x-image/set-pixel
 	  x-image/width
 	  x-image?)
+  (import (runtime graphics)
+	  register-graphics-device-type
+	  make-image-type
+	  image/create
+	  )
   (initialization (initialize-package!)))
 
 (define-package (runtime starbase-graphics)
@@ -2232,6 +2247,8 @@ MIT in each case. |#
   (parent ())
   (export ()
 	  starbase-graphics-device-type)
+  (import (runtime graphics)
+	  register-graphics-device-type)
   (initialization (initialize-package!)))
 
 (define-package (runtime state-space)