(FILECREATED " 3-Apr-86 11:19:49" ("compiled on " {PHYLUM}MISC>BACKGROUNDIMAGES.;5) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 7-Feb-86 ..." dated " 7-Feb-86 11:43:05") (FILECREATED " 3-Apr-86 11:19:34" {PHYLUM}MISC>BACKGROUNDIMAGES.;5 13375 changes to: (VARS BACKGROUNDIMAGESCOMS) (FNS BACKGROUND.MODE BACKGROUND.SETUP BACKGROUND.FETCH BACKGROUND.REFLECT BACKGROUND.TILE BACKGROUND.CENTER BACKGROUND.LESS BACKGROUND.FILES BACKGROUND.FILE BACKGROUND.SHORTNAME) previous date: "31-Jan-86 16:21:55" {PHYLUM}KOTO>BACKGROUNDIMAGES.;2) BACKGROUND.SETUP D1 (P 6 IMAGE P 5 FILENAME P 4 NAME P 0 IMAGES I 0 NAMES) @d Ho g goog`HLd^ddNNN\gggLhgMhohoL hJIh[I&Kh i(215Q BkgMenu.fixup 212Q BkgMenu.add.item 153Q CONCAT 36Q BkgMenu.remove.item 30Q FILESLOAD 6 BACKGROUND.FILES) (125Q QUOTE 116Q QUOTE 113Q BACKGROUND.FETCH 110Q QUOTE 54Q SUBITEMS 41Q Background 33Q Background) ( 147Q "Change background to " 135Q (BACKGROUND.MODE) 51Q "Change background" 45Q (QUOTE (CHANGEBACKGROUND)) 25Q ((SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) BACKGROUNDMENU)) BACKGROUND.FILES D1 (P 7 filename P 2 IMAGES P 1 DIR I 0 WHICH) @iC`!hH J <Yo Io ddJJZHX`H hAK&LYo Io HX_ OM Nh]K[N&(202Q BACKGROUND.SHORTNAME 164Q \APPEND2 161Q FILDIR 156Q PACK* 146Q FILDIR 143Q PACK* 61Q \APPEND2 56Q FILDIR 53Q PACK* 43Q FILDIR 40Q PACK* 24Q SORT) (110Q LISPUSERSDIRECTORIES 7 LISPUSERSDIRECTORIES) ( 153Q "background-*.press" 140Q "background-*.bitmap" 50Q "background-*.press" 35Q "background-*.bitmap") BACKGROUND.FILE D1 (P 3 PRESS.FILENAME P 2 BITMAP.FILENAME P 1 DIR I 0 NAME) Z`HhgIgo@ go gIgo@ go J JK KHX(117Q INFILEP 110Q INFILEP 101Q PACKFILENAME 66Q CONCAT 47Q PACKFILENAME 34Q CONCAT) (71Q EXTENSION 56Q NAME 52Q DIRECTORY 37Q EXTENSION 24Q NAME 20Q DIRECTORY 2 LISPUSERSDIRECTORIES) ( 75Q "press" 62Q "background-" 43Q "bitmap" 30Q "background-") BACKGROUND.FETCH D1 (P 1 STREAM P 0 BITMAP I 2 MODE I 1 FILENAME I 0 NAME) `@'H`Ho` @` o` A @ bA oAo PA o A Ag I I o` ` ` @Hh@H o` BdgH gH BBdgH Xd o` ` H(354Q TERPRI 345Q PRIN1 333Q CHANGEBACKGROUND 326Q \ILLEGAL.ARG 322Q BACKGROUND.CENTER 302Q BACKGROUND.REFLECT 267Q BACKGROUND.TILE 253Q PRIN1 240Q LISTPUT 213Q TERPRI 204Q PRIN1 171Q CLOSEF 164Q HREAD 155Q OPENSTREAM 143Q READPRESS 136Q FILESLOAD 126Q PRESSFILEP 120Q PROMPTPRINT 103Q INFILEP 74Q BACKGROUND.FILE 64Q PRIN1 51Q PRIN1 41Q PRIN1 26Q CLRPROMPT) (351Q PROMPTWINDOW 342Q PROMPTWINDOW 313Q CENTER 274Q REFLECT 260Q TILE 250Q PROMPTWINDOW 232Q BACKGROUNDS 217Q BACKGROUNDS 210Q PROMPTWINDOW 201Q PROMPTWINDOW 152Q INPUT 61Q PROMPTWINDOW 46Q PROMPTWINDOW 36Q PROMPTWINDOW 14Q BITMAPTYPE# 2 BACKGROUNDS) ( 337Q "done." 245Q "Adjusting background ... " 176Q "done." 133Q ((SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) BITMAPFNS) 115Q " not available." 110Q "Background " 56Q " ... " 33Q "Fetching background ") BACKGROUND.SHORTNAME D1 (P 0 LONGNAME I 0 IMAGE) &@g HoH d3 k i (43Q MKATOM 40Q L-CASE 33Q SUBSTRING 22Q STRPOS 6 FILENAMEFIELD) (3 NAME) ( 16Q "-") BACKGROUND.MODE D1 (P 0 NEWVAL) 4eHj`@dgdgdgih@ `@(50Q \ILLEGAL.ARG) (60Q BACKGROUND.MODE 54Q BACKGROUND.MODE 34Q REFLECT 26Q TILE 20Q CENTER 12Q BACKGROUND.MODE) () BACKGROUND.CENTER D1 (P 2 Y P 1 X P 0 NEWBITMAP I 0 BITMAP) 0``k `@ l`@ l@kdHIJ H(54Q BITBLT 33Q BITMAPHEIGHT 20Q BITMAPWIDTH 11Q BITMAPCREATE) (27Q SCREENHEIGHT 14Q SCREENWIDTH 5 SCREENHEIGHT 2 SCREENWIDTH) () BACKGROUND.REFLECT D1 (P 20Q I P 16Q I P 14Q I P 12Q HORIZ.VERT P 11Q VERT P 10Q 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) a@ @ 1HlֺIlֻ`J`K\J`LK`k M HlIM M Ilۀj@hdMNO `H`IHIk HIk HIk  Hkj OO@OjOHkOjkI Ok_IkjOO@jOOjIkOHk Ok_IkjO OOjO OjIkO Hk O k_ OhdMNHOI OhdMNOI OhdMNHOI OhdMNHO OhdMNHO LM MM(532Q BACKGROUND.REFLECT 524Q BITBLT 506Q BITBLT 470Q BITBLT 450Q BITBLT 432Q BITBLT 400Q BITBLT 324Q BITBLT 251Q BITBLT 205Q BITMAPCREATE 177Q BITMAPCREATE 171Q BITMAPCREATE 144Q BITBLT 117Q BITMAPHEIGHT 111Q BITMAPHEIGHT 74Q BITMAPWIDTH 65Q BITMAPCREATE 12Q BITMAPHEIGHT 3 BITMAPWIDTH) (155Q SCREENHEIGHT 147Q SCREENWIDTH 61Q SCREENHEIGHT 52Q SCREENWIDTH 41Q SCREENHEIGHT 32Q SCREENWIDTH) () BACKGROUND.TILE D1 (P 5 BOTTOM P 2 NEWBITMAP P 1 LEFT I 0 BITMAP) `d@ ``k K!KjyKK ojK`II`_`@ ``@ jN!Nj1NN 'jN`MM`@hdJIM M@ ^ԽI@ [ԹJ(221Q BITMAPWIDTH 206Q BITMAPHEIGHT 200Q BITBLT 144Q \FZEROP 117Q BACKGROUND.LESS 114Q BITMAPHEIGHT 100Q BITMAPHEIGHT 47Q \FZEROP 24Q BITMAPCREATE 12Q BACKGROUND.LESS 7 BITMAPWIDTH) (163Q SCREENHEIGHT 155Q SCREENHEIGHT 110Q SCREENHEIGHT 103Q SCREENHEIGHT 74Q SCREENHEIGHT 66Q SCREENWIDTH 60Q SCREENWIDTH 20Q SCREENHEIGHT 15Q SCREENWIDTH 2 SCREENWIDTH) () BACKGROUND.LESS D1 (P 0 START I 1 IMAGESIZE I 0 BOXSIZE) @AlkXdkA ԰(24Q MINUS) 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) (FNS BACKGROUND.CENTER BACKGROUND.REFLECT BACKGROUND.TILE BACKGROUND.LESS) (INITVARS (BACKGROUNDS NIL) (BACKGROUND.MODE (QUOTE CENTER))) (GLOBALVARS BACKGROUNDS BackgroundMenuCommands LISPUSERSDIRECTORIES BACKGROUND.MODE) (ADDVARS (GAINSPACEFORMS ((LISTP BACKGROUNDS) "Delete saved background bitmaps" (SETQ BACKGROUNDS NIL)))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA BACKGROUND.MODE))))) (RPAQ? BACKGROUNDS NIL) (RPAQ? BACKGROUND.MODE (QUOTE CENTER)) (ADDTOVAR GAINSPACEFORMS ((LISTP BACKGROUNDS) "Delete saved background bitmaps" (SETQ BACKGROUNDS NIL) )) (PUTPROPS BACKGROUNDIMAGES COPYRIGHT ("Xerox Corporation" 1986)) NIL