(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 9-Sep-94 09:39:54" ("compiled on " {DSK}lispusers>EDITBG.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "12-Jul-88 09:06:28" |{MCS:MCS:STANFORD}EDITBG.;6| 16468 changes to%: (FNS EDITBACKGROUND EDITBG.BUTTONFN) (VARS EDITBGCOMS) previous date%: " 9-Sep-87 09:18:10" |{MCS:MCS:STANFORD}EDITBG.;4|) EDITBACKGROUND :D8 (P 1 RECORD P 0 WINDOW) l li o ``hodI`lI`lI`I` hdH IIIgH jIH `hdH Hgg Hgll jdh H(214 PUTWINDOWPROP 203 BITMAPCREATE 188 PUTWINDOWPROP 172 WBOX 154 CENTERPRINTINREGION 140 GRID 113 WBOX 105 CREATEREGION 29 CREATEW 19 GETBOXREGION 14 HEIGHTIFWINDOW 6 WIDTHIFWINDOW) (194 EDITBG.DATA 183 EDITBG.BUTTONFN 178 BUTTONEVENTFN 164 EDITBG.BUTTONREGION 133 POINT 99 WBorder 87 WBorder 73 WBorder 60 WBorder 42 EDITBG.BORDERREC 37 EDITBG.SHADEREC) ( 24 "Background Texture Edit Tool") EDITBG.BUTTONFN :D8 (P 14 Y P 12 X P 9 NEWSHADE P 8 RECORD P 7 GRIDY P 6 GRIDX P 5 BIT P 4 PIXEL P 3 LEFTFLG P 2 SHADE P 1 POSITION P 0 DATA I 0 WINDOW) @g  `l_jO O h@I `I ?`ng@ H H `ng@ `I `_H!`I `_H_O`ljhIO IO _NOK`jhOg@ kOOOkjN KJLJLm_JOOOjg@ JO@ O`]KkjO_NlN OO.OkOOOHOOMOk_Ol_OHh@ HHJ`Hh@ )(483 BLOCK 477 DSPFILL 449 DSPFILL 351 CENTERPRINTINREGION 336 DSPFILL 290 LLSH 263 SHADEGRIDBOX 231 GRIDYCOORD 219 GRIDXCOORD 170 INSIDEP 143 INSIDEP 128 DSPFILL 108 CHANGEBACKGROUNDBORDER 98 CHANGEBACKGROUND 89 DSPFILL 68 INSIDEP 56 CURSORPOSITION 45 \FZEROP 18 GETMOUSESTATE 10 GETWINDOWUSERPROP) (463 EDITBG.SHADEREC 359 EDITBG.BORDERREC 330 REPLACE 256 POINT 244 GRAYSHADE 200 LASTMOUSEBUTTONS 177 EDITBG.BORDERREC 163 EDITBG.BORDERREC 149 EDITBG.SHADEREC 136 EDITBG.SHADEREC 122 INVERT 114 EDITBG.BUTTONREGION 83 INVERT 75 EDITBG.BUTTONREGION 62 EDITBG.BUTTONREGION 24 LASTMOUSEBUTTONS 5 EDITBG.DATA) () (PRETTYCOMPRINT EDITBGCOMS) (RPAQQ EDITBGCOMS ((FNS EDITBACKGROUND EDITBG.BUTTONFN) (RECORDS EDITBG.RECORD EDITBG.DATA) (CONSTANTS (EDITBG.PIXELSIZE 16)) (ALISTS (BackgroundMenuCommands EditBG)) (VARS (BackgroundMenu)) (INITVARS ( EDITBG.SHADEREC (create EDITBG.RECORD REGION _ (CREATEREGION 2 2 (LLSH EDITBG.PIXELSIZE 2) (LLSH EDITBG.PIXELSIZE 2)) GRIDSPEC _ (CREATEREGION 2 2 EDITBG.PIXELSIZE EDITBG.PIXELSIZE) BITWIDTH _ 4 BITHEIGHT _ 4 DSPREGION _ (CREATEREGION EDITBG.PIXELSIZE (TIMES EDITBG.PIXELSIZE 6) (TIMES EDITBG.PIXELSIZE 11) (LLSH EDITBG.PIXELSIZE 1)) NUMBEREGION _ (CREATEREGION WBorder (PLUS (LLSH EDITBG.PIXELSIZE 2) WBorder) (DIFFERENCE (LLSH EDITBG.PIXELSIZE 2) WBorder) (FONTPROP DEFAULTFONT ( QUOTE HEIGHT))))) (EDITBG.BORDERREC (create EDITBG.RECORD REGION _ (CREATEREGION (PLUS (TIMES EDITBG.PIXELSIZE 5) 2) 2 (LLSH EDITBG.PIXELSIZE 3) (LLSH EDITBG.PIXELSIZE 2)) GRIDSPEC _ (CREATEREGION (PLUS (TIMES EDITBG.PIXELSIZE 5) 2) 2 EDITBG.PIXELSIZE (LLSH EDITBG.PIXELSIZE 1)) BITWIDTH _ 8 BITHEIGHT _ 2 DSPREGION _ (CREATEREGION 1 (ADD1 (TIMES EDITBG.PIXELSIZE 5)) (PLUS (TIMES EDITBG.PIXELSIZE 13) 2) (SUB1 (LLSH EDITBG.PIXELSIZE 2))) NUMBEREGION _ (CREATEREGION (PLUS (TIMES EDITBG.PIXELSIZE 5) WBorder) (PLUS (LLSH EDITBG.PIXELSIZE 2) WBorder) (DIFFERENCE (LLSH EDITBG.PIXELSIZE 3) WBorder) (FONTPROP DEFAULTFONT (QUOTE HEIGHT))))) (EDITBG.BUTTONREGION ( CREATEREGION (PLUS 2 (LLSH EDITBG.PIXELSIZE 2)) (PLUS 2 (LLSH EDITBG.PIXELSIZE 2)) (SUB1 EDITBG.PIXELSIZE) (SUB1 EDITBG.PIXELSIZE)))) (GLOBALVARS EDITBG.BUTTONREGION EDITBG.BORDERREC EDITBG.SHADEREC EDITBG.PIXELSIZE))) (RECORD EDITBG.RECORD (REGION GRIDSPEC BITWIDTH DSPREGION NUMBEREGION BITHEIGHT)) (RECORD EDITBG.DATA (BITMAP INTERIOR EXTERIOR) BITMAP _ (BITMAPCREATE 16 4) INTERIOR _ 0 EXTERIOR _ 0) (RPAQQ EDITBG.PIXELSIZE 16) (CONSTANTS (EDITBG.PIXELSIZE 16)) (ADDTOVAR BackgroundMenuCommands (EditBG (QUOTE (EDITBACKGROUND)) "Opens a Background Texture Edit Tool")) (RPAQQ BackgroundMenu NIL) (RPAQ? EDITBG.SHADEREC (create EDITBG.RECORD REGION _ (CREATEREGION 2 2 (LLSH EDITBG.PIXELSIZE 2) ( LLSH EDITBG.PIXELSIZE 2)) GRIDSPEC _ (CREATEREGION 2 2 EDITBG.PIXELSIZE EDITBG.PIXELSIZE) BITWIDTH _ 4 BITHEIGHT _ 4 DSPREGION _ (CREATEREGION EDITBG.PIXELSIZE (TIMES EDITBG.PIXELSIZE 6) (TIMES EDITBG.PIXELSIZE 11) (LLSH EDITBG.PIXELSIZE 1)) NUMBEREGION _ (CREATEREGION WBorder (PLUS (LLSH EDITBG.PIXELSIZE 2) WBorder) (DIFFERENCE (LLSH EDITBG.PIXELSIZE 2) WBorder) (FONTPROP DEFAULTFONT ( QUOTE HEIGHT))))) (RPAQ? EDITBG.BORDERREC (create EDITBG.RECORD REGION _ (CREATEREGION (PLUS (TIMES EDITBG.PIXELSIZE 5) 2) 2 (LLSH EDITBG.PIXELSIZE 3) (LLSH EDITBG.PIXELSIZE 2)) GRIDSPEC _ (CREATEREGION (PLUS (TIMES EDITBG.PIXELSIZE 5) 2) 2 EDITBG.PIXELSIZE (LLSH EDITBG.PIXELSIZE 1)) BITWIDTH _ 8 BITHEIGHT _ 2 DSPREGION _ (CREATEREGION 1 (ADD1 (TIMES EDITBG.PIXELSIZE 5)) (PLUS (TIMES EDITBG.PIXELSIZE 13) 2) ( SUB1 (LLSH EDITBG.PIXELSIZE 2))) NUMBEREGION _ (CREATEREGION (PLUS (TIMES EDITBG.PIXELSIZE 5) WBorder) (PLUS (LLSH EDITBG.PIXELSIZE 2) WBorder) (DIFFERENCE (LLSH EDITBG.PIXELSIZE 3) WBorder) (FONTPROP DEFAULTFONT (QUOTE HEIGHT))))) (RPAQ? EDITBG.BUTTONREGION (CREATEREGION (PLUS 2 (LLSH EDITBG.PIXELSIZE 2)) (PLUS 2 (LLSH EDITBG.PIXELSIZE 2)) (SUB1 EDITBG.PIXELSIZE) (SUB1 EDITBG.PIXELSIZE))) (PUTPROPS EDITBG COPYRIGHT ("Stanford University" 1984 1985 1986 1987 1988)) NIL