(FILECREATED " 2-Apr-86 00:14:01" {ERIS}<LISPUSERS>KOTO>KINETIC.;2
 1626   

      changes to:  (VARS KINETICCOMS)

      previous date: " 3-Dec-85 14:17:48" {ERIS}<LISPUSERS>KOTO>KINETIC.;1)


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

(PRETTYCOMPRINT KINETICCOMS)

(RPAQQ KINETICCOMS
 ((FNS KINETIC)
		      (VARS (CHECKSHADE 63903)
			    (KINETICWINDOW))
		      (ALISTS (IDLE.FUNCTIONS Kinetic))))
(DEFINEQ

(KINETIC

  [LAMBDA (WINDOW)                                           (* lmm " 3-Dec-85 14:16")

                                                             (* test example (KINETICDEMO) 

							     (SETQ CHECKSHADE (EDITSHADE CHECKSHADE)))

    [
OR
 (
WINDOWP
 WINDOW)
	  (
SETQ
 WINDOW (
OR
 KINETICWINDOW (
SETQ
 KINETICWINDOW (
CREATEW
 NIL "Kinetic Window"]
    (
PROG
 ((WD (
WINDOWPROP
 WINDOW (
QUOTE
 WIDTH)))
	     (HT (
WINDOWPROP
 WINDOW (
QUOTE
 HEIGHT)))
	     X Y)
	    (do
 (
SETQ
 X (
RAND
 0 WD))
		  (
SETQ
 Y (
RAND
 0 HT))
		  (
BITBLT
 NIL NIL NIL WINDOW (
RAND
 0 (
IDIFFERENCE
 WD X))
			    (
RAND
 0 (
IDIFFERENCE
 HT Y))
			    X Y (
QUOTE
 TEXTURE)
			    (
SELECTQ
 (
RAND
 0 5)
				       (0 (
QUOTE
 PAINT))
				       (
QUOTE
 INVERT))
			    (
SELECTQ
 (
AND
 CHECKSHADE (
RAND
 0 12))
				       (0 CHECKSHADE)
				       BLACKSHADE))
		  (
BLOCK
])
)

(RPAQQ CHECKSHADE
 63903)

(RPAQQ KINETICWINDOW
 NIL)

(ADDTOVAR IDLE.FUNCTIONS
 (Kinetic (QUOTE KINETIC)))
(PUTPROPS KINETIC COPYRIGHT ("Xerox Corporation" 1982 1985 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (447 1420 (KINETIC 457 . 1418)))))
STOP