(FILECREATED " 1-Oct-85 18:52:05" ("compiled on " {ERIS}SOURCES>AFONT.;34) "23-Sep-85 15:35:09" recompiled changes: \CREATESTARFONT in "INTERLISP-D 23-Sep-85 ..." dated "23-Sep-85 16:13:30") (FILECREATED " 1-Oct-85 18:51:06" {ERIS}SOURCES>AFONT.;34 27901 changes to: (FNS \CREATESTARFONT) previous date: "25-Sep-85 17:57:30" {ERIS}SOURCES>AFONT.;33) \CREATESTARFONTA0001 D1 (NAME ERRORSET L (0 NIL) P 4 FD P 3 NSMICASIZE P 2 CS F 5 PSIZE F 6 FACE F 7 CHARSET F 10Q \DEFAULTCHARSET F 11Q RESETY F 12Q DEVICE F 13Q FAMILY F 14Q ROTATION) ~WWUn o `dWdWdUdVV HdIdWd` do"ni HdI(L(JJLi hLci(163Q \CREATECHARSET 127Q \ALLOCBLOCK 60Q \FACECODE 22Q FIXR) (105Q \ASCIITONS 25Q FONTDESCRIPTORTYPE#) ( 115Q 35.27778 16Q 72.0) \CREATESTARFONT D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 5 CHARSET I 4 DEVICE I 3 ROTATION I 2 FACE I 1 PSIZE I 0 FAMILY F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \CREATESTARFONTA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\CREATESTARFONTA0001)) \READACFONTBOXES D1 (P 1 X I 2 ENDCHAR I 1 STARTCHAR I 0 FILE) @l0 BARIH@ @ @ @ @ @ @ @ @ @ dnnk@ @ dnnk@ @ dnnk@ @ dnnkNMhK Lh[IkYL&J(5 SETFILEPTR) NIL () \READACFONTFILE D1 (P 66Q BBBMBASE P 65Q BBBITMAP P 64Q BBOX P 63Q RASTERINFO P 62Q CHARWIDTH P 61Q STARTWORD P 60Q BBLIST P 57Q DESTLEFT P 56Q NTHCHAR P 46Q Y P 45Q X P 42Q Y P 41Q X P 36Q WID P 21Q DUMMYWIDTH P 20Q DUMMYCHAROFFSET P 17Q BBOXLIST P 16Q STARTWORDLIST P 15Q CHARBITMAP P 14Q FBBBITMAP P 13Q FONTDESC P 12Q IMAGEWIDTHS P 11Q WIDTHS P 10Q OFFSETS P 7 CHARIMAGEWIDTHLIST P 6 CHARWIDTHLIST P 5 ENDCHAR P 4 STARTCHAR P 3 FBBLIST P 2 CSINFO I 5 DONT.PAD.RIGHT I 4 PAD.LEFT I 3 FACE I 2 SIZE I 1 FAMILY I 0 STRM F 72Q RESETVARSLST) :@ g@hhhWtct/@ g bg@hhhWtct@gg b @l `l HdIl HdIl HdI@ \@ ]@LM _d [O ^OK _N!dO'NML&OF[JjK_,jO,{O,x_DOBO@OOBODjODd jODDkjEjkOBk_BO>_>_LOJOHOLjOLOL OOJOLOJk_JOF_Frj JKK_.jO.O.j JMLj)OPONOROOP_ROPk_POR_ O"K _J_nj_2_0O2O0OO2O O2k_2@LM _NOOMLj62OX_`OV_bOT"hjdOO kjO"lhggn J_dO\OZ@6Ob%O^OO\_^OO\O"OO\O"@Ob @ @ _fO`dmOO\O"OO\O"`_hO`_4jO4!O4 O`_6j#O6O6 OflOfn _j5OO\O^O^OO\_^O\k_\OX_XOV_VOT_T_l@OlOfOfnl9On6_8OnOpjOrlO8Oj _jjdOO^DOhk؁Oh_:jO:O:jO`KOO\O`gg O(2017Q BKBITBLT 1720Q \ACROTATECHAR 1533Q BITMAPCREATE 1510Q \FZEROP 1460Q \FZEROP 1353Q SETFILEPTR 1256Q BKBITBLT 1151Q \ACCHARPOSLIST 1064Q BITMAPCREATE 710Q \FZEROP 613Q \FZEROP 344Q ERROR 334Q REMOVE 303Q EQP 272Q \FZEROP 241Q \ACCHARWIDTHLIST 232Q \ACCHARIMAGELIST 224Q \GETFBB 216Q \READACFONTBOXES 162Q \ALLOCBLOCK 143Q \ALLOCBLOCK 124Q \ALLOCBLOCK 113Q SETFILEPTR 104Q COPYBYTES 77Q OPENSTREAM 41Q OPENSTREAM 33Q CLOSEF 3 RANDACCESSP) (2013Q REPLACE 2010Q INPUT 1671Q FDEV 1664Q STREAM 1625Q BITMAP 1247Q REPLACE 1244Q TEXTURE 1074Q CHARSETINFO 1004Q CHARSETINFO 751Q CHARSETINFO 531Q CHARSETINFO 425Q CHARSETINFO 352Q CHARSETINFO 116Q CHARSETINFOTYPE# 74Q BOTH 71Q {NODIRCORE} 47Q CLOSEF 36Q INPUT 10Q CLOSEF) ( 341Q "No raster images") \ACCHARIMAGELIST D1 (L (0 BOXLIST)) 0@dIHhZH&JNIL NIL () \ACCHARWIDTHLIST D1 (P 11Q BBDY P 10Q BBDX P 7 BBOY P 6 BBOX P 5 STARTWORD P 4 BOX I 1 FBBOX I 0 BOXLIST) @ HI\L_L_L_OjOd OjO Om j' Al_lOOlOjNNjػJ KhZHXK&(113Q \FZEROP 61Q \FZEROP) NIL () \GETFBB D1 (L (0 BOXLIST))  nZd[oXdYd\d]@]d_O_O_O_mj8NHNJNNOIOKOONOLNOؼOOMOOؽLJMKJKhNIL NIL ( 14Q -100000Q) \ACCHARPOSLIST D1 (P 7 LOWORD P 6 HIWORD P 2 DIRECTORYSTART P 1 X I 2 ENDCHAR I 1 STARTCHAR I 0 FILE) p@BAkll0 BABAkll0S@J IHE@ @ ؾ@ @ _NdnjOnjhNOJؽL Mh\IkYM&K(43Q SETFILEPTR 16Q SETFILEPTR) NIL () \ACROTATECHAR D1 (P 2 NEW.BITMAP P 1 HEIGHT P 0 WIDTH I 0 BITMAP) N@@2IH ZIkjLK-HkjIkLNMJON@NLhNk^Lk\J(23Q BITMAPCREATE) (11Q BITMAP 3 BITMAP) () \READFONTWDFILEA0001 D1 (NAME ERRORSET P 4 WIDTHSY P 3 TEM P 2 LASTCHAR P 1 FIRSTCHAR P 0 FIXEDFLAGS F 17Q FD F 20Q FILE F 21Q SCALE F 22Q WIDTHS F 23Q RESETY) W d WW W dnnknWjW W dnnkWW W dnnknWW W dnnkWW$ WWW"zWWdnnkW"nnWWW"nWWdnnkW"nnWWW"nWWWW W Hll;W W ػW"KjKd KW"nۻJINMpW$NK*Nk^W$IJIkW JI__OOW$dO(nOj*Ok_W"+JI__OOW$OW$O(W"n*Ok_Hkk5W W ؼWW"Ldjd LW"nۀLhc&iWngjd \LIJIkW JI__OOLdO(nOj*Ok_W"JI__OOLOLO(W"n*Ok_(1100Q AIN 1060Q ARRAY 1014Q \FZEROP 621Q AIN 545Q \FZEROP 14Q SETFILEPTR 10Q \FIXPIN) (1053Q SMALLPOSP 1045Q FONTDESCRIPTOR 773Q FONTDESCRIPTOR 456Q FONTDESCRIPTOR 447Q FONTDESCRIPTOR 442Q FONTDESCRIPTOR 421Q FONTDESCRIPTOR 414Q FONTDESCRIPTOR 353Q FONTDESCRIPTOR 346Q FONTDESCRIPTOR 325Q FONTDESCRIPTOR 320Q FONTDESCRIPTOR 257Q FONTDESCRIPTOR 252Q FONTDESCRIPTOR 236Q FONTDESCRIPTOR 226Q FONTDESCRIPTOR 214Q FONTDESCRIPTOR 160Q FONTDESCRIPTOR 120Q FONTDESCRIPTOR 62Q FONTDESCRIPTOR 22Q FONTDESCRIPTOR) () \READFONTWDFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 SCALE I 2 WIDTHS I 1 FD I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \READFONTWDFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\READFONTWDFILEA0001)) \FACECODE D1 (I 0 FACE) ^@dgjdglgl @dgjdglgl@dgjgk(131Q SHOULDNT 103Q SHOULDNT 42Q SHOULDNT) (122Q ITALIC 112Q REGULAR 73Q LIGHT 62Q BOLD 50Q MEDIUM 32Q EXPANDED 21Q COMPRESSED 7 REGULAR) () \FAMILYCODE D1 (P 6 I P 4 LENGTH P 3 CODE P 2 TYPE P 1 NEXT P 0 NCHARS I 1 WSTRM I 0 FAMILY) kAj @ j2AI A A ILJlԹJdk8A A ػ@i$HA HkNMA @N)hNk^iAI Kjh(141Q SETFILEPTR 21Q SETFILEPTR 10Q NCHARS 4 SETFILEPTR) NIL () \FINDFONT D1 (P 7 FAMILYCODE P 6 SIZE P 5 LENGTH P 4 TYPE P 3 FUZZ P 2 NEXT P 1 FACECODE P 0 ROTATION I 4 DONTCHECK I 3 NSMICASIZE I 2 PRESSMICASIZE I 1 WSTRM I 0 FD) @@ joDD@A _hjAJ A A JMLlԺLdlܿOA IA D@A @A A A ^jNN BCNB KHA A @IN(216Q ABS 202Q \FZEROP 61Q SETFILEPTR 43Q \FAMILYCODE 16Q \FACECODE) (241Q FONTDESCRIPTOR 152Q FONTDESCRIPTOR 141Q FONTDESCRIPTOR 35Q FONTDESCRIPTOR 11Q FONTDESCRIPTOR 3 FONTDESCRIPTOR) ( 23Q .02) (PRETTYCOMPRINT AFONTCOMS) (RPAQQ AFONTCOMS ((DECLARE: EVAL@COMPILE DONTCOPY (RECORDS BOUNDINGBOX FONTBOUNDINGBOX) (CONSTANTS noInfoCode)) (FNS \CREATESTARFONT \READACFONTBOXES \READACFONTFILE \ACCHARIMAGELIST \ACCHARWIDTHLIST \GETFBB \ACCHARPOSLIST \ACROTATECHAR \READFONTWDFILE \FACECODE \FAMILYCODE \FINDFONT) (INITVARS ( INTERPRESSFONTDIRECTORIES (QUOTE ({ERIS}FONTS>)))) (MACROS \POSITIONFONTFILE))) (RPAQ? INTERPRESSFONTDIRECTORIES (QUOTE ({ERIS}FONTS>))) (PUTPROPS \POSITIONFONTFILE MACRO ((WSTRM NSMICASIZE FIRSTCHAR LASTCHAR) (* gbn "25-Jul-85 02:15") (* sets FIRSTCHAR LASTCHAR, and positions the file correctly) (* Finds the widths information for the specified FAMILY, FACECODE, MSIZE, and ROTATION. FIRSTCHAR and LASTCHAR are passed in since we have to read past those to check the size. If successful, returns the size found in the widths file, with zero indicating that dimensions in the widths file are relative, leaving the file pointing just after the Rotation word of the font. - - Returns NIL if the font is not found) (bind TYPE LENGTH SIZE (NEXT _ 0) first (OR (\FAMILYCODE T WSTRM) (RETURN NIL)) do (SETQ TYPE (\BIN WSTRM)) (SETQ LENGTH (\BIN WSTRM)) (add NEXT (LLSH (IPLUS LENGTH (LLSH (LOGAND TYPE 15) 8)) 1)) (SELECTQ (LRSH TYPE 4) (4 (\BIN WSTRM) (\BIN WSTRM) (* This is the right family/face) (SETQ FIRSTCHAR (\BIN WSTRM)) (SETQ LASTCHAR ( \BIN WSTRM)) (COND ((AND (OR (ZEROP (SETQ SIZE (\WIN WSTRM))) (LESSP (ABS (FQUOTIENT (IDIFFERENCE NSMICASIZE SIZE) NSMICASIZE)) .02)) (ZEROP (\WIN WSTRM))) (RETURN SIZE)))) (0 (RETURN NIL)) NIL) ( SETFILEPTR WSTRM NEXT)))) (PUTPROPS AFONT COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL