(FILECREATED "17-Sep-84 15:47:01" {ERIS}<LISPCORE>LIBRARY>BIG.;2 8408
changes to: (FNS NEWFONT NEWFONT.LAFITEBROWSER)
previous date: "17-Jan-84 14:11:42" {ERIS}<LISPCORE>LIBRARY>BIG.;1)
(* Copyright (c) 1983, 1984 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT BIGCOMS)
(RPAQQ BIGCOMS ((FNS NEWFONT NEWFONT.CLOSESTFONTSIZE NEWFONT.LAFITEBROWSER)
(ALISTS (FONTDEFS HUGE BIG MEDIUM STANDARD SMALL NOFONT))))
(DEFINEQ
(NEWFONT
[LAMBDA (FONTS) (* rmk: "17-Sep-84 15:44")
(FONTSET FONTS)
(DSPFONT DEFAULTFONT (TTYDISPLAYSTREAM))
(DSPFONT LITTLEFONT WindowTitleDisplayStream)
(DSPFONT DEFAULTFONT PROMPTWINDOW)
[MAP.PROCESSES (FUNCTION (LAMBDA (PROC)
(COND
((HASTTYWINDOWP PROC)
(DSPFONT DEFAULTFONT (PROCESS.TTY PROC]
(NEWFONT.LAFITEBROWSER)
[SETQ LAFITEDISPLAYFONT (SETQ LAFITEEDITORFONT (SETQ TEDIT.DEFAULT.FONT
(FONTCREATE (QUOTE TIMESROMAN)
(NEWFONT.CLOSESTFONTSIZE (IPLUS 2 (FONTPROP DEFAULTFONT (QUOTE SIZE]
(SETQ BACKTRACEFONT DEFAULTFONT)
(SETQ MENUFONT DEFAULTFONT)
(SETQ MaxValueLeftMargin (ITIMES 35 (STRINGWIDTH (QUOTE A)
DEFAULTFONT)))
(PROGN (SETQ WindowMenu)
(SETQ BackgroundMenu)
(SETQ IconWindowMenu)) (* Force system menus to be rebuilt in correct font.)
(for W in (OPENWINDOWS)
do [COND
[(OR (EQ (WINDOWPROP W (QUOTE RESHAPEFN))
(QUOTE DONT))
(WINDOWPROP W (QUOTE MAINWINDOW]
(T (* don't reshape if can't or if this window is attached
to another.)
(SHAPEW W (WINDOWREGION W]
(COND
((AND (NEQ (WINDOWPROP W (QUOTE WINDOWENTRYFN))
(FUNCTION \TEDIT.PROCIDLEFN))
(WINDOWPROP W (QUOTE REPAINTFN)))
(COND
((EQ (WINDOWPROP W (QUOTE SCROLLFN))
(FUNCTION LAFITEBROWSERSCROLLFN))
(DSPFONT LAFITEBROWSERFONT W))
(T (DSPFONT DEFAULTFONT W)))
(REDISPLAYW W])
(NEWFONT.CLOSESTFONTSIZE
[LAMBDA (DESIRED.SIZE) (* hts: "20-AUG-83 15:00")
(PROG [(TR.FONTSIZES (QUOTE (6 8 9 10 11 12 13 14 16 18 36]
(RETURN (for SIZE in TR.FONTSIZES as LASTSIZE in (CONS 6 TR.FONTSIZES)
do (if (EQ SIZE DESIRED.SIZE)
then (RETURN DESIRED.SIZE))
(if (IGREATERP SIZE DESIRED.SIZE)
then (RETURN (if (ILESSP (IDIFFERENCE SIZE DESIRED.SIZE)
(IDIFFERENCE DESIRED.SIZE LASTSIZE))
then SIZE
else LASTSIZE)))
finally (RETURN (CAR (LAST TR.FONTSIZES])
(NEWFONT.LAFITEBROWSER
[LAMBDA NIL (* rmk: "17-Sep-84 15:44")
(SETQ LAFITEBROWSERFONT (PROG [(SIZE (FONTPROP DEFAULTFONT (QUOTE SIZE]
(RETURN (if (ILESSP SIZE 9)
then (FONTCREATE (QUOTE GACHA)
8)
elseif (ILESSP SIZE 11)
then (FONTCREATE (QUOTE GACHA)
10)
elseif (ILESSP SIZE 13)
then (FONTCREATE (QUOTE GACHA)
12)
else (FONTCREATE (QUOTE TONTO)
14])
)
(ADDTOVAR FONTDEFS [HUGE (FONTCHANGEFLG . ALL)
(FILELINELENGTH . 102)
(COMMENTLINELENGTH 116 . 126)
(LAMBDAFONTLINELENGTH . 95)
(FIRSTCOL . 60)
(PRETTYLCOM . 25)
(FONTPROFILE (DEFAULTFONT 1 (HELVETICA 36)
(GACHA 8))
(BOLDFONT 2 (TIMESROMAND 36 BRR)
(TIMESROMAN 8 BRR))
(LITTLEFONT 3 (HELVETICA 18 MRR)
(TIMESROMAN 8 MIR))
(BIGFONT 4 (TIMESROMAND 36)
(TIMESROMAN 10 BRR))
(USERFONT BOLDFONT)
(COMMENTFONT LITTLEFONT)
(LAMBDAFONT BIGFONT)
(SYSTEMFONT)
(CLISPFONT BOLDFONT)
(CHANGEFONT)
(PRETTYCOMFONT BOLDFONT)
(FONT1 DEFAULTFONT)
(FONT2 BOLDFONT)
(FONT3 LITTLEFONT)
(FONT4 BIGFONT)
(FONT5 5 (HELVETICA 10 BIR)
(HELVETICA 8 BIR))
(FONT6 6 (HELVETICA 10 BRR)
(TIMESROMAN 8 BRR))
(FONT7 7 (GACHA 10)
(GACHA 8]
[BIG (FONTCHANGEFLG . ALL)
(FILELINELENGTH . 102)
(COMMENTLINELENGTH 116 . 126)
(LAMBDAFONTLINELENGTH . 95)
(FIRSTCOL . 60)
(PRETTYLCOM . 25)
(FONTPROFILE (DEFAULTFONT 1 (HELVETICA 18)
(GACHA 8))
(BOLDFONT 2 (HELVETICA 18 BRR)
(HELVETICA 8 BRR))
(LITTLEFONT 3 (HELVETICA 12 MRR)
(TIMESROMAN 8 MIR))
(BIGFONT 4 (HELVETICAD 24 MRR)
(TIMESROMAN 10 BRR))
(USERFONT BOLDFONT)
(COMMENTFONT LITTLEFONT)
(LAMBDAFONT BIGFONT)
(SYSTEMFONT)
(CLISPFONT BOLDFONT)
(CHANGEFONT)
(PRETTYCOMFONT BOLDFONT)
(FONT1 DEFAULTFONT)
(FONT2 BOLDFONT)
(FONT3 LITTLEFONT)
(FONT4 BIGFONT)
(FONT5 5 (HELVETICA 10 BIR)
(HELVETICA 8 BIR))
(FONT6 6 (HELVETICA 10 BRR)
(TIMESROMAN 8 BRR))
(FONT7 7 (GACHA 10)
(GACHA 8]
[MEDIUM (FONTCHANGEFLG . ALL)
(FILELINELENGTH . 102)
(COMMENTLINELENGTH 116 . 126)
(LAMBDAFONTLINELENGTH . 95)
(FIRSTCOL . 60)
(PRETTYLCOM . 25)
(FONTPROFILE (DEFAULTFONT 1 (GACHA 12 MRR)
(GACHA 8))
(BOLDFONT 2 (GACHA 12 BRR)
(HELVETICA 8 BRR))
(LITTLEFONT 3 (GACHA 10)
(TIMESROMAN 8 MIR))
(BIGFONT 4 (HELVETICA 18)
(TIMESROMAN 10 BRR))
(USERFONT BOLDFONT)
(COMMENTFONT LITTLEFONT)
(LAMBDAFONT BIGFONT)
(SYSTEMFONT)
(CLISPFONT BOLDFONT)
(CHANGEFONT)
(PRETTYCOMFONT BOLDFONT)
(FONT1 DEFAULTFONT)
(FONT2 BOLDFONT)
(FONT3 LITTLEFONT)
(FONT4 BIGFONT)
(FONT5 5 (HELVETICA 10 BIR)
(HELVETICA 8 BIR))
(FONT6 6 (HELVETICA 10 BRR)
(TIMESROMAN 8 BRR))
(FONT7 7 (GACHA 10)
(GACHA 8]
[STANDARD (FONTCHANGEFLG . ALL)
(FILELINELENGTH . 102)
(COMMENTLINELENGTH 116 . 126)
(LAMBDAFONTLINELENGTH . 95)
(FIRSTCOL . 60)
(PRETTYLCOM . 25)
(FONTPROFILE (DEFAULTFONT 1 (GACHA 10)
(GACHA 8))
(BOLDFONT 2 (HELVETICA 10 BRR)
(TIMESROMAN 8 BRR))
(LITTLEFONT 3 (HELVETICA 8)
(TIMESROMAN 8 MIR))
(BIGFONT 4 (HELVETICA 12 BRR)
(TIMESROMAN 10 BRR))
(USERFONT BOLDFONT)
(COMMENTFONT LITTLEFONT)
(LAMBDAFONT BIGFONT)
(SYSTEMFONT)
(CLISPFONT BOLDFONT)
(CHANGEFONT)
(PRETTYCOMFONT BOLDFONT)
(FONT1 DEFAULTFONT)
(FONT2 BOLDFONT)
(FONT3 LITTLEFONT)
(FONT4 BIGFONT)
(FONT5 5 (HELVETICA 10 BIR)
(HELVETICA 8 BIR))
(FONT6 6 (HELVETICA 10 BRR)
(TIMESROMAN 8 BRR))
(FONT7 7 (GACHA 10)
(GACHA 8]
[SMALL (FONTCHANGEFLG . ALL)
(COMMENTLINELENGTH . 96)
(LAMBDAFONTLINELENGTH . 96)
(FIRSTCOL . 60)
(PRETTYLCOM . 14)
(FONTPROFILE (DEFAULTFONT 1 (GACHA 8)
(GACHA 8))
(BOLDFONT 2 (HELVETICA 8 BRR)
(HELVETICA 8 BRR))
(LITTLEFONT 3 (HELVETICA 8 MIR)
(HELVETICA 8 MIR))
(BIGFONT 4 (GACHA 10 BRR)
(GACHA 10 BRR))
(USERFONT BOLDFONT)
(COMMENTFONT LITTLEFONT)
(LAMBDAFONT BIGFONT)
(SYSTEMFONT)
(CLISPFONT BOLDFONT)
(CHANGEFONT)
(PRETTYCOMFONT BOLDFONT)
(FONT1 DEFAULTFONT)
(FONT2 BOLDFONT)
(FONT3 LITTLEFONT)
(FONT4 BIGFONT)
(FONT5 5 (HELVETICA 10 BIR)
(HELVETICA 8 BIR))
(FONT6 6 (HELVETICA 10 BRR)
(TIMESROMAN 8 BRR))
(FONT7 7 (GACHA 8)
(GACHA 8]
(NOFONT (FONTCHANGEFLG)
(FILELINELENGTH . 72)
(COMMENTLINELENGTH . 72)
(LAMBDAFONTLINELENGTH . 72)
(FIRSTCOL . 48)
(PRETTYLCOM . 14)))
(PUTPROPS BIG COPYRIGHT ("Xerox Corporation" 1983 1984))
(DECLARE: DONTCOPY
(FILEMAP (NIL (453 3550 (NEWFONT 463 . 2283) (NEWFONT.CLOSESTFONTSIZE 2285 . 2917) (
NEWFONT.LAFITEBROWSER 2919 . 3548)))))
STOP