(FILECREATED "20-OCT-83 16:35:13" {PHYLUM}<LISPCORE>DEMO>DRAWDEMOPATCH.;8
 2587   

      changes to:  (FNS DRAWDEMOPATCH.SETUP)

      previous date: "19-OCT-83 18:17:55" {PHYLUM}<LISPCORE>DEMO>DRAWDEMOPATCH.;7)


(PRETTYCOMPRINT DRAWDEMOPATCHCOMS)

(RPAQQ DRAWDEMOPATCHCOMS
 ((FNS DRAWDEMOPATCH.SETUP FAST.OR.SLOW FASTPROC SLOWPROC)))
(DEFINEQ

(DRAWDEMOPATCH.SETUP

  [LAMBDA NIL                                                (* edited: "20-OCT-83 16:32")

    (PROG [(DRAWMENU (create
 MENU
			     TITLE ←(QUOTE Draw)
			     ITEMS ←(QUOTE (FAST SLOW))
			     WHENSELECTEDFN ←(FUNCTION FAST.OR.SLOW]
          (SETQ OLDBACKGROUNDFNS BACKGROUNDFNS)
          (SETQ OLDTTYBACKGROUNDFNS TTYBACKGROUNDFNS)
          (MOVD (QUOTE \DRAWLINE.DISPLAY)
		(QUOTE OLD.\DRAWLINE.DISPLAY))
          [SETQ LINESWINDOWS (LIST (CREATEW (CREATEREGION 7 270 500 250]
          [SETQ POLYGONSWINDOWS (LIST (CREATEW (CREATEREGION 517 270 500 250))
				      (CREATEW (CREATEREGION 7 10 500 250))
				      (CREATEW (CREATEREGION 517 10 500 250]
          (ADDMENU DRAWMENU NIL (create
 POSITION
					XCOORD ← 509
					YCOORD ← 562))
          (FAST.OR.SLOW
 (QUOTE SLOW)
			DRAWMENU)
          [ADD.PROCESS (QUOTE (LINES (CAR LINESWINDOWS]
          [ADD.PROCESS (QUOTE (POLYGONS (CAR POLYGONSWINDOWS]
          [ADD.PROCESS (QUOTE (POLYGONS (CADR POLYGONSWINDOWS]
          (ADD.PROCESS (QUOTE (POLYGONS (CADDR POLYGONSWINDOWS])

(FAST.OR.SLOW

  [LAMBDA (ITEM MENU)                                        (* edited: "19-OCT-83 16:20")

    (if
 (EQ ITEM (QUOTE FAST))
	then
 (FASTPROC
)
	     (SHADEITEM (QUOTE FAST)
			MENU 1)
	     (SHADEITEM (QUOTE SLOW)
			MENU 0)
      else
 (SLOWPROC
)
	   (SHADEITEM (QUOTE SLOW)
		      MENU 1)
	   (SHADEITEM (QUOTE FAST)
		      MENU 0])

(FASTPROC

  [LAMBDA (FLG)                                              (* edited: "19-OCT-83 18:08")

    (TURN.OFF.ETHER)
    (SETQ BACKGROUNDFNS)
    (SETQ TTYBACKGROUNDFNS)
    (if
 (AND (EQ (MACHINETYPE)
		 (QUOTE DANDELION))
	     (GETD (QUOTE DLION.DRAWLINE)))
	then
 (MOVD (QUOTE DLION.DRAWLINE)
		   (QUOTE \DRAWLINE.DISPLAY)))
    (FOR
 W IN
 LINESWINDOWS DO
 (CLEARW W])

(SLOWPROC

  [LAMBDA NIL                                                (* edited: "19-OCT-83 17:01")

    (TURN.ON.ETHER)
    (SETQ BACKGROUNDFNS OLDBACKGROUNDFNS)
    (SETQ TTYBACKGROUNDFNS OLDTTYBACKGROUNDFNS)
    (MOVD (QUOTE OLD.\DRAWLINE.DISPLAY)
	  (QUOTE \DRAWLINE.DISPLAY))
    (for
 I in
 LINESWINDOWS do
 (CLEARW I])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (345 2565 (DRAWDEMOPATCH.SETUP 355 . 1440) (FAST.OR.SLOW 1442 . 1815) (FASTPROC 1817 . 
2219) (SLOWPROC 2221 . 2563)))))
STOP