(FILECREATED "23-Jan-85 19:24:17" ("compiled on " {ERIS}SOURCES>HLDISPLAY.;9) "20-Jan-85 00:10:14" recompiled changes: SHRINKBITMAP in "INTERLISP-D 20-Jan-85 ..." dated "20-Jan-85 00:22:41") (FILECREATED "23-Jan-85 19:20:28" {ERIS}SOURCES>HLDISPLAY.;9 98637 changes to: (FNS SHRINKBITMAP) previous date: "19-Dec-84 15:39:46" {ERIS}SOURCES>HLDISPLAY.;8) GRID D1 (P 14Q Y P 12Q Y P 10Q X 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%CjCd Chdd@ClھhddDHICBK]ggL HAkJCHJC Odj/OO #jOOHAkJCOHAkJCohddDHAJCICMggL hddDHIAJ]CggL IBkKCIKC OdrjQOO EjO1OIBkKC.ddDOINMggL OJ__>OIBkKChddDHIBKCMCggL ddDHOMNggL OK__nCdgHAJH O/OjOO ujOOHAJOHAJ\IBKI O-OjAU 1gHhhTcYog gIcgI KJ(71Q ERROR! 64Q APPLY 41Q GETPOSITIONA0001 6 CURSOR) (55Q CURSOR 45Q ERROR 36Q INTERNAL 14Q CURSOR) ( 33Q (GETPOSITIONA0001)) GETBOXPOSITIONA0001 D1 (NAME ERRORSET P 0 MOUSEDOWNFLG F 7 ORGX F 10Q ORGY F 11Q BOXWIDTH F 12Q BOXHEIGHT F 13Q PROMPTMSG F 14Q WINDOW F 15Q CROSSHAIRS F 16Q MACROY) `ljhaWdLWdB`WWlWWcjWc`WWlWWcjWcWW `c`cWW H"`lYjII iW H`lZjJJ WW(WdWػdKKW WdWؼdLLW WdWؽdMMWdWؾdNNci(344Q DSPYSCREENTOWINDOW 322Q DSPXSCREENTOWINDOW 273Q CLRPROMPT 263Q \FZEROP 233Q CURSOR 223Q \FZEROP 174Q \TRACKWITHBOX 170Q PROMPTPRINT 143Q \SETCURSORPOSITION 2 GETMOUSESTATE) (243Q LASTMOUSEBUTTONS 203Q LASTMOUSEBUTTONS 155Q LASTMOUSEY 147Q LASTMOUSEX 103Q LASTMOUSEY 47Q LASTMOUSEX 6 LASTMOUSEBUTTONS) () GETBOXPOSITION D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 5 PROMPTMSG I 4 WINDOW I 3 ORGY I 2 ORGX I 1 BOXHEIGHT I 0 BOXWIDTH F 4 RESETVARSLST F 5 BOXCURSOR) ;U 1gHhhTcYog gIcgI KJ(66Q ERROR! 61Q APPLY 36Q GETBOXPOSITIONA0001 3 CURSOR) (52Q CURSOR 42Q ERROR 33Q INTERNAL 11Q CURSOR) ( 30Q (GETBOXPOSITIONA0001)) DSPYSCREENTOWINDOW D1 (I 1 DS I 0 Y) @Ag ((7 \GETSTREAM) (14Q \DISPLAYDATA 4 OUTPUT) () DSPXSCREENTOWINDOW D1 (I 1 DS I 0 X) @Ag ((7 \GETSTREAM) (14Q \DISPLAYDATA 4 OUTPUT) () GETREGIONA0001A0003 D1 (NAME ERRORSET L (0 NIL) F 1 OPPX F 2 OPPY F 3 BASEX F 4 BASEY F 5 OPPT F 6 NEWREGFNS F 7 BASEPT F 10Q NOTTIMEDOUT F 11Q DOWNFLG F 12Q MINHEIGHT F 13Q MINWIDTH F 14Q OLDMOUSEX F 15Q OLDMOUSEY F 16Q BEGCLOCK F 17Q FORCEPS) WWW` Ghc>W`lHj HH  `lHj HH ich`lj`ljW `lHj HH `QjHHjH`SjHHjHQScc`RjHHjH`TjHHjHRTccVW WWVWU STQR i QR `W`WU`cU`cWWVWU h i(517Q \UPDATEXYANDBOX 512Q \GETREGION.CHECKOPPT 431Q \SETCURSORPOSITION 423Q \UPDATEXYANDBOX 416Q SETCORNER 406Q \GETREGION.CHECKOPPT 371Q \GETREGION.CHECKBASEPT 362Q \GETREGION.PACKPTS 216Q \FZEROP 166Q GETMOUSESTATE 162Q CURSOR 112Q \FZEROP 60Q \FZEROP 16Q \CLOCKGREATERP 2 GETMOUSESTATE) (472Q LASTMOUSEY 462Q LASTMOUSEX 447Q LASTMOUSEY 440Q LASTMOUSEX 325Q LASTMOUSEY 303Q LASTMOUSEY 246Q LASTMOUSEX 224Q LASTMOUSEX 172Q LASTMOUSEBUTTONS 144Q LASTMOUSEBUTTONS 130Q LASTMOUSEBUTTONS 66Q LASTMOUSEBUTTONS 34Q LASTMOUSEBUTTONS 13Q CLICKWAITTIME) () GETREGIONA0001 D1 (NAME ERRORSET P 23Q BEGCLOCK P 22Q DOWNFLG P 21Q NEWMOUSEY P 20Q NEWMOUSEX P 17Q INITTOP P 16Q INITBOTTOM P 15Q INITRIGHT P 14Q INITLEFT P 13Q OLDMOUSEY P 12Q OLDMOUSEX P 11Q OPPY P 10Q OPPX P 7 BASEY P 6 BASEX P 5 NEWREGFNS P 4 MINHEIGHT P 3 MINWIDTH P 2 NOTTIMEDOUT P 1 OPPT P 0 BASEPT F 27Q INITREGION F 30Q MINWIDTH F 31Q MINHEIGHT F 32Q NEWREGIONFN F 33Q MACROY) hhhhiW0djW2djW4ddh `_`_jOK^Kd``k_KپOL_``L_(jO(O(j_L_OO W.O`kjF`_W._dW._lOO`_W._dW._lOO_KLMHI I_I_NOOO OO NOOO j _&oi MNOOO NdOOOdOOON_*jO*O*jO*OO_,jO,O,jO,hNOOO hc6i(570Q ERROR! 564Q DRAWGRAYBOX 451Q DRAWGRAYBOX 435Q GETREGIONA0001A0003 422Q CLOCK 415Q SETCORNER 402Q \SETCURSORPOSITION 372Q DRAWGRAYBOX 345Q \GETREGION.CHECKOPPT 333Q \GETREGION.PACKPTS 206Q \GETREGIONTRACKWITHBOX 202Q \SETCURSORPOSITION 56Q GETMOUSESTATE) (267Q LASTMOUSEY 227Q LASTMOUSEX 216Q LASTMOUSEBUTTONS 146Q SCREENHEIGHT 137Q SCREENHEIGHT 117Q SCREENWIDTH 111Q SCREENWIDTH 70Q LASTMOUSEY 62Q LASTMOUSEX) ( 431Q (GETREGIONA0001A0003)) GETREGION D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 4 NEWREGIONFNARG I 3 NEWREGIONFN I 2 INITREGION I 1 MINHEIGHT I 0 MINWIDTH F 4 RESETVARSLST F 5 EXPANDINGBOX) ;U 1gHhhTcYog gIcgI KJ(66Q ERROR! 61Q APPLY 36Q GETREGIONA0001 3 CURSOR) (52Q CURSOR 42Q ERROR 33Q INTERNAL 11Q CURSOR) ( 30Q (GETREGIONA0001)) \GETREGION.PACKPTS D1 (F 0 BASEPT F 1 OPPT F 2 BASEX F 3 BASEY F 4 OPPY F 5 OPPX) PRPSQUQdTNIL NIL () \GETREGION.CHECKBASEPT D1 (P 2 USERPT P 1 FN I 1 BASEPT I 0 NEWREGFNS F 3 NEWREGIONFNARG) 2@!HhAhSlIZ oJ AJAJHX(40Q ERROR 27Q POSITIONP) NIL ( 34Q "non-POSITION returned by NEWREGIONFN") \GETREGION.CHECKOPPT D1 (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) xCCDD$HJHJ@H@ىJH@H@ZDJIKIKAIAىKIAIA[DKB&dCDVlM\ oL DLDLh(145Q ERROR 134Q POSITIONP) NIL ( 141Q "non-POSITION returned by NEWREGIONFN") \GETREGIONTRACKWITHBOXA0001 D1 (NAME ERRORSET L (0 NIL) F 1 POSTEMP F 2 BASEX F 3 BASEY F 4 OPPX F 5 OPPY F 6 YTEMP F 7 BASEPT F 10Q XTEMP F 11Q THRUONCE F 12Q OLDCURSOR F 13Q WIDTH F 14Q HEIGHT F 15Q OLDMOUSEX F 16Q OLDMOUSEY F 17Q FORCEPS F 20Q NEWREGFNS) mW`ljhhic`ljW c`lHj HH W RT`TRlۈTRl`RTccRTcSU`USlۈUSl`SUcc SUcTU [`dW`WH`cWcnnjQjcWQnnjQjQ`cWcWQn'n'cjQjcQW W Wc RWcjSVjWRcVSc TURSh` TWcUVc RWcSVch` (547Q DRAWGRAYBOX 510Q DRAWGRAYBOX 425Q \GETREGION.CHECKBASEPT 243Q \SETCURSORPOSITION 117Q CURSOR 107Q \FZEROP 57Q GETMOUSESTATE 51Q CURSOR 6 GETMOUSESTATE) (543Q DASHEDSHADE 504Q DASHEDSHADE 355Q LASTMOUSEY 275Q LASTMOUSEX 263Q LASTMOUSEY 252Q LASTMOUSEX 216Q LASTMOUSEY 176Q LASTMOUSEY 147Q LASTMOUSEX 127Q LASTMOUSEX 63Q LASTMOUSEBUTTONS 33Q LASTMOUSEBUTTONS 12Q LASTMOUSEBUTTONS) () \GETREGIONTRACKWITHBOX D1 (P 11Q THRUONCE P 10Q POSTEMP P 7 OLDMOUSEY P 6 OLDMOUSEX P 5 YTEMP P 4 XTEMP P 2 OLDCURSOR P 1 HEIGHT P 0 WIDTH F 12Q BASEX F 13Q OPPX F 14Q BASEY F 15Q OPPY) > WWWW WWWWh` oi [WWWWh` Kh(72Q ERROR! 65Q DRAWGRAYBOX 44Q \GETREGIONTRACKWITHBOXA0001 34Q DRAWGRAYBOX) (61Q DASHEDSHADE 30Q DASHEDSHADE) ( 40Q (\GETREGIONTRACKWITHBOXA0001)) \UPDATEXYANDBOX D1 (P 1 TEMPY P 0 TEMPX I 0 BASEPTCHANGE? F 2 BASEX F 3 BASEY F 4 OPPX F 5 OPPY F 6 BASEPT F 7 OPPT) S @"VRVXjSIjTURSHcIc WYTWXjUIjRSTUHcIc RSTU h(117Q SETCORNER 107Q MOVEBOX 44Q MOVEBOX) NIL () GETBOXREGION D1 (I 5 PROMPTMSG I 4 WINDOW I 3 ORGY I 2 ORGX I 1 HEIGHT I 0 WIDTH) @ABCDE HH@Ah(11Q GETBOXPOSITION) NIL () \TRACKWITHBOXA0001 D1 (NAME ERRORSET L (0 NIL) F 1 ORGX F 2 ORGY F 3 BOXWIDTH F 4 BOXHEIGHT F 5 OLDCURSOR F 6 MLMASK F 7 ORGLEFTMIDDLE F 10Q FORCEPS) V`Whh`ljW c `lHj HH U Sj`QSl؈QSl`QScjScTj`RTl؈RTl`RTcjTcQR hQd`jR`jSQRQSRT `c`cQSRT 0(316Q DRAWGRAYBOX 272Q DRAWGRAYBOX 226Q \SETCURSORPOSITION 106Q CURSOR 77Q \FZEROP 47Q GETMOUSESTATE 41Q CURSOR 2 GETMOUSESTATE) (303Q LASTMOUSEY 276Q LASTMOUSEX 250Q LASTMOUSEY 237Q LASTMOUSEX 203Q LASTMOUSEY 163Q LASTMOUSEY 136Q LASTMOUSEX 116Q LASTMOUSEX 53Q LASTMOUSEBUTTONS 23Q LASTMOUSEBUTTONS 7 LASTMOUSEBUTTONS) () \TRACKWITHBOX D1 (P 3 NOERROR P 2 ORGLEFTMIDDLE P 1 OLDCURSOR P 0 MLMASK F 4 ORGX F 5 ORGY F 6 BOXWIDTH F 7 BOXHEIGHT) 4l1H`ZTUTVUW oi [TUTVUW Kh(60Q ERROR! 53Q DRAWGRAYBOX 36Q \TRACKWITHBOXA0001 26Q DRAWGRAYBOX) (10Q LASTMOUSEBUTTONS) ( 32Q (\TRACKWITHBOXA0001)) MOVEBOX D1 (I 5 Y3 I 4 X3 I 3 Y2 I 2 X2 I 1 Y1 I 0 X1) &ABD @CE C@B E@D BAC DAE (43Q BLTVLINE 35Q BLTVLINE 27Q BLTHLINE 21Q BLTHLINE 13Q BLTVLINE 5 BLTHLINE) NIL () DRAWGRAYBOX D1 (I 5 SHADE I 4 W I 3 Y2 I 2 X2 I 1 Y1 I 0 X1) &A@BDE @ACDE C@BDE BACDE (43Q BLTVLINE 32Q BLTHLINE 21Q BLTVLINE 10Q BLTHLINE) NIL () BLTHLINE D1 (I 4 SHADE I 3 W I 2 XB I 1 XA I 0 Y) 5hddC`AdBB@BAjHHjHlggD` (62Q BKBITBLT) (56Q GRAYSHADE 50Q INVERT 45Q TEXTURE 10Q ScreenBitMap) () BLTVLINE D1 (I 4 SHADE I 3 W I 2 YB I 1 YA I 0 X) 5hddC`@AdBBlBAjHHjHggD` (62Q BKBITBLT) (56Q GRAYSHADE 50Q INVERT 45Q TEXTURE 10Q ScreenBitMap) () SETCORNER D1 (I 3 Y2 I 2 X2 I 1 Y1 I 0 X1) B@CA``CA`` (35Q SETCURSOR) (32Q LowerLeftCursor 26Q UpperLeftCursor 16Q LowerRightCursor 12Q UpperRightCursor) () MOUSECONFIRMA0001 D1 (NAME ERRORSET P 0 LEFTDOWN F 2 MACROY) G`lj`ljh`lYjII `ljhHci(61Q \FZEROP 35Q GETMOUSESTATE 2 GETMOUSESTATE) (65Q LASTMOUSEBUTTONS 41Q LASTMOUSEBUTTONS 20Q LASTMOUSEBUTTONS 6 LASTMOUSEBUTTONS) () MOUSECONFIRM D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 3 DON'TCLEARWINDOWFLG I 2 WINDOW I 1 HELPSTRING I 0 PROMPTSTRING F 4 RESETVARSLST) B`b@@iAi6B @Ai-AoB i@B AdilB ib` 1gHhhTcog gIcgI KJCB (216Q CLEARW 205Q ERROR! 177Q APPLY 153Q MOUSECONFIRMA0001 120Q CURSOR 103Q SPACES 65Q PRIN1 52Q PRIN1 26Q FRESHLINE) (170Q CURSOR 157Q ERROR 150Q INTERNAL 126Q CURSOR 115Q MOUSECONFIRMCURSOR 4 PROMPTWINDOW) ( 145Q (MOUSECONFIRMA0001) 46Q "Click LEFT to confirm, RIGHT to abort.") NEAREST/PT/ON/GRID D1 (I 1 GRIDN I 0 PT) @dA @dA @(16Q NEAREST/MULTIPLE 6 NEAREST/MULTIPLE) NIL () PTON10GRID D1 (I 1 MOVINGPT I 0 FIXEDPT) A@l (10Q NEAREST/PT/ON/GRID) NIL () NEAREST/MULTIPLE D1 (L (1 N 0 X)) @djAlAAAlAANIL NIL () \SW2BM D1 (P 30Q \INTERRUPTABLE P 27Q CH P 26Q CW P 25Q YQ P 24Q XQ P 23Q YP P 22Q XP P 21Q CB P 20Q 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) W0A8j[@@Cj_BBjHjL_dOOdjjjKjO_dOOdjj_"_ HO"KO LO"O$@HJ_dOOO$BLN_dOOO(_dOO_,@KI_dOOO&BOM_dOOO*_dOO_.@O$O&BO(O*O,O.gg BO(O*@O$O&O,O.gg @O$O&BO(O*O,O.gg hC_CCAAA(452Q BKBITBLT 421Q BKBITBLT 370Q BKBITBLT) (446Q INVERT 443Q INPUT 415Q INVERT 412Q INPUT 364Q INVERT 361Q INPUT) () COMPOSEREGS D1 (L (1 OUTER 0 INNER)) A@A@@@@NIL NIL () TRANSLATEREG D1 (L (1 OUTER 0 INNER)) @A@A@@hNIL NIL () EDITBM D1 (P 12Q ORIGBPP P 11Q GRIDSQUARE P 10Q 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)  @`@dg`b` _`^`@d_ ^@l'@g _` Od ^_^@ 2@@` @_`@@Njdhdgg H@ >@_g @g @ h@ _@OONjdOO ^N]N\`lllL`lllMk_dOOd``dll_dLl`ll_dOOZMOkl`ll_dOO[J Ki hddo o XdgN Hgg Hgg Hgg Hgg Hgg Hgj Hgj Hgj Hgj HgO Hg N_NkHhdOh Hg n Hg H NOHg i@``O &Njd`OOOOgg NO %NjdOOOOOgg NONjdOjdLM @Ol@g gg@Nh @`Ohd` (1325Q ERROR! 1321Q BKBITBLT 1276Q STKEVAL 1256Q MARKASCHANGED 1233Q BKBITBLT 1210Q BKBITBLT 1145Q WINDOWP 1136Q BKBITBLT 1072Q REGIONP 1045Q GETWINDOWUSERPROP 1031Q CLOSEW 1025Q PUTWINDOWPROP 1013Q DISMISS 1004Q GETWINDOWUSERPROP 775Q SPAWN.MOUSE 772Q EDITBMRESHAPEFN 747Q PUTWINDOWPROP 740Q PUTWINDOWPROP 727Q PUTWINDOWPROP 717Q PUTWINDOWPROP 707Q PUTWINDOWPROP 677Q PUTWINDOWPROP 667Q PUTWINDOWPROP 655Q PUTWINDOWPROP 643Q PUTWINDOWPROP 631Q PUTWINDOWPROP 617Q PUTWINDOWPROP 605Q PUTWINDOWPROP 574Q CREATEW 565Q GETBOXREGION 552Q HEIGHTIFWINDOW 545Q WIDTHIFWINDOW 341Q \READBMDIMENSIONS 335Q BKBITBLT 300Q DSPCLIPPINGREGION 272Q TOTOPW 265Q BITMAPCREATE 262Q GETWINDOWPROP 253Q GETWINDOWPROP 240Q WINDOWP 232Q BKBITBLT 176Q BITMAPCREATE 173Q BITSPERPIXEL 152Q REGIONP 142Q \READBMDIMENSIONS 130Q BITMAPCOPY 110Q EVALV 66Q BITMAPCOPY 36Q BITMAPCOPY) (1316Q CursorBitMap 1305Q CursorBitMap 1265Q SETQQ 1262Q EDITBM 1253Q VARS 1204Q REPLACE 1201Q INPUT 1132Q REPLACE 1127Q INPUT 1102Q ScreenBitMap 1064Q CursorBitMap 1057Q CursorBitMap 1042Q FINISHEDFLG 1022Q CLOSEFN 1001Q FINISHEDFLG 744Q FINISHEDFLG 733Q ORIGINALBITMAP 723Q DYOFFSET 713Q DXOFFSET 703Q YOFFSET 673Q XOFFSET 664Q EDITBMCLOSEFN 661Q CLOSEFN 652Q EDITBMBUTTONFN 647Q BUTTONEVENTFN 640Q EDITBMREPAINTFN 635Q REPAINTFN 626Q EDITBMRESHAPEFN 623Q RESHAPEFN 614Q EDITBMSCROLLFN 611Q SCROLLFN 601Q BM 517Q SCREENHEIGHT 461Q SCREENWIDTH 436Q NORMALGRIDSQUARE 430Q NORMALGRIDSQUARE 374Q SCREENHEIGHT 356Q SCREENWIDTH 257Q HEIGHT 250Q WIDTH 226Q REPLACE 223Q INPUT 206Q ScreenBitMap 170Q ScreenBitMap 116Q BITMAPTYPE# 105Q EDITBM 54Q BITMAPTYPE# 44Q CursorBitMap 33Q CursorBitMap 24Q CursorBitMap 15Q CursorBitMap 6 CursorBitMap) ( 571Q "Bitmap Editor" 561Q "Indicate the position for the Bitmap Edit window.") EDITBMCLOSEFN D1 (I 0 BMW) @gg (11Q PUTWINDOWPROP) (6 KILL 3 FINISHEDFLG) () TILEAREA D1 (P 5 H P 4 W P 3 TOP P 2 RGHT P 1 Y P 0 X I 5 WIN I 4 SRCBM I 3 HGHT I 2 WDTH I 1 BTM I 0 LFT) ;@A@BACDDJH%AKIDjdEHILMhg IM԰HLԸ(54Q BKBITBLT) (50Q REPLACE) () EDITBMBUTTONFNA0013 D1 (NAME ERRORSET L (0 NIL) F 1 MACROY) $`lHj HH hci(32Q \FZEROP 2 GETMOUSESTATE) (6 LASTMOUSEBUTTONS) () EDITBMBUTTONFN D1 (P 33Q RESETSTATE P 32Q MACROY P 30Q OLDVALUE P 27Q POS P 17Q ORIGBM P 16Q PAINTW P 15Q NEWGRIDSIZE P 14Q BITMAPHEIGHT P 13Q BITMAPWIDTH P 12Q GRIDY0 P 11Q GRIDX0 P 10Q DISPLAYREGION P 7 YOFFSET P 6 XOFFSET P 5 WREGION P 4 BITSHIGH P 3 BITSWIDE P 2 BM P 1 GRIDINTERIOR P 0 GRIDSPEC I 0 W F 34Q EDITBMWINDOWMENU F 35Q RESETVARSLST F 36Q GRIDSIZEMENU) (@g @g @g @g @g @ @g @g @g H_H_J_J_I@ @ JHI@KL O@ @