(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Jan-98 14:12:43" ("compiled on " {DSK}sources>HLDISPLAY.;5) "30-Mar-95 20:33:04" "COMPILE-FILEd" in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "15-Mar-94 10:48:02" {DSK}nilsson>mnw>HLDISPLAY.;5 206399 changes to%: (FNS \GETREGION.CHECKBASEPT DSPYSCREENTOWINDOW DSPXSCREENTOWINDOW \GETREGION.CHECKOPPT GETGRIDBOXREGION NEAREST/PT/ON/GRID EDITBMBUTTONFN) previous date%: "25-Feb-94 14:50:58" {DSK}nilsson>mnw>HLDISPLAY.;4) (RPAQQ HLDISPLAYCOMS ((* ; "GRID functions") (FNS GRID GRIDXCOORD GRIDYCOORD LEFTOFGRIDCOORD BOTTOMOFGRIDCOORD SHADEGRIDBOX) (* ; "Low level compatibility and extensions") (FNS INSIDE?) (COMS (* ; "Mouse selection code") (FNS MOUSESTATE-EXPR MOUSESTATE-NAME) (PROP ARGNAMES MOUSESTATE LASTMOUSESTATE UNTILMOUSESTATE KEYSETSTATE LASTKEYSETSTATE) (EXPORT (DECLARE%: DOCOPY (MACROS MOUSESTATE LASTMOUSESTATE UNTILMOUSESTATE KEYSETSTATE LASTKEYSETSTATE)) (DECLARE%: DONTCOPY (MACROS WITHIN)) (ADDVARS (GLOBALVARS LASTMOUSEX LASTMOUSEY LASTMOUSEBUTTONS)))) (* ; "High Level Display utilities") (FNS DECODEBUTTONS) (FNS PTDIFFERENCE PTPLUS) (COMS (* ; "User interaction for regions, etc") (FNS GETPOSITION GETBOXPOSITION DSPYSCREENTOWINDOW DSPXSCREENTOWINDOW GETREGION \GETREGION.PACKPTS \GETREGION.CHECKBASEPT \GETREGION.CHECKOPPT \GETREGIONTRACKWITHBOX \UPDATEXYANDBOX GETBOXREGION \TRACKWITHBOX MOVEBOX DRAWGRAYBOX BLTHLINE BLTVLINE SETCORNER GETSCREENPOSITION GETBOXSCREENPOSITION GETSCREENREGION GETBOXSCREENREGION) (* ;; "Old-medley-window-system versions of generic box/position functions") (FNS \MEDW.GETSCREENPOSITION \MEDW.GETBOXSCREENPOSITION \MEDW.GETSCREENREGION) (FNS GETGRIDBOXREGION \RANGELIMIT) (FNS MOUSECONFIRM ) (CURSORS MOUSECONFIRMCURSOR)) (FNS NEAREST/PT/ON/GRID PTON10GRID NEAREST/MULTIPLE) (EXPORT (MACROS IABS)) (UGLYVARS DASHEDSHADE) (GLOBALVARS CROSSHAIRS EXPANDINGBOX FORCEPS BOXCURSOR LOCKEDSPOT OLDEXPANDINGBOX LowerLeftCursor UpperRightCursor UpperLeftCursor LowerRightCursor) (CURSORS CROSSHAIRS EXPANDINGBOX FORCEPS BOXCURSOR LOCKEDSPOT OLDEXPANDINGBOX LowerLeftCursor UpperRightCursor UpperLeftCursor LowerRightCursor) (FNS \SW2BM COMPOSEREGS TRANSLATEREG) (COMS (* ; "Bitmap and shade editors") (FNS EDITBM EDITBMSCROLLFN EDITBMCLOSEFN TILEAREA EDITBMBUTTONFN \EDITBM/PUTUP/DISPLAY \EDITBMHOWMUCH EDITBMRESHAPEFN EDITBMREPAINTFN UPDATE/SHADE/DISPLAY UPDATE/BM/DISPLAY/SELECTED/REGION SHOWBUTTON RESETGRID.NEW RESETGRID \READBMDIMENSIONS EDITSHADE \BITMAPFROMTEXTURE EDITSHADEREPAINTFN GRAYBOXAREA \SHADEBITS READHOTSPOT WBOX \CLEARBM EDITBMTEXTURE) (DECLARE%: DONTCOPY (RECORDS BUTTON) (MACROS BITMASK UPDATE/BM/DISPLAY)) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (DARKBITSHADE 23130) (NORMALGRIDSQUARE 16) (NOTINUSEGRAY 42405) (EDITBMMENU) ( EDITBMWINDOWMENU) (GRIDSIZEMENU) (CLICKWAITTIME 250))) (DECLARE%: DOEVAL@COMPILE DONTCOPY (GLOBALVARS DARKBITSHADE NORMALGRIDSQUARE NOTINUSEGRAY EDITBMMENU CLICKWAITTIME)) (CONSTANTS (GRIDTHICKNESS 2) ( MINGRIDSQUARE 8) (MAXGRIDWIDTH 199) (MAXGRIDHEIGHT 175) (BMWINDOWSHADE 33410))) (FNS SCALEBM BLTPATTERN BLTPATTERN.REPLACEDISPLAY BLTPATTERN.GENERIC) (FNS EXPANDBITMAP EXPANDBM SHRINKBITMAP \FAST4BIT) (FUNCTIONS ROTATE-BITMAP ROTATE-BITMAP-LEFT) (PROP FILETYPE HLDISPLAY) (UGLYVARS \4BITEXPANSIONTABLE))) GRID :D8 (P 16 Y P 14 Y P 12 X P 10 TEMPBM P 9 GRIDBM P 8 TOTALHEIGHT P 7 MAXIMUMCOLOR P 6 TWICEBORDER P 5 LINELENGTH P 4 GRIDSHADE P 3 SQHEIGHT P 2 SQWIDTH P 1 Y0 P 0 X0 I 5 GRIDSHADE I 4 DS I 3 BORDER I 2 HEIGHT I 1 WIDTH I 0 GRIDSPEC) ¨@@@@E µnÿÿe BKÚ_CjðCd– ¢Cµh3¢±5ClÚ¾LDHICOg ¿HAkÙJÚØCÙHJØCÙ O²7Ojð³PO˜O ³BjOóOHAkÙJÚØCÙýó‹OHAkÙJÚØCÙó³!LDOINOg ¿OJ_Ô_¿°ªLDHAJÚØCÙICOg ¿LDHIAJÚ]Cg ¿IBkÙKÚØCÙIKØCÙO²7Ojð³OO˜O ³AjOóOIBkÙKÚØCÙýó‹OIBkÙKÚØCÙó³ LDHOMNg ¿OK_Ô_¿°«LDHIOØCÙMCg ±;Cdgð¢±*¿D ´vDg _¿Dg _³JK _¿DgO¿jOjd¿nÿÿOjdkdg ¿OjdJKDHIAJÚBKÚgO ±²D _¿HAJÚØH O²1Ojð’±ƒO˜O ³tjOó™OHAJÚØýó‡OHAJÚØó³[IOØIO"²-O"jð³@A Y®@h Y“hb¿gAŸgHgh„gIh@°dZd“3Jgð¥µîi¿h¢±÷@dgð²A¿gjggg0@°d »LµKh]K&¼µëMhhdgð²e¿gg0@°d »LµKh]K&¼µëMggg0@°d »LµKh]K&¼µëMhhgð²+@•¿ggg@ hh@o @@@°d^A »LµKh]K&¼µéM(441 MOUSESTATE-EXPR 423 HELP 403 MOUSESTATE-NAME 379 SHOULDNT 334 MOUSESTATE-NAME 287 MOUSESTATE-NAME 226 MOUSESTATE-NAME 109 MOUSESTATE-NAME 98 MOUSESTATE-NAME 70 MOUSESTATE-NAME) (395 LASTMOUSEBUTTONS 390 LOGAND 385 ZEROP 367 NOT 321 LOGOR 316 LASTMOUSEBUTTONS 311 LOGAND 274 LOGOR 269 EQ 260 AND 213 LOGOR 208 LASTMOUSEBUTTONS 203 LOGAND 197 NEQ 188 OR 166 UP 143 LASTMOUSEBUTTONS 133 LASTMOUSEBUTTONS 127 LOGAND 120 EQ 86 ONLY 64 LASTMOUSEBUTTONS 59 LOGAND 54 NEQ 45 LASTMOUSEBUTTONS 35 LASTMOUSEBUTTONS 29 LOGAND 22 ZEROP 14 UP) ( 418 " unrecognized mouse key operator") MOUSESTATE-NAME :D8 (I 1 MOUSEONLYFLG I 0 KEYNAME) @gð¨@dgð’lgð¨@dgð’lgð§@gð‘kA³E@dgð’l€gð’l@@dgð’l gð’l@dgð’lo h(124 HELP) (109 RIGHTKEY 97 RIGHTMIDDLEKEY 87 MIDDLEKEY 75 LEFTMIDDLEKEY 65 LEFTKEY 51 MIDDLE 43 YELLOW 33 BLUE 24 RIGHT 14 RED 5 LEFT) ( 119 " is not a recognized key name.") (PUTPROPS MOUSESTATE ARGNAMES (BUTTONFORM)) (PUTPROPS LASTMOUSESTATE ARGNAMES (BUTTONFORM)) (PUTPROPS UNTILMOUSESTATE ARGNAMES (BUTTONFORM INTERVAL)) (PUTPROPS KEYSETSTATE ARGNAMES (BUTTONFORM)) (PUTPROPS LASTKEYSETSTATE ARGNAMES (BUTTONFORM)) (PUTPROPS MOUSESTATE MACRO (ARGS (LIST (QUOTE PROGN) (QUOTE (GETMOUSESTATE)) (MOUSESTATE-EXPR (CAR ARGS) T)))) (PUTPROPS LASTMOUSESTATE MACRO (ARGS (MOUSESTATE-EXPR (CAR ARGS) T))) (PUTPROPS UNTILMOUSESTATE MACRO (ARGS (COND ((AND (CDR ARGS) (CADR ARGS) (NEQ (CADR ARGS) T)) (* time argument is given and is not T or NIL; compile in time keeping loop.) (LIST (QUOTE PROG) (LIST (LIST ( QUOTE TIMEOUT) (LIST (QUOTE IPLUS) (QUOTE (CLOCK 0)) (LIST (QUOTE OR) (LIST (QUOTE NUMBERP) (CADR ARGS )) 100))) (QUOTE (NOWTIME (CLOCK 0)))) (QUOTE LP) (LIST (QUOTE COND) (LIST (CONS (QUOTE MOUSESTATE) ( LIST (CAR ARGS) T)) (QUOTE (RETURN T)))) (QUOTE (COND ((IGREATERP (CLOCK0 NOWTIME) TIMEOUT) (RETURN NIL)) (T (\BACKGROUND)))) (QUOTE (GO LP)))) (T (LIST (QUOTE PROG) NIL (QUOTE LP) (LIST (QUOTE COND) ( LIST (CONS (QUOTE MOUSESTATE) (LIST (CAR ARGS) T)) (QUOTE (RETURN T)))) (QUOTE (\BACKGROUND)) (QUOTE ( GO LP))))))) (PUTPROPS KEYSETSTATE MACRO (ARGS (LIST (QUOTE PROGN) (QUOTE (GETMOUSESTATE)) (MOUSESTATE-EXPR (CAR ARGS))))) (PUTPROPS LASTKEYSETSTATE MACRO (ARGS (MOUSESTATE-EXPR (CAR ARGS)))) (ADDTOVAR GLOBALVARS LASTMOUSEX LASTMOUSEY LASTMOUSEBUTTONS) DECODEBUTTONS :D8 (I 0 BUTTONSTATE) ·@µ `blåjðhð´ gh@låjðhð´ gh@kåjðhð´ gh@l€åjðhð´ gh@l@åjðhð´ gh@l åjðhð´ gh@låjðhð´ gh@låjðhð´ gh (180 \NCONC2 175 \NCONC2 170 \NCONC2 165 \NCONC2 160 \NCONC2 155 \NCONC2 150 \NCONC2) (143 RIGHTKEY 126 RIGHTMIDDLEKEY 109 MIDDLEKEY 92 LEFTMIDDLEKEY 75 LEFTKEY 58 MIDDLE 42 RIGHT 25 LEFT 9 LASTMOUSEBUTTONS) () PTDIFFERENCE :D8 (L (1 PT2 0 PT1)) @AÕ@AÕNIL NIL () PTPLUS :D8 (I 1 PT2 I 0 PT1) @AÔ@AÔNIL NIL () GETPOSITION :D8 (I 1 CURSOR I 0 WINDOW) @A (6 GETSCREENPOSITION) NIL () GETBOXPOSITION :D8 (I 5 PROMPTMSG I 4 WINDOW I 3 ORGY I 2 ORGX I 1 BOXHEIGHT I 0 BOXWIDTH) @ABCDE (11 GETBOXSCREENPOSITION) NIL () DSPYSCREENTOWINDOW :D8 (I 1 DS I 0 Y) #@AghÉ0ÉÙ(12 \GETSTREAM) (29 \DISPLAYDATA 24 \DISPLAYDATA 17 STREAM 6 OUTPUT) () DSPXSCREENTOWINDOW :D8 (I 1 DS I 0 X) #@AghÉ0ÉÙ(12 \GETSTREAM) (29 \DISPLAYDATA 24 \DISPLAYDATA 17 STREAM 6 OUTPUT) () GETREGION :D8 (I 5 INITCORNERS I 4 NEWREGIONFNARG I 3 NEWREGIONFN I 2 INITREGION I 1 MINHEIGHT I 0 MINWIDTH) @ABCDE (11 GETSCREENREGION) NIL () \GETREGION.PACKPTS :D8 (F 0 BASEPT F 1 OPPT F 2 BASEX F 3 BASEY F 4 OPPY F 5 OPPX) PRPSQUQdT¿NIL NIL () \GETREGION.CHECKBASEPT :D8 (P 2 USERPT P 1 FN I 1 BASEPT I 0 NEWREGFNS F 3 NEWREGIONFNARG) 7@!Hµh¹AhSlIZ «oJ ˆAJ¿AJ¿HX°Ñ(37 ERROR 25 POSITIONP) NIL ( 31 "non-POSITION returned by NEWREGIONFN") \GETREGION.CHECKOPPT :D8 (P 5 FN P 4 USERPT P 3 OPPY P 2 OPPX P 1 BASEY P 0 BASEX I 4 OPPT I 3 BASEPT I 2 NEWREGFNS I 1 MINHGHT I 0 MINWID F 6 NEWREGIONFNARG) CCDDHJñ›HJÙ@ýñ²H@Ù‰JHÙ@ýñ˜H@ØZ“DJ¿IKñ›IKÙAýñ²IAÙ‰KIÙAýñ˜IAØ[“DK¿B°-dCDVlM\ «oL ˆDL¿DLµÔh(108 ERROR 96 POSITIONP) NIL ( 102 "non-POSITION returned by NEWREGIONFN") \GETREGIONTRACKWITHBOXA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 7 BASEX F 8 BASEY F 9 OPPX F 10 OPPY F 11 XTEMP F 12 YTEMP F 13 BASEPT F 14 DESTINATION F 15 OLDMOUSEX F 16 OLDMOUSEY F 17 THRUONCE F 18 OLDCURSOR F 19 WIDTH F 20 HEIGHT F 21 MAXX F 22 MAXY F 23 SI::NLSETQ-VALUE F 24 NEWREGFNS) ÿi@RW"²¿`låjðªhdc.gic"¿`låjð’±°` c$¿¿`låZjð¬J²ëJ ²ãW$ ¿WWñ`WWØlÛŒWWØlÛ`ñ²WWc¿c¿WWÙc&¿WWñ`WWØlÛŒWWØlÛ`ñ²WWc¿c¿WWÙc(¿WW ¿±ÿ$`dWð²¿`W ð’±ÿ`c¿`c ¿WW*WW&Ø»dKñ‘¿K¼jLñ¡L€j¿WW,W W(Ø½dMñ‘¿M¾jNñ¡N€j¿W0W ¿Wc¿Wc¿WWÙjð²WWÙjð›`Wð’±þ•WWÙc¿WWÙc¿WWWWW` ¿`c kÙc*¿W kÙc,¿WWØc¿WWØc¿WWØc¿WWØc¿`˜j`¿WWWWW` ¿±þ (505 DRAWGRAYBOX 432 BITMAPHEIGHT 420 BITMAPWIDTH 407 DRAWGRAYBOX 328 \GETREGION.CHECKBASEPT 223 \CURSORPOSITION 105 CURSOR 96 \FZEROP 72 GETMOUSESTATE 64 CURSOR 13 GETMOUSESTATE) (499 DASHEDSHADE 481 BACKGROUNDCURSOREXITFN 474 BACKGROUNDCURSOREXITFN 413 \CURSORDESTINATION 401 DASHEDSHADE 363 \CURSORDESTINATION 264 LASTMOUSEY 256 LASTMOUSEX 244 LASTMOUSEY 232 LASTMOUSEX 193 LASTMOUSEY 171 LASTMOUSEY 139 LASTMOUSEX 117 LASTMOUSEX 78 LASTMOUSEBUTTONS 59 FORCEPS 45 LASTMOUSEBUTTONS 35 :NORMAL 19 LASTMOUSEBUTTONS) () \GETREGIONTRACKWITHBOX :D8 (P 14 SI::*NLSETQFLAG* P 13 *PROCEED-CASES* P 12 SI::NLSETQ-VALUE P 11 MAXY P 10 MAXX P 9 DESTINATION P 8 HEIGHT P 7 WIDTH P 6 THRUONCE P 5 OLDMOUSEY P 4 OLDMOUSEX P 3 YTEMP P 2 XTEMP P 0 OLDCURSOR F 15 BASEX F 16 OPPX F 17 BASEY F 18 OPPY F 19 *PROCEED-CASES*) ƒÀWW Ù_W"W$Ù_`_d kÙ_O kÙ_W W$WW"O` `W&O gð´OYW W$WW"O` I¤h(127 ERROR! 120 DRAWGRAYBOX 86 \GETREGIONTRACKWITHBOXA0001 65 DRAWGRAYBOX 40 BITMAPHEIGHT 29 BITMAPWIDTH) (114 DASHEDSHADE 92 :NORMAL 73 SI::NLSETQ-PROCEED-CASE 59 DASHEDSHADE 21 \CURSORDESTINATION) () \UPDATEXYANDBOX :D8 (P 1 TEMPY P 0 TEMPX I 2 SHADE I 1 DESTINATION I 0 BASEPTCHANGE? F 2 BASEX F 3 BASEY F 4 OPPX F 5 OPPY F 6 BASEPT F 7 OPPT) ž A`ð²T@²(V¸V¹RHÙjð–SIÙjð³TURSHcIcAB ¿W¸W¹THÙjð–UIÙjð³SRSTUHcIc AB °5RSTUAB ¿Vc¿Vc¿Wc¿Wc ¿RSTU`B ¿RSTUh(154 SETCORNER 144 DRAWGRAYBOX 105 DRAWGRAYBOX 91 MOVEBOX 51 MOVEBOX) (137 \CURSORDESTINATION 8 \CURSORDESTINATION) () GETBOXREGION :D8 (I 5 PROMPTMSG I 4 WINDOW I 3 ORGY I 2 ORGX I 1 HEIGHT I 0 WIDTH) @ABCDE (11 GETBOXSCREENREGION) NIL () \TRACKWITHBOXA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 ORGX F 4 ORGY F 5 BOXWIDTH F 6 BOXHEIGHT F 7 DESTINATION F 8 OLDCURSOR F 9 SHADE F 10 MLMASK F 11 ORGLEFTMIDDLE F 12 SI::NLSETQ-VALUE) + i@¿W`åWðªhdcg`låjð’±”` c¿¿`låZjð¬J²ëJ ²ãW ¿Ujñ›`SUlÛØŠSUlÛØ`ñ›SUØc¿jUÙc ¿Vjñ›`TVlÛØŠTVlÛØ`ñ›TVØc¿jVÙc¿ST ¿±ÿGSd`Ùjðž¿T`Ùjð’±ÿ.STSUØTVØWW ¿`c¿`c¿`c¿`˜j`¿STSUØTVØWW ¿±þÞ(293 DRAWGRAYBOX 235 DRAWGRAYBOX 188 \CURSORPOSITION 98 CURSOR 89 \FZEROP 65 GETMOUSESTATE 57 CURSOR 9 GETMOUSESTATE) (272 BACKGROUNDCURSOREXITFN 265 BACKGROUNDCURSOREXITFN 257 \CURSORDESTINATION 249 LASTMOUSEY 241 LASTMOUSEX 210 LASTMOUSEY 199 LASTMOUSEX 167 LASTMOUSEY 149 LASTMOUSEY 126 LASTMOUSEX 108 LASTMOUSEX 71 LASTMOUSEBUTTONS 52 FORCEPS 38 LASTMOUSEBUTTONS 32 :NORMAL 17 LASTMOUSEBUTTONS) () \TRACKWITHBOX :D8 (P 7 SI::*NLSETQFLAG* P 6 *PROCEED-CASES* P 5 SI::NLSETQ-VALUE P 4 DESTINATION P 3 MLMASK P 2 NOERROR P 1 ORGLEFTMIDDLE P 0 OLDCURSOR I 0 SHADE F 8 ORGX F 9 ORGY F 10 BOXWIDTH F 11 BOXHEIGHT F 12 *PROCEED-CASES*) jPl[`\K`åYWWWWØWWØL@ `WN gð´MZWWWWØWWØL@ J¤h(102 ERROR! 95 DRAWGRAYBOX 61 \TRACKWITHBOXA0001 41 DRAWGRAYBOX) (67 :NORMAL 49 SI::NLSETQ-PROCEED-CASE 17 LASTMOUSEBUTTONS 10 \CURSORDESTINATION) () MOVEBOX :D8 (P 1 SOFTCURSORUP P 0 DISPINTERRUPT I 7 SHADE I 6 DESTINATION I 5 Y3 I 4 X3 I 3 Y2 I 2 X2 I 1 Y1 I 0 X1 F 2 \SOFTCURSORP F 3 \SOFTCURSORUPP) ‚ R²SY²`È¸`jÍ¿¿ABDFG ¿@CEFG ¿C@BFG ¿E@DFG ¿BACFG ¿DAEFG I´¿`HÍh(117 \SOFTCURSORUPCURRENT 109 BLTVLINE 96 BLTVLINE 83 BLTHLINE 70 BLTHLINE 57 BLTVLINE 44 BLTHLINE 31 \SOFTCURSORDOWN) (123 \EM.DISPINTERRUPT 22 \EM.DISPINTERRUPT 14 \EM.DISPINTERRUPT) () DRAWGRAYBOX :D8 (P 1 SOFTCURSORUP P 0 DISPINTERRUPT I 5 SHADE I 4 DESTINATION I 3 Y2 I 2 X2 I 1 Y1 I 0 X1 F 2 \SOFTCURSORP F 3 \SOFTCURSORUPP) d R²SY²`È¸`jÍ¿¿A@BDE ¿@ACDE ¿C@BDE ¿BACDE I´¿`HÍh(87 \SOFTCURSORUPCURRENT 79 BLTVLINE 67 BLTHLINE 55 BLTVLINE 43 BLTHLINE 31 \SOFTCURSORDOWN) (93 \EM.DISPINTERRUPT 22 \EM.DISPINTERRUPT 14 \EM.DISPINTERRUPT) () BLTHLINE :D8 (I 4 SHADE I 3 DESTINATION I 2 XB I 1 XA I 0 Y) )DCAdBñ‘¿B@BAÙjHñ¡H‚jHÙlg (38 BLTSHADE) (32 INVERT) () BLTVLINE :D8 (I 4 SHADE I 3 DESTINATION I 2 YB I 1 YA I 0 X) )DC@AdBñ‘¿BlBAÙjHñ¡H‚jHÙg (38 BLTSHADE) (32 INVERT) () SETCORNER :D8 (P 1 OLDCURSOR P 0 NEWCURSOR I 3 Y2 I 2 X2 I 1 Y1 I 0 X1) D B@ñ²CAñ–`°`ŽCAñ•`„`XYHIðH ¿BC h(64 \CURSORPOSITION 56 CURSOR 45 CURSOR) (39 LowerLeftCursor 33 UpperLeftCursor 23 LowerRightCursor 16 UpperRightCursor) () GETSCREENPOSITION :D8 (P 0 A11364 I 1 CURSOR I 0 WINDOW F 1 \CURSORSCREEN) 5@™@ bµ!QÉ\@µ Q@AlHÉ2°òÉ2°Û(7 WFROMDS) (47 WINDOW 38 WINDOW 17 SCREEN) () GETBOXSCREENPOSITION :D8 (P 0 A11365 I 5 PROMPTMSG I 4 WINDOW I 3 ORGY I 2 ORGX I 1 BOXHEIGHT I 0 BOXWIDTH F 1 \CURSORSCREEN) QÉ^Q@ABCDElHNIL (5 SCREEN) () GETSCREENREGION :D8 (P 0 A11366 I 5 INITCORNERS I 4 NEWREGIONFNARG I 3 NEWREGIONFN I 2 INITREGION I 1 MINHEIGHT I 0 MINWIDTH F 1 \CURSORSCREEN) QÉ`Q@ABCDElHNIL (5 SCREEN) () GETBOXSCREENREGION :D8 (P 0 SCREENPOS I 5 PROMPTMSG I 4 WINDOW I 3 ORGY I 2 ORGX I 1 HEIGHT I 0 WIDTH) "@ABCDE XdHH@Ah(14 GETBOXSCREENPOSITION) NIL () \MEDW.GETSCREENPOSITIONA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 WINDOW F 2 \CURSORSCREEN) ½¿`låjð³nQ²5¿`låHjðµ H´H ²\RQÉ2ð²PQ³b¿`låHjðµ H´H ²Þ````¢±ÿ|j`¿±ÿp`¢±ÿ|j`¿±ÿp`Q Q (184 LASTMOUSEY 178 LASTMOUSEX 104 \FZEROP 76 GETMOUSESTATE 53 \FZEROP 25 GETMOUSESTATE 4 GETMOUSESTATE) (172 LASTSCREEN 161 BACKGROUNDCURSOREXITFN 151 BACKGROUNDCURSOREXITFN 140 BACKGROUNDCURSOREXITFN 130 BACKGROUNDCURSOREXITFN 122 LASTMOUSEY 117 LASTMOUSEX 112 LASTSCREEN 82 LASTMOUSEBUTTONS 63 WINDOW 31 LASTMOUSEBUTTONS 10 LASTMOUSEBUTTONS) () \MEDW.GETSCREENPOSITION :D8 (P 0 SI::*RESETFORMS* I 2 CURSOR I 1 WINDOW I 0 SCREEN) AA˜A b¿gBµ` hhhg ¿$(58 SI::RESETUNWIND 53 \MVLIST 48 \MEDW.GETSCREENPOSITIONA0001 28 CURSOR 7 WFROMDS) (43 SI::RESETUNWIND 23 CROSSHAIRS 15 CURSOR) () \MEDW.GETBOXSCREENPOSITIONA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 1 SHADE P 0 MOUSEDOWNFLG I 0 SI::*CLEANUP-FORMS* F 8 ORGX F 9 ORGY F 10 BOXWIDTH F 11 BOXHEIGHT F 12 WINDOW F 13 PROMPTMSG) 9¿`låjðhðqW3 ²NW3 ²H`WWlÛØñžWWØc¿jWÙc¿`WWlÛØñžWWØc¿jWÙc¿WW Ž`c¿`c¿W—W ¿`Y¿I ¿H³+`låZjð³J–J i¸` °ÑH²Ï`lå[jð¬K²¾K ²¶W•¿W²2`WdWØ¼dLñ‘¿LW WdWØ½dMñ‘¿MW `WdWØ¾dNñ‘¿NWdWØ_¿dOñ’¿O(270 DSPYSCREENTOWINDOW 250 DSPXSCREENTOWINDOW 220 CLRPROMPT 210 \FZEROP 182 CURSOR 169 \FZEROP 142 \TRACKWITHBOX 128 PROMPTPRINT 101 \CURSORPOSITION 4 GETMOUSESTATE) (278 LASTSCREEN 230 LASTSCREEN 192 LASTMOUSEBUTTONS 177 CROSSHAIRS 151 LASTMOUSEBUTTONS 134 GRAYSHADE 115 LASTMOUSEY 107 LASTMOUSEX 67 LASTMOUSEY 37 LASTMOUSEX 10 LASTMOUSEBUTTONS) () \MEDW.GETBOXSCREENPOSITION :D8 (P 0 SI::*RESETFORMS* I 6 PROMPTMSG I 5 WINDOW I 4 ORGY I 3 ORGX I 2 BOXHEIGHT I 1 BOXWIDTH I 0 SCREEN) 3g` hhhg ¿$(44 SI::RESETUNWIND 39 \MVLIST 34 \MEDW.GETBOXSCREENPOSITIONA0001 14 CURSOR) (29 SI::RESETUNWIND 9 BOXCURSOR 4 CURSOR) () \MEDW.GETSCREENREGIONA0001A0003 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 9 OPPX F 10 BASEX F 11 OPPY F 12 BASEY F 13 OPPT F 14 DESTINATION F 15 NEWREGFNS F 16 BASEPT F 17 NOTTIMEDOUT F 18 DOWNFLG F 19 OLDMOUSEY F 20 OLDMOUSEX F 21 MINWIDTH F 22 SHADE F 23 MINHEIGHT F 24 BEGCLOCK F 25 SI::NLSETQ-VALUE) Û i@r¿W"²W0` ² hc"±•W$²t`låZjð’±„JµY`låjð’±0`låjð’±"` ¿¿`lå\jð¬L²ëL ²ã`WÙ½jMñ³5M°5 °`lå[jð®K–K £ic$¿h²†hdc2gjMÙ`WÙ¾jNñ¡N‚jNÙýñ©WWc¿c¿`WÙ_¿jOñ¢OƒjOÙ`WÙ_¿jOñ¢OƒjOÙýñ©WWc¿c¿¿WW ¿W*W.WW W ¿WWWW¿iWW,¿`c¿`¢±þžj`¿±þ’`W(ð›`W&ð’±þ}W`c(¿W`c&¿W*W.WW W ¿hWW,¿`c¿`¢±þ:j`¿±þ.(443 \UPDATEXYANDBOX 432 \GETREGION.CHECKOPPT 343 \UPDATEXYANDBOX 332 SETCORNER 318 \GETREGION.CHECKOPPT 301 \GETREGION.CHECKBASEPT 291 \GETREGION.PACKPTS 174 \FZEROP 150 \FZEROP 126 \FZEROP 102 GETMOUSESTATE 96 CURSOR 26 \CLOCKGREATERP 9 GETMOUSESTATE) (467 BACKGROUNDCURSOREXITFN 457 BACKGROUNDCURSOREXITFN 449 \CURSORDESTINATION 412 LASTMOUSEY 401 LASTMOUSEX 387 LASTMOUSEY 378 LASTMOUSEX 367 BACKGROUNDCURSOREXITFN 357 BACKGROUNDCURSOREXITFN 349 \CURSORDESTINATION 255 LASTMOUSEY 232 LASTMOUSEY 201 LASTMOUSEX 192 :NORMAL 157 LASTMOUSEBUTTONS 133 LASTMOUSEX 108 LASTMOUSEBUTTONS 91 FORCEPS 77 LASTMOUSEBUTTONS 63 LASTMOUSEBUTTONS 43 LASTMOUSEBUTTONS 21 CLICKWAITTIME) () \MEDW.GETSCREENREGIONA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 26 SI::*NLSETQFLAG* P 25 *PROCEED-CASES* P 24 SI::NLSETQ-VALUE P 19 NEWREGFNS P 18 NOTTIMEDOUT P 17 BEGCLOCK P 16 DOWNFLG P 15 NEWMOUSEY P 14 NEWMOUSEX P 13 OPPT P 12 BASEPT P 11 INITTOP P 10 INITBOTTOM P 9 INITRIGHT P 8 INITLEFT P 7 OLDMOUSEY P 6 OLDMOUSEX P 5 OPPY P 4 OPPX P 3 BASEY P 2 BASEX P 1 SHADE P 0 DESTINATION I 0 SI::*CLEANUP-FORMS* F 27 INITCORNERS F 28 MINWIDTH F 29 MINHEIGHT F 30 INITREGION F 31 \CURSORDESTWIDTH F 32 \CURSORDESTHEIGHT F 33 NEWREGIONFN F 34 *PROCEED-CASES* F 35 \CURSORSCREEN) ï ðhd_hd_W83 µjc8W:3 µjc:WBd£d‘h_&`Yi_$`XW6µK¿`¼`½jLW8ÙZñ²W8dW>ñ’¿W>kÙ\W8ÙºMW:Ø[W@ýñ³[W@W:Ù_*¿jO*ñ³FO*°C lð²0W6_(µi²&W6ºW6»W6¼W6]°3 ¢h°áO(°ÖW6 …j]W:Ø[¿LM W<²Q`kåjð³F`\W<_dW<Ø_ØlÛýñ’OOº`]W<_dW<Ø_ØlÛýñ’OO»W8W:O&OO O\O]`XJKLMHI JKLMj _"`WDO2 gð´O0²JJKLMHI ¿WFJdLñ‘¿LKdMñ‘¿MLJÙ_,¿jO,ñ¢O,ƒjO,ÙKMÙ_.¿jO.ñ¢O.ƒjO.ÙhJKLMHI ¿h(491 ERROR! 485 DRAWGRAYBOX 413 DRAWGRAYBOX 387 \MEDW.GETSCREENREGIONA0001A0003 364 CLOCK 358 SETCORNER 349 DRAWGRAYBOX 323 \GETREGION.CHECKOPPT 307 \GETREGION.PACKPTS 219 \GETREGIONTRACKWITHBOX 214 \CURSORPOSITION 199 \ILLEGAL.ARG 141 LENGTH 68 GETMOUSESTATE) (393 :NORMAL 374 SI::NLSETQ-PROCEED-CASE 336 \CURSORDESTINATION 272 LASTMOUSEY 239 LASTMOUSEX 228 LASTMOUSEBUTTONS 80 LASTMOUSEY 74 LASTMOUSEX 58 \CURSORDESTINATION 49 GRAYSHADE) () \MEDW.GETSCREENREGION :D8 (P 0 SI::*RESETFORMS* I 6 INITCORNERS I 5 NEWREGIONFNARG I 4 NEWREGIONFN I 3 INITREGION I 2 MINHEIGHT I 1 MINWIDTH I 0 SCREEN) 3g` hhhg ¿$(44 SI::RESETUNWIND 39 \MVLIST 34 \MEDW.GETSCREENREGIONA0001 14 CURSOR) (29 SI::RESETUNWIND 9 EXPANDINGBOX 4 CURSOR) () GETGRIDBOXREGIONA0001 :D8 (I 2 FNARG I 1 OPPT I 0 BASEPT F 0 GRIDREGION) A²APAA‘AA²1PAPPØmÿØPAPPØmÿØ P@@‘@P@PPØmÿØP@PPØmÿØ (124 CREATEPOSITION 119 \RANGELIMIT 97 \RANGELIMIT 75 INSIDE? 64 CREATEPOSITION 59 \RANGELIMIT 37 \RANGELIMIT 12 INSIDE?) NIL () GETGRIDBOXREGION :D8 (P 2 RAWREGION P 1 GRIDREGION P 0 NEWREGION I 4 WINDOW I 3 GRIDINTERIOR I 2 GRIDSPEC I 1 MINHEIGHT I 0 MINWIDTH) ÅCD ÉÉ0ÉØCD ÉÉ0ÉØCCCjdhgJD B JD B jdXdJJØmÿØD B kØHÕHJJØmÿØD B kØHÕH(186 GRIDYCOORD 180 DSPYSCREENTOWINDOW 152 GRIDXCOORD 146 DSPXSCREENTOWINDOW 126 CREATEREGION 119 GRIDYCOORD 113 DSPYSCREENTOWINDOW 104 GRIDXCOORD 98 DSPXSCREENTOWINDOW 87 GETREGION 36 \INSUREWINDOW 10 \INSUREWINDOW) (82 GETGRIDBOXREGIONA0001 50 \DISPLAYDATA 43 STREAM 24 \DISPLAYDATA 17 STREAM) () \RANGELIMIT :D8 (L (2 MAX 1 VAL 0 MIN)) @BdAñ‘¿AHdIñ INIL NIL () MOUSECONFIRMA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 LEFTDOWN I 0 SI::*CLEANUP-FORMS*) Q¿`låjð³ð`låjðhð¿`låYjð³I–I ®`låjðhð¸°ÕH(61 \FZEROP 37 GETMOUSESTATE 4 GETMOUSESTATE) (67 LASTMOUSEBUTTONS 43 LASTMOUSEBUTTONS 22 LASTMOUSEBUTTONS 10 LASTMOUSEBUTTONS) () MOUSECONFIRM :D8 (P 2 SI::*RESETFORMS* P 1 PWINDOW P 0 HELPSTR I 3 DON'TCLEAR/MAINW I 2 WINDOW I 1 HELPSTRING I 0 PROMPTSTRING) ÁAdið’¿h†µo@dið“¿hb¢H²YBµ-C ²C@¡HH¡@‹@oH Y„`b ¿@µH²#HB °B ¿HžlB ¿°âib¿g` hhhg ¿$IµC¦B ¿ ¿(189 CLOSEW 182 CLEARW 166 SI::RESETUNWIND 161 \MVLIST 156 MOUSECONFIRMA0001 136 CURSOR 114 SPACES 103 PRIN1 95 PRIN1 81 FRESHLINE 67 GETPROMPTWINDOW 62 CONCAT 39 WINDOWP) (151 SI::RESETUNWIND 131 MOUSECONFIRMCURSOR 126 CURSOR 74 PROMPTWINDOW) ( 56 " " 14 "Click LEFT to confirm, RIGHT to abort.") (RPAQ MOUSECONFIRMCURSOR (CURSORCREATE (QUOTE #*(16 16)GOOLD@@DELIDELIDELIDELIDELIDELIDELIDD@@DD@@DD@@DD@@DD@@DD@@DGOOL ) (QUOTE NIL) 8 8)) NEAREST/PT/ON/GRID :D8 (I 1 GRIDN I 0 PT) @dA @dA @(18 NEAREST/MULTIPLE 8 NEAREST/MULTIPLE) NIL () PTON10GRID :D8 (I 1 MOVINGPT I 0 FIXEDPT) Aµ@l (10 NEAREST/PT/ON/GRID) NIL () NEAREST/MULTIPLE :D8 (I 1 N I 0 X) @djñ™AlÛØAÛAÚAlÛÙAÛAÚNIL NIL () (PUTPROPS IABS MACRO (OPENLAMBDA (A) (COND ((IGEQ A 0) A) (T (IMINUS A))))) (READVARS-FROM-STRINGS (QUOTE (DASHEDSHADE)) "({(READBITMAP)(16 16 %"@@OO%" %"@@OO%" %"@@OO%" %"@@OO%" %"@@OO%" %"@@OO%" %"@@OO%" %"@@OO%" %"OO@@%" %"OO@@%" %"OO@@%" %"OO@@%" %"OO@@%" %"OO@@%" %"OO@@%" %"OO@@%")}) ") (RPAQ CROSSHAIRS (CURSORCREATE (QUOTE #*(16 16)@@@@@GL@AMG@CAAHFA@LDA@DLA@FHA@BOOONHA@BLA@FDA@DFA@LCAAHAMG@@GL@ ) (QUOTE NIL) 7 7)) (RPAQ EXPANDINGBOX (CURSORCREATE (QUOTE #*(16 16)@@@@@@@@H@@@L@@@N@@@O@@@OHNGOLLCONKMO@BDMHBDIHKM@LLC@LNG@F@@@F@@ ) (QUOTE NIL) 0 13)) (RPAQ FORCEPS (CURSORCREATE (QUOTE #*(16 16)@NG@@JE@@NG@@DB@@FF@@CL@@AH@@AH@@CL@@FF@ALCHBDBDBDBDBDBDBDBDAHAH ) (QUOTE NIL) 7 15)) (RPAQ BOXCURSOR (CURSORCREATE (QUOTE #*(16 16)@@@@@@@@COOLCOOLC@@LC@@LC@@LC@@LC@@LC@@LC@@LC@@LCOOLCOOL@@@@@@@@ ) (QUOTE NIL) 7 7)) (RPAQ LOCKEDSPOT (CURSORCREATE (QUOTE #*(16 16)@@@@@@@@COOLCOOLC@@LC@@LCCLLCCLLCCLLCCLLC@@LC@@LCOOLCOOL@@@@@@@@ ) (QUOTE NIL) 7 7)) (RPAQ OLDEXPANDINGBOX (CURSORCREATE (QUOTE #*(16 16)@@@@OHCNN@@NO@ANKHCJIMGB@ON@@DD@@LF@@DD@@ON@IMGBKHCJO@ANN@@NOHCN ) (QUOTE NIL) 7 7)) (RPAQ LowerLeftCursor (CURSORCREATE (QUOTE #*(16 16)@@@@@@@@@@@@@@@@@@@@H@@@L@@@L@@@L@@@L@@@L@@@L@@@L@@@L@@@OOL@OON@ ) (QUOTE NIL) 0 0)) (RPAQ UpperRightCursor (CURSORCREATE (QUOTE #*(16 16)@COO@AOO@@@C@@@C@@@C@@@C@@@C@@@C@@@C@@@C@@@A@@@@@@@@@@@@@@@@@@@@ ) (QUOTE NIL) 15 15)) (RPAQ UpperLeftCursor (CURSORCREATE (QUOTE #*(16 16)OOL@OOH@L@@@L@@@L@@@L@@@L@@@L@@@L@@@L@@@H@@@@@@@@@@@@@@@@@@@@@@@ ) (QUOTE NIL) 0 15)) (RPAQ LowerRightCursor (CURSORCREATE (QUOTE #*(16 16)@@@@@@@@@@@@@@@@@@@@@@@A@@@C@@@C@@@C@@@C@@@C@@@C@@@C@@@C@COO@GOO ) (QUOTE NIL) 15 0)) \SW2BM :D8 (P 24 \INTERRUPTABLE P 23 CH P 22 CW P 21 YQ P 20 XQ P 19 YP P 18 XP P 17 CB P 16 CL P 7 QB P 6 QW P 5 QH P 4 QL P 3 PB P 2 PW P 1 PH P 0 PL I 3 QR I 2 Q I 1 PR I 0 P) ‘ðAµ‚±]j[¸@Èº@È¹Cµ‚±Uj_¼BÈ¾BÈ½jHÙjLÙ_¿dOñ¢¿Odjñ¡¿jjKÙjOÙ_¿dOñ¢¿Odjñ¡¿jO HØO"KØO LØO"OØ$@ÈHJØ_¿dOñ’¿OO$ÙBÈLNØ_¿dOñ’¿OO(Ù_¿dOñ’¿O_,¿@ÈKIØ_¿dOñ’¿OO&ÙBÈOMØ_¿dOñ’¿OO*Ù_¿dOñ’¿O_.¿@O$O&BO(O*O,O.gg ¿BO(O*@O$O&O,O.gg ¿@O$O&BO(O*O,O.gg h¸A»A¹Aº±þª¼C_¿C¾C±þ±(356 BKBITBLT 325 BKBITBLT 294 BKBITBLT) (350 INVERT 345 INPUT 319 INVERT 314 INPUT 288 INVERT 283 INPUT 227 BITMAP 202 BITMAP 163 BITMAP 138 BITMAP 59 BITMAP 50 BITMAP 30 BITMAP 21 BITMAP) () COMPOSEREGS :D8 (I 1 OUTER I 0 INNER) A@ØA@Ø@@@NIL NIL () TRANSLATEREG :D8 (L (1 OUTER 0 INNER)) @AÙ@AÙ@@hNIL NIL () EDITBM :D8 (P 12 ORIGWIDTH P 11 ORIGBPP P 10 BPP P 9 GRIDSQUARE P 8 ORIGBM P 7 CR P 6 BM P 5 HEIGHT P 4 WIDTH P 3 BMWHEIGHT P 2 BMWWIDTH P 1 BMWINTERIOR P 0 BMW I 0 BMSPEC) Pð@`ð³@dgð²"¿`b´` _¿`^±óÃ@d›_ ^±ß@d3@ð²/@g _Ã´Od˜ ^±·_¿^±«@ ²@@@` ¾@_¿`@@Njdhdgg °b@ ²T@_g @g @ ¾@ ¿h@ _¿@OONjdOO …^¿N jð¨N jð›o@ ¿` _NÈ_OOð³+NÈ_¿NOÍ¿OOÚOÛ¼NLÍˆNÈ\¿NÈ]`lÚlÛlÙLÛ`lÚlÛldÚÙMkØÛ_¿dOñ’¿Od`ñ•¿`dlñ¢¿l_dLÚlØ`lÚlÛ_¿dOñ’¿OZMOkØÚldÚØkØ`lÚlÛ_¿dOñ’¿O[J Ki hddo o XdgNHggHggHggHggHggHgjHgjHgjHgjHgOHghHgO HgiHhddOhð Hg ªnô ¿°ëHghH OOð³NOÍ¿NOÍ¿Hg ið¢±»@`ð•`O ².Njd`OOOOgg NO ²+NjdOOOOOgg NO²üNjdOjdLM @µOd3@ð²ù@g ¿gg@Nh ¿°Õ@`ðžOhd`¿(1101 ERROR! 1095 BKBITBLT 1070 STKEVAL 1048 MARKASCHANGED 1025 BKBITBLT 1004 BKBITBLT 963 WINDOWP 954 BKBITBLT 910 REGIONP 883 GETWINDOWUSERPROP 843 CLOSEW 837 PUTWINDOWPROP 822 DISMISS 813 GETWINDOWUSERPROP 802 SPAWN.MOUSE 797 EDITBMRESHAPEFN 783 PUTWINDOWPROP 771 PUTWINDOWPROP 766 MAXIMUMCOLOR 753 PUTWINDOWPROP 741 PUTWINDOWPROP 728 PUTWINDOWPROP 716 PUTWINDOWPROP 704 PUTWINDOWPROP 692 PUTWINDOWPROP 680 PUTWINDOWPROP 664 PUTWINDOWPROP 648 PUTWINDOWPROP 632 PUTWINDOWPROP 616 PUTWINDOWPROP 600 PUTWINDOWPROP 587 CREATEW 577 GETBOXREGION 563 HEIGHTIFWINDOW 556 WIDTHIFWINDOW 335 BITSPERPIXEL 324 ERROR 310 BITMAPWIDTH 301 BITMAPHEIGHT 293 \READBMDIMENSIONS 287 BKBITBLT 256 DSPCLIPPINGREGION 248 TOTOPW 241 BITMAPCREATE 236 BITSPERPIXEL 230 GETWINDOWPROP 219 GETWINDOWPROP 204 WINDOWP 196 BKBITBLT 160 BITMAPCREATE 155 BITSPERPIXEL 134 REGIONP 124 \READBMDIMENSIONS 112 BITMAPCOPY 94 EVALV 72 BITMAPCOPY 44 BITMAPCOPY) (1090 CursorBitMap 1079 CursorBitMap 1059 SETQQ 1054 EDITBM 1043 VARS 998 REPLACE 993 INPUT 948 REPLACE 943 INPUT 920 \CURSORDESTINATION 902 CursorBitMap 895 CursorBitMap 878 FINISHEDFLG 867 BITMAP 856 BITMAP 831 CLOSEFN 808 FINISHEDFLG 777 GRIDON 759 COLOR 747 FINISHEDFLG 734 ORIGINALBITMAP 722 DYOFFSET 710 DXOFFSET 698 YOFFSET 686 XOFFSET 675 EDITBMCLOSEFN 670 CLOSEFN 659 EDITBMBUTTONFN 654 BUTTONEVENTFN 643 EDITBMREPAINTFN 638 REPAINTFN 627 EDITBMRESHAPEFN 622 RESHAPEFN 611 EDITBMSCROLLFN 606 SCROLLFN 594 BM 532 \CURSORDESTHEIGHT 496 \CURSORDESTWIDTH 475 NORMALGRIDSQUARE 467 NORMALGRIDSQUARE 435 \CURSORDESTHEIGHT 419 \CURSORDESTWIDTH 411 BITMAP 401 BITMAP 391 BITMAP 371 BITMAP 360 BITMAP 343 BITMAP 330 \CURSORDESTINATION 225 HEIGHT 214 WIDTH 190 REPLACE 185 INPUT 170 \CURSORDESTINATION 150 \CURSORDESTINATION 101 BITMAP 89 EDITBM 61 BITMAP 52 CursorBitMap 39 CursorBitMap 30 CursorBitMap 21 CursorBitMap 11 CursorBitMap) ( 582 "Bitmap Editor" 571 "Indicate the position for the Bitmap Edit window." 318 "Can't edit a bitmap with no bits in it.") EDITBMSCROLLFN :D8 (P 25 DYOFFSET P 24 DXOFFSET P 23 BITSHIGH P 22 BITSWIDE P 21 BITMAPHEIGHT P 20 BITMAPWIDTH P 19 BM P 18 EBMYOFFSET P 17 EBMXOFFSET P 16 EBMYLIMIT P 15 EBMXLIMIT P 14 GRIDINTERIOR P 13 GHEIGHT P 12 GWIDTH P 11 GIHEIGHT P 10 GIBOTTOM P 9 GILEFT P 8 EXTENTHEIGHT P 7 EXTENTWIDTH P 6 EXTENT P 5 WWIDTH P 4 WHEIGHT P 3 REG P 2 GRIDSPEC P 1 DYGRID P 0 DXGRID I 2 DY I 1 DX I 0 W) %jdòðP$@g Z@ É[@g \@g ]@g _@g _"@g _$@g _&dÈ_(O&È_*@g _,@g _.@g _0@g _2O"O,Ø_O$O.Ø_ J´‚±¡O_¿O_¿O_¿J_¿J_¿@ É^_¿N_¿A²:@gO(O,ÙAÖjØ_"¿NjO"OÖO(×Ù¿O&JO,O.jd@i ±UjAñ¢±±jAÙJ O(OÙ_4¿dO4ñ’¿O4Xjñ¡h@gO"HØ_"¿NjO"OÖO(×ÙjOÙ_6¿dO6ñ¢¿O6¿@OHOÖØO@OO``gghO ¿j@OO,HÙOÖØO``gO ¿O&JHO.O,HÙj±™Ajñ¢±šO"AJ _8¿dO8ñ’¿O8Xjñ´‚±ÿO@gO"HÙ_"¿NjO"OÖO(ÛÙdjñ‘¿j¿@OO@OHOÖØO``gghO ¿j@OOHOÖOg ¿O&JHO.jd@ ¿B²7@gO*O.ÙoBéÖjØ_$¿NjO$OÖO*×Ù¿O&JO,O.±.jBñ¢±£O&ÈO ÙOjBÙ_:¿dO:ñ’¿O:J _<¿dO<ñ’¿O¿dO>ñ¢¿O>¿@OOIOÚØ@OO``gghO ¿O&JO,IjO.IÙ±‰Bjñ¢±‹O$OdBñ‘¿BJ _@¿dO@ñ’¿O@Yjñ´‚±ýÉ@gO$IÙ_$¿NjO$OÖO*×Ùdjñ‘¿j¿@OO@OOIOÚØ``gghO ¿O&JO,Ijd@i ¿O0O"ñ³7O2O$ñ³0O"O,ØO0@g Øñ³O$O.ØO2@g Øñ¢±@gO&È@g ÙO"O,âØ@g âÙ_B¿dOBñ’¿OB_D¿jODñ¢OD€j_0¿@gO&È@g ÙO$O.âØ@g âÙ_F¿dOFñ’¿OF_H¿jOHñ¢OH€j_2¿O&@g @g @j@g @g nèhg ¿±üK(1306 BKBITBLT 1291 GETWINDOWUSERPROP 1280 GETWINDOWUSERPROP 1267 GETWINDOWUSERPROP 1256 GETWINDOWUSERPROP 1242 PUTWINDOWPROP 1210 GETWINDOWUSERPROP 1192 GETWINDOWUSERPROP 1165 PUTWINDOWPROP 1133 GETWINDOWUSERPROP 1115 GETWINDOWUSERPROP 1083 GETWINDOWUSERPROP 1061 GETWINDOWUSERPROP 1028 RESETGRID.NEW 1011 BKBITBLT 946 PUTWINDOWPROP 909 GRIDYCOORD 871 BKBITBLT 797 PUTWINDOWPROP 760 GRIDYCOORD 694 PUTWINDOWPROP 660 RESETGRID.NEW 644 BLTSHADE 620 BKBITBLT 556 PUTWINDOWPROP 519 GRIDXCOORD 488 BLTSHADE 450 BKBITBLT 377 PUTWINDOWPROP 338 GRIDXCOORD 319 RESETGRID.NEW 288 PUTWINDOWPROP 244 \INSUREWINDOW 178 GETWINDOWUSERPROP 165 GETWINDOWUSERPROP 152 GETWINDOWUSERPROP 139 GETWINDOWUSERPROP 105 GETWINDOWUSERPROP 92 GETWINDOWUSERPROP 79 GETWINDOWUSERPROP 66 GETWINDOWUSERPROP 54 GETWINDOWPROP 42 GETWINDOWPROP 28 \INSUREWINDOW 21 GETWINDOWUSERPROP) (1300 REPLACE 1286 BMDISPLAYWIDTH 1275 BMDISPLAYBOTTOM 1262 DYOFFSET 1251 DXOFFSET 1205 BMDISPLAYHEIGHT 1187 BMDISPLAYHEIGHT 1179 BITMAP 1172 DYOFFSET 1128 BMDISPLAYWIDTH 1110 BMDISPLAYWIDTH 1102 BITMAP 1095 DXOFFSET 1078 BMDISPLAYHEIGHT 1056 BMDISPLAYWIDTH 1002 REPLACE 997 INPUT 992 SCREENHEIGHT 987 SCREENWIDTH 935 YOFFSET 862 REPLACE 857 INPUT 852 SCREENHEIGHT 847 SCREENWIDTH 786 YOFFSET 733 BITMAP 672 YOFFSET 638 REPLACE 611 REPLACE 606 INPUT 601 SCREENHEIGHT 596 SCREENWIDTH 545 XOFFSET 480 REPLACE 475 SCREENHEIGHT 470 SCREENWIDTH 441 REPLACE 436 INPUT 431 SCREENHEIGHT 426 SCREENWIDTH 366 XOFFSET 272 XOFFSET 173 DYOFFSET 160 DXOFFSET 147 BITSHIGH 134 BITSWIDE 124 BITMAP 113 BITMAP 100 BM 87 YOFFSET 74 XOFFSET 61 GRIDINTERIOR 49 WIDTH 37 HEIGHT 16 GRIDSPEC) ( 682 1.0) EDITBMCLOSEFN :D8 (I 0 BMW) d@gh@gh@gg@g ´/@g @ @g @gh(97 PUTWINDOWPROP 85 CLOSEW 80 GETWINDOWUSERPROP 69 DETACHWINDOW 63 GETWINDOWUSERPROP 50 GETWINDOWUSERPROP 39 PUTWINDOWPROP 23 PUTWINDOWPROP 11 PUTWINDOWPROP) (91 COORDWIN 75 COORDWIN 58 COORDWIN 45 COORDWIN 34 KILL 29 FINISHEDFLG 17 GRIDBM 5 TEMPBM) () TILEAREA :D8 (I 5 WIN I 4 SRCBM I 3 HGHT I 2 WDTH I 1 BTM I 0 LFT) DjdD D E@ABC (25 BLTPATTERN.REPLACEDISPLAY 14 BITMAPHEIGHT 8 BITMAPWIDTH) NIL () EDITBMBUTTONFNA0019 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) '¿`låHjðµ H´H ²Þh(32 \FZEROP 4 GETMOUSESTATE) (10 LASTMOUSEBUTTONS) () EDITBMBUTTONFN :D8 (P 36 COORDWIN P 35 REG P 34 SI::*RESETFORMS* P 33 POS P 20 CURSORBM P 19 BITSPERPIXEL P 18 EXTENT P 17 DISPLAYREGION P 16 DYOFFSET P 15 DXOFFSET P 14 YOFFSET P 13 XOFFSET P 12 WREGION P 11 BITSHIGH P 10 BITSWIDE P 9 BM P 8 GRIDINTERIOR P 7 GRIDSPEC P 6 ORIGBM P 5 PAINTW P 4 NEWGRIDSIZE P 3 BITMAPHEIGHT P 2 BITMAPWIDTH P 1 GRIDY0 P 0 GRIDX0 I 0 W F 37 COLOR F 38 EDITBMWINDOWMENU F 39 GRIDSIZEMENU) *%ðð0 @g _@g _@g _@g _@g _@ É_@g _@g _@g _@g _ @g _"@ É_$OXOYOÈZOÈ[OÈ_&@g cJO@ @ ²OOO@OOWJ ¿± *O"@ @ ¢±uWLÃ“WL°>`do¿di¿dg ¿dg¿jdnÿdh_*¿dO* ¿cL gð´‚± »!OOlOØO@g ÕØ@g O@g ÕØlØOØ_B¿@gJOÙ@g OBlOØÕØdjñ¡¿j_,¿dO,ñ’¿O,_¿@gKOÕ@g OBOlØÕØ@g Õ_.¿dO.ñ’¿O._0¿jO0ñ¢O0€j_¿O$jOO$ÖJ×Ù¿O$jOO$ÖK×Ù¿OOñ³7O Oñ³0OOØO@g Øñ³OOØO @g Øñ¢±@gOÈ@g ÕOOâØ@g âÕ_2¿dO2ñ’¿O2_4¿jO4ñ¢O4€j_¿@gOÈ@g ÕOOâØ@g âÕ_6¿dO6ñ’¿O6_8¿jO8ñ¢O8€j_ ¿O@g @g @j@g @g nèhg ¿OOOOjd@i ±¡`låjð³~@ ¿ldO _(¿OhdO(¿gO(h`É`É hhh"g ¿$@ ¿±@ ¿`Ã–`°W`´oo _:¿dO:¿di¿dg ¿dg¿jdnÿdh_<¿dO< ¿ dgð²T¿@gi¿@g ´‚±@g @ ¿@g ¿@gh¿±Kdgð²X¿@gg¿@g ´‚± @g @ ¿@g ¿@gh¿±ìdgð¢±¿OOOodgð²v¿@g ^µjOOOOOg ¿i±§ ².`ONØONØOOOOOgg °ÊNOOOOOOO °³gð²L@g ^µjOhdddg ¿i°0 ²`NNO°äNhdO°Ø@ ¿h´‚±ô@OOOOO ¿±Þdgð¢±É¿OOOodgð²¿jOOOOOg ¿i°gð™O ¿i‡@ ¿h´‚±€Ojg@¿@g ²OOOg@ ¿O@g @g @j@g @g nèhg ¿± dgð¢±’¿jdOO@ #nÿÿOOFOÔOFOÔOFOFg ¿O@g @g @j@g @g nèhg ¿OOOOjd@ ±sdgð¢±¿jdOO@ #jOOFOÔOFOÔOFOFg ¿O@g @g @j@g @g nèhg ¿OOOOjd@ ±Ûdgð²b¿@g $OHµ7oohi_H@gg¿@gOH±Š@ ¿OH ¿@gh°ádgð¢±×¿@g ³e@gi¿OOOg@ ¿O@g @g @j@g @g nèhg ¿±ö@gh¿OOOOjd@i ¿O@g @g @j@g @g nèhg ¿±“dgð²q¿WNÃ“WN°?`do¿dl¿dg ¿dg¿jdnÿdh_>¿dO> ¿cN 3\´‚±3@gL¿@ ¿±dgðœ¿O@ ¿±dgð¢±¸¿`JÕlÛ`KÕlÛJ Kh h ] ¿OjdM¿M ¿`do¿do¿di¿dg ¿dg¿jdnÿdh_@¿dO@ ¿ ²MjdO¿@OOOOO ¿M ¿°EdgðŸ¿OOO@¿°-gð²@gO& µWJ¿…@ h(2854 UPDATE/BM/DISPLAY/SELECTED/REGION 2846 PUTWINDOWPROP 2837 MENU 2832 COLORMENU 2808 READHOTSPOT 2784 CLOSEW 2777 \EDITBM/PUTUP/DISPLAY 2759 BKBITBLT 2747 MENU 2674 PAINTW 2667 BKBITBLT 2656 OPENW 2650 CREATEW 2640 HEIGHTIFWINDOW 2633 WIDTHIFWINDOW 2591 UPDATE/SHADE/DISPLAY 2570 EDITBMRESHAPEFN 2563 PUTWINDOWPROP 2542 MENU 2450 BKBITBLT 2435 GETWINDOWUSERPROP 2424 GETWINDOWUSERPROP 2411 GETWINDOWUSERPROP 2400 GETWINDOWUSERPROP 2386 RESETGRID.NEW 2367 PUTWINDOWPROP 2351 BKBITBLT 2336 GETWINDOWUSERPROP 2325 GETWINDOWUSERPROP 2312 GETWINDOWUSERPROP 2301 GETWINDOWUSERPROP 2287 GRID 2268 PUTWINDOWPROP 2254 GETWINDOWUSERPROP 2221 CLOSEW 2213 DETACHWINDOW 2203 PUTWINDOWPROP 2189 ATTACHWINDOW 2171 CREATEW 2147 GETWINDOWUSERPROP 2122 RESETGRID.NEW 2104 BKBITBLT 2089 GETWINDOWUSERPROP 2078 GETWINDOWUSERPROP 2065 GETWINDOWUSERPROP 2054 GETWINDOWUSERPROP 2040 BLTSHADE 1999 GETGRIDBOXREGION 1970 RESETGRID.NEW 1952 BKBITBLT 1937 GETWINDOWUSERPROP 1926 GETWINDOWUSERPROP 1913 GETWINDOWUSERPROP 1902 GETWINDOWUSERPROP 1888 BLTSHADE 1845 GETGRIDBOXREGION 1816 BKBITBLT 1801 GETWINDOWUSERPROP 1790 GETWINDOWUSERPROP 1777 GETWINDOWUSERPROP 1766 GETWINDOWUSERPROP 1752 GRID 1732 GETWINDOWUSERPROP 1720 DSPFILL 1698 UPDATE/BM/DISPLAY/SELECTED/REGION 1689 \CLEARBM 1671 BLTSHADE 1639 \EDITBMHOWMUCH 1607 \EDITBM/PUTUP/DISPLAY 1582 UPDATE/BM/DISPLAY/SELECTED/REGION 1574 BKBITBLT 1562 BKBITBLT 1543 REGIONP 1534 BLTSHADE 1513 GETWINDOWUSERPROP 1492 BKBITBLT 1469 BKBITBLT 1425 REGIONP 1415 BLTSHADE 1390 GETWINDOWUSERPROP 1369 \EDITBMHOWMUCH 1337 PUTWINDOWPROP 1324 CLOSEW 1319 GETWINDOWUSERPROP 1307 DETACHWINDOW 1301 GETWINDOWUSERPROP 1284 GETWINDOWUSERPROP 1272 PUTWINDOWPROP 1242 PUTWINDOWPROP 1229 CLOSEW 1224 GETWINDOWUSERPROP 1212 DETACHWINDOW 1206 GETWINDOWUSERPROP 1189 GETWINDOWUSERPROP 1177 PUTWINDOWPROP 1155 MENU 1093 \APPEND2 1076 COLORDISPLAYP 1046 UPDATE/BM/DISPLAY/SELECTED/REGION 1036 UPDATE/BM/DISPLAY/SELECTED/REGION 1025 SI::RESETUNWIND 1020 \MVLIST 1015 EDITBMBUTTONFNA0019 995 CURSOR 990 CURSORCREATE 952 BKBITBLT 938 BITMAPCREATE 933 BITSPERPIXEL 922 UPDATE/BM/DISPLAY/SELECTED/REGION 900 RESETGRID.NEW 881 BKBITBLT 866 GETWINDOWUSERPROP 855 GETWINDOWUSERPROP 842 GETWINDOWUSERPROP 831 GETWINDOWUSERPROP 817 PUTWINDOWPROP 785 GETWINDOWUSERPROP 767 GETWINDOWUSERPROP 740 PUTWINDOWPROP 708 GETWINDOWUSERPROP 690 GETWINDOWUSERPROP 658 GETWINDOWUSERPROP 636 GETWINDOWUSERPROP 569 PUTWINDOWPROP 538 GETWINDOWUSERPROP 515 GETWINDOWUSERPROP 493 PUTWINDOWPROP 458 GETWINDOWUSERPROP 434 GETBOXPOSITION 419 GETWINDOWUSERPROP 406 GETWINDOWUSERPROP 393 GETWINDOWUSERPROP 355 MENU 274 INSIDE? 269 LASTMOUSEY 263 LASTMOUSEX 251 \SHADEBITS 230 INSIDE? 225 LASTMOUSEY 219 LASTMOUSEX 209 GETWINDOWUSERPROP 154 \INSUREWINDOW 146 GETWINDOWUSERPROP 133 GETWINDOWUSERPROP 120 GETWINDOWUSERPROP 107 GETWINDOWUSERPROP 94 GETWINDOWUSERPROP 79 \INSUREWINDOW 71 GETWINDOWUSERPROP 58 GETWINDOWUSERPROP 45 GETWINDOWUSERPROP 32 GETWINDOWUSERPROP 19 GETWINDOWUSERPROP) (2825 COLOR 2816 Color 2793 Cursor_ 2719 DEFAULTMENUHELDFN 2710 CLRPROMPT 2680 |MENUTYPE#| 2622 SCREENHEIGHT 2612 SCREENWIDTH 2601 Paint 2580 ShowAsTile 2557 GRIDSQUARE 2512 DEFAULTMENUHELDFN 2503 CLRPROMPT 2481 |MENUTYPE#| 2471 MENU 2460 GridSize_ 2444 REPLACE 2430 BMDISPLAYWIDTH 2419 BMDISPLAYBOTTOM 2406 DYOFFSET 2395 DXOFFSET 2361 GRIDON 2345 REPLACE 2331 BMDISPLAYWIDTH 2320 BMDISPLAYBOTTOM 2307 DYOFFSET 2296 DXOFFSET 2280 POINT 2262 GRIDON 2249 GRIDON 2237 GridOnOff 2228 COORDWIN 2196 COORDWIN 2184 LEFT 2179 TOP 2142 COORDWIN 2132 ShowCoord 2098 REPLACE 2084 BMDISPLAYWIDTH 2073 BMDISPLAYBOTTOM 2060 DYOFFSET 2049 DXOFFSET 2034 REPLACE 1980 ClearBits 1946 REPLACE 1932 BMDISPLAYWIDTH 1921 BMDISPLAYBOTTOM 1908 DYOFFSET 1897 DXOFFSET 1882 REPLACE 1826 Blacken 1810 REPLACE 1796 BMDISPLAYWIDTH 1785 BMDISPLAYBOTTOM 1772 DYOFFSET 1761 DXOFFSET 1745 POINT 1727 GRIDON 1714 REPLACE 1680 WHOLE 1665 REPLACE 1645 VISIBLE 1617 Clear 1550 \CURSORDESTINATION 1528 REPLACE 1508 ORIGINALBITMAP 1499 WHOLE 1463 REPLACE 1458 INPUT 1432 \CURSORDESTINATION 1409 REPLACE 1385 ORIGINALBITMAP 1375 VISIBLE 1347 Reset 1331 COORDWIN 1314 COORDWIN 1296 COORDWIN 1279 COORDWIN 1267 KILL 1262 FINISHEDFLG 1252 Abort 1236 COORDWIN 1219 COORDWIN 1201 COORDWIN 1184 COORDWIN 1171 FINISHEDFLG 1161 OK 1150 EDITBMMENU 1122 DEFAULTMENUHELDFN 1113 CLRPROMPT 1070 |MENUTYPE#| 1063 EDITBMMENU 1057 MENU 1052 EDITBMMENU 1010 SI::RESETUNWIND 983 CURSOR 978 \CURRENTCURSOR 971 CURSOR 966 \CURRENTCURSOR 958 CURSOR 909 LASTMOUSEBUTTONS 875 REPLACE 861 BMDISPLAYWIDTH 850 BMDISPLAYBOTTOM 837 DYOFFSET 826 DXOFFSET 780 BMDISPLAYHEIGHT 762 BMDISPLAYHEIGHT 754 BITMAP 747 DYOFFSET 703 BMDISPLAYWIDTH 685 BMDISPLAYWIDTH 677 BITMAP 670 DXOFFSET 653 BMDISPLAYHEIGHT 631 BMDISPLAYWIDTH 533 BMDISPLAYBOTTOM 510 DYOFFSET 500 YOFFSET 453 DXOFFSET 443 XOFFSET 414 DYOFFSET 401 BMDISPLAYBOTTOM 388 DXOFFSET 360 Move 325 DEFAULTMENUHELDFN 316 CLRPROMPT 295 |MENUTYPE#| 285 MENU 204 COLOR 194 BITMAP 184 BITMAP 174 BITMAP 141 DISPLAYREGION 128 DYOFFSET 115 DXOFFSET 102 YOFFSET 89 XOFFSET 66 BITSHIGH 53 BITSWIDE 40 BM 27 GRIDINTERIOR 14 GRIDSPEC) ( 2696 "Put change into bitmap?" 2687 ((YES T "Will put the newly painted bits back in the bitmap being editted.") (NO NIL "Will discard the painted bits, not changing the bitmap being editted.")) 2488 (3 4 5 6 7 8 12 16 20 24 28 32) 2164 "Coordinates" 2159 (0 0 70 32) 1634 "CLEAR how much?" 1364 "RESET how much?" 1088 ((Paint (QUOTE Paint) "Calls the window PAINT command on the bitmap.") (ShowAsTile (QUOTE ShowAsTile) "tiles the upper part of the edit window with the bitmap.") (Grid% On/Off (QUOTE GridOnOff) "Grid On/Off Switch") (GridSize_ (QUOTE GridSize_) "Allows setting of the size of a bit in the edit area.") (Reset (QUOTE Reset) "Sets the bitmap back to the state at the start of this edit session.") (Clear (QUOTE Clear) "Sets the entire bitmap to 0") (Blacken (QUOTE Blacken) "Blacken a region of bits") (ClearBits (QUOTE ClearBits) "Clear a region of bits") (Show% Coordinates (QUOTE ShowCoord) "Toggle coordinate display window, displays on bit-changes") (Cursor_ (QUOTE Cursor_) "Puts the bitmap into the cursor and exits the editor.") (OK (QUOTE OK) "Leaves the edit session.") (Abort (QUOTE Abort) "Restores the bitmap to its original values and leaves the editor.")) 1083 ((Color (QUOTE Color) "Choose color to set bits with")) 302 ((Move (QUOTE Move) "Selects a different part of the bitmap to edit."))) \EDITBM/PUTUP/DISPLAY :D8 (I 5 BITSHIGH I 4 BITSWIDE I 3 GRIDINTERIOR I 2 GRIDSPEC I 1 BM I 0 WINDOW) NABDEjd@i A@g @g @j@g @g nèhg (75 BKBITBLT 60 GETWINDOWUSERPROP 49 GETWINDOWUSERPROP 36 GETWINDOWUSERPROP 25 GETWINDOWUSERPROP 13 RESETGRID.NEW) (69 REPLACE 55 BMDISPLAYWIDTH 44 BMDISPLAYBOTTOM 31 DYOFFSET 20 DXOFFSET) () \EDITBMHOWMUCH :D8 (I 3 TITLEQ I 2 EDITHEIGHT I 1 EDITWIDTH I 0 BM) @ÈAñ«@ÈBñ²D`dC¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿°B`dC¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿ (157 MENU) (128 DEFAULTMENUHELDFN 119 CLRPROMPT 93 |MENUTYPE#| 62 DEFAULTMENUHELDFN 53 CLRPROMPT 27 |MENUTYPE#| 16 BITMAP 5 BITMAP) ( 105 ((WholeBitmap (QUOTE WHOLE) "Operates on the entire bitmap")) 39 ((VisiblePart (QUOTE VISIBLE) "Operates on just the part visible in the edit region") (WholeBitmap (QUOTE WHOLE) "Operates on the entire bitmap"))) EDITBMRESHAPEFN :D8 (P 22 TEMPBM.H P 21 TEMPBM.W P 15 TEMPBM P 14 EXTENTHEIGHT P 13 EXTENTWIDTH P 12 MINCOMMANDAREAWIDTH P 11 BITMAPHEIGHT P 10 BMDISPLAYHEIGHT P 9 BMDISPLAYBOTTOM P 8 BMDISPLAYWIDTH P 7 BITMAPWIDTH P 6 GRIDINTERIOR P 5 GRIDSQUARE P 4 EDITAREABITHEIGHT P 3 EDITAREABITWIDTH P 2 BMWINTERIORHEIGHT P 1 BMWINTERIORWIDTH P 0 BM I 4 ZEROBMFLG I 3 OLDSCREENREGION I 2 OLDREGION I 1 OLDIMAGE I 0 BMEDITWINDOW) z@g ñPl_HÈ_HÈ_@g Y@g OlØÙ@g lÛ_ ¿dO ñ¢¿O Z@ghµ+IOÛJOÛ_"¿dO"ñ’¿O"d`ñ•¿`dlñ¢¿l]IMÛdOñ’¿O[@gKJMÛdOñ’¿O\@gLMLÚlØ_OIOÙ_$¿dO$ñ’¿O$_@g@g OKÙ_&¿dO&ñ’¿O&@g@g OLÙ_(¿dO(ñ’¿O(IKMÚÙlÛOLMÚÙlÛKMÚLMÚh^@gN@gO@gO@g@g OÙ_@gjOOOh@gNNMdhO@g ÖL×_OIÖK×@ É,Ù_@gj@g OÖO×Õj@g OÖO×ÕOO@g _IOdLñ‘¿LO²O O*ýó¬O O,ýó²$O*O,HÈ_¿@gO¿@hDh(630 EDITBMREPAINTFN 620 PUTWINDOWPROP 604 BITMAPCREATE 581 BITMAPHEIGHT 569 BITMAPWIDTH 544 GETWINDOWUSERPROP 533 PUTWINDOWPROP 528 CREATEREGION 512 GETWINDOWUSERPROP 493 GETWINDOWUSERPROP 470 \INSUREWINDOW 453 GETWINDOWPROP 440 PUTWINDOWPROP 417 PUTWINDOWPROP 394 PUTWINDOWPROP 384 GETWINDOWPROP 367 PUTWINDOWPROP 354 PUTWINDOWPROP 341 PUTWINDOWPROP 300 PUTWINDOWPROP 280 GETWINDOWUSERPROP 263 PUTWINDOWPROP 243 GETWINDOWUSERPROP 199 PUTWINDOWPROP 175 PUTWINDOWPROP 107 PUTWINDOWPROP 80 GETWINDOWPROP 63 GETWINDOWPROP 51 GETWINDOWPROP 10 GETWINDOWUSERPROP) (613 TEMPBM 597 BITMAP 539 TEMPBM 507 YOFFSET 488 XOFFSET 481 EXTENT 448 HEIGHT 423 GRIDSPEC 400 DISPLAYREGION 379 HEIGHT 373 BMDISPLAYHEIGHT 360 BMDISPLAYWIDTH 347 BMDISPLAYBOTTOM 335 GRIDINTERIOR 275 YOFFSET 269 YOFFSET 238 XOFFSET 232 XOFFSET 193 BITSHIGH 169 BITSWIDE 142 NORMALGRIDSQUARE 134 NORMALGRIDSQUARE 101 GRIDSQUARE 75 HEIGHT 58 HEIGHT 46 WIDTH 36 BITMAP 26 BITMAP 5 BM) () EDITBMREPAINTFN :D8 (P 3 BM P 2 EDITAREABITHEIGHT P 1 EDITAREABITWIDTH P 0 GRIDSPEC I 2 ZEROBM I 1 REGION I 0 WIN) È@g @g @g @g @ `@dg lÔ@g K@g @g @j@g @g nèhg B² @g ´!HIJg@ ¿ŒKHIJjd@ h(196 RESETGRID.NEW 181 GRID 164 GETWINDOWUSERPROP 150 BKBITBLT 135 GETWINDOWUSERPROP 124 GETWINDOWUSERPROP 111 GETWINDOWUSERPROP 100 GETWINDOWUSERPROP 88 BLTSHADE 83 GETWINDOWUSERPROP 69 GETWINDOWUSERPROP 52 CLEARW 43 GETWINDOWUSERPROP 32 GETWINDOWUSERPROP 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (174 POINT 159 GRIDON 144 REPLACE 130 BMDISPLAYWIDTH 119 BMDISPLAYBOTTOM 106 DYOFFSET 95 DXOFFSET 78 BMDISPLAYBOTTOM 64 BMDISPLAYWIDTH 57 NOTINUSEGRAY 38 BM 27 BITSHIGH 16 BITSWIDE 5 GRIDSPEC) () UPDATE/SHADE/DISPLAY :D8 (P 0 BOTTOM I 1 WIN I 0 BM) 3Ag jHAg Ag HÙ@A h(47 TILEAREA 37 GETWINDOWPROP 26 GETWINDOWPROP 10 GETWINDOWUSERPROP) (32 HEIGHT 21 WIDTH 5 BMDISPLAYBOTTOM) () UPDATE/BM/DISPLAY/SELECTED/REGION :D8 (I 0 W) ¡@g È@g ñ³"@g È@g ñ´anÿÿ@dg @g Ù@g @g Ø@g Ù@g @g g (158 BLTSHADE 147 GETWINDOWUSERPROP 136 GETWINDOWUSERPROP 124 GETWINDOWUSERPROP 112 GETWINDOWUSERPROP 101 GETWINDOWUSERPROP 89 GETWINDOWUSERPROP 78 GETWINDOWUSERPROP 60 GETWINDOWUSERPROP 42 GETWINDOWUSERPROP 28 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (152 INVERT 142 BITSHIGH 131 BITSWIDE 119 DYOFFSET 107 YOFFSET 96 BMDISPLAYBOTTOM 84 DXOFFSET 73 XOFFSET 55 BITSHIGH 47 BITMAP 37 BM 23 BITSWIDE 15 BITMAP 5 BM) () SHOWBUTTON :D8 (P 0 BLOCK I 1 DS I 0 BUTTON) @HhdA@HAh(23 CENTERPRINTINREGION 13 WBOX) NIL () RESETGRID.NEW :D8 (P 7 TEMPBM P 6 YSCALE P 5 XSCALE P 4 SHADE P 3 MAXY P 2 MAXX P 1 YOFFSET P 0 XOFFSET I 7 DOCLEARFLG I 6 WINDOW I 5 ORIGY I 4 ORIGX I 3 HEIGHT I 2 WIDTH I 1 GRIDSPEC I 0 BM) €A]A^D£jb¿E£jb ¿Fg XFg YDBØmÿØZECØmÿØ[Fg _G²$jFDA EA BMÖCNÖg ¿@DHÔEIÔFDA EA BCMNO k@ ÿ²5`d3˜¿mÿ`ÕFDA EA BMÖCNÖg ¿Fg ´9DAð–EAð³A bDA ¿AEA ¿ABCgF (277 GRID 260 BOTTOMOFGRIDCOORD 249 LEFTOFGRIDCOORD 240 COPYALL 220 GETWINDOWUSERPROP 208 BLTSHADE 191 BOTTOMOFGRIDCOORD 184 LEFTOFGRIDCOORD 155 BITSPERPIXEL 148 SCALEBM 136 BOTTOMOFGRIDCOORD 129 LEFTOFGRIDCOORD 113 BLTSHADE 96 BOTTOMOFGRIDCOORD 89 LEFTOFGRIDCOORD 74 GETWINDOWUSERPROP 48 GETWINDOWUSERPROP 36 GETWINDOWUSERPROP) (270 POINT 215 GRIDON 202 ERASE 175 DARKBITSHADE 163 DARKBITSHADE 107 REPLACE 69 TEMPBM 43 YOFFSET 31 XOFFSET) () RESETGRID :D8 (L (6 W 5 ORGY 4 ORGX 3 HEIGHT 2 WIDTH 1 GRIDSPEC 0 BM)) hNIL NIL () \READBMDIMENSIONS :D8 (P 1 HEIGHT P 0 WIDTH) ’ oi ¿i X3³oi ¿i ¿°ÖkHñ²/oi ¿i ¿°¼kIñ²3oi ¿i ¿oi ¿i Y3³Óo°ÖHI` (143 BITMAPCREATE 138 BITSPERPIXEL 114 READ 107 PRIN1 95 TERPRI 88 PRIN1 69 TERPRI 62 PRIN1 43 TERPRI 36 PRIN1 20 READ 13 PRIN1) (133 \CURSORDESTINATION) ( 124 "?" 101 "How high would you like the bitmap to be? " 82 "HEIGHT must be positive." 56 "WIDTH must be positive." 30 "?" 7 "How wide would you like the bitmap to be? ") EDITSHADEA0003A0004 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 SI::NLSETQ-VALUE) $i@`` hcg(24 DOWINDOWCOM 19 WHICHW) (33 :NORMAL 14 LASTMOUSEY 9 LASTMOUSEX) () EDITSHADEA0003 :D8 (NAME SI::*UNWIND-PROTECT* P 4 YPIXEL P 3 XPIXEL P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 SI::*CLEANUP-FORMS* F 9 SEDW F 10 QUITREGION F 11 SHOWREGION F 12 SHADEBM F 13 X F 14 Y F 15 GRIDSPEC F 16 SI::*RESETFORMS* F 17 BMWIDTH F 18 SHADEREGION F 19 *PROCEED-CASES* F 20 GRIDINTERIOR F 21 BMHEIGHT) j gWhhdW c W$W"lð—W WgW¿¿`dlåjðŸ¿W ¿°ßlåjð³`W&I °¢`¿`lå]jð’±ÓM™M ’±ÅW ¿W(W cW c²sWW [mÿW"²UWW \mÿW*²@KL`låjð¥`€jgWgW ¿WKL`låjð¡k€jû¿¿±ÿLWWW²xWnÿÿgW¿¿`lå^jð³9N—N ³-WW W ³ÌWnÿÿgW±ÇWnÿÿgW¿g±¯WWW¢±ÿhWnÿÿgW¿¿`lå_jð³:O˜O ³,WW W ³ÉWnÿÿgW°?WnÿÿgW¿Wk _ ¿oO ¿W O ¿hgð¢±ý¯h(601 PRIN1 594 CREATETEXTUREFROMBITMAP 586 PRIN1 573 TERPRI 566 GETPROMPTWINDOW 557 DSPFILL 538 DSPFILL 519 INSIDE? 514 LASTMOUSEY 507 LASTMOUSEX 496 \FZEROP 469 GETMOUSESTATE 463 DSPFILL 442 INSIDE? 422 DSPFILL 402 DSPFILL 383 INSIDE? 378 LASTMOUSEY 371 LASTMOUSEX 360 \FZEROP 336 GETMOUSESTATE 330 DSPFILL 311 INSIDE? 296 BLOCK 269 SHADEGRIDBOX 227 STRICTLY/BETWEEN 217 GRIDYCOORD 206 STRICTLY/BETWEEN 196 GRIDXCOORD 185 INSIDE? 178 LASTMOUSEY 169 LASTMOUSEX 159 TOTOPW 148 \FZEROP 122 GETMOUSESTATE 110 EDITSHADEA0003A0004 81 BLOCK 75 TOTOPW 54 GETMOUSESTATE 48 DSPFILL 33 CREATETEXTUREFROMBITMAP) (609 STOP 550 INVERT 531 INVERT 475 LASTMOUSEBUTTONS 456 INVERT 428 STOP 415 INVERT 395 INVERT 342 LASTMOUSEBUTTONS 323 INVERT 279 LASTMOUSEBUTTONS 261 POINT 254 REPLACE 247 DARKBITSHADE 236 LASTMOUSEBUTTONS 128 LASTMOUSEBUTTONS 98 SI::NLSETQ-PROCEED-CASE 60 LASTMOUSEBUTTONS 41 TEXTURE 4 CLOSEW) ( 579 "Texture: ") EDITSHADE :D8 (P 15 RESETSTATE P 14 SI::*RESETFORMS* P 13 LISPXHIST P 11 SHOWREGION P 10 BOXSIZE P 9 SEDW P 8 Y P 7 X P 6 GRIDSPEC P 5 GRIDINTERIOR P 4 BMHEIGHT P 3 BMWIDTH P 2 SHADEREGION P 1 QUITREGION P 0 SHADEBM I 0 SHADE F 16 LISPXHIST) ¦Ð@Ã™@d— °-@3 —@ °!@dið™¿ld ¨ld …@ XlHl–l2lYl}l–ldl_l l¹nldZn,dhddo _H [H \lLÛnKÛ_¿dOñ’¿O_Og`OggOgIOgOOgn$OKÚÕlÛ_l–OLÚÕlÛ_Od^OgOOOKÚOLÚ]OgHOgJOgjOgjO W !g ¿$@3¢@³Klð›Llð–H H(417 CREATETEXTUREFROMBITMAP 389 SI::RESETUNWIND 384 \MVLIST 379 EDITSHADEA0003 364 EDITSHADEREPAINTFN 357 PUTWINDOWPROP 344 PUTWINDOWPROP 331 PUTWINDOWPROP 318 PUTWINDOWPROP 305 PUTWINDOWPROP 299 CREATEREGION 275 PUTWINDOWPROP 269 CREATEREGION 229 PUTWINDOWPROP 215 PUTWINDOWPROP 202 PUTWINDOWPROP 185 PUTWINDOWPROP 145 BITMAPHEIGHT 138 BITMAPWIDTH 130 CREATEW 125 GETBOXREGION 106 CREATEREGION 90 CREATEREGION 76 CREATEREGION 62 \ILLEGAL.ARG 55 BITMAPCREATE 45 BITMAPCREATE 29 \BITMAPFROMTEXTURE 17 CREATETEXTUREFROMBITMAP) (374 SI::RESETUNWIND 351 YOFFSET 338 XOFFSET 325 SHADEREGION 312 SHADEBM 282 GRIDINTERIOR 236 GRIDSPEC 222 SHOWREGION 209 QUITREGION 197 EDITSHADEREPAINTFN 192 REPAINTFN 180 \RUNNING.PROCESS 175 PROCESS 8 BITMAP) ( 119 "Indicate position of Shade edit window.") \BITMAPFROMTEXTURE :D8 (P 6 Y P 4 X P 0 SHADE I 0 FIXP) hld !ljLKó‘HljNMó³@@`lNÙlÚLØlåºYÉIl JØÐÈåjð¦HLNkû¿NkÔ^°ÀLkÔ\°(73 \GETBASEFIXP 7 BITMAPCREATE) (66 ARRAYP 58 ARRAYP 39 BITMASKARRAY) () EDITSHADEREPAINTFN :D8 (P 3 BMHEIGHT P 2 BMWIDTH P 1 SHADE P 0 GRIDSPEC I 0 WIN) ¬@@g X@g Yd ZI [@g goh@ @g goh@ HHHJÚHKÚlnÿÿ@ IHJKjd@ @g Ig@h(168 DSPFILL 156 GETWINDOWUSERPROP 145 RESETGRID.NEW 132 GRAYBOXAREA 102 SHOWBUTTON 82 GETWINDOWUSERPROP 71 SHOWBUTTON 51 GETWINDOWUSERPROP 39 BITMAPHEIGHT 32 BITMAPWIDTH 25 GETWINDOWUSERPROP 13 GETWINDOWUSERPROP) (162 TEXTURE 151 SHADEREGION 87 Show% Number 77 SHOWREGION 56 QUIT 46 QUITREGION 20 SHADEBM 8 GRIDSPEC) ( 92 "Displays the texture number for the current shade." 61 "Quits") GRAYBOXAREA :D8 (I 6 DS I 5 TEXTURE I 4 OUTLINESIZE I 3 HEIGHT I 2 WIDTH I 1 Y I 0 X) ND3 ¬Dµkb„ ¿EµnÿÿF@DÙADÙBlDÚØClDÚØg hF F@ABCg (75 BLTSHADE 59 DSPTEXTURE 52 BLTSHADE 15 \ILLEGAL.ARG) (69 REPLACE 46 REPLACE) () \SHADEBITS :D8 (P 10 COORDWIN P 9 Y P 8 X P 7 USESHADE P 6 USECOLOR P 5 OTHERSHADE P 4 SHADE P 3 OTHERCOLOR P 2 YPIXEL P 1 XPIXEL P 0 BITSPERPIXEL I 6 COLOR I 5 BITSHIGH I 4 BITSWIDE I 3 W I 2 GRIDINTERIOR I 1 GRIDSPEC I 0 BM) ·ð@ XFH [Hkð²Fkð—`¼jŠj¼`‚F¼K]¿¿`lå_jð’±nOšO ’±^IDC _A _¿dOñ’¿O_¿jOñ¢O€jYð´JEC _A _¿dOñ’¿O_¿jOñ¢O€jZð³†BOO¢±ÿy`låjð£F¾L‚K¾M_¿Cg _µz@ICg ØJCg ØNû¿@Cg Cg CjCg Cg nèhg ¿IJOgACg ³Qj°S ¿llO¿ICg ØO ¿oO ¿JCg ØO ¿±ÿ?gC ±þh(432 SHADEGRIDBOX 416 PRIN1 408 GETWINDOWUSERPROP 395 PRIN1 382 PRIN1 374 GETWINDOWUSERPROP 361 MOVETO 349 CLEARW 339 GETWINDOWUSERPROP 317 BKBITBLT 302 GETWINDOWUSERPROP 291 GETWINDOWUSERPROP 278 GETWINDOWUSERPROP 267 GETWINDOWUSERPROP 250 GETWINDOWUSERPROP 237 GETWINDOWUSERPROP 220 GETWINDOWUSERPROP 184 INSIDE? 147 GRIDYCOORD 139 LASTMOUSEY 104 GRIDXCOORD 96 LASTMOUSEX 84 \FZEROP 55 GETMOUSESTATE 19 OPPOSITECOLOR 11 BITSPERPIXEL) (425 POINT 403 YOFFSET 369 XOFFSET 334 GRIDON 327 REPLACE 311 REPLACE 297 BMDISPLAYWIDTH 286 BMDISPLAYBOTTOM 273 DYOFFSET 262 DXOFFSET 245 YOFFSET 232 XOFFSET 215 COORDWIN 193 LASTMOUSEBUTTONS 61 LASTMOUSEBUTTONS 44 DARKBITSHADE 34 DARKBITSHADE) ( 388 ", ") READHOTSPOT :D8 (P 5 CURSORBM P 4 DOWNYET? P 3 YPIXEL P 2 XPIXEL P 1 NOWCURSOR I 3 DS I 2 GRIDINTERIOR I 1 GRIDSPEC I 0 BM) å¿`låHjðµ H´H §¿°×`YdÉZA AlÛØIÉ[A AlÛØC ¿¿L²¿`lå^jð³1Nµ%BC C ²ÇL³Ä`jðhð¼°¸ ²Øld@ ½@hdM¿MhJK h(225 CURSOR 220 CURSORCREATE 210 BKBITBLT 200 BITMAPCREATE 195 BITSPERPIXEL 184 \FZEROP 162 INSIDE? 157 LASTMOUSEY 151 LASTMOUSEX 125 GETMOUSESTATE 116 GETMOUSESTATE 110 BLOCK 105 CURSORPOSITION 89 BOTTOMOFGRIDCOORD 66 LEFTOFGRIDCOORD 50 CURSOR 39 \BACKGROUND 32 \FZEROP 4 GETMOUSESTATE) (172 LASTMOUSEBUTTONS 131 LASTMOUSEBUTTONS 80 CURSOR 57 CURSOR 10 LASTMOUSEBUTTONS) () WBOX :D8 (I 3 DS I 2 TEXTURE I 1 THCK I 0 REG) NA¤lb¿nÿÿChdddg@ Bd¥C C@AØ@AØ@lAÚÙ@lAÚÙg (75 BLTSHADE 35 DSPTEXTURE 26 BLTSHADE) (69 REPLACE 19 REPLACE) () \CLEARBM :D8 (I 2 REG I 1 TXT I 0 BM) Aµj@hdddgB (20 BLTSHADE) (13 REPLACE) () EDITBMTEXTURE :D8 (P 1 SHADE P 0 COLOR I 2 Y I 1 X I 0 BM) " @ABhûX@ kð›Hkð•`jH(15 BITSPERPIXEL) (27 DARKBITSHADE) () (RPAQQ DARKBITSHADE 23130) (RPAQQ NORMALGRIDSQUARE 16) (RPAQQ NOTINUSEGRAY 42405) (RPAQQ EDITBMMENU NIL) (RPAQQ EDITBMWINDOWMENU NIL) (RPAQQ GRIDSIZEMENU NIL) (RPAQQ CLICKWAITTIME 250) (RPAQQ GRIDTHICKNESS 2) (RPAQQ MINGRIDSQUARE 8) (RPAQQ MAXGRIDWIDTH 199) (RPAQQ MAXGRIDHEIGHT 175) (RPAQQ BMWINDOWSHADE 33410) (CONSTANTS (GRIDTHICKNESS 2) (MINGRIDSQUARE 8) (MAXGRIDWIDTH 199) (MAXGRIDHEIGHT 175) (BMWINDOWSHADE 33410)) SCALEBM :D8 (P 4 POWER P 3 YSTEPS P 2 XSTEPS P 1 DESTHEIGHT P 0 DESTWIDTH I 10 TEMPBM I 9 YSCALE I 8 XSCALE I 7 SRCEHEIGHT I 6 SRCEWIDTH I 5 DESTY I 4 DESTX I 3 DESTBM I 2 SRCEY I 1 SRCEX I 0 SRCEBM) Ë C C ²F3¨@ b¿G3¨@ b¿HFGÖ¾½NdMó‘¿MXIGGÖ_¿_¿OdOó’¿OYFHGÛ_¿_¿OdOó’¿ObGIGÛ_¿_¿OdOó’¿ObG˜jG ‰HG b¿@ABFGGjdHGGkGk GjdHGCDEHIkGkG G(198 EXPANDBM 174 EXPANDBM 146 BITMAPCREATE 137 BLTSHADE 38 BITMAPHEIGHT 24 BITMAPWIDTH 11 BITMAPHEIGHT 5 BITMAPWIDTH) NIL () BLTPATTERN :D8 (P 5 TH P 4 TW P 3 RW P 2 RX P 1 H P 0 W I 11 TEMPBM I 10 OPER I 9 DH I 8 DW I 7 DY I 6 DX I 5 DEST I 4 SH I 3 SW I 2 SY I 1 SX I 0 SRCE) ) C¨@ b¿D¨@ b¿G§gb¿GµOGgð¢±àC@ ó’±ÔD@ ó’±ÈEÃ‘E©E ¢±µ@ABCDEFGGG ±´ ¼G ½C@ ó³D@ ó¨CLó¤DMó²(Gdgð³‚¿L@ ýó’±ÿsM@ ýó’±ÿf@ABCDGjdLM ¿Gb¿jbb¿CdLCÛÚ_¿^Oó‘NOb¿DdMDÛÚ_¿_Oó’OOb¿±ÿ@ABCDEFGGGG h(293 BLTPATTERN.GENERIC 213 BLTPATTERN.REPLACEDISPLAY 190 BITMAPHEIGHT 177 BITMAPWIDTH 147 BITMAPHEIGHT 137 BITMAPWIDTH 129 BITMAPHEIGHT 121 BITMAPWIDTH 113 BLTPATTERN.REPLACEDISPLAY 90 WINDOWP 70 BITMAPHEIGHT 58 BITMAPWIDTH 21 BITMAPHEIGHT 10 BITMAPWIDTH) (166 REPLACE 81 BITMAP 46 REPLACE 32 REPLACE) () BLTPATTERN.REPLACEDISPLAY :D8 (P 5 H P 4 W P 3 RH P 2 RW P 1 RY P 0 RX I 9 DH I 8 DW I 7 DY I 6 DX I 5 DEST I 4 SH I 3 SW I 2 SY I 1 SX I 0 SRCE) À `GdCó‘¿C\GdDó‘¿D]jEFGLMg @ABEFGLMhg FLÔXGLÕZJdjó³¿GMÔYGMÕ[MbG\Kdjó³2hCó‘C€J¼EFGEHGLMhg ¿JLÕºHLÔ¸CdÔb¿°µDó‘D€K½EFGEFILMhg ¿KMÕ»IMÔ¹DdÔb¿°Ÿ(173 BKBITBLT 128 BKBITBLT 59 BKBITBLT 38 BLTSHADE) (167 REPLACE 122 REPLACE 53 REPLACE 32 REPLACE) () BLTPATTERN.GENERIC :D8 (P 5 TH P 4 TW P 3 RW P 2 RX P 1 H P 0 W I 10 OPER I 9 DH I 8 DW I 7 DY I 6 DX I 5 DEST I 4 SH I 3 SW I 2 SY I 1 SX I 0 SRCE) i`C¨@ b¿D¨@ b¿Gdjó¡hDó‘DG¹G»FºKdjó³¿GIÕb¿GIÔb¿°ÖCó‘C€K¸@ABEJGHIhG ¿KHÕ»JHÔ°Ç(93 BKBITBLT 21 BITMAPHEIGHT 10 BITMAPWIDTH) NIL () EXPANDBITMAP :D8 (P 7 NEWBITMAP P 6 NEWY P 5 NEWX P 4 NEWHEIGHT P 3 NEWWIDTH P 2 BITSPERPIXEL P 1 HEIGHT P 0 WIDTH I 2 HEIGHTFACTOR I 1 WIDTHFACTOR I 0 BITMAP) U€A£kb¿B£kb¿@ÈY@ÈX@ÈZAHÚ[BIÚ\KLJ_@jdHIOjdKLABAB O(80 EXPANDBM 57 BITMAPCREATE) (38 BITMAP 29 BITMAP 20 BITMAP) () EXPANDBM :D8 (P 12 J P 10 I P 2 POWER P 1 YSTEPS P 0 XSTEPS I 13 YSPACE I 12 XSPACE I 11 YSCALE I 10 XSCALE I 9 DESTH I 8 DESTW I 7 DESTY I 6 DESTX I 5 DESTBM I 4 SRCEH I 3 SRCEW I 2 SRCEY I 1 SRCEX I 0 SRCEBM) ¦A3£jb¿B3£jb¿C3¨@ b¿D3¨@ b¿F3£jb¿G3£jb¿GCGdGñ¢¿GÖ»dKñ‘¿Kb¿GDGdGñ¢¿GÖ¼dLñ‘¿Lb¿CkGGdGñ¢¿GÛÔ½dMñ‘¿Mb¿DkGGdGñ¢¿GÛÔ¾dNñ‘¿Nb¿jEFGGG ¿Gdkð²¿Gkð²@ABEFGCD EGkð³4jCkÙ OOó³%@AOÔBEFOGÖÔGkD ¿OmÿÔ_¿°ØGkð³gkZGmÿçó³#EFGEFJÔGGJÕDhg ¿JdÔ°ØGJÕ_jð³2O˜O ³$EFGEFGJÕÔGGGJÕÕDhg ¿Gkð’±ÃGkð²8jDkÙOOó³&@ABOÔEFGOGÖÔGk ¿OmÿÔ_¿°×±‡jDkÙOOó³'EFGOÔEFGOGÖÔGk ¿OmÿÔ_¿°ÖDj O²%Ojð³BO˜O ³4jOó“DO‚ODó³%jEFGOÔkÔGGkÙ ¿OG_Ô_¿°¸Gkð³ckZGmÿçó³$EFGEFGJÔGGJÕhg ¿JdÔ°×GJÕ_jð³-O˜O ³EFGEFGGJÕÔGGhg h(674 BKBITBLT 643 \FZEROP 615 BKBITBLT 557 BLTSHADE 518 \FZEROP 479 BKBITBLT 424 BKBITBLT 370 BKBITBLT 335 \FZEROP 307 BKBITBLT 252 BKBITBLT 206 BKBITBLT 176 BLTSHADE 41 BITMAPHEIGHT 28 BITMAPWIDTH) (668 PAINT 609 PAINT 364 PAINT 301 PAINT) () SHRINKBITMAP :D8 (P 10 X P 8 Y P 6 DESTINATION P 5 SCRATCH P 4 WIDTH P 3 HEIGHT P 2 HFACTOR P 1 WFACTOR P 0 BITSPP I 3 DESTINATIONBITMAP I 2 HEIGHTFACTOR I 1 WIDTHFACTOR I 0 BITMAP) Ñ@ !Aµl¹Bµkº@ @ LKJÛHCµLIÛKJÛHIk ²Jk š@hdNNjN ¿KkÙjOOó³'@jOMjOJÛLkgg ¿OkÔ_°ØLkÙj OOó³¶MOjNOIÛjkKgg ¿OkÔ_°Ø(198 BKBITBLT 146 BKBITBLT 103 BLTSHADE 94 BKBITBLT 84 EQP 75 EQP 65 BITMAPCREATE 47 BITMAPCREATE 34 BITMAPWIDTH 25 BITMAPHEIGHT 5 BITSPERPIXEL) (192 PAINT 187 INPUT 140 PAINT 135 INPUT) () \FAST4BIT :D8 (P 2 AW P 1 I P 0 J I 3 MAP I 2 N I 1 B I 0 A) rjd@HÐºBIñ¡hAIÐCJÊ Í¿BIkÔYñ´éAIÐCJÊC Í¿BIkÔYñ´ÑAIÐCJÊƒ Í¿BIkÔYñ´¹AIÐCJÊÃ Í¿IkÔ¹HkÔ¸°–(99 ELT 75 ELT 51 ELT 27 ELT) NIL () ROTATE-BITMAP :D8 (L (0 SOURCE)) @ ‘ H@ ¹0`IÉ_¿@É_¿IÈààààºdJnÿÿåÍ¿dkÍ¿djÍ¿I »dKÍ¿djÍ ¿I ¼dLÍ ¿dkÍ¿_dkÏ ¿OOÒÍ¿OOÓÍ¿OOÒÍ¿OOÓÍ¿½@È¾Hk_¿_¿OOó³PMMÈmÿÔÍ¿Mjv¿MÈMÈÑNÐ_¿MOÒÍ¿MOÓÍ¿OkÔ_°¯I(92 BITMAPHEIGHT 75 BITMAPWIDTH 20 BITMAPCREATE 15 BITMAPWIDTH 5 BITMAPHEIGHT) (248 PILOTBBT 236 PILOTBBT 222 PILOTBBT 214 PILOTBBT 196 PILOTBBT 190 PILOTBBT 157 PILOTBBT 144 PILOTBBT 131 PILOTBBT 118 PILOTBBT 29 |PILOTBBTTYPE#|) () (SET-DOCUMENTATION (QUOTE ROTATE-BITMAP) (QUOTE CL:FUNCTION) "rotates the bitmap SOURCE by 90 degrees clockwise, returning a new bitmap") ROTATE-BITMAP-LEFT :D8 (L (0 SOURCE)) @ ‘ @ H ¹0`dkÍ¿IÉ_¿@É_¿@ÈààààºdJnÿÿåÍ¿@ »dKÍ¿djÍ¿djÍ ¿@ ¼dLÍ ¿dkÍ¿_dkÏ ¿OOÒÍ¿OOÓÍ¿OOÒÍ¿OOÓÍ¿½IÈ¾Hk_¿_¿OOó³PMMÈmÿÔÍ¿Mjv¿MÈMÈÑNÐ_¿MOÒÍ¿MOÓÍ¿OkÔ_°¯I(92 BITMAPHEIGHT 70 BITMAPWIDTH 20 BITMAPCREATE 14 BITMAPHEIGHT 5 BITMAPWIDTH) (248 PILOTBBT 236 PILOTBBT 222 PILOTBBT 214 PILOTBBT 196 PILOTBBT 190 PILOTBBT 157 PILOTBBT 144 PILOTBBT 131 PILOTBBT 118 PILOTBBT 29 |PILOTBBTTYPE#|) () (SET-DOCUMENTATION (QUOTE ROTATE-BITMAP-LEFT) (QUOTE CL:FUNCTION) "rotates the bitmap SOURCE by 90 degrees counter-clockwise, returning a new bitmap") (PUTPROPS HLDISPLAY FILETYPE CL:COMPILE-FILE) (READVARS-FROM-STRINGS (QUOTE (\4BITEXPANSIONTABLE)) "({Y16 SMALLPOSP 0 0 15 240 255 3840 3855 4080 4095 61440 61455 61680 61695 65280 65295 65520 65535 }) ") (PUTPROPS HLDISPLAY COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1900 1988 1989 1990 1992 1993 1994)) NIL