;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for MEDIUM-RESOLUTION-COLOR version 2.1
;;; Reason:
;;;  color:write-color-map-immediate
;;; Written 28-Feb-86 18:20:30 by GJC at site LMI Cambridge
;;; while running on The Importance of Being Earnest from band 1
;;; with Experimental System 110.31, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental Tiger 23.0, Experimental Unix-Interface 9.0, Experimental Window-Maker 1.0, Experimental ZMail 65.3, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.1, Experimental Tape 1.5, Experimental MEDIUM-RESOLUTION-COLOR 2.0, microcode 1368.


;; *** Note: ***
;;   You may lose because the buffer has no readtable attribute.
;; *************

; From modified file DJ: L.VIDEO-DEVICE.GREY; GREY-WINDOW.LISP#15 at 28-Feb-86 18:20:31
#8R GREY#:
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "GREY")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: VIDEO-DEVICE; GREY; GREY-WINDOW  "

(DEFMETHOD (grey-screen :write-color-map-immediate) (loc r g b)
  (write-color-map-immediate loc r g b))

))
;; *** Note: ***
;;   You may lose because the buffer has no readtable attribute.
;; *************

; From modified file DJ: L.VIDEO-DEVICE.GREY; COLOR.LISP#17 at 28-Feb-86 18:21:42
#10R COLOR#:
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "COLOR")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: VIDEO-DEVICE; GREY; COLOR  "

(DEFUN write-color-map-immediate (loc r g b &optional (screen color-screen))
  (send screen :write-color-map-immediate loc r g b))

))