(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "16-Nov-93 17:20:18" ("compiled on " {DSK}export>lispcore>lispusers>BACKGROUNDIMAGES.;1) "11-Nov-93 16:58:33" bcompl'd in "Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44") (FILECREATED " 2-Mar-87 16:07:23" {ERIS}LYRIC>BACKGROUNDIMAGES.;6 17437 changes to%: (FNS BACKGROUND.SETUP) (VARS BACKGROUNDIMAGESCOMS) previous date%: "11-Feb-87 21:26:26" {ERIS}LYRIC>BACKGROUNDIMAGES.;5) BACKGROUND.SETUP :D8 (P 6 IMAGE P 5 FILENAME P 4 NAME P 0 IMAGES I 0 NAMES) @d Ho g googgoog`HXd^ddNNN\gggLhgMhohoL hJIh[I&Khoh i(204 BkgMenu.fixup 199 BkgMenu.add.item 154 CONCAT 39 BkgMenu.remove.item 29 FILESLOAD 8 BACKGROUND.FILES) (128 QUOTE 119 QUOTE 114 BACKGROUND.FETCH 109 QUOTE 79 SUBITEMS 64 Change 59 SUBITEMS 44 Background 34 Background) ( 187 ((Mode (QUOTE (PROMPTPRINT (BACKGROUND.MODE))) "Change mode of applying background images" (SUBITEMS (Center (QUOTE (BACKGROUND.MODE (QUOTE CENTER)))) (Tile (QUOTE (BACKGROUND.MODE (QUOTE TILE)))) (Reflect (QUOTE (BACKGROUND.MODE (QUOTE REFLECT)))))) (Shade (QUOTE (BACKGROUND.SHADE (EDITSHADE BACKGROUND.SHADE))) "Change the default background shade")) 148 "Change background to " 137 (BACKGROUND.MODE) 74 "Change background" 69 (QUOTE (CHANGEBACKGROUND BACKGROUND.SHADE)) 54 "Change background" 49 (QUOTE (CHANGEBACKGROUND BACKGROUND.SHADE)) 24 ((SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) BACKGROUNDMENU)) BACKGROUND.FILES :D8 (P 7 filename P 2 IMAGES P 1 DIR I 0 WHICH) @iS`!hH J JYo Io ddJJZHX`H hAK2LYo Io HX_ OM Nh]K[N&(162 BACKGROUND.SHORTNAME 146 \APPEND2 141 FILDIR 136 PACK* 125 FILDIR 120 PACK* 65 \APPEND2 60 FILDIR 55 PACK* 44 FILDIR 39 PACK* 24 SORT) (90 LISPUSERSDIRECTORIES 9 LISPUSERSDIRECTORIES) ( 131 "background-*.press" 115 "background-*.bitmap" 50 "background-*.press" 34 "background-*.bitmap") BACKGROUND.FILE :D8 (P 3 PRESS.FILENAME P 2 BITMAP.FILENAME P 1 DIR I 0 NAME) x`HhgIgo@ go gIgo@ go J JK KHX(109 INFILEP 100 INFILEP 91 PACKFILENAME 75 CONCAT 53 PACKFILENAME 37 CONCAT) (80 EXTENSION 64 NAME 58 DIRECTORY 42 EXTENSION 26 NAME 20 DIRECTORY 4 LISPUSERSDIRECTORIES) ( 85 "press" 69 "background-" 47 "bitmap" 31 "background-") BACKGROUND.FETCH :D8 (P 1 STREAM P 0 BITMAP I 2 MODE I 1 FILENAME I 0 NAME) H`@'HHo` @` o` A @ bA oAo oA o A Ag I I o` ` ` @Hh@H o` BdgH )gH BBdgH Xd o` ` H(324 TERPRI 313 PRIN1 298 CHANGEBACKGROUND 291 \ILLEGAL.ARG 285 BACKGROUND.CENTER 265 BACKGROUND.REFLECT 250 BACKGROUND.TILE 234 PRIN1 218 LISTPUT 191 TERPRI 180 PRIN1 164 CLOSEF 157 HREAD 148 OPENSTREAM 134 READPRESS 127 FILESLOAD 115 PRESSFILEP 107 PROMPTPRINT 89 INFILEP 80 BACKGROUND.FILE 70 PRIN1 54 PRIN1 42 PRIN1 26 CLRPROMPT) (319 PROMPTWINDOW 308 PROMPTWINDOW 276 CENTER 257 REFLECT 241 TILE 229 PROMPTWINDOW 210 BACKGROUNDS 197 BACKGROUNDS 186 PROMPTWINDOW 175 PROMPTWINDOW 143 INPUT 65 PROMPTWINDOW 49 PROMPTWINDOW 37 PROMPTWINDOW 15 BITMAP 4 BACKGROUNDS) ( 303 "done." 224 "Adjusting background ... " 170 "done." 122 ((SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) BITMAPFNS) 102 " not available." 96 "Background " 60 " ... " 32 "Fetching background ") BACKGROUND.SHORTNAME :D8 (P 1 start P 0 LONGNAME I 0 IMAGE) 9@g HoH Id3 kh i (54 MKATOM 49 L-CASE 42 SUBSTRING 25 STRPOS 10 FILENAMEFIELD) (5 NAME) ( 19 "-") BACKGROUND.MODE :D8 (I 0 NEWVAL) 7@`g@g@dg`@ (52 \ILLEGAL.ARG) (45 BACKGROUND.MODE 39 BACKGROUND.MODE 31 REFLECT 22 TILE 13 CENTER 7 BACKGROUND.MODE) () BACKGROUND.SHADE :D8 (I 0 NEW-SHADE) $@` `@@ (33 \ILLEGAL.ARG 13 TEXTUREP) (25 BACKGROUND.SHADE 19 BACKGROUND.SHADE 7 BACKGROUND.SHADE) () BACKGROUND.CENTER :D8 (P 2 Y P 1 X P 0 NEWBITMAP I 0 BITMAP) K``k `@ l`@ l`H @kdHIJ H(71 BKBITBLT 59 BLTSHADE 41 BITMAPHEIGHT 26 BITMAPWIDTH 15 BITMAPCREATE) (53 BACKGROUND.SHADE 35 SCREENHEIGHT 20 SCREENWIDTH 9 SCREENHEIGHT 4 SCREENWIDTH) () BACKGROUND.REFLECT :D8 (P 16 I P 14 I P 12 I P 10 HORIZ.VERT P 9 VERT P 8 HORIZ P 7 Y P 6 X P 5 NEWBITMAP P 4 TOO.SMALL P 3 MAXHEIGHT P 2 MAXWIDTH P 1 HEIGHT P 0 WIDTH I 0 BITMAP) @ @ lHlI`J `K\J`LK`k M HlIM M Ilۀj@hdMNO `H`IHIk HIk HIk  Hkj OO @OjOHkOjkI Ok_IkjOO @jOOjIkOHk Ok_IkjO O!OjO OjIkO Hk O k_ OhdMNHOI OhdMNOI OhdMNHOI OhdMNHO OhdMNHO LM MM(400 BACKGROUND.REFLECT 392 BKBITBLT 376 BKBITBLT 360 BKBITBLT 342 BKBITBLT 326 BKBITBLT 298 BKBITBLT 252 BKBITBLT 207 BKBITBLT 169 BITMAPCREATE 161 BITMAPCREATE 153 BITMAPCREATE 126 BKBITBLT 103 BITMAPHEIGHT 95 BITMAPHEIGHT 80 BITMAPWIDTH 71 BITMAPCREATE 14 BITMAPHEIGHT 5 BITMAPWIDTH) (139 SCREENHEIGHT 131 SCREENWIDTH 65 SCREENHEIGHT 56 SCREENWIDTH 45 SCREENHEIGHT 36 SCREENWIDTH) () BACKGROUND.TILE :D8 (P 5 BOTTOM P 2 NEWBITMAP P 1 LEFT I 0 BITMAP) `d@ ``k K+KjKK jK`II`y`@ ``@ jN'Nj;NN /jN`MM`@hdJIM M@ ^ԽI@ [Թ`J(192 BITMAPWIDTH 179 BITMAPHEIGHT 171 BKBITBLT 137 \FZEROP 114 BACKGROUND.LESS 109 BITMAPHEIGHT 90 BITMAPHEIGHT 55 \FZEROP 32 BITMAPCREATE 16 BACKGROUND.LESS 11 BITMAPWIDTH) (156 SCREENHEIGHT 148 SCREENHEIGHT 103 SCREENHEIGHT 95 SCREENHEIGHT 84 SCREENHEIGHT 76 SCREENWIDTH 68 SCREENWIDTH 26 SCREENHEIGHT 21 SCREENWIDTH 4 SCREENWIDTH) () BACKGROUND.LESS :D8 (P 0 START I 1 IMAGESIZE I 0 BOXSIZE) @AlkXdkjA԰NIL NIL () (PRETTYCOMPRINT BACKGROUNDIMAGESCOMS) (RPAQQ BACKGROUNDIMAGESCOMS ((* ;;; "Enables you to load interesting backgrounds. Simplest entry is just to call (BACKGROUND.SETUP).") ( FNS BACKGROUND.SETUP BACKGROUND.FILES BACKGROUND.FILE BACKGROUND.FETCH BACKGROUND.SHORTNAME BACKGROUND.MODE BACKGROUND.SHADE) (FNS BACKGROUND.CENTER BACKGROUND.REFLECT BACKGROUND.TILE BACKGROUND.LESS) (INITVARS (BACKGROUNDS NIL) (BACKGROUND.MODE (QUOTE CENTER)) (BACKGROUND.SHADE 34850) ) (GLOBALVARS BACKGROUNDS BackgroundMenuCommands LISPUSERSDIRECTORIES BACKGROUND.MODE BACKGROUND.SHADE ) (ADDVARS (GAINSPACEFORMS ((LISTP BACKGROUNDS) "Delete saved background bitmaps" (SETQ BACKGROUNDS NIL)))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA)) ))) (RPAQ? BACKGROUNDS NIL) (RPAQ? BACKGROUND.MODE (QUOTE CENTER)) (RPAQ? BACKGROUND.SHADE 34850) (ADDTOVAR GAINSPACEFORMS ((LISTP BACKGROUNDS) "Delete saved background bitmaps" (SETQ BACKGROUNDS NIL) )) (PUTPROPS BACKGROUNDIMAGES COPYRIGHT ("Xerox Corporation" 1986 1987)) NIL