(FILECREATED "17-Jan-84 14:11:42" {PHYLUM}<LISP>LIBRARY>BIG.;2 8243
changes to: (FNS NEWFONT)
previous date: "20-AUG-83 21:42:04" {PHYLUM}<LISPUSERS>BIG.;22)
(* Copyright (c) 1983, 1984 by Xerox Corporation)
(PRETTYCOMPRINT BIGCOMS)
(RPAQQ BIGCOMS ((FNS NEWFONT NEWFONT.CLOSESTFONTSIZE NEWFONT.LAFITEBROWSER)
(ALISTS (FONTDEFS HUGE BIG MEDIUM STANDARD SMALL NOFONT))))
(DEFINEQ
(NEWFONT
[LAMBDA (FONTS) (* rrb "17-Jan-84 14:09")
(FONTSET FONTS)
(DEFAULTFONT (QUOTE DISPLAY)
(CADR DEFAULTFONT))
(DSPFONT (CADR DEFAULTFONT)
(TTYDISPLAYSTREAM))
(DSPFONT (CADR LITTLEFONT)
WindowTitleDisplayStream)
(DSPFONT (CADR DEFAULTFONT)
PROMPTWINDOW)
[MAP.PROCESSES (FUNCTION (LAMBDA (PROC)
(COND
((HASTTYWINDOWP PROC)
(DSPFONT (CADR DEFAULTFONT)
(PROCESS.TTY PROC]
(NEWFONT.LAFITEBROWSER)
[SETQ LAFITEDISPLAYFONT (SETQ LAFITEEDITORFONT (SETQ TEDIT.DEFAULT.FONT
(FONTCREATE (QUOTE TIMESROMAN)
(NEWFONT.CLOSESTFONTSIZE (IPLUS 2 (FONTPROP (CADR DEFAULTFONT)
(QUOTE SIZE]
(SETQ BACKTRACEFONT (CADR DEFAULTFONT))
(SETQ MENUFONT (CADR DEFAULTFONT))
[SETQ MaxValueLeftMargin (ITIMES 35 (STRINGWIDTH (QUOTE A)
(CADR 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 (CADR 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 (* hts: "20-AUG-83 21:18")
(SETQ LAFITEBROWSERFONT (PROG [(SIZE (FONTPROP (CADR 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 (401 3385 (NEWFONT 411 . 2166) (NEWFONT.CLOSESTFONTSIZE 2168 . 2800) (
NEWFONT.LAFITEBROWSER 2802 . 3383)))))
STOP