(FILECREATED " 4-Aug-85 05:58:54" {ERIS}<LISPCORE>LISPUSERS>IDLE.;2
 934    

      changes to:  (VARS IDLECOMS)

      previous date: " 3-Aug-85 13:40:29" {ERIS}<LISPCORE>LISPUSERS>IDLE.;1)


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

(PRETTYCOMPRINT IDLECOMS)

(RPAQQ IDLECOMS
 [(FILES LINEDEMO)
		 [ADDVARS (IDLE.FUNCTIONS (Lines (QUOTE LINES))
					  [Triangles (FUNCTION (LAMBDA (W)
								       (LINES W 3 1 40]
					  (Polygons (QUOTE POLYGONS))
					  (Bubbles (QUOTE BUBBLES))
					  (Kaleidoscope (QUOTE KAL]
		 (VARS (IDLE.DEFAULTFN (QUOTE LINES])
(FILESLOAD LINEDEMO)

(ADDTOVAR IDLE.FUNCTIONS
 (Lines (QUOTE LINES))
			 [Triangles (FUNCTION (LAMBDA (W)
						      (LINES W 3 1 40]
			 (Polygons (QUOTE POLYGONS))
			 (Bubbles (QUOTE BUBBLES))
			 (Kaleidoscope (QUOTE KAL)))

(RPAQQ IDLE.DEFAULTFN
 LINES)
(PUTPROPS IDLE COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP