(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "24-Aug-2022 07:49:42" ("compiled on " {DSK}larry>medley>lispusers>SCREENPAPER.;2) "23-Aug-2022 23:38:05" brecompiled changes%: SCREENPAPER in "FULL 23-Aug-2022 ..." dated "23-Aug-2022 23:38:07") (FILECREATED "24-Aug-2022 07:49:42" {DSK}larry>medley>lispusers>SCREENPAPER.;2 12374 :CHANGES-TO (FNS SCREENPAPER) :PREVIOUS-DATE " 5-Aug-88 15:17:16" {DSK}larry>medley>lispusers>SCREENPAPER.;1) SCREENPAPERA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `ljh(4 GETMOUSESTATE) (10 LASTMOUSEBUTTONS) () SCREENPAPERA0002 :D8 (I 1 Y I 0 X F 2 SIZE F 3 WINDOW F 4 BUF1 F 5 CNT F 6 SCREENREPEAT F 7 STREAM F 8 SCREENPERIOD) S @ATjdRd RkjdRk jRk kgW TSRhg ld Umc jWc VkYHhSjdT TSR Ik԰(126 KALSHOW 117 BKBITBLT 84 BLOCK 77 KALSHOW 64 VIDEOCOLOR 56 DRAWLINE 42 RAND 33 RAND 20 BKBITBLT 5 \INSUREWINDOW) (72 INVERT 48 INVERT) () SCREENPAPER :D8 (P 15 SI::*RESETFORMS* P 14 POS P 13 CY P 12 CX P 11 BUF4 P 10 BUF3 P 9 BUF2 P 8 BUF1A P 7 PBT P 6 BIGBUF P 5 2SIZE P 4 BUF1 P 3 STREAM P 2 TRIANGLE P 1 CNT P 0 SIZE I 2 OPTION I 1 REGION.OR.SIZE I 0 WINDOW F 16 SCREENPAPERSIZE F 17 SCREENPERIOD F 18 CROSSHAIRS) I@bABgjdhg W b AAW" Hd ZHd \J [oHdmHhnK Hd _Hd _Hd]dd ^`_LK BggW$ hhhg $`dlkNllhA AA_hbHd _OOLjdHd L@Hg g j@g (326 MAPN 311 KALSHOW 299 SHIFTDOWNP 285 BKBITBLT 268 SCREENBITMAP 260 GETBOXPOSITION 238 REGIONP 204 SI::RESETUNWIND 199 \MVLIST 194 SCREENPAPERA0001 174 CURSOR 148 DSPDESTINATION 132 BITMAPCREATE 119 BITMAPCREATE 110 BITMAPCREATE 103 FILLPOLYGON 77 DSPCREATE 70 BITMAPCREATE 62 BITMAPCREATE 43 REGIONP 33 GETREGION 6 CREATEW) (321 SCREENPAPERA0002 306 INVERT 294 SHIFT 214 LASTMOUSEBUTTONS 189 SI::RESETUNWIND 167 CURSOR 154 PICK 138 |PILOTBBTTYPE#| 28 SCREENPAPERNEWREGIONFN 18 PICK) ( 83 (-1 . -1)) SCREENPAPERNEWREGIONFN :D8 (P 1 DY P 0 DX I 1 MP I 0 FP) MA@@A@jHHjHjIIjIA@HjHImkA@IjHImkANIL NIL () KALSHOWA0001 :D8 (I 1 Y I 0 X F 0 2SIZE F 1 BIGBUF F 2 WINDOW F 3 CX F 4 MODE F 5 CY) QhdRS@PUAPhdTg (27 BKBITBLT) (21 REPLACE) () KALSHOW :D8 (P 3 J P 2 I P 1 CY P 0 CX I 3 MODE I 2 SIZE I 1 WINDOW I 0 BUF1 F 4 BUF2 F 5 PBT F 6 BUF3 F 7 BIGBUF F 8 2SIZE F 9 TRIANGLE) Whd@hddddg @TU TVU Vhd@hddddg  @hdWjB @TU ThdWBd @VU VhdWjd VTU ThdWBj Ag lXAg lYjJWHIHIW%jKJgKJ Kk[JkZ(228 BLOCK 208 DOPOINT 161 GETWINDOWPROP 146 GETWINDOWPROP 135 BKBITBLT 122 INVERT.BITMAP.HORIZONTALLY 114 BKBITBLT 101 INVERT.BITMAP.VERTICALLY 93 BKBITBLT 80 INVERT.BITMAP.HORIZONTALLY 72 BKBITBLT 56 BKBITBLT 36 INVERT.BITMAP.VERTICALLY 28 ROTATE.BITMAP 20 BKBITBLT) (201 KALSHOWA0001 156 HEIGHT 141 WIDTH 50 PAINT 14 ERASE) () DOPOINT :D8 (I 2 Y I 1 X I 0 FN) ;BA@BA ABkl@mABkl@AmBkl@mAmBkl@(11 DOPOINT) NIL () MAPN :D8 (P 8 I P 6 STEPS P 5 NY P 4 NX P 3 Y P 2 X P 1 MAXY P 0 MAXX I 1 FN I 0 WINDOW F 9 SIZE) @g W@g WRjH ZjI [jH jI LJ MK l^jNkOO$JLJONKMKONlAOk_LM(78 ABS 70 ABS 61 RAND 53 RAND 45 RAND 37 RAND 24 GETWINDOWPROP 10 GETWINDOWPROP) (19 HEIGHT 5 WIDTH) () INVERT.BITMAP.HORIZONTALLY :D8 (P 0 I I 2 PBT I 1 BM2 I 0 BITMAP) A@ bB `bABAB@B@BlAnBl@nBn@ B@ BkjH@&BHB@kHBjvHkXA(7 BITMAPCOPY) (168 PILOTBBT 158 PILOTBBT 136 PILOTBBT 124 PILOTBBT 112 PILOTBBT 93 PILOTBBT 74 PILOTBBT 62 PILOTBBT 50 PILOTBBT 38 PILOTBBT 26 PILOTBBT 18 |PILOTBBTTYPE#|) () INVERT.BITMAP.VERTICALLY :D8 (P 0 I I 2 PBT I 1 BM2 I 0 BITMAP) A@ bB `bABA@kAB@B@BlAnBl@nBjBjBn@ Bk B@jH@8BjvBB@BBjAHkXA(7 BITMAPCOPY) (219 PILOTBBT 213 PILOTBBT 198 PILOTBBT 192 PILOTBBT 164 PILOTBBT 154 PILOTBBT 142 PILOTBBT 132 PILOTBBT 122 PILOTBBT 103 PILOTBBT 84 PILOTBBT 72 PILOTBBT 60 PILOTBBT 38 PILOTBBT 26 PILOTBBT 18 |PILOTBBTTYPE#|) () ROTATE.BITMAP :D8 (P 0 I I 2 PBT I 1 BM2 I 0 BITMAP) A@@ bB `bABAB@B@BlAnBkBjBABj BA BkjH@5BBmBjvBB@HkXA(12 BITMAPCREATE) (204 PILOTBBT 198 PILOTBBT 180 PILOTBBT 174 PILOTBBT 152 PILOTBBT 140 PILOTBBT 130 PILOTBBT 118 PILOTBBT 108 PILOTBBT 98 PILOTBBT 79 PILOTBBT 67 PILOTBBT 55 PILOTBBT 43 PILOTBBT 31 PILOTBBT 23 |PILOTBBTTYPE#|) () (PRETTYCOMPRINT SCREENPAPERCOMS) (RPAQQ SCREENPAPERCOMS ((FNS SCREENPAPER SCREENPAPERNEWREGIONFN KALSHOW DOPOINT MAPN) (ADDVARS ( IDLE.FUNCTIONS ("Screen wallpaper" (QUOTE SCREENPAPER)))) (* ;;; "faster versions of editbitmap functions") (FNS INVERT.BITMAP.HORIZONTALLY INVERT.BITMAP.VERTICALLY ROTATE.BITMAP) (VARS SCREENPAPERSIZE SCREENPERIOD SCREENREPEAT))) (ADDTOVAR IDLE.FUNCTIONS ("Screen wallpaper" (QUOTE SCREENPAPER))) (RPAQQ SCREENPAPERSIZE 64) (RPAQQ SCREENPERIOD 100) (RPAQQ SCREENREPEAT 0) (PUTPROPS SCREENPAPER COPYRIGHT ("Xerox Corporation" 1901 1986 1988)) NIL