From 2ec33f860c21836b76abe854819144184672db6a Mon Sep 17 00:00:00 2001
From: Larry Masinter <LMM@acm.org>
Date: Thu, 24 Feb 2022 19:09:53 -0800
Subject: [PATCH] useless IDLESWAP, no docs

---
 lispusers/IDLESWAP      |  54 ----------------------------------------
 lispusers/IDLESWAP.LCOM | Bin 1488 -> 0 bytes
 2 files changed, 54 deletions(-)
 delete mode 100644 lispusers/IDLESWAP
 delete mode 100644 lispusers/IDLESWAP.LCOM

diff --git a/lispusers/IDLESWAP b/lispusers/IDLESWAP
deleted file mode 100644
index acdc41da..00000000
--- a/lispusers/IDLESWAP
+++ /dev/null
@@ -1,54 +0,0 @@
-
(FILECREATED "29-May-86 23:42:08" {ERIS}<LISPUSERS>KOTO>IDLESWAP.;4
 2353   
-
-      changes to:  (FNS IDLE-SWAP)
-                   (VARS IDLESWAPCOMS)
-
-      previous date: "29-May-86 23:10:51" {ERIS}<LISPUSERS>KOTO>IDLESWAP.;2)
-
-
-(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)
-
-(PRETTYCOMPRINT IDLESWAPCOMS)
-
-(RPAQQ IDLESWAPCOMS
 [(INITVARS (IDLE-SWAP-SIZE 64))
-                     (FNS IDLE-SWAP)
-                     (ADDVARS (IDLE.FUNCTIONS ("Swap" (QUOTE IDLE-SWAP])
-
-(RPAQ? IDLE-SWAP-SIZE
 64)
-(DEFINEQ
-
-(IDLE-SWAP

-  [LAMBDA (WINDOW)
                                           (* hdj "29-May-86 23:41")

-    (DECLARE
 (GLOBALVARS IDLE-SWAP-SIZE))
-    (BITBLT (WINDOWPROP WINDOW (QUOTE IMAGECOVERED))
-           NIL NIL WINDOW NIL NIL NIL NIL (QUOTE INVERT)
-           (QUOTE REPLACE))
-    (LET [(WIDTH (WINDOWPROP WINDOW (QUOTE WIDTH)))
-          (HEIGHT (WINDOWPROP WINDOW (QUOTE HEIGHT]
-         (do
 (BLOCK (RAND 0 5000))
-             (LET [[RAND-X-1 (TIMES IDLE-SWAP-SIZE (RAND 0 (IQUOTIENT WIDTH IDLE-SWAP-SIZE]
-                   [RAND-Y-1 (TIMES IDLE-SWAP-SIZE (RAND 0 (IQUOTIENT HEIGHT IDLE-SWAP-SIZE]
-                   [RAND-X-2 (TIMES IDLE-SWAP-SIZE (RAND 0 (IQUOTIENT WIDTH IDLE-SWAP-SIZE]
-                   (RAND-Y-2 (TIMES IDLE-SWAP-SIZE (RAND 0 (IQUOTIENT HEIGHT IDLE-SWAP-SIZE]
-                  (if
 (AND (NEQ RAND-X-1 RAND-X-2)
-                           (NEQ RAND-Y-1 RAND-Y-2))
-                      then
 
-          
-          (* * swap the two regions of the window using BITBLT only)

-
-                           (BITBLT WINDOW RAND-X-1 RAND-Y-1 WINDOW RAND-X-2 RAND-Y-2 IDLE-SWAP-SIZE 
-                                  IDLE-SWAP-SIZE (QUOTE INPUT)
-                                  (QUOTE INVERT))
-                           (BITBLT WINDOW RAND-X-2 RAND-Y-2 WINDOW RAND-X-1 RAND-Y-1 IDLE-SWAP-SIZE 
-                                  IDLE-SWAP-SIZE (QUOTE INPUT)
-                                  (QUOTE INVERT))
-                           (BITBLT WINDOW RAND-X-1 RAND-Y-1 WINDOW RAND-X-2 RAND-Y-2 IDLE-SWAP-SIZE 
-                                  IDLE-SWAP-SIZE (QUOTE INPUT)
-                                  (QUOTE INVERT])
-)
-
-(ADDTOVAR IDLE.FUNCTIONS
 ("Swap" (QUOTE IDLE-SWAP)))
-(PUTPROPS IDLESWAP COPYRIGHT ("Xerox Corporation" 1986))
-(DECLARE: DONTCOPY
-  (FILEMAP (NIL (532 2216 (IDLE-SWAP 542 . 2214)))))
-STOP
diff --git a/lispusers/IDLESWAP.LCOM b/lispusers/IDLESWAP.LCOM
deleted file mode 100644
index b65c968e137b6c206fd595e8995ddc4c8e418f30..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 1488
zcmah}%Wl(95KU1*0?CW2do=O}d*R5we#9|V$-{1Q8^?BSr)d#FgxYFTg*ZwYphDgA
zJE$MfH9x?HpXdi5!Psu<CIM<i@ywYs56_*s+zz#^rf=0l%LEpxLJ*IIssfU1D4HQ^
zEO6{`@?ks}#t|eVq<k@h_T|=aFdZK!lXyE7X47~w-KM5(1--ggekt+5utXR3X2UF2
z#UMI{W8r-oYWO080Y>V?(J;OMq6+odNy;mi%Pd6wbIimRs3aO9F_bFHGu%S4q$+g!
z7lN(<!D5La>R6oR)8KN;rh(TDEI-(8yP<opG6lJ+49BPa(Mddo^TYsd#|a><T}X@P
zfnyHpevYI-)9nO2j3@EOK{A_W<r!Gs{oGigDm|Q=@XTErcy8(p=Ya}--7$qDfq(}}
zt{i5HJhw<_A#+QrNYJwAZYxAlgdR1+7SK#`Ot;5F>DQA|X|49OgwOZ&)2MbDMbSyB
zWq-`GRIFw4vbgbR?QFF9HG?z%>vt*ntd+ffX84aBqN~tDtc~@@d-l!M+ji&X>ZrEY
zuGyU|$Vze7XhHkGjQ{i8{Pw$6;)tR`qurok!w!K+TA@gK<(`7HwEZ9v?N$&gxuEO$
zTdP9DcAIU`^1}g@z^)bcXxeMfck$4qB|sL73@W^#PSEwO+yN(;$W@@uf#qXivVx-5
zMTzLe1PTFtZDG~o9Zytmc~TXf=aZWABwd>Gq>47@RnU2fm*!oD$O=SO9VK~%C1TFS
zSh&4Qh`tiMf}gSIrBvplENi!uOt8<EXV;q+Nb^o%+wkZ4Ru~@PI(j~J!YtI?elncz
z)%W)oK;Ss)&@fwOZYi;*@VMy9i(fa*f?eL}I?a%}csX!v@Tot>n~>S>x}jBk1)n{6
z@>d0%pA6<;I1CxO7&J5fE#zuM{L*fij#hC8LDTh){A}kr_As6#pP`vd#>u3AK1fC^
Nc1qWHo^hzn`~e-xW#Rw;