Installation of new graphics operations. This requires support

available as of microcode version 10.85.  Documentation to follow
shortly.

diff --git a/v7/src/runtime/make.scm b/v7/src/runtime/make.scm
index a107002148111f72ce7d69d06ab6899bc802ed2d..aafc422300a320b51d5cfe8901c1b8f442a8dc6d 100644 (file)
--- a/v7/src/runtime/make.scm
+++ b/v7/src/runtime/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/make.scm,v 14.12 1989/05/21 17:17:56 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/make.scm,v 14.13 1989/06/22 23:50:49 cph Rel $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -377,6 +377,8 @@ MIT in each case. |#
    (RUNTIME DEBUGGER)
 
    (RUNTIME)
+   (RUNTIME X-GRAPHICS)
+   (RUNTIME STARBASE-GRAPHICS)
    ;; Emacs -- last because it grabs the kitchen sink.
    (RUNTIME EMACS-INTERFACE)
    ))

diff --git a/v7/src/runtime/option.scm b/v7/src/runtime/option.scm
index 64a08a3dd80c91efcf1446a7038df89fcca4d386..2814c1332b6516f4158126b64c4f091f46a17468 100644 (file)
--- a/v7/src/runtime/option.scm
+++ b/v7/src/runtime/option.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/option.scm,v 14.3 1988/07/15 09:16:06 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/option.scm,v 14.4 1989/06/22 23:50:53 cph Rel $
 
-Copyright (c) 1988 Massachusetts Institute of Technology
+Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -63,4 +63,5 @@ MIT in each case. |#
 
 (define options
   '((FORMAT ((RUNTIME FORMAT) (INITIALIZE-PACKAGE!) "format"))
-    (STARBASE ((RUNTIME STARBASE-GRAPHICS) (INITIALIZE-PACKAGE!) "Sgraph"))))
\ No newline at end of file
+    (STARBASE
+     ((RUNTIME OLD-STARBASE-GRAPHICS) (INITIALIZE-PACKAGE!) "Sgraph"))))
\ No newline at end of file

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 253e355878cbae9dd5f7a080cb093b9d490f9835..a521f2bbd33b1c37b747f20d9946a5b9fc9854f9 100644 (file)
--- 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.39 1989/06/09 16:51:34 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.40 1989/06/22 23:50:57 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -1479,7 +1479,54 @@ MIT in each case. |#
          scode-walker?)
   (initialization (initialize-package!)))
 
+(define-package (runtime graphics)
+  (files "graphics")
+  (parent ())
+  (export ()
+         graphics-bind-drawing-mode
+         graphics-bind-line-style
+         graphics-clear
+         graphics-close
+         graphics-coordinate-limits
+         graphics-device-coordinate-limits
+         graphics-disable-buffering
+         graphics-drag-cursor
+         graphics-draw-line
+         graphics-draw-point
+         graphics-draw-text
+         graphics-enable-buffering
+         graphics-erase-point
+         graphics-flush
+         graphics-move-cursor
+         graphics-operation
+         graphics-reset-clip-rectangle
+         graphics-set-clip-rectangle
+         graphics-set-coordinate-limits
+         graphics-set-drawing-mode
+         graphics-set-line-style
+         graphics-type-available?
+         make-graphics-device
+         make-graphics-device-type))
+
+(define-package (runtime x-graphics)
+  (files "x11graph")
+  (parent ())
+  (export ()
+         x-close-all-displays
+         x-close-display
+         x-geometry-string
+         x-graphics-device-type
+         x-open-display)
+  (initialization (initialize-package!)))
+
 (define-package (runtime starbase-graphics)
+  (files "starbase")
+  (parent ())
+  (export ()
+         starbase-graphics-device-type)
+  (initialization (initialize-package!)))
+
+(define-package (runtime old-starbase-graphics)
   (file-case options
     ((load) "Sgraph")
     (else))
@@ -1498,23 +1545,7 @@ MIT in each case. |#
          set-graphics-drawing-mode
          set-graphics-line-style
          with-graphics-drawing-mode
-         with-graphics-line-style
-         x-graphics-available?
-         x-graphics-close-display
-         x-graphics-close-window
-         x-graphics-create-raster
-         x-graphics-delete-raster
-         x-graphics-initialize
-         x-graphics-lower-window
-         x-graphics-map-window
-         x-graphics-open-display
-         x-graphics-open-window
-         x-graphics-raise-window
-         x-graphics-start-retain
-         x-graphics-stop-retain
-         x-graphics-unmap-window
-         x11-graphics-initialize
-         x11-graphics-close)
+         with-graphics-line-style)
   (initialization (initialize-package!)))
 
 (define-package (runtime state-space)

diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm
index dcdb1164b14047483a4da6824f33c1ab51c52ba2..16dcfdabd4906300087f08769b03188cbe7a65df 100644 (file)
--- a/v7/src/runtime/version.scm
+++ b/v7/src/runtime/version.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.45 1989/06/09 16:51:44 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.46 1989/06/22 23:51:02 cph Rel $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -45,7 +45,7 @@ MIT in each case. |#
                     '()))
   (add-system! microcode-system)
   (add-event-receiver! event:after-restore snarf-microcode-version!)
-  (add-identification! "Runtime" 14 45))
+  (add-identification! "Runtime" 14 46))
 
 (define microcode-system)
 

diff --git a/v8/src/runtime/make.scm b/v8/src/runtime/make.scm
index 22fcaf41ecad82d099ab8e0fb4dce9fa0541883f..552ff8744005b358efdc1ddd0b4a0a06c1ed45ff 100644 (file)
--- a/v8/src/runtime/make.scm
+++ b/v8/src/runtime/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/make.scm,v 14.12 1989/05/21 17:17:56 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/make.scm,v 14.13 1989/06/22 23:50:49 cph Rel $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -377,6 +377,8 @@ MIT in each case. |#
    (RUNTIME DEBUGGER)
 
    (RUNTIME)
+   (RUNTIME X-GRAPHICS)
+   (RUNTIME STARBASE-GRAPHICS)
    ;; Emacs -- last because it grabs the kitchen sink.
    (RUNTIME EMACS-INTERFACE)
    ))

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 674f2c456b0f89442b0a7e478aaba316d09edc4c..9320a81743a70edb2ae71df7f62bae524a94a8d8 100644 (file)
--- 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.39 1989/06/09 16:51:34 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.40 1989/06/22 23:50:57 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -1479,7 +1479,54 @@ MIT in each case. |#
          scode-walker?)
   (initialization (initialize-package!)))
 
+(define-package (runtime graphics)
+  (files "graphics")
+  (parent ())
+  (export ()
+         graphics-bind-drawing-mode
+         graphics-bind-line-style
+         graphics-clear
+         graphics-close
+         graphics-coordinate-limits
+         graphics-device-coordinate-limits
+         graphics-disable-buffering
+         graphics-drag-cursor
+         graphics-draw-line
+         graphics-draw-point
+         graphics-draw-text
+         graphics-enable-buffering
+         graphics-erase-point
+         graphics-flush
+         graphics-move-cursor
+         graphics-operation
+         graphics-reset-clip-rectangle
+         graphics-set-clip-rectangle
+         graphics-set-coordinate-limits
+         graphics-set-drawing-mode
+         graphics-set-line-style
+         graphics-type-available?
+         make-graphics-device
+         make-graphics-device-type))
+
+(define-package (runtime x-graphics)
+  (files "x11graph")
+  (parent ())
+  (export ()
+         x-close-all-displays
+         x-close-display
+         x-geometry-string
+         x-graphics-device-type
+         x-open-display)
+  (initialization (initialize-package!)))
+
 (define-package (runtime starbase-graphics)
+  (files "starbase")
+  (parent ())
+  (export ()
+         starbase-graphics-device-type)
+  (initialization (initialize-package!)))
+
+(define-package (runtime old-starbase-graphics)
   (file-case options
     ((load) "Sgraph")
     (else))
@@ -1498,23 +1545,7 @@ MIT in each case. |#
          set-graphics-drawing-mode
          set-graphics-line-style
          with-graphics-drawing-mode
-         with-graphics-line-style
-         x-graphics-available?
-         x-graphics-close-display
-         x-graphics-close-window
-         x-graphics-create-raster
-         x-graphics-delete-raster
-         x-graphics-initialize
-         x-graphics-lower-window
-         x-graphics-map-window
-         x-graphics-open-display
-         x-graphics-open-window
-         x-graphics-raise-window
-         x-graphics-start-retain
-         x-graphics-stop-retain
-         x-graphics-unmap-window
-         x11-graphics-initialize
-         x11-graphics-close)
+         with-graphics-line-style)
   (initialization (initialize-package!)))
 
 (define-package (runtime state-space)