(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