(FILECREATED " 1-JUN-82 16:34:47" {PHYLUM}<LISPUSERS>KINETIC.;8
 2014   

     changes to:  KINETICDEMO

     previous date: "29-MAY-82 21:37:04" {PHYLUM}<LISPUSERS>KINETIC.;7)


(* Copyright (c) 1982 by Xerox Corporation)

(PRETTYCOMPRINT KINETICCOMS)

(RPAQQ KINETICCOMS
 ((FNS KINETIC KINETICDEMO)
		    (VARS (CHECKSHADE 63903)
			  (KINETICWINDOW))))
(DEFINEQ

(KINETIC

  [LAMBDA (WW)                                               (* rrb "29-MAY-82 21:32")

                                                             (* test example (KINETICDEMO) 

							     (SETQ CHECKSHADE (EDITSHADE CHECKSHADE)))

    (PROG ((VAR (AND WW (LITATOM WW)
		     WW)))
          [COND
	    ((TYPENAMEP (COND
			  (VAR (SETQ WW (EVALV VAR)))
			  (T WW))
			(QUOTE WINDOW))
	      (CLEARW WW))
	    (T (SETQ WW (CREATEW NIL "Kinetic Window"))
	       (COND
		 (VAR (SET VAR WW]
          (PROG ((WD (WINDOWPROP WW (QUOTE WIDTH)))
		 (HT (WINDOWPROP WW (QUOTE HEIGHT)))
		 X Y)
	        (do
 (SETQ X (RAND 0 WD))
		    (SETQ Y (RAND 0 HT))
		    (BITBLT NIL NIL NIL WW (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))
		    (\BACKGROUND])

(KINETICDEMO

  [LAMBDA NIL                                                (* rrb " 1-JUN-82 16:34")

                                                             (* runs KINETIC in a window without asking any 

							     questions.)

    (KINETIC
 (COND
	       ((TYPENAMEP KINETICWINDOW (QUOTE WINDOW))
		 KINETICWINDOW)
	       (T (SETQ KINETICWINDOW
		    (CREATEW (create
 REGION
				     LEFT ← 400
				     BOTTOM ← 30
				     WIDTH ← 620
				     HEIGHT ← 450])
)

(RPAQQ CHECKSHADE
 63903)

(RPAQQ KINETICWINDOW
 NIL)
(DECLARE: DONTCOPY (PUTPROPS KINETIC COPYRIGHT ("Xerox Corporation" 1982)))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (362 1855 (KINETIC 372 . 1361) (KINETICDEMO 1363 . 1853)))))
STOP