(FILECREATED " 2-Oct-84 16:59:30" {ERIS}<LISPUSERS>LIFE.;3
 2709   

      changes to:  (FNS LIFE)

      previous date: "11-May-84 10:32:36" {ERIS}<LISPUSERS>LIFE.;2)


(* Copyright (c) 1984 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT LIFECOMS)

(RPAQQ LIFECOMS
 ((FNS LIFE)))
(DEFINEQ

(LIFE

  [LAMBDA (WIN NOBLOCK)                                      (* lmm " 2-Oct-84 16:38")

    (
PROG
 (X1 X2 X4 C2 C4 W H WI)
          (
SETQ
 W (
WINDOWPROP
 WIN (
QUOTE
 WIDTH)))
          (
SETQ
 H (
WINDOWPROP
 WIN (
QUOTE
 HEIGHT)))
          (
SETQ
 WI (
BITMAPCREATE
 W H))
          (
SETQ
 X1 (
BITMAPCREATE
 W H))
          (
SETQ
 X2 (
BITMAPCREATE
 W H))
          (
SETQ
 X4 (
BITMAPCREATE
 W H))
          (
SETQ
 C2 (
BITMAPCREATE
 W H))
          (
SETQ
 C4 (
BITMAPCREATE
 W H))
          (
BITBLT
 WIN NIL NIL WI)
          (do
 (
OR
 NOBLOCK (
BLOCK
))
	      (
BITBLT
 X1 NIL NIL X1 NIL NIL NIL NIL (
QUOTE
 INPUT)
		      (
QUOTE
 ERASE))
	      (
BITBLT
 X2 NIL NIL X2 NIL NIL NIL NIL (
QUOTE
 INPUT)
		      (
QUOTE
 ERASE))
	      (
BITBLT
 X4 NIL NIL X4 NIL NIL NIL NIL (
QUOTE
 INPUT)
		      (
QUOTE
 ERASE))
	      (
BITBLT
 C2 NIL NIL C2 NIL NIL NIL NIL (
QUOTE
 INPUT)
		      (
QUOTE
 ERASE))
	      (
BITBLT
 C4 NIL NIL C4 NIL NIL NIL NIL (
QUOTE
 INPUT)
		      (
QUOTE
 ERASE))
	      [for
 DEL in
 (
QUOTE
 ((1 . 0)
				   (1 . 1)
				   (0 . 1)
				   (-1 . 1)
				   (-1 . 0)
				   (-1 . -1)
				   (0 . -1)
				   (1 . -1)))
		 do
 (
PROGN
 (
BITBLT
 X1 NIL NIL C2 NIL NIL NIL NIL)
			   (
BITBLT
 WI (
CAR
 DEL)
				   (
CDR
 DEL)
				   C2 NIL NIL NIL NIL (
QUOTE
 INVERT)
				   (
QUOTE
 ERASE))
			   (
BITBLT
 WI (
CAR
 DEL)
				   (
CDR
 DEL)
				   X1 NIL NIL NIL NIL (
QUOTE
 INPUT)
				   (
QUOTE
 INVERT))
			   (
BITBLT
 X2 NIL NIL C4 NIL NIL NIL NIL)
			   (
BITBLT
 C2 NIL NIL C4 NIL NIL NIL NIL (
QUOTE
 INVERT)
				   (
QUOTE
 ERASE))
			   (
BITBLT
 C2 NIL NIL X2 NIL NIL NIL NIL (
QUOTE
 INPUT)
				   (
QUOTE
 INVERT))
			   (
BITBLT
 C4 NIL NIL X4 NIL NIL NIL NIL (
QUOTE
 INPUT)
				   (
QUOTE
 INVERT]
	      (
BITBLT
 X2 NIL NIL WI NIL NIL NIL NIL (
QUOTE
 INVERT)
		      (
QUOTE
 ERASE))
	      (
BITBLT
 X2 NIL NIL X1 NIL NIL NIL NIL (
QUOTE
 INVERT)
		      (
QUOTE
 ERASE))
	      (
BITBLT
 X1 NIL NIL WI NIL NIL NIL NIL (
QUOTE
 INPUT)
		      (
QUOTE
 PAINT))
	      (
BITBLT
 X4 NIL NIL WI NIL NIL NIL NIL (
QUOTE
 INPUT)
		      (
QUOTE
 ERASE))
	      (
BITBLT
 WI NIL NIL WIN])
)
(PUTPROPS LIFE COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (303 2634 (LIFE 313 . 2632)))))
STOP