(FILECREATED " 9-Sep-94 13:53:56" ("compiled on " {DSK}lispusers>MAGNIFIER.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "30-Jun-86 16:44:43" {PHYLUM}MAGNIFIER.;13 19020 changes to: (FNS \SLOWMAGSHOW \EXPANDBITMAPBY4 \SLOWMAGSHOW1 MAGTRACK \FFAST4BIT \SLOWEXPANDBITMAPBY4) (MACROS MAGSHOW) (VARS MAGNIFIERCOMS) previous date: "27-Jun-86 17:39:52" {PHYLUM}MAGNIFIER.;11) MAGNIFYW D8 (L (0 WIN)) M@d ldhg hl bgg @gg n@ h(73 DSPTEXTURE 64 PUTWINDOWPROP 48 PUTWINDOWPROP 31 CREATEW 23 GETREGION 6 WINDOWP) (59 ONFOURGRID 54 NEWREGIONFN 43 MAGTRACK 38 BUTTONEVENTFN 18 ONFOURGRID) () MAGTRACKA0002A0003 D8 (NAME SI*UNWIND-PROTECT* I 0 SI*CLEANUP-FORMS* F 2 LFT F 3 BTM F 4 WIDTH F 5 HEIGHT F 6 CURX F 7 CURY F 8 NEARCURSORBITMAP F 9 MOUSEBEENUP F 10 WINBTM F 11 EXPANDEDBITMAP F 12 WINRGHT F 13 WINTOP F 14 WINLFT F 15 WIN) wW(`lHj HH h*`lHj HH ichhV`W`R%RlSlRTlSUln `c `c`TVTlHdIIjHHjc`UWUlHdIIjHHjcWRWSWRTWSU5RSWjdTU WWTU jdWjdTU WRSTUWWWWWW RlSlRTlSUln (369 DRAWGRAYBOX 360 SCREENBITMAP 334 \SLOWMAGSHOW 308 BKBITBLT 290 \EXPANDBITMAPBY4 278 BKBITBLT 264 SCREENBITMAP 139 DRAWGRAYBOX 130 SCREENBITMAP 74 \FZEROP 46 GETMOUSESTATE 36 \FZEROP 8 GETMOUSESTATE) (199 SCREENHEIGHT 161 SCREENWIDTH 153 LASTMOUSEY 145 LASTMOUSEX 99 LASTMOUSEY 90 LASTMOUSEX 52 LASTMOUSEBUTTONS 14 LASTMOUSEBUTTONS) () MAGTRACKA0002 D8 (P 2 SI*RESETFORMS* P 1 SI*CATCH-RETURN-FROM* P 0 SI*DUMMY-FOR-CATCH* F 3 EMPTYCURSOR F 4 SINLSETQ-VALUE) >i@gS hhhg $hcg(45 SIRESETUNWIND 40 \MVLIST 35 MAGTRACKA0002A0003 15 CURSOR) (59 NORMAL 30 SIRESETUNWIND 9 CURSOR) () MAGTRACK D8 (P 20 SI*NLSETQFLAG* P 19 *PROCEED-CASES* P 18 SINLSETQ-VALUE P 16 WINTOP P 15 WINRGHT P 14 WINBTM P 13 WINLFT P 12 MOUSEBEENUP P 11 BTM P 10 LFT P 9 CURY P 8 CURX P 7 EXPANDEDBITMAP P 6 NEARCURSORBITMAP P 5 HEIGHT P 4 WIDTH I 0 WIN F 21 *PROCEED-CASES*) h@ @ `l_"jO"O" @ I_I_II_II_ HZl\H[l] ^JK _`W*O& O)OlOlOLlOMln h(186 DRAWGRAYBOX 177 SCREENBITMAP 142 MAGTRACKA0002 119 BITMAPCREATE 111 BITMAPCREATE 58 CLEARW 48 \FZEROP 12 \INSUREWINDOW 6 DSPCLIPPINGREGION) (129 SINLSETQ-PROCEED-CASE 25 LASTMOUSEBUTTONS) () \EXPANDBITMAPBY4SLOW D8 (L (1 TARGET 0 SOURCE)) @@lIZHkjdLKA@HLk@AAMkAA` AjMAjMkJkgg AjMAjMlJlgg LkԼMlԽj(171 BKBITBLT 142 BKBITBLT 115 \FFAST4BIT) (165 REPLACE 160 INPUT 136 REPLACE 131 INPUT 108 ARRAYP 103 \4BITEXPANSIONTABLE 96 BITMAP 86 BITMAP 74 BITMAP 66 BITMAP 56 BITMAP 43 BITMAP 13 BITMAP 5 BITMAP) () \SLOWMAGSHOW D8 (L (10 WINTOP 9 WINRIGHT 8 WINBTM 7 WINLFT 6 EXPANDEDBITMAP 5 NEARCURSORBITMAP 4 HGHT 3 WID 2 Y 1 X 0 WIN))  @ !GB@ABECGBYjdF GA5@ABIEGAZDIjIF @HjdECJDIJIoGAC9@HAGjEGAZDIjIF @GBIECJDIJI/@HAGjECDIjIBDG@AGECDGBYjIF GA.@ABEGAZIjdF @HjBGECJIJjGAC2@HAGBGEGAZIjdF @GBECJIJj@HAGBGECIwGA-@ABEGAZDjdF @HjBGECJDJjHGAC0@HAGBGEGAZDjdF @GBECJDJj@HAGBGECDjdF h(471 \SLOWMAGSHOW1 436 SCREENBITMAP 429 \SLOWMAGSHOW1 375 \SLOWMAGSHOW1 357 SCREENBITMAP 315 SCREENBITMAP 308 \SLOWMAGSHOW1 253 \SLOWMAGSHOW1 235 SCREENBITMAP 222 \SLOWMAGSHOW1 199 SCREENBITMAP 143 SCREENBITMAP 136 \SLOWMAGSHOW1 79 \SLOWMAGSHOW1 55 SCREENBITMAP 42 \SLOWMAGSHOW1 24 SCREENBITMAP 5 \INSUREWINDOW) NIL () ONFOURGRID D8 (L (1 MOVEPT 0 FIXPT)) /A@d@l@d@l@dAlAdAlANIL NIL () \EXPANDBITMAPBY4 D8 (L (3 HEIGHT 2 WIDTH 1 TARGET 0 SOURCE)) lBlC@AA`hddAjdHIggj Ck@C@AIlL ON6AjdAjkHIgg AjdAjlHIgg AJOKOBllM Ok_O@_OlL_(189 \FFAST4BIT 166 BKBITBLT 141 BKBITBLT 71 BKBITBLT) (205 BITMAP 160 PAINT 155 INPUT 135 PAINT 130 INPUT 98 BITMAP 89 BITMAP 79 BITMAP 64 REPLACE 59 TEXTURE 41 ARRAYP 36 \4BITEXPANSIONTABLE 29 BITMAP 21 BITMAP 13 BITMAP) () \SLOWMAGSHOW1 D8 (L (9 EXPANDEDBITMAP 8 MAGWY 7 MAGWX 6 HEIGHT 5 WIDTH 4 TEMPBM 3 SOURCEY 2 SOURCEX 1 SOURCEBM 0 MAGW)) 7 ABCDjdEF DGEF jd@GGEFgg (52 BKBITBLT 23 \EXPANDBITMAPBY4 13 BKBITBLT) (46 REPLACE 41 INPUT) () \FFAST4BIT D8 (L (3 MAPBASE 2 N 1 B 0 A)) jjd@HкBIhAICJBIkYAICJCBIkYAICJBIkYAICJIkԹHkԸNIL NIL () (PRETTYCOMPRINT MAGNIFIERCOMS) (RPAQQ MAGNIFIERCOMS ((FNS MAGNIFYW MAGTRACK \EXPANDBITMAPBY4SLOW \SLOWMAGSHOW ONFOURGRID \EXPANDBITMAPBY4 \SLOWMAGSHOW1 \FFAST4BIT) (CURSORS EMPTYCURSOR) (MACROS MAGSHOW) (ADDVARS ( BackgroundMenuCommands ("Magnifier" (MAGNIFYW) "for enlarging the screen around the cursor; click to start, click to stop."))) (VARS (BackgroundMenu)) (DECLARE: EVAL@COMPILE DONTCOPY DONTEVAL@LOAD (FILES (LOADCOMP) LLARRAYELT)))) (RPAQ EMPTYCURSOR (CURSORCREATE (READBITMAP) 0 7)) (16 16 "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@") (PUTPROPS MAGSHOW MACRO ((WIN X Y WID HGHT NEARCURSORBITMAP EXPANDEDBITMAP) (* rrb "27-Jun-86 17:27") (* * displays a magnified image of the area X Y in WIN) (BITBLT (SCREENBITMAP) X Y NEARCURSORBITMAP 0 0 WID HGHT) (BITBLT (\EXPANDBITMAPBY4 NEARCURSORBITMAP EXPANDEDBITMAP WID HGHT) 0 0 WIN 0 0 (LLSH WID 2) (LLSH HGHT 2)))) (ADDTOVAR BackgroundMenuCommands ("Magnifier" (MAGNIFYW) "for enlarging the screen around the cursor; click to start, click to stop.")) (RPAQQ BackgroundMenu NIL) (PUTPROPS MAGNIFIER COPYRIGHT ("Xerox Corporation" 1986)) NIL