(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 4-Feb-87 23:08:42" ("compiled on " {ERIS}LYRIC>SFFONT.;2) "21-Jan-87 21:13:09" brecompiled ALL in "Xerox Lisp 21-Jan-87 ..." dated "21-Jan-87 21:48:22") (FILECREATED " 4-Feb-87 23:04:29" {ERIS}LYRIC>SFFONT.;2 37599 changes to%: (FNS READ.SPLINE.FONT) previous date%: "16-Jan-87 16:31:07" {ERIS}NEXT>SFFONT.;3) READ.SPLINE.FONTA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 3 C I 0 SI::*CLEANUP-FORMS* F 4 CHAR F 5 INPUTSTREAM F 6 FAM F 7 FONTARRAY F 8 SI::*RESETFORMS* F 9 CHARSET F 10 F F 11 FAMILY) gUhhhWcWg c d` cW gT c dW cVWn c V@WgT[T K [` KIJhYU` cgHU J&(137 CLOSEF 122 READ 104 PRIN1 97 CHARACTER 92 SETA 73 \SETSPLINEFONT 68 ARRAY 56 \LOOKUPSPLINEFONT 48 U-CASE 32 READ 23 OPENSTREAM) (127 STOP 119 FILERDTBL 101 PROMPTWINDOW 83 CHARACTER 41 FAMILY 29 FILERDTBL 20 INPUT 2 CLOSEF?) () READ.SPLINE.FONT :D4 (P 11 SI::*RESETFORMS* P 10 LISPXHIST P 9 INPUTSTREAM P 8 F P 3 CHAR P 2 I P 1 FAM P 0 FONTARRAY I 2 CHARSET I 1 FAMILY I 0 FILES F 12 LISPXHIST) D @@dhQ LM_W g  _N Oh^L\O&(42 CL:VALUES-LIST 38 SI::RESETUNWIND 35 \MVLIST 32 READ.SPLINE.FONTA0001) (29 SI::RESETUNWIND) () SF.DERIVS.TO.BEZIER :D4 (P 1 I I 4 DERIVATIVES I 3 SCALE I 2 YOFFSET I 1 XOFFSET I 0 KNOT) AC@BC@jhhdjhhdjhhdjhhD k2IH+CDI `Ikl ּK Lh[IkYL&JJJKlJJKlJJKKlJJKKlJJKKKJJKKKJ(74 ELT 61 NTH 46 LENGTH) (65 \FACT.IRIS) () SF.PRINT :D4 (P 4 I P 2 CHARDESC P 1 CHAR P 0 FONTARRAY I 3 STREAM I 2 SCALE I 1 FONTFAMILY I 0 STRING) xo Ag`!H>oi ki Ai ki oi h @ k\KC @X@L HI ZLk԰hddBC (115 SFDRAW 98 ELT 92 NTHCHARCODE 80 FLUSHOUTPUT 67 NCHARS 62 \LISPERROR 57 PRIN1 48 SPACES 42 PRIN1 36 SPACES 30 PRIN1 6 DECLARE%:) (15 \SPLINEFONTSINCORE 12 GACHA) ( 53 "not in core. Load it with READ.SPLINE.FONT" 26 "Spline font" 3 ((GLOBALVARS \SPLINEFONTSINCORE))) SFDRAW :D4 (P 5 CCURVE P 4 XWIDTH P 3 SCALE P 2 Y P 1 X P 0 PRECISION I 5 STREAM I 4 SCALE I 3 YOFFSET I 2 XOFFSET I 1 PRECISION I 0 CHARDESC) VAl BdE CdE Dog@dMHIJKE IKg@\JKg@E L(82 MOVETO 49 SFDRAW.CLOSED.CURVE 18 DSPYPOSITION 11 DSPXPOSITION) (71 WIDTH 59 WIDTH 31 SPLINES) ( 25 1.0) SFDRAW.CLOSED.CURVE :D4 (P 11 DERIVS P 10 KNOT P 9 BEZIER P 8 I P 4 SPLINE P 2 SPPOUTSTREAM P 1 SCALE P 0 STREAM I 5 STREAM I 4 SCALE I 3 YOFFSET I 2 XOFFSET I 1 PRECISION I 0 CCURVE) ( E gE EDo2@d\dd33LddH0 dgH0LLLkC k_N_M_OOOBCIO _`dgOJ gA`OJ Ok_NMgBIoi h 0Ld[BKCNMh_M&OhddH h(283 DRAWCURVE 235 \LISPERROR 230 PRIN1 198 ERROR 194 IRIS.CURVE 177 IRIS.CRV 158 SF.DERIVS.TO.BEZIER 78 TYPENAME 12 \INSUREWINDOW 3 TYPENAME) (217 \DISPLAYDATA 188 \BEZIERBASIS.IRIS 182 R1C 168 GL2 164 \IRIS.VERSION 97 IRISDATA 92 STREAM 82 IRISDATA 73 STREAM 6 WINDOW) ( 226 "SCALE specified for device which does not support it" 23 1.0) TEST :D4 (I 2 SCALE I 1 COLOR I 0 STRING F 0 STR) %j Al @ohBP ` h(33 SPP.FORCEOUTPUT 27 SF.PRINT 14 IRIS.COLOR 6 IRIS.CLEAR 3 IRIS.COLOR) (30 IRISCONN) ( 21 "Greg") VIEW.FONT.FILES :D4 (P 11 C P 4 F P 3 CHAR P 2 I P 1 FAMILY P 0 FONTARRAY I 0 FILES) { P0@dkhgd\g Z I@ gK _i ki O_O)Oh__J [gJ ONMh_O&_M&O(88 CLOSEF 77 READ 54 SPACES 48 PRIN1 42 CHARACTER 27 READ 23 OPENSTREAM) (81 STOP 35 CHARACTER 20 INPUT) () \LOOKUPSPLINEFONT :D4 (I 1 CHARSET I 0 FAMILY) @Ah` d(10 SASSOC) (7 \SPLINEFONTSINCORE) () \SETSPLINEFONT :D4 (I 2 ARRAY I 1 CHARSET I 0 FAMILY) @AhB` (11 PUTASSOC) (8 \SPLINEFONTSINCORE) () ginit :D4 NIL ,ohi` jkl k (41 IRIS.COLOR 37 IRIS.SETCURSOR 30 makecolormap 27 IRIS.CLEAR 24 IRIS.CURSOFF 21 IRIS.GINIT 16 MOUSECONFIRM 7 HASTTYWINDOWP) (13 PROMPTWINDOW) ( 3 "do you really want to ginit. You destroy font definitions which must be reloaded?") (PRETTYCOMPRINT SFFONTCOMS) (RPAQQ SFFONTCOMS ((RECORDS SF.CHARACTER SF.CHARDESC SF.DERIVATIVE SF.FACE SF.FAMILY SF.FIDUCIAL SF.MADE-FROM SF.SPLINE SF.SPLINES SF.VERSION SF.WIDTH) (FNS READ.SPLINE.FONT SF.DERIVS.TO.BEZIER SF.PRINT SFDRAW SFDRAW.CLOSED.CURVE TEST VIEW.FONT.FILES \LOOKUPSPLINEFONT \SETSPLINEFONT ginit) ( DECLARE%: EVAL@LOAD DONTCOPY (VARS TIMESROMANDFILES TRA TRB TRC TRFILES)) (INITVARS ( \SPLINEFONTSINCORE (LIST NIL))) (GLOBALVARS \SPLINEFONTSINCORE) (CONSTANTS (\CHARSEGMENTS.IRIS 10)))) (RECORD SF.CHARACTER (CHARCODE)) (ASSOCRECORD SF.CHARDESC (FAMILY CHARACTER FACE WIDTH FIDUCIAL VERSION SPLINES) (ACCESSFNS (SF.WIDTH ( FETCH WIDTH OF DATUM)))) (RECORD SF.DERIVATIVE (XPRIME YPRIME XDPRIME YDPRIME XTPRIME YTPRIME)) (RECORD SF.FACE (WEIGHT SLOPE EXPANSION)) (RECORD SF.FAMILY (SFFAMILY)) (RECORD SF.FIDUCIAL (XFIDUCIAL YFIDUCIAL)) (RECORD SF.MADE-FROM (FILENAME XCHAR.ORIGIN YCHAR.ORIGIN XFIDUCIAL.ORIGIN YFIDUCIAL.ORIGIN)) (RECORD SF.SPLINE (%#OFKNOTS KNOTLIST WEIGHTLIST DERIVATIVELIST . OPTIONALSOLNMETHOD)) (RECORD SF.SPLINES (CLOSEDCURVELIST)) (RECORD SF.VERSION (VERSION DATE TIME)) (RECORD SF.WIDTH (XWIDTH YWIDTH)) (RPAQ? \SPLINEFONTSINCORE (LIST NIL)) (RPAQQ \CHARSEGMENTS.IRIS 10) (CONSTANTS (\CHARSEGMENTS.IRIS 10)) NIL