(DEFINE-FILE-INFO §READTABLE "XCL" §PACKAGE "INTERLISP")(FILECREATED " 7-Nov-86 01:53:30" ("compiled on " {ERIS}<LISPCORE>FONTS>FONTTOOLS.\;8) " 4-Nov-86 10:55:04" |tcompl'd| |in| "Xerox Lisp  4-Nov-86 ..." |dated| " 4-Nov-86 11:27:14")(FILECREATED " 7-Nov-86 01:50:36" {ERIS}<LISPCORE>FONTS>FONTTOOLS.\;8 11011 |changes| |to:| (VARS FONTTOOLSCOMS) (FNS PRINT-BOUNDS) (FUNCTIONS FIX-WIDTHS) |previous| |date:| "13-Sep-85 10:39:22" {ERIS}<LISPCORE>FONTS>FONTTOOLS.\;7)COPYFONTS D1(P 3 OURFACE P 2 FACE I 5 TODIR I 4 FROMDIR I 3 OPTIONS I 2 ONLYFACES I 1 OURFAMILY I 0 FAMILY)    o   o   "Iµ…ºHµh»B–JB
  ²dDµg  g  @g  Jg    Eµg  Ag  Kg    Cµg    ¿Dµg  g  @g  Jg    Eµg  Ag  Kg    Cµg    ¿I¹H¸±ÿ€ (131 COPYFILES 122 PACK* 104 PACK* 82 COPYFILES 73 PACK* 55 PACK* 32 MEMB)(128 >A 118 -C*.DISPLAYFONT 114 * 110 {ERIS}<LISP>FONTS> 100 -72.C* 96 * 92 72DPI> 89 {SKY}<AFONTS>5.0> 79 >A 69 -C*.WD 65 * 61 {ERIS}<LISP>FONTS> 51 -C*.WD 47 * 43 WIDTHS> 40 {SKY}<AFONTS>5.0>)( 7 (MRR MIR BRR BIR) 3 ("" -I -B -B-I))GETOSDFONTS D1(P 3 LISPNAME P 2 OSDNAME I 5 OPTIONS I 4 TODIR I 3 FROMDIR I 2 ONLYFACES I 1 OURNAMES I 0 OSDNAMES)  E  @µo   Aµo   "HµŽ£Hºh„HºH¸Iµh£I»h„I»I¹JKBEµg  CD  ¿°Ï (64 COPYFONTS)(58 >A)( 13 (BOLDPS CLASSIC MODERN TERMINAL TITAN LETTERGOTHIC LOGO) 6 (BOLDPS CENTURY FRUTIGER TERMINAL TITAN LETTERGOTHIC LOGO))GETJFONTS D1(P 3 LISPNAME P 2 OSDNAME I 2 ONLYFACES I 1 OURNAMES I 0 OSDNAMES)  0  Aµo   @µo   "Iµ…ºHµh»JKB  ¿I¹H¸°ä (37 COPYJFONTS)NIL( 13 (BOLDPS CENTURY FRUTIGER TERMINAL TITAN LETTERGOTHIC LOGO) 6 (BOLDPS CLASSIC MODERN TERMINAL TITAN LETTERGOTHIC LOGO))COPYJFONTS D1(P 3 OURFACE P 2 FACE I 3 OPTIONS I 2 ONLYFACES I 1 OURFAMILY I 0 FAMILY)  |  o   o   "Iµ…ºHµh»B–JB
  ²Rg  @g  Jg    g  Ag  Kg    Cµg    ¿g  @g  Jg    g  Ag  Kg    Cµg    ¿I¹H¸°’ (113 COPYFILES 104 PACK* 89 PACK* 73 COPYFILES 64 PACK* 49 PACK* 32 MEMB)(110 >A 100 -C*.DISPLAYFONT 96 * 92 {ERIS}<LISP>FONTS> 85 -72.C* 81 * 77 {SKY}<AELFONTS>5.0>72DPI> 70 >A 60 -C*.WD 56 * 52 {ERIS}<LISP>FONTS> 45 -C*.WD 41 * 37 {SKY}<AELFONTS>5.0>WIDTHS>)( 7 (MRR MIR BRR BIR) 3 ("" -I -B -B-I))PRINT-BOUNDS D1(P 6 FONTFILE P 5 HGT P 4 WID P 3 DESC P 2 KERN P 1 SIZE P 0 STR I 0 FONTFRAG)  ¢  `@	  ± ‘dNg  
  Xl
  ¿H áH Ø¹Hl,
  ¿H áH Ødnÿñ•nÿÿÙkÙºH áH Ødnÿñ•nÿÿÙkÙ»H áH Ø¼H áH Ø½Ni
  ¿l2hi  ¿Ii
  ¿li
  ¿Ki
  ¿li
  ¿Mi
  ¿i	  ¿H	  µ‚±ÿnh (149 CLOSEF 144 TERPRI 139 PRIN1 133 SPACES 126 PRIN1 120 SPACES 113 PRIN1 107 TAB 99 PRIN1 41 SETFILEPTR 27 SETFILEPTR 21 OPENSTREAM 6 DIRECTORY)(18 INPUT)()(PRETTYCOMPRINT FONTTOOLSCOMS)(RPAQQ FONTTOOLSCOMS ((FNS COPYFONTS GETOSDFONTS GETJFONTS COPYJFONTS) (VARS (OSDCOERCIONS (QUOTE ((FRUTIGER . MODERN) (CENTURY . CLASSIC) (TERMINAL . TERMINAL) (BOLDPS . BOLDPS) (LETTERGOTHIC . LETTERGOTHIC) (TITAN . TITAN)))) (OSDNAMES (QUOTE (FRUTIGER CENTURY TERMINAL BOLDPS LETTERGOTHIC TITAN))) (FACECOERCIONS (QUOTE ((MRR . "") (MIR . -I) (BRR . -B) (BIR . -B-I)))) (FACENAMES (QUOTE (MRR MIR BRR BIR)))) (COMS (* |;;| "Functions for fixing up the metrics of printer fonts en masse") (FNS PRINT-BOUNDS) (FUNCTIONS FIX-WIDTHS) (* |;;| "List of Size-micaHeight-micaDescent triples imposed on NS fonts 11/7/86") (VARS (*STANDARD-SIZE/HEIGHT/DESCENT-TRIPLES* (QUOTE ((6 212 47) (8 282 62) (10 353 80) (12 422 100) (14 494 115) (16 564 66) (18 635 148) (20 706 160) (24 847 196) (26 917 224) (30 1058 241) (36 1270 282))))))))(RPAQQ OSDCOERCIONS ((FRUTIGER . MODERN) (CENTURY . CLASSIC) (TERMINAL . TERMINAL) (BOLDPS . BOLDPS) (LETTERGOTHIC . LETTERGOTHIC) (TITAN . TITAN)))(RPAQQ OSDNAMES (FRUTIGER CENTURY TERMINAL BOLDPS LETTERGOTHIC TITAN))(RPAQQ FACECOERCIONS ((MRR . "") (MIR . -I) (BRR . -B) (BIR . -B-I)))(RPAQQ FACENAMES (MRR MIR BRR BIR))(CL:DEFUN FIX-WIDTHS (DIR FONTSIZE NEWHEIGHT NEWDESCENT) (* |;;;| "Change fonts of a given size to have given true height & descent.") (* |;;| "Given a directory and a font size to work on, change the height and ascent of all .WD files for fonts of that size on that directory to be NEWHEIGHT & NEWDESCENT.") (LET (STR SIZE) (|for| FONTFILE |in| (DIRECTORY (PACK* DIR (QUOTE *) FONTSIZE (QUOTE *-C*.WD))) |do| (SETQ STR (OPENSTREAM FONTFILE (QUOTE BOTH))) (SETFILEPTR STR 30) (SETQ SIZE (\\WIN STR)) (* |;;| "Set the descent:") (SETFILEPTR STR 46) (COND ((ZEROP SIZE) (* \; "scaled file; put out size-relative value") (\\WOUT STR (UNSIGNED (IMINUS (FIXR (FTIMES 1000 (FQUOTIENT NEWDESCENT NEWHEIGHT)))) 16))) (T (* \; "Absolute file; put out true value") (\\WOUT STR (UNSIGNED (IMINUS NEWDESCENT) 16)))) (* |;;| "Set the HEIGHT") (SETFILEPTR STR 50) (COND ((ZEROP SIZE) (* \; "scaled file; put out size-relative value") (\\WOUT STR 1000)) (T (* \; "Absolute file; put out true value") (\\WOUT STR NEWHEIGHT))) (PRINTOUT T "Changed " FONTFILE (COND ((ZEROP SIZE) " (relative file).") (T ".")) T) (CLOSEF STR))))(RPAQQ *STANDARD-SIZE/HEIGHT/DESCENT-TRIPLES* ((6 212 47) (8 282 62) (10 353 80) (12 422 100) (14 494 115) (16 564 66) (18 635 148) (20 706 160) (24 847 196) (26 917 224) (30 1058 241) (36 1270 282)))(PUTPROPS FONTTOOLS COPYRIGHT ("Xerox Corporation" 1984 1985 1986))NIL