(FILECREATED "19-Dec-85 16:45:14" {ERIS}<LISPUSERS>KOTO>LIFE.;3
 3442   

      changes to:  (VARS LIFECOMS)

      previous date: "17-Dec-85 17:30:21" {ERIS}<LISPUSERS>KOTO>LIFE.;2)


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

(PRETTYCOMPRINT LIFECOMS)

(RPAQQ LIFECOMS
 ((FNS LIFE LIFEDEMO) (ADDVARS (IDLE.FUNCTIONS ("Life" (QUOTE LIFEDEMO))))))
(DEFINEQ

(LIFE

  [LAMBDA (WIN NOBLOCK)                                      (* lmm "17-Dec-85 17:18")

    (
PROG
 (X1 X2 X4 C2 C4 (W (
BITMAPWIDTH
 WIN))
		(H (
WINDOWPROP
 WIN (
QUOTE
 HEIGHT)))
		WI)
	    [
PROGN
 (
SETQ
 WI (
BITMAPCREATE
 (
PLUS
 W 8)
						(
PLUS
 H 8)))
		     (
SETQ
 X1 (
BITMAPCREATE
 (
PLUS
 W 8)
						(
PLUS
 H 8)))
		     (
SETQ
 X2 (
BITMAPCREATE
 (
PLUS
 W 8)
						(
PLUS
 H 8)))
		     (
SETQ
 X4 (
BITMAPCREATE
 (
PLUS
 W 8)
						(
PLUS
 H 8)))
		     (
SETQ
 C2 (
BITMAPCREATE
 (
PLUS
 W 8)
						(
PLUS
 H 8)))
		     (
SETQ
 C4 (
BITMAPCREATE
 (
PLUS
 W 8)
						(
PLUS
 H 8]
	    (
BITBLT
 WIN NIL NIL WI)
	    (do
                                            (* clear X1)

		  (
BITBLT
 NIL NIL NIL X1 NIL NIL NIL NIL (
QUOTE
 TEXTURE)
			    (
QUOTE
 ERASE)
			    BLACKSHADE)                      (* clear x2)

		  (
BITBLT
 NIL NIL NIL X2 NIL NIL NIL NIL (
QUOTE
 TEXTURE)
			    (
QUOTE
 ERASE)
			    BLACKSHADE)
		  (
BITBLT
 NIL NIL NIL X4 NIL NIL NIL NIL (
QUOTE
 TEXTURE)
			    (
QUOTE
 ERASE)
			    BLACKSHADE)
		  (
BITBLT
 NIL NIL NIL C2 NIL NIL NIL NIL (
QUOTE
 TEXTURE)
			    (
QUOTE
 ERASE)
			    BLACKSHADE)
		  (
BITBLT
 NIL NIL NIL C4 NIL NIL NIL NIL (
QUOTE
 TEXTURE)
			    (
QUOTE
 ERASE)
			    BLACKSHADE)
		  [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 0 0 NIL NIL (
QUOTE
 SOURCE)
			    (
QUOTE
 REPLACE))
		  (
BLOCK
])

(LIFEDEMO

  [LAMBDA (WIN)                                              (* lmm "17-Dec-85 17:19")

    (
BITBLT
 (
WINDOWPROP
 WIN (
QUOTE
 IMAGECOVERED))
	      NIL NIL WIN)
    (LIFE
 WIN])
)

(ADDTOVAR IDLE.FUNCTIONS
 ("Life" (QUOTE LIFEDEMO)))
(PUTPROPS LIFE COPYRIGHT ("Xerox Corporation" 1984 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (386 3305 (LIFE 396 . 3095) (LIFEDEMO 3097 . 3303)))))
STOP