From 8e7463cbc0762b35fabc17bfcfeab70d459b5d88 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Tue, 24 Feb 2026 10:15:21 -0800 Subject: [PATCH] two more init.sysout files that I have been testing with --- sources/ADISPLAY | 196 ++++++++------- sources/ADISPLAY.LCOM | Bin 71680 -> 72008 bytes sources/FONT | 548 ++++++++++++++++++++---------------------- sources/FONT.LCOM | Bin 68211 -> 68191 bytes 4 files changed, 362 insertions(+), 382 deletions(-) diff --git a/sources/ADISPLAY b/sources/ADISPLAY index bccc0ab8..2f3772bc 100644 --- a/sources/ADISPLAY +++ b/sources/ADISPLAY @@ -1,14 +1,10 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT UTF-8) -(FILECREATED " 8-Jul-2025 20:19:58"  -{DSK}kaplan>Local>medley3.5>working-medley>sources>ADISPLAY.;14 244883 +(FILECREATED "19-Feb-2026 12:09:16" {WMEDLEY}ADISPLAY.;15 244850 :EDIT-BY rmk - :CHANGES-TO (VARS ADISPLAYCOMS) - - :PREVIOUS-DATE "19-Dec-2023 11:23:08" -{DSK}kaplan>Local>medley3.5>working-medley>sources>ADISPLAY.;13) + :PREVIOUS-DATE " 8-Jul-2025 20:19:58" {WMEDLEY}ADISPLAY.;14) (PRETTYCOMPRINT ADISPLAYCOMS) @@ -130,7 +126,7 @@ (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE (RECORD REGION (LEFT BOTTOM WIDTH HEIGHT) - LEFT _ -16383 BOTTOM _ -16383 WIDTH _ 32767 HEIGHT _ 32767 + LEFT ← -16383 BOTTOM ← -16383 WIDTH ← 32767 HEIGHT ← 32767 [ACCESSFNS ((TOP (IPLUS (fetch (REGION BOTTOM) of DATUM) (fetch (REGION HEIGHT) of DATUM) -1)) @@ -150,7 +146,7 @@ (BITMAPHEIGHT WORD) (BITMAPWIDTH WORD) (BITMAPBITSPERPIXEL WORD)) - BITMAPBITSPERPIXEL _ 1 (BLOCKRECORD BITMAP ((BitMapHiLoc WORD) + BITMAPBITSPERPIXEL ← 1 (BLOCKRECORD BITMAP ((BitMapHiLoc WORD) (BitMapLoLoc WORD)) (* ; "overlay initial pointer") ) @@ -398,7 +394,7 @@ (T (printout T "******** " BITMAP " is not a BITMAP." T) (RETURN NIL))) (printout FILE "(" .P2 (BITMAPWIDTH BM) - %, .P2 (BITMAPHEIGHT BM)) (* ; + %, .P2 (BITMAPHEIGHT BM)) (* ;  "if the number of bits per pixel is not 1, write it out.") (COND ((NEQ (BITSPERPIXEL BM) @@ -431,7 +427,7 @@ (* ;; "Print this bitmap in the preferred way.") (LET* ((WIDTH (BITMAPWIDTH BITMAP)) - (HEIGHT (BITMAPHEIGHT BITMAP)) + (HEIGHT (BITMAPHEIGHT BITMAP)) (BITS-PER-PIXEL (BITSPERPIXEL BITMAP)) (BASE (fetch BITMAPBASE of BITMAP)) (QUAD-CHARS-PER-ROW (FOLDHI (CL:* WIDTH BITS-PER-PIXEL) @@ -712,20 +708,20 @@ NIL) ((CURSORP DEFAULTCARET) (create CARET1 - CURSOR _ DEFAULTCARET)) + CURSOR ← DEFAULTCARET)) (T (ERROR "DEFAULTCARET is not a cursor" DEFAULTCARET)))) (OFF NIL) (COND ((CURSORP NEWCARET) (create CARET1 - CURSOR _ NEWCARET)) + CURSOR ← NEWCARET)) (T (LISPERROR "ILLEGAL ARG" NEWCARET])]) (\CARET.CREATE [LAMBDA (CURSOR) (* jds "11-Jul-85 19:38") (create CARET1 - CURSOR _ (OR CURSOR DEFAULTCARET]) + CURSOR ← (OR CURSOR DEFAULTCARET]) (\CARET.DOWN [LAMBDA (STREAM INTERVAL UNLESSOCCLUDED) (* lmm " 4-May-84 18:15") @@ -815,7 +811,7 @@ (LET ((OCARET \CARET.UP)) (COND ([AND OCARET CARET (DISPLAYSTREAMP (OR STREAM (SETQ STREAM (TTYDISPLAYSTREAM] - (for (OC _ OCARET) by (fetch (CARET1 NEXT) of OC) + (for (OC ← OCARET) by (fetch (CARET1 NEXT) of OC) do (COND [(NULL OC) (RETURN (COND @@ -1008,10 +1004,10 @@ [LAMBDA (LEFT BOTTOM WIDTH HEIGHT) (* rrb "17-JUN-83 08:56") (* ; "creates a region structure.") (create REGION - LEFT _ LEFT - BOTTOM _ BOTTOM - WIDTH _ WIDTH - HEIGHT _ HEIGHT]) + LEFT ← LEFT + BOTTOM ← BOTTOM + WIDTH ← WIDTH + HEIGHT ← HEIGHT]) (REGIONP [LAMBDA (X) (* rrb "29-Jun-84 18:00") @@ -1029,11 +1025,11 @@ (* ;; "this is documented as returning a very large region. This one covers the entire FIXP range so should work for many purposes. rrb") (create REGION - LEFT _ (SUB1 MIN.FIXP) - BOTTOM _ (SUB1 MIN.FIXP) - WIDTH _ (PLUS (TIMES 2 MAX.FIXP) + LEFT ← (SUB1 MIN.FIXP) + BOTTOM ← (SUB1 MIN.FIXP) + WIDTH ← (PLUS (TIMES 2 MAX.FIXP) 4) - HEIGHT _ (PLUS (TIMES 2 MAX.FIXP) + HEIGHT ← (PLUS (TIMES 2 MAX.FIXP) 4))) (T (PROG (REG LFT RGHT BTTM TP) (SETQ REG (ARG REGIONS 1)) @@ -1062,10 +1058,10 @@ ((AND (IGEQ RGHT LFT) (IGEQ TP BTTM)) (create REGION - LEFT _ LFT - BOTTOM _ BTTM - WIDTH _ (ADD1 (IDIFFERENCE RGHT LFT)) - HEIGHT _ (ADD1 (IDIFFERENCE TP BTTM]) + LEFT ← LFT + BOTTOM ← BTTM + WIDTH ← (ADD1 (IDIFFERENCE RGHT LFT)) + HEIGHT ← (ADD1 (IDIFFERENCE TP BTTM]) (UNIONREGIONS [LAMBDA REGIONS (* rrb "30-Dec-85 17:07") @@ -1099,10 +1095,10 @@ TP) (SETQ TP (fetch (REGION PTOP) of REG] (RETURN (create REGION - LEFT _ LFT - BOTTOM _ BTTM - WIDTH _ (DIFFERENCE RGHT LFT) - HEIGHT _ (DIFFERENCE TP BTTM]) + LEFT ← LFT + BOTTOM ← BTTM + WIDTH ← (DIFFERENCE RGHT LFT) + HEIGHT ← (DIFFERENCE TP BTTM]) (REGIONSINTERSECTP [LAMBDA (REGION1 REGION2) (* rrb "16-AUG-81 08:29") @@ -1233,11 +1229,11 @@ (* ;; "returns the region taken up by STR if it were printed at the current position of STREAM") (create REGION - LEFT _ (DSPXPOSITION NIL STREAM) - BOTTOM _ (IDIFFERENCE (DSPYPOSITION NIL STREAM) + LEFT ← (DSPXPOSITION NIL STREAM) + BOTTOM ← (IDIFFERENCE (DSPYPOSITION NIL STREAM) (FONTPROP STREAM 'DESCENT)) - WIDTH _ (STRINGWIDTH STR STREAM PRIN2FLG RDTBL) - HEIGHT _ (FONTPROP STREAM 'HEIGHT]) + WIDTH ← (STRINGWIDTH STR STREAM PRIN2FLG RDTBL) + HEIGHT ← (FONTPROP STREAM 'HEIGHT]) ) @@ -1443,8 +1439,8 @@ (SETQ BRUSHARRAY (ARRAY 16 'POINTER NIL 1)) (for X from 1 to 16 do (SETA BRUSHARRAY X (APPLY* BRUSHFN X] (push \BrushAList (CONS BRUSHNAME (create BRUSHITEM - BRUSHARRAY _ BRUSHARRAY - CREATEMETHOD _ BRUSHFN))) + BRUSHARRAY ← BRUSHARRAY + CREATEMETHOD ← BRUSHFN))) (push KNOWN.BRUSHES BRUSHNAME]) ) @@ -1506,12 +1502,12 @@ CBottom) (SETQ BITMAP (ffetch DDDestination of DD)) (SETQ BIGBMLIST (fetch (BIGBM BIGBMLIST) of BITMAP)) - (SETQ HEIGHT (BITMAPHEIGHT BITMAP)) + (SETQ HEIGHT (BITMAPHEIGHT BITMAP)) (SETQ ClippingTop (ffetch DDClippingTop of DD)) (SETQ ClippingBottom (ffetch DDClippingBottom of DD)) (SETQ BM (GetNewFragment BIGBMLIST)) (while (AND BM (IGREATERP HEIGHT ClippingBottom)) - do (SETQ BOTTOM (IDIFFERENCE HEIGHT (BITMAPHEIGHT BM))) + do (SETQ BOTTOM (IDIFFERENCE HEIGHT (BITMAPHEIGHT BM))) [SETQ CTop (COND ((IGREATERP ClippingTop HEIGHT) (IDIFFERENCE HEIGHT BOTTOM)) @@ -1576,7 +1572,7 @@ (SUB1 (ffetch DDClippingTop of DD)) DISPLAYSTREAM COLOR)) (T (PROG ((BIGBMLIST (fetch (BIGBM BIGBMLIST) of BITMAP)) - (HEIGHT (BITMAPHEIGHT BITMAP)) + (HEIGHT (BITMAPHEIGHT BITMAP)) BOTTOM BM CTop CBottom (ClippingTop (ffetch DDClippingTop of DD)) (ClippingBottom (ffetch DDClippingBottom of DD)) (YY1 (\DSPTRANSFORMY (OR (FIXP Y1) @@ -1587,7 +1583,7 @@ DD))) (SETQ BM (GetNewFragment BIGBMLIST)) (while (AND BM (IGREATERP HEIGHT ClippingBottom)) - do (SETQ BOTTOM (IDIFFERENCE HEIGHT (BITMAPHEIGHT BM))) + do (SETQ BOTTOM (IDIFFERENCE HEIGHT (BITMAPHEIGHT BM))) [SETQ CTop (COND ((IGREATERP ClippingTop HEIGHT) (IDIFFERENCE HEIGHT BOTTOM)) @@ -2038,7 +2034,7 @@ (DECLARE%: EVAL@COMPILE (PUTPROPS .DRAWLINEX. MACRO [(MODE) - (bind (NY _ 0) for PT from 1 to PIXELSINX + (bind (NY ← 0) for PT from 1 to PIXELSINX do (* ; "main loop") [replace (BITMAPWORD BITS) of FIRSTADDR with (SELECTQ MODE @@ -2068,7 +2064,7 @@ (SETQ MASK 32768]) (PUTPROPS .DRAWLINEY. MACRO [(MODE) - (bind (NX _ 0) for PT from 1 to PIXELSINY + (bind (NX ← 0) for PT from 1 to PIXELSINY do (* ; "main loop") [replace (BITMAPWORD BITS) of FIRSTADDR with (SELECTQ MODE @@ -2295,9 +2291,9 @@ (RETURN (for ANGLE from STARTANGLE to (PLUS STARTANGLE ANGLESIZE (QUOTIENT ANGLEINCR 5.0)) by ANGLEINCR collect (create POSITION - XCOORD _ [FIXR (PLUS CENTERX (TIMES RADIUS + XCOORD ← [FIXR (PLUS CENTERX (TIMES RADIUS (COS ANGLE] - YCOORD _ (FIXR (PLUS CENTERY (TIMES RADIUS + YCOORD ← (FIXR (PLUS CENTERY (TIMES RADIUS (SIN ANGLE]) (\DRAWELLIPSE.DISPLAY @@ -2609,7 +2605,7 @@ ((EQ (fetch (BRUSH BRUSHSHAPE) of BRUSH) 'ROUND) BRUSH) - (T (create BRUSH using BRUSH BRUSHSHAPE _ 'ROUND] + (T (create BRUSH using BRUSH BRUSHSHAPE ← 'ROUND] (SETQ COLOR (fetch (BRUSH BRUSHCOLOR) of PTBRUSH)) (for PTAIL on POINTS while (CDR PTAIL) do (\DRAWLINE.DISPLAY STREAM (fetch (POSITION XCOORD ) @@ -2991,15 +2987,15 @@ (ELT DDY I] (SETQ SPLINE (create SPLINE - %#KNOTS _ %#KNOTS - SPLINEX _ X - SPLINEY _ Y - SPLINEDX _ DX - SPLINEDY _ DY - SPLINEDDX _ DDX - SPLINEDDY _ DDY - SPLINEDDDX _ DDDX - SPLINEDDDY _ DDDY)) + %#KNOTS ← %#KNOTS + SPLINEX ← X + SPLINEY ← Y + SPLINEDX ← DX + SPLINEDY ← DY + SPLINEDDX ← DDX + SPLINEDDY ← DDY + SPLINEDDDX ← DDDX + SPLINEDDDY ← DDDY)) (RETURN SPLINE]) (\CURVE @@ -3187,7 +3183,7 @@ (SETQ POINTSPERSEG 64) (SETQ NPOINTS (UNFOLD NSEGS 64] (SETQ D1 (FQUOTIENT 1.0 NPOINTS)) (* ; - "Set up &Et, &Et**2 and &Et**3, for computing the next point.") + "Set up Δt, Δt**2 and Δt**3, for computing the next point.") (SETQ D2 (FTIMES D1 D1)) (SETQ D3 (FTIMES D2 D1)) (SETQ D3X (FTIMES D3 DDDX)) @@ -3219,11 +3215,11 @@ (SETQ PERSEG (FQUOTIENT 1.0 NSEGS)) (LOADPOLY XPOLY X/PRIME/POLY DDDX DDX DX X0) (LOADPOLY YPOLY Y/PRIME/POLY DDDY DDY DY Y0) - (bind (TT _ 0.0) - (DDDX/PER/SEG _ (FTIMES DDDX PERSEG)) - (DDDY/PER/SEG _ (FTIMES DDDY PERSEG)) - [D3XFACTOR _ (FTIMES D3 DDDX (CONSTANT (FQUOTIENT 1.0 6.0] - [D3YFACTOR _ (FTIMES D3 DDDY (CONSTANT (FQUOTIENT 1.0 6.0] for I + (bind (TT ← 0.0) + (DDDX/PER/SEG ← (FTIMES DDDX PERSEG)) + (DDDY/PER/SEG ← (FTIMES DDDY PERSEG)) + [D3XFACTOR ← (FTIMES D3 DDDX (CONSTANT (FQUOTIENT 1.0 6.0] + [D3YFACTOR ← (FTIMES D3 DDDY (CONSTANT (FQUOTIENT 1.0 6.0] for I from 0 to (SUB1 NSEGS) do (* ;; @@ -4224,9 +4220,9 @@ (SETQ Min (FDIFFERENCE (FTIMES L 2) Max)) (RETURN (create RGB - RED _ (\HLSVALUEFN Min Max H) - GREEN _ (\HLSVALUEFN Min Max (IDIFFERENCE H 120)) - BLUE _ (\HLSVALUEFN Min Max (IDIFFERENCE H 240]) + RED ← (\HLSVALUEFN Min Max H) + GREEN ← (\HLSVALUEFN Min Max (IDIFFERENCE H 120)) + BLUE ← (\HLSVALUEFN Min Max (IDIFFERENCE H 240]) (\HLSVALUEFN [LAMBDA (MIN MAX HUE) (* rrb "25-OCT-82 10:47") @@ -4424,40 +4420,40 @@ (ADDTOVAR LAMA UNIONREGIONS INTERSECTREGIONS) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (10589 10783 (SCREENREGIONP 10599 . 10781)) (12227 19588 (\BBTCURVEPT 12237 . 19586)) ( -19589 29405 (CREATETEXTUREFROMBITMAP 19599 . 21529) (PRINTBITMAP 21531 . 22882) (PRINT-BITMAPS-NICELY -22884 . 26735) (PRINTCURSOR 26737 . 27770) (\WRITEBITMAP 27772 . 29403)) (29448 31996 (\GETINTEGERPART - 29458 . 31003) (\CONVERTTOFRACTION 31005 . 31994)) (32133 33005 (CURSORP 32143 . 32362) (CURSORBITMAP - 32364 . 32410) (CreateCursorBitMap 32412 . 33003)) (37367 46290 (CARET 37377 . 39137) (\CARET.CREATE -39139 . 39317) (\CARET.DOWN 39319 . 40671) (\CARET.FLASH? 40673 . 42367) (\CARET.SHOW 42369 . 42938) ( -CARETRATE 42940 . 43598) (\CARET.FLASH.AGAIN 43600 . 44766) (\CARET.FLASH.MULTIPLE 44768 . 45291) ( -\CARET.FLASH 45293 . 46288)) (46291 51363 (\MEDW.CARET.SHOW 46301 . 51361)) (51727 53562 ( -\AREAVISIBLE? 51737 . 52661) (\REGIONOVERLAPAREAP 52663 . 53208) (\AREAINREGIONP 53210 . 53560)) ( -53611 66087 (CREATEREGION 53621 . 53957) (REGIONP 53959 . 54105) (INTERSECTREGIONS 54107 . 56877) ( -UNIONREGIONS 56879 . 59030) (REGIONSINTERSECTP 59032 . 59640) (SUBREGIONP 59642 . 60287) (EXTENDREGION - 60289 . 62446) (EXTENDREGIONBOTTOM 62448 . 63090) (EXTENDREGIONLEFT 63092 . 63711) (EXTENDREGIONRIGHT - 63713 . 64266) (EXTENDREGIONTOP 64268 . 64809) (INSIDEP 64811 . 65579) (STRINGREGION 65581 . 66085)) -(66332 71606 (\BRUSHBITMAP 66342 . 68059) (\GETBRUSH 68061 . 68372) (\GETBRUSHBBT 68374 . 70402) ( -\InitCurveBrushes 70404 . 71470) (\BrushFromWidth 71472 . 71604)) (71607 74674 (\MAKEBRUSH.DIAGONAL -71617 . 71897) (\MAKEBRUSH.HORIZONTAL 71899 . 72293) (\MAKEBRUSH.VERTICAL 72295 . 72607) ( -\MAKEBRUSH.SQUARE 72609 . 72886) (\MAKEBRUSH.ROUND 72888 . 74672)) (74675 75840 (INSTALLBRUSH 74685 . -75838)) (76241 87643 (\DRAWLINE.DISPLAY 76251 . 86358) (RELMOVETO 86360 . 86747) (MOVETOUPPERLEFT -86749 . 87641)) (87644 111129 (\CLIPANDDRAWLINE 87654 . 94100) (\CLIPANDDRAWLINE1 94102 . 105850) ( -\CLIPCODE 105852 . 107226) (\LEASTPTAT 107228 . 107826) (\GREATESTPTAT 107828 . 108456) (\DRAWLINE1 -108458 . 109574) (\DRAWLINE.UFN 109576 . 111127)) (115659 161706 (\DRAWCIRCLE.DISPLAY 115669 . 124482) - (\DRAWARC.DISPLAY 124484 . 124774) (\DRAWARC.GENERIC 124776 . 125529) (\COMPUTE.ARC.POINTS 125531 . -127796) (\DRAWELLIPSE.DISPLAY 127798 . 143467) (\DRAWCURVE.DISPLAY 143469 . 145758) ( -\DRAWPOINT.DISPLAY 145760 . 146956) (\DRAWPOLYGON.DISPLAY 146958 . 150486) (\LINEWITHBRUSH 150488 . -161704)) (161707 193399 (LOADPOLY 161717 . 162277) (PARAMETRICSPLINE 162279 . 172476) (\CURVE 172478 - . 178080) (\CURVE2 178082 . 189413) (\CURVEEND 189415 . 189897) (\CURVESLOPE 189899 . 192382) ( -\CURVESTART 192384 . 192708) (\FDIFS/FROM/DERIVS 192710 . 193397)) (205928 220264 (\FILLCIRCLE.DISPLAY - 205938 . 216686) (\LINEBLT 216688 . 220262)) (220308 221930 (SCREENBITMAP 220318 . 220795) (BITMAPP -220797 . 221031) (BITSPERPIXEL 221033 . 221928)) (222571 223564 (DSPFILL 222581 . 223264) (INVERTW -223266 . 223562)) (223565 227208 (\DSPCOLOR.DISPLAY 223575 . 224872) (\DSPBACKCOLOR.DISPLAY 224874 . -226253) (DSPEOLFN 226255 . 227206)) (227641 232295 (DSPCLEOL 227651 . 228527) (DSPRUBOUTCHAR 228529 . -228961) (\DSPMOVELR 228963 . 232293)) (232425 233543 (\CURSOR.DEFPRINT 232435 . 233541)) (233955 -242529 (TEXTUREOFCOLOR 233965 . 235227) (\PRIMARYTEXTURE 235229 . 235811) (\LEVELTEXTURE 235813 . -236314) (INSURE.B&W.TEXTURE 236316 . 237711) (INSURE.RGB.COLOR 237713 . 239141) (\LOOKUPCOLORNAME -239143 . 239413) (RGBP 239415 . 240180) (HLSP 240182 . 240557) (HLSTORGB 240559 . 241699) (\HLSVALUEFN - 241701 . 242527))))) + (FILEMAP (NIL (10493 10687 (SCREENREGIONP 10503 . 10685)) (12131 19492 (\BBTCURVEPT 12141 . 19490)) ( +19493 29301 (CREATETEXTUREFROMBITMAP 19503 . 21433) (PRINTBITMAP 21435 . 22782) (PRINT-BITMAPS-NICELY +22784 . 26631) (PRINTCURSOR 26633 . 27666) (\WRITEBITMAP 27668 . 29299)) (29344 31892 (\GETINTEGERPART + 29354 . 30899) (\CONVERTTOFRACTION 30901 . 31890)) (32029 32901 (CURSORP 32039 . 32258) (CURSORBITMAP + 32260 . 32306) (CreateCursorBitMap 32308 . 32899)) (37263 46194 (CARET 37273 . 39037) (\CARET.CREATE +39039 . 39219) (\CARET.DOWN 39221 . 40573) (\CARET.FLASH? 40575 . 42269) (\CARET.SHOW 42271 . 42840) ( +CARETRATE 42842 . 43500) (\CARET.FLASH.AGAIN 43502 . 44670) (\CARET.FLASH.MULTIPLE 44672 . 45195) ( +\CARET.FLASH 45197 . 46192)) (46195 51267 (\MEDW.CARET.SHOW 46205 . 51265)) (51631 53466 ( +\AREAVISIBLE? 51641 . 52565) (\REGIONOVERLAPAREAP 52567 . 53112) (\AREAINREGIONP 53114 . 53464)) ( +53515 66031 (CREATEREGION 53525 . 53869) (REGIONP 53871 . 54017) (INTERSECTREGIONS 54019 . 56805) ( +UNIONREGIONS 56807 . 58966) (REGIONSINTERSECTP 58968 . 59576) (SUBREGIONP 59578 . 60223) (EXTENDREGION + 60225 . 62382) (EXTENDREGIONBOTTOM 62384 . 63026) (EXTENDREGIONLEFT 63028 . 63647) (EXTENDREGIONRIGHT + 63649 . 64202) (EXTENDREGIONTOP 64204 . 64745) (INSIDEP 64747 . 65515) (STRINGREGION 65517 . 66029)) +(66276 71550 (\BRUSHBITMAP 66286 . 68003) (\GETBRUSH 68005 . 68316) (\GETBRUSHBBT 68318 . 70346) ( +\InitCurveBrushes 70348 . 71414) (\BrushFromWidth 71416 . 71548)) (71551 74618 (\MAKEBRUSH.DIAGONAL +71561 . 71841) (\MAKEBRUSH.HORIZONTAL 71843 . 72237) (\MAKEBRUSH.VERTICAL 72239 . 72551) ( +\MAKEBRUSH.SQUARE 72553 . 72830) (\MAKEBRUSH.ROUND 72832 . 74616)) (74619 75788 (INSTALLBRUSH 74629 . +75786)) (76189 87575 (\DRAWLINE.DISPLAY 76199 . 86290) (RELMOVETO 86292 . 86679) (MOVETOUPPERLEFT +86681 . 87573)) (87576 111061 (\CLIPANDDRAWLINE 87586 . 94032) (\CLIPANDDRAWLINE1 94034 . 105782) ( +\CLIPCODE 105784 . 107158) (\LEASTPTAT 107160 . 107758) (\GREATESTPTAT 107760 . 108388) (\DRAWLINE1 +108390 . 109506) (\DRAWLINE.UFN 109508 . 111059)) (115595 161648 (\DRAWCIRCLE.DISPLAY 115605 . 124418) + (\DRAWARC.DISPLAY 124420 . 124710) (\DRAWARC.GENERIC 124712 . 125465) (\COMPUTE.ARC.POINTS 125467 . +127736) (\DRAWELLIPSE.DISPLAY 127738 . 143407) (\DRAWCURVE.DISPLAY 143409 . 145698) ( +\DRAWPOINT.DISPLAY 145700 . 146896) (\DRAWPOLYGON.DISPLAY 146898 . 150428) (\LINEWITHBRUSH 150430 . +161646)) (161649 193360 (LOADPOLY 161659 . 162219) (PARAMETRICSPLINE 162221 . 172436) (\CURVE 172438 + . 178040) (\CURVE2 178042 . 189374) (\CURVEEND 189376 . 189858) (\CURVESLOPE 189860 . 192343) ( +\CURVESTART 192345 . 192669) (\FDIFS/FROM/DERIVS 192671 . 193358)) (205889 220225 (\FILLCIRCLE.DISPLAY + 205899 . 216647) (\LINEBLT 216649 . 220223)) (220269 221891 (SCREENBITMAP 220279 . 220756) (BITMAPP +220758 . 220992) (BITSPERPIXEL 220994 . 221889)) (222532 223525 (DSPFILL 222542 . 223225) (INVERTW +223227 . 223523)) (223526 227169 (\DSPCOLOR.DISPLAY 223536 . 224833) (\DSPBACKCOLOR.DISPLAY 224835 . +226214) (DSPEOLFN 226216 . 227167)) (227602 232256 (DSPCLEOL 227612 . 228488) (DSPRUBOUTCHAR 228490 . +228922) (\DSPMOVELR 228924 . 232254)) (232386 233504 (\CURSOR.DEFPRINT 232396 . 233502)) (233916 +242496 (TEXTUREOFCOLOR 233926 . 235188) (\PRIMARYTEXTURE 235190 . 235772) (\LEVELTEXTURE 235774 . +236275) (INSURE.B&W.TEXTURE 236277 . 237672) (INSURE.RGB.COLOR 237674 . 239102) (\LOOKUPCOLORNAME +239104 . 239374) (RGBP 239376 . 240141) (HLSP 240143 . 240518) (HLSTORGB 240520 . 241666) (\HLSVALUEFN + 241668 . 242494))))) STOP diff --git a/sources/ADISPLAY.LCOM b/sources/ADISPLAY.LCOM index 106b599618a75ce11f07b708a7521e8a1441b5c8..a967e4e1126df14116d363d84d1518a9246a73e7 100644 GIT binary patch delta 9279 zcmb_idvp}ndDrX;3^Epa3kwi~u+3YYJMWQ+VORUmnnknht{4y)VGs`HVS-JdX=)2Q zY2&zd4sd;JAecw6u}o=#Sd1M9TXs&<<3~AePn#4%o#N)Sf2N}5j~vH#`@1u?`>Y<%p#NGz4hq$8_3?YL2Aw39~ovY&kCxK9|p?dXrWvmhZuKcs|mfcFqjAcjyO{AA1C#DhN82}DqxeTK=w}y>77@fq8pUa28e_NQ2c1v}8Vp~Jkel$|`Vx)Tv zkH4UA#EsgvP05xT#@IUck0xT71;0$zE{R=QU;QN;{C;Gx``W(I?*3%cwf!SiKTS5U zj^m@rn05pM&*h6o6bcL**SjDldaKUwDxtYsa?N27n7;2+`} zxao8t(H{EpOFEQzlzWE$cVa%bmbNGF4jCfdk!%d>M6jQlpyAoXsr11&TUV-z!bg`z zQ~78*&nvplugRNvGh@YayrM~LyJGQNKGhq^r_5enQDlBi&P?RH`?5JR8#68RLG=T} zWTMb(!!0XhK`RrNWWhsR5|!XANl+_@i<%xBM(DaX?_8iM{F+!cVr9%!Z@$yDCZ2%5 z053#V=*gZz&Yy+lEhAd;VgM6g3H1<_zLn?kz1c9=NNX+$M3h`!z!Pb5g;n_sw+I%TWm zpVx-z(WMdTVl-LHwBQ#@4<_p(to5_*r;~NvtThrzHn8Vw@$pPG-ygSyY3&bbW4f#M z&P~ZCkJheCo7^5coF+BBX4|FB7{?`VFs?9X**7_k&?CLOhu)}~qw5f+JDtjOo3S{r zE7-53jeNO$CJ#{5WqkMdz##oSnn8j+Dx@w^)tFkO;}MsnCTh;>JIlRNyK7PGMLHuR9Mn&GqY7#!u~K7mK3JSO(DhB$JvrpoDaWMY!baf7xyoJaa>2q z*fV^B2b`BB%=TsMKDzInCZK4|ZE~1?%X)_Ur$Y70pK;OFO-srOIPHZcHmr|!+dBHW z`OvvKbEVn8WNX-bXmagH_4BLVvNoNaXKg+=$(?6yrC+U@b%&1(o!`H=;k^k=+eg>2 z|EY^rBjKOWi~TcOw+z${)Qy73LO+pltMBm>DJZLta@-mE%QdrFcMr4-Ou50N$qxi4 zEq>rRuJwBZ^9B~&VEAv>28TBe^oCl-Je->IMn3+6s)&BKFCm+x#`ATtXuS%Tvxh%8lNGo)q<^%IdHsdphF_&W^ER%;ho z4MhtIU@#mBtZ4`a?YcOFKJsSGYF+YgxCVGb&W=7%(> zh|MKY4cT3TsJc{Sf+&#A8K7V>hY5IJtu#Q^p*ntOA~FNnA`h~nGH|LUvg|gnPpoGH zVbVIpiBjA|LLj!g1w_DMI|Br2UOR$SYVm@8+25guV(w*B*Bt+=XI zT2w2qsTvIXd{C>h0KyeVRk3ePAr-s$aZ`hWGxQHGw11rhz*L2Omlf6lQ;XhVFu4Z^{G{LHnCkj$P(rW-`HBZ7!EXd?gh=ED_##4w);DfM=_e~qYG#|Q@uQ}XmrVze_mg8W;nv)!O&`a*SQWldkc`6UcEYW4JI-iaw7$dsjFp_1% zGwHq@nafZ5$9rc~)z^>J){jk|UO%>={%TjUY4h0rk%{Z+?FR<9mDD^krER|TXNdJf z$@X*g)-LN$ll<0jvK;|e)$iy_2kv8O0`JkXe>g$7Q}pPuyE;!>`#0&_8Nr^^W}UH~ zx1P41vCdk<))DIk>sjju){m{d)_&`xb<8?MHy_lw1N6C<+i2b43G^2S2f6EX-l4VJ z3-tSk!^TuP_R`e4ZWER| zuw>+m+mr1$kLT&sBhtVNMt+7yNJQI)vsv#6|VP4vt)JE3qgq0G<*Hc7h;_jI?5)=mzlH z#9#m~sw^QW0lBD(VsI5vWhr+6%0&gCTYw!=CR)+Mi;`%E73(l1e9o%!TFq4}v7TjW=DePHjDmfa4b^$V?b`21F4bEpdtMhaIj- zL@ee)5`ph`;{i#qD-yn_Tw+;K(dWZtSY8&E1Y$o?Ph@d=Oe`fhqKXXGi8Mq{f&_Sh1=*8@k=tv0N07@@sm#_>Lr}@Mp z8mmPVqkIj5+3~H0BCg$#abRd9h=j1+37#d`v`btnuaY#YpIHEFf5!!0gWalvQ z*G<^M<|W8M9kK?>#ST>+61qfniD90PVcipt>w?W3{q#F6&?vhtNJuvvttmx`%q)v1 zAP1SG8&0pSk$9mKxd)8D@X_h(;aR0nmesf*qX!Y4R1FfWvzn{NUrC4Q7Z_9o{TzZ*Vsx)5xkrj}_(Y??}AL63JlR&nT^X>z$AdOpSNr94nv^wIL6NsHld( z%<0%$Q>H3#qLFMivMR%FXM|E)Hf$)k8+E}-M3OxgPH>ClfQDq>r!=;qTBw!ih;YJ1 z`T`}Vo9`k56d?c^gcXNM7>AM_E7l+%#6y-*d+@<2dIBAGmBWicwEn_(ha}V}g-!(* zzfdK+L6EWuodojZPlF}_IDGG@TMC^5J^<?~x1eT+EvQoPIodvhK*)4tUo%VZz2`V(u&UedcCg@7^ z+6#>#NvBVS8`t2~@FlTeERe*)HoU$m!Na?_X)H>RHc!PI8P`YldUJX1_@tS1!{`cr zku}A-=kk_ITf95|MKYj=o&5|9NH!$7v zL{cc0QsKQ6$JDjyPuSg^UEalIj~g{$M~V)R-3R%6RpHco2din_<9hYD-5ucq{kw3O z_--_&l`clurCdm?=cijSxPnBvsMkaP_5%jxp6e8P{e$S_Uz;6f`_)TZE)8^yj&O%) z{6n$%<$8Wb<@{$q49>ss;o7>2W#)Yp9M=EQcV-Wo?O39H6sz%r z6=yT@)#j=>M6xg9hKK|xT*I#1*mW|o@5jn-(3LXAplnuA9YT=Df}@h_jj<{cjK~O} z5&Gb&i?ry>vKPtg znm3)&fdhd#I`dHhiCE|z7{+Q+J1<^xZw6-p;Q*&TO~P&>PAWl|NUxr12@wMo?B+14 z%$-)+zzU(pM{zcS2m|3Z&{lI5PJ*FX8%v}n%< zlj^x}cj-qUZlk6?G>)c!b62)8>L~rg_#KGoIHi>tGncX}X!hl0@uv$6X^RShM7q2( zybcPsn&vAFH-v!ES0dwb_{c-S=L1 zzwRdG{=rnid+*M<=bn4cxxe#q=jYD^_nizL7@qELYU&$Kr4zAiB9c$UNiQ*$-*o5H za!Hg_B8h|498`^7($~9r=k2?;O>LPZJ9mJn>CfZ2RrjnI+p}f&o|W4-?wZ=TV`X~h z=8aP;Z{IRGwdHH_fV%Q4J9ls2w&Tmo-I0}hcHX&r^Oij;Bk@!&la8z#xPdDD)8M65 z7Np7`))Yl7uxa;}@{(J=x@-5IYX-@VoqM-}BiRNKhR4!r;-5P(FwjdTH|~Xq7vV{1 zZ~sMhI$gijOSCm2DT-mpWH1p=<(Eg-k=?g%Cxfw($Y?T=Tb{R?NZ)uQJDnpXeZ;KQ zxqdR3$tK2A)>v+N9QGi+)Lb6lvYDGhCX^0J@}LNFTpAhW{-)wF;nciVMJ5@dldNUq zsgWgvNx67ilNt(0l3skGJJovq+y?yoeE$1Gk!Y-$zen7Wrmfxh2{rV|l;rZ+)M(O9 z#q%Rf8(4fzpRAK%YcwBE@D!-R@tJvb&3qtR4;btD6=1@>JQWWksmx;sAAc;ShehDRc?^LXrMO>y%Jom-O~ zOD+HZ^=r6yCEwmQH0Nqw#n)Vy9E12}%r+USw1=jf;)4(8jK{nxc{DD(EVj z&J$HP$@;vNw=#A-M^sJcI){bwsnJM2WsMS50jHcboR5uVb5=HP*%*_=S~5j6*-Wxy ztpah%%w<{eF_$H&c9tw+OEt_TU9Bafh6v_e*GXhO-+0DKjpheD*dSD;b@YnFew&t{dw0Zg^KqkS$mhk>89aTe$tttU8zsMflqbvHO#u7=Qa| zB)Nb;f0A&I(46huQy*jN(t}^<*qUr}J++s;v&s_gVLfTuw94u}dmD&^cr8)!X!=e; zP*~^aSEgTT=reTB3u0D0K@1i8OFFoo%V+YDJTYYazIuehAXOu}q1KM5a2f804p*Jq zIGu=iEOiM=onaZQD(8)wl+DkK z2r_%`OzRq=i3)LHhp47newE6jiYb>y6&wJMRuORq9ke2{4h?xuDQnzk8)cQU|N-6rf8JI;CLdFCz8zJ*gqg~NAVAca0veZH33x>u%)I_k6b1^ z$7eDJZmD6)i)uZb>R5lZHJ->@gz6d#Z|qd5uGXxmA;MOPpm3?ncuy5wW*;Y8m*N;y z{KQ>ULBdxP3#cS>Anu%!_$l{om5OHdfT{U+%J*Hv%H*(7v!sb=P(xH*n?qx zBQ6xeKo^6;%giqY*|(-n3&mpW_QOI2gzhbVy5qsd&btbs!h%_Q9{_8A1@i7=2k!7e z%Du(EzvBi$_=Np&_YUD}Y{#BIV<(ecH#@=2=g2sL5Y<1x!&Jq!sSNn9@og&eC|z@S zsKmmX;K8C%LIs0rBofUbLo}VIj$k*OTAL*tIouar^j_c^?g&st2#eU#eIyizorhs( zkHH9=*vIW$;#d66zB59j3NPN@HO<}BXG{|Z(f@78NMp*XGwKs!L#%RB2Z?ofNJYa= zQmz~wW%bS&qv;X@j+G7#F)20nE%l1L>-@(vOF zlprPa%Vd}&ofziKOp!RkXE}K$J(i>Wq`Ud_4WuC)KHm~Pe^vPWvhcaVWZP}$AD)?? zV@n<@2xDy5;jW%O`)(xWe@ynA3fp(tUrmy!K(Yt&y?KG4rCE_szy;gdelFk4y+L?lH|Bj>r6FYavs}I?HbS;U!wO z>!`b|A*^8!9KGrDH@=~8iz5Mf;u1;lt0zjvWzgc1o! zTP-1~3zaAJw-^9b{~~TRQCExTs5aP%4kKF5>|;nLxKHpGYRMnFtaUO1V(AgQ97$^G~(~sc4j6L~lf={G|~T z;TJonO})CXGmyMgbZsEhtx>fTD{JJ_(MqTx(`da|ynRq3Y7kYsBahRXf?NSr^1i9} z6eY;p-iS(oKMW0z4m2b)CQuuspDqO;^vBaKL!klBj_%`MSQ51{c<#x6rQ zrSt%Y0zO_kHEiZ|M*w9G?@I(El$&TwpyDW%IvVl-H-(TiB-*7?N9FAmkA;LzBTxH- zlB&7+J8CJ^Fzr-AdF3Q3l7!O8W5X-V5*x~Wro@J#IpVN^mHA7bBtri6UN;a;@(8-h zyvVH{5qYi9CK@QO-K5As`s1#J?qVh5)FDD?EegLt_0y<}&O_0->Lh}?$5S1Zfe{`P z83kvl8sha}nTcdLN~4mFC+{9cPP8ur;5cHKXqUPS45TRDe8ZRZ8lud18Q^6f+LN&I z>nGZ-L}u?ym(fP@6oxbBPG{XuZ)g&UH~@@NG`+b0>E8y%{rNGHAehT{pqvz~3Y^^X zh_{9>(kYtzPCD2yXIpeqVDHX!;ooXuPqF8jr98=wyP3~pY^<0SBJ9cH$DwiSrpY;h z$DJ0^!!v;-J9sKDw6jl7-QT_~OrrMVNUskez4oRaW)D8g)9W&)SD%dw=UCvmO~TjN ztoT}Y!0ghy!f2`^q)^91UVFrak${XQ@OxX@ukcYz zuv2NK=zwe(H&Yz)J?ol4Pn=}IWa0Zd2rBO?gi?64_CXd4zjEKSghMS3sA$7rbIuEe zmc#*cmiUhj)1ttv`i9oT0TI6duu!}pxcdqC4J2n|030gwns5`~E}$a^z_k7*Zo*>Q ztL;LESJg@IxN=2?QvBR(2U|Pa7pg7n*k8`})Yo&cdR?7}C2J}%AQNsR9FA@|#|O;1 z;t$U4FaD6<)f9gwBDPPL;DQk2)ql{lvp}f|Ra94sej*%h?q$|%}%iOes(Hg zciVk<`PZ{kK~#f6vrSL|{+hk~VXoz0_W2 z-(-*4E9|sAV2ie4E4F4w?Gbyz&a>~mt_p+fjn}W6yB~L^=$oL~+3IvXe6brD8e4QG zB{=c!DkPF#xWvtz2mVm63;x9uXATBy?*;hTuB0a%?LqGwanYVb5sc37`26<*bGG*e zi{JQJATUtw=Eo~H0{j}Pu|G_%vWEfVBb9F0P3+k>eciA)`{d2&<-f9et)6pdx1TNa z&dvyrF!L>`{b-mhs-L{?t*Xhzw>E_87FhhtDw_N+zu9-2)dS`|vsj0mJ+~eAxu2!@ znihHg9BerA*{+5@WSmaEJ1!%NuIKkj{2mnH830lFk^puUU`DU04i6=qFrN}#(5Gn2 zjS0{iRsV57@rDnd z66X9fE=4b6Z-3a$0v{>Dx0vzKjSGiHe$gCWJSVoQ^j8SpOVcZ-*+U;)El1s(t8J(Y zCGcqLytSH?zg@5?5E-d+sZ~V^#YcZ1Z4?T{5B_lb!v6y^V?5XZ diff --git a/sources/FONT b/sources/FONT index 2859beb2..316e0bca 100644 --- a/sources/FONT +++ b/sources/FONT @@ -1,12 +1,10 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT UTF-8) -(FILECREATED "19-Feb-2026 00:10:22" {WMEDLEY}FONT.;674 277477 +(FILECREATED "20-Feb-2026 12:54:44" {WMEDLEY}FONT.;675 277180 :EDIT-BY rmk - :CHANGES-TO (FNS \FONT.CHECKARGS1) - - :PREVIOUS-DATE "14-Feb-2026 13:14:08" {WMEDLEY}FONT.;673) + :PREVIOUS-DATE "19-Feb-2026 00:10:22" {WMEDLEY}FONT.;674) (PRETTYCOMPRINT FONTCOMS) @@ -203,9 +201,9 @@ (DEFINEQ (CHARWIDTH - [LAMBDA (CHARCODE FONT) (* rmk%: "12-Apr-85 09:46") + [LAMBDA (CHARCODE FONT) (* rmk%: "12-Apr-85 09:46") (* ; - "gets the width of a character code in a font/stream") + "gets the width of a character code in a font/stream") (OR (\CHARCODEP CHARCODE) (\ILLEGAL.ARG CHARCODE)) (LET (TEMP) @@ -213,7 +211,7 @@ ((type? FONTDESCRIPTOR FONT) (\FGETCHARWIDTH FONT CHARCODE)) ((SETQ TEMP (\OUTSTREAMARG FONT T)) (* ; - "NIL font goes thru here--primary output file") + "NIL font goes thru here--primary output file") (IMAGEOP 'IMCHARWIDTH TEMP TEMP CHARCODE)) (T (\FGETCHARWIDTH (FONTCREATE FONT) CHARCODE]) @@ -246,7 +244,7 @@ (T 0]) (STRINGWIDTH - [LAMBDA (STR FONT FLG RDTBL) (* ; "Edited 8-Jan-88 14:41 by Snow") + [LAMBDA (STR FONT FLG RDTBL) (* ; "Edited 8-Jan-88 14:41 by Snow") (* ;; "Returns the width of STR according to FONT") @@ -259,22 +257,21 @@ (\STRINGWIDTH.GENERIC STR FONT (AND FLG (\GTREADTABLE RDTBL)) (\FGETCHARWIDTH FONT (CHARCODE SPACE] [(AND FONT (SETQ TEMP (\OUTSTREAMARG FONT T))) (* ; - "if you gave something for FONT, coerce it to a stream, and call the stringwidth function of it.") + "if you gave something for FONT, coerce it to a stream, and call the stringwidth function of it.") (IMAGEOP 'IMSTRINGWIDTH TEMP TEMP STR (AND FLG (\GTREADTABLE RDTBL] - (T (SETQ TEMP (FONTCREATE (OR FONT DEFAULTFONT))) - (* ; "NIL font will pass thru here. ie, defaultfont is used to do the stringwidth instead of the font of *standard-output*") + (T (SETQ TEMP (FONTCREATE (OR FONT DEFAULTFONT)))(* ; "NIL font will pass thru here. ie, defaultfont is used to do the stringwidth instead of the font of *standard-output*") (\STRINGWIDTH.GENERIC STR TEMP (AND FLG (\GTREADTABLE RDTBL)) (\FGETCHARWIDTH TEMP (CHARCODE SPACE]) (\CHARWIDTH.DISPLAY - [LAMBDA (STREAM CHARCODE) (* rmk%: "12-Apr-85 09:42") + [LAMBDA (STREAM CHARCODE) (* rmk%: "12-Apr-85 09:42") (* ; - "gets the width of a character code in a display stream. Need to fix up for spacefactor.") + "gets the width of a character code in a display stream. Need to fix up for spacefactor.") (\FGETCHARWIDTH (ffetch (\DISPLAYDATA DDFONT) of (ffetch IMAGEDATA of STREAM)) CHARCODE]) (\STRINGWIDTH.DISPLAY - [LAMBDA (STREAM STR RDTBL) (* ; "Edited 3-Apr-87 12:07 by jop") + [LAMBDA (STREAM STR RDTBL) (* ; "Edited 3-Apr-87 12:07 by jop") (* ;; "Returns the width of for the current font/spacefactor in STREAM.") @@ -383,7 +380,7 @@ (FONTCREATE DEFAULTFONT NIL NIL NIL DEVICE NOERRORFLG))]) (FONTCLASS - [LAMBDA (NAME FONTLIST CREATEFORDEVICES) (* jds " 9-Sep-86 18:49") + [LAMBDA (NAME FONTLIST CREATEFORDEVICES) (* jds " 9-Sep-86 18:49") (* ;; "This builds D style font classes, which are datatypes containing entries for the various known devices.") @@ -392,30 +389,30 @@ (PROG (F FC FL) (SETQ FL FONTLIST) [SETQ FC (create FONTCLASS - FONTCLASSNAME _ NAME - PRETTYFONT# _ (OR (FIXP (pop FL)) + FONTCLASSNAME ← NAME + PRETTYFONT# ← (OR (FIXP (pop FL)) 1) - DISPLAYFD _ (AND (SETQ F (pop FL)) + DISPLAYFD ← (AND (SETQ F (pop FL)) (FONTCREATE F NIL NIL NIL 'DISPLAY)) - PRESSFD _ (pop FL) - INTERPRESSFD _ (pop FL) - OTHERFDS _ (for FSPEC in FL - collect (OR (AND (LISTP FSPEC) - (ATOM (CAR FSPEC)) - (CAR FSPEC)) - (ERROR "illegal font class specification" - (LIST NAME FONTLIST))) + PRESSFD ← (pop FL) + INTERPRESSFD ← (pop FL) + OTHERFDS ← (for FSPEC in FL collect (OR (AND (LISTP FSPEC) + (ATOM (CAR FSPEC)) + (CAR FSPEC)) + (ERROR + "illegal font class specification" + (LIST NAME FONTLIST))) (* ; - "Copy the alist entry so it can be smashed in \COERCEFONTDESC") - (CONS (CAR FSPEC) - (CAR (LISTP (CDR FSPEC] + "Copy the alist entry so it can be smashed in \COERCEFONTDESC") + (CONS (CAR FSPEC) + (CAR (LISTP (CDR FSPEC] (for D inside CREATEFORDEVICES do (FONTCREATE FC NIL NIL NIL D)) (RETURN FC]) (FONTCLASSUNPARSE - [LAMBDA (FONTCLASS DEVICE FONT NOERRORFLG) (* jds "24-Jan-86 11:58") + [LAMBDA (FONTCLASS DEVICE FONT NOERRORFLG) (* jds "24-Jan-86 11:58") (* ; - "Given a font class, unparse it to a form that might be reparsable") + "Given a font class, unparse it to a form that might be reparsable") (APPEND (LIST (fetch (FONTCLASS FONTCLASSNAME) of FONTCLASS) (fetch (FONTCLASS PRETTYFONT#) of FONTCLASS) (FONTUNPARSE (ffetch (FONTCLASS DISPLAYFD) of FONTCLASS)) @@ -423,7 +420,7 @@ (FONTUNPARSE (ffetch (FONTCLASS INTERPRESSFD) of FONTCLASS))) (for X in (fetch (FONTCLASS OTHERFDS) of FONTCLASS) collect (LIST (CAR X) - (FONTUNPARSE (CDR X]) + (FONTUNPARSE (CDR X]) (FONTCLASSCOMPONENT [LAMBDA (FONTCLASS DEVICE FONT NOERRORFLG) (* ; "Edited 4-Jul-2025 10:32 by rmk") @@ -590,17 +587,17 @@ (* ;; "For the REMEMBER case, dummy font descriptor completely fillled with a slug charsetinfo") (LET* ([FONTDESC (create FONTDESCRIPTOR - FONTDEVICE _ DEVICE - FONTFAMILY _ FAMILY - FONTSIZE _ SIZE - FONTFACE _ FACE - \SFAscent _ SIZE - \SFDescent _ 0 - \SFHeight _ SIZE - ROTATION _ ROTATION - FONTDEVICESPEC _ (LIST FAMILY SIZE FACE ROTATION DEVICE) - FONTCHARENCODING _ 'MCCS - FONTAVGCHARWIDTH _ (FIXR (FTIMES SIZE 0.75] + FONTDEVICE ← DEVICE + FONTFAMILY ← FAMILY + FONTSIZE ← SIZE + FONTFACE ← FACE + \SFAscent ← SIZE + \SFDescent ← 0 + \SFHeight ← SIZE + ROTATION ← ROTATION + FONTDEVICESPEC ← (LIST FAMILY SIZE FACE ROTATION DEVICE) + FONTCHARENCODING ← 'MCCS + FONTAVGCHARWIDTH ← (FIXR (FTIMES SIZE 0.75] (SLUGCSINFO (\BUILDSLUGCSINFO FONTDESC))) (if CHARSET then (\SETCHARSETINFO FONTDESC CHARSET SLUGCSINFO) @@ -1033,11 +1030,11 @@ (CL:WHEN (FONTP BASE) (SETQ BASE (FONTPROP BASE 'SPEC))) (create FONTSPEC - FSFAMILY _ (OR FAMILY (fetch (FONTSPEC FSFAMILY) of BASE)) - FSSIZE _ (OR SIZE (fetch (FONTSPEC FSSIZE) of BASE)) - FSFACE _ (OR FACE (fetch (FONTSPEC FSFACE) of BASE)) - FSROTATION _ (OR ROTATION (fetch (FONTSPEC FSROTATION) of BASE)) - FSDEVICE _ (OR DEVICE (fetch (FONTSPEC FSDEVICE) of BASE]) + FSFAMILY ← (OR FAMILY (fetch (FONTSPEC FSFAMILY) of BASE)) + FSSIZE ← (OR SIZE (fetch (FONTSPEC FSSIZE) of BASE)) + FSFACE ← (OR FACE (fetch (FONTSPEC FSFACE) of BASE)) + FSROTATION ← (OR ROTATION (fetch (FONTSPEC FSROTATION) of BASE)) + FSDEVICE ← (OR DEVICE (fetch (FONTSPEC FSDEVICE) of BASE]) ) (DEFINEQ @@ -1218,11 +1215,11 @@ then 'MCCS else (fetch (FONTDESCRIPTOR FONTFAMILY) of FONT]) (SPEC (create FONTSPEC - FSFAMILY _ (ffetch FONTFAMILY of FONT) - FSSIZE _ (ffetch FONTSIZE of FONT) - FSFACE _ (COPY (ffetch FONTFACE of FONT)) - FSROTATION _ (ffetch ROTATION of FONT) - FSDEVICE _ (ffetch FONTDEVICE of FONT))) + FSFAMILY ← (ffetch FONTFAMILY of FONT) + FSSIZE ← (ffetch FONTSIZE of FONT) + FSFACE ← (COPY (ffetch FONTFACE of FONT)) + FSROTATION ← (ffetch ROTATION of FONT) + FSDEVICE ← (ffetch FONTDEVICE of FONT))) (DEVICESPEC (* ;  "DEVICE fields are for communicating coercions to the particular printing device") (CL:IF (ffetch FONTDEVICESPEC of FONT) @@ -1250,7 +1247,7 @@ (fetch (FONTSPEC FSFACE) of (ffetch FONTDEVICESPEC of FONT)) (ffetch FONTFACE of FONT)))) (SCALE (ffetch FONTSCALE of FONT)) - (CHARSETS (for CS CSINFO (CSVECTOR _ (ffetch FONTCHARSETVECTOR of FONT)) from 0 to + (CHARSETS (for CS CSINFO (CSVECTOR ← (ffetch FONTCHARSETVECTOR of FONT)) from 0 to \MAXCHARSET eachtime (SETQ CSINFO (\GETBASEPTR CSVECTOR (UNFOLD CS 2))) when CSINFO unless (fetch (CHARSETINFO CSSLUGP) of CSINFO) collect CS)) @@ -1639,7 +1636,7 @@ then (\MAKESLUGCHAR DTHINCODE DCSINFO) else (CL:WHEN (fetch (CHARSETINFO CSSLUGP) of DCSINFO) (* ; "No longer a slug csinfo") - (SETQ DCSINFO (create CHARSETINFO copying DCSINFO CSSLUGP _ NIL CSCOMPLETEP _ NIL + (SETQ DCSINFO (create CHARSETINFO copying DCSINFO CSSLUGP ← NIL CSCOMPLETEP ← NIL )) (\SETCHARSETINFO DFONT (\CHARSET DCODE) DCSINFO)) @@ -1696,23 +1693,23 @@ then (SETQ SFONT (MKLIST SFONT)) (* ;  "Make it look like a fontspec, then fill in defaults") [SETQ SFONT (FONTCREATE (create FONTSPEC - FSFAMILY _ (OR (fetch (FONTSPEC FSFAMILY) + FSFAMILY ← (OR (fetch (FONTSPEC FSFAMILY) of SFONT) (FONTPROP DEFAULTSOURCEFONT 'FAMILY)) - FSSIZE _ (OR (fetch (FONTSPEC FSSIZE) + FSSIZE ← (OR (fetch (FONTSPEC FSSIZE) of SFONT) (FONTPROP DEFAULTSOURCEFONT 'SIZE)) - FSFACE _ (OR (fetch (FONTSPEC FSFACE) + FSFACE ← (OR (fetch (FONTSPEC FSFACE) of SFONT) (FONTPROP DEFAULTSOURCEFONT 'FACE)) - FSROTATION _ (OR (fetch (FONTSPEC FSROTATION) + FSROTATION ← (OR (fetch (FONTSPEC FSROTATION) of SFONT) (FONTPROP DEFAULTSOURCEFONT 'ROTATION)) - FSDEVICE _ (OR (fetch (FONTSPEC FSDEVICE) + FSDEVICE ← (OR (fetch (FONTSPEC FSDEVICE) of SFONT) (FONTPROP DEFAULTSOURCEFONT 'DEVICE] @@ -1991,7 +1988,7 @@ ((STREAMP DEVICE) (IMAGESTREAMTYPE DEVICE)) [(NULL DEVICE) - (CAR (find I DEXTS (EXT _ (LISTGET FILENAMELIST 'EXTENSION)) in + (CAR (find I DEXTS (EXT ← (LISTGET FILENAMELIST 'EXTENSION)) in IMAGESTREAMTYPES suchthat (thereis E inside (FONTDEVICEPROP (CAR I) 'FONTEXTENSIONS) @@ -2001,11 +1998,11 @@ (T DEVICE))) (CL:WHEN (AND FAMILY SIZE FACE DEVICE) (create FONTSPEC - FSFAMILY _ FAMILY - FSSIZE _ SIZE - FSFACE _ FACE - FSROTATION _ 0 - FSDEVICE _ DEVICE]) + FSFAMILY ← FAMILY + FSSIZE ← SIZE + FSFACE ← FACE + FSROTATION ← 0 + FSDEVICE ← DEVICE]) ) (DEFINEQ @@ -2046,11 +2043,11 @@ (FAMILY (SETQ FAMILY VAL)) (SIZE (SETQ SIZE VAL)) (FACE (SETQ FACE (\FONTFACE VAL))) - (WEIGHT (SETQ FACE (create FONTFACE using FACE WEIGHT _ VAL))) - (SLOPE (SETQ FACE (create FONTFACE using FACE SLOPE _ VAL))) - (EXPANSION (SETQ FACE (create FONTFACE using FACE EXPANSION _ VAL))) - (BACKCOLOR (SETQ FACE (create FONTFACE using FACE BACKCOLOR _ VAL))) - (FORECOLOR (SETQ FACE (create FONTFACE using FACE FORECOLOR _ VAL))) + (WEIGHT (SETQ FACE (create FONTFACE using FACE WEIGHT ← VAL))) + (SLOPE (SETQ FACE (create FONTFACE using FACE SLOPE ← VAL))) + (EXPANSION (SETQ FACE (create FONTFACE using FACE EXPANSION ← VAL))) + (BACKCOLOR (SETQ FACE (create FONTFACE using FACE BACKCOLOR ← VAL))) + (FORECOLOR (SETQ FACE (create FONTFACE using FACE FORECOLOR ← VAL))) (ROTATION (SETQ ROTATION VAL)) (DEVICE (SETQ DEVICE VAL)) (NOERROR (SETQ NOERROR VAL)) @@ -2064,11 +2061,11 @@ (FAMILY (SETQ FAMILY VAL)) (SIZE (SETQ SIZE VAL)) (FACE (SETQ FACE (\FONTFACE VAL))) - (WEIGHT (SETQ FACE (create FONTFACE using FACE WEIGHT _ VAL))) - (SLOPE (SETQ FACE (create FONTFACE using FACE SLOPE _ VAL))) - (EXPANSION (SETQ FACE (create FONTFACE using FACE EXPANSION _ VAL))) - (BACKCOLOR (SETQ FACE (create FONTFACE using FACE BACKCOLOR _ VAL))) - (FORECOLOR (SETQ FACE (create FONTFACE using FACE FORECOLOR _ VAL))) + (WEIGHT (SETQ FACE (create FONTFACE using FACE WEIGHT ← VAL))) + (SLOPE (SETQ FACE (create FONTFACE using FACE SLOPE ← VAL))) + (EXPANSION (SETQ FACE (create FONTFACE using FACE EXPANSION ← VAL))) + (BACKCOLOR (SETQ FACE (create FONTFACE using FACE BACKCOLOR ← VAL))) + (FORECOLOR (SETQ FACE (create FONTFACE using FACE FORECOLOR ← VAL))) (ROTATION (SETQ ROTATION VAL)) (DEVICE (SETQ DEVICE VAL)) (NOERROR (SETQ NOERROR VAL)) @@ -2088,7 +2085,7 @@ else (FONTCREATE FAMILY SIZE FACE ROTATION DEVICE NOERROR]) (FONTP - [LAMBDA (X) (* rmk%: "13-Sep-84 09:04") + [LAMBDA (X) (* rmk%: "13-Sep-84 09:04") (* ; "is X a FONTDESCRIPTOR?") (COND ((OR (type? FONTDESCRIPTOR X) @@ -2117,7 +2114,7 @@ (* ;; "Seems harmless to include a 0 rotation--any caller would have expected that something might appear there.") (* (create FONTSPEC using SPEC FSFACE - _ FACE FSDEVICE _ NIL)) + ← FACE FSDEVICE ← NIL)) (LIST (fetch (FONTSPEC FSFAMILY) of SPEC) (fetch (FONTSPEC FSSIZE) of SPEC) FACE @@ -2142,34 +2139,33 @@ DEVICE]) (\STREAMCHARWIDTH - [LAMBDA (CHARCODE STREAM TTBL) (* JonL " 8-NOV-83 03:31") + [LAMBDA (CHARCODE STREAM TTBL) (* JonL " 8-NOV-83 03:31") (* ;; "Returns the width that the printed representation of CHARCODE would occupy if printed on STREAM, allowing for the various escape sequences. Used by \ECHOCHAR") (SETQ CHARCODE (LOGAND CHARCODE \CHARMASK)) ((LAMBDA (WIDTHSVECTOR) - (* ;; "Note in following that if the DDWIDTHSCACHE exists and has a 0 entry for some character, that may someday mean that the character's glyph simply isn't loaded; e.g., it may want #^A") + (* ;; "Note in following that if the DDWIDTHSCACHE exists and has a 0 entry for some character, that may someday mean that the character's glyph simply isn't loaded; e.g., it may want #↑A") (SETQ WIDTHSVECTOR (OR (AND (DISPLAYSTREAMP STREAM) (SETQ WIDTHSVECTOR (ffetch IMAGEDATA of STREAM)) (ffetch DDWIDTHSCACHE of WIDTHSVECTOR)) \UNITWIDTHSVECTOR)) - (SELECTC (fetch CCECHO of (\SYNCODE (fetch (TERMTABLEP TERMSA) - of (OR (TERMTABLEP TTBL) - \PRIMTERMTABLE)) - CHARCODE)) + (SELECTC (fetch CCECHO of (\SYNCODE (fetch (TERMTABLEP TERMSA) of (OR (TERMTABLEP TTBL) + \PRIMTERMTABLE)) + CHARCODE)) (INDICATE.CCE ([LAMBDA (CC) - (IPLUS (if (IGEQ CHARCODE (CHARCODE %#^@)) - then (* ; - "A META charcode -- implies that the 8th bit is non-zero") - (SETQ CC (LOADBYTE CHARCODE 0 7)) - (\FGETWIDTH WIDTHSVECTOR (CHARCODE %#)) + (IPLUS (if (IGEQ CHARCODE (CHARCODE %#↑@)) + then (* ; + "A META charcode -- implies that the 8th bit is non-zero") + (SETQ CC (LOADBYTE CHARCODE 0 7)) + (\FGETWIDTH WIDTHSVECTOR (CHARCODE %#)) else 0) (if (ILESSP CC (CHARCODE SPACE)) - then (* ; "A CONTROL charcode") - (add CC (CONSTANT (LLSH 1 6))) - (\FGETWIDTH WIDTHSVECTOR (CHARCODE ^)) + then (* ; "A CONTROL charcode") + (add CC (CONSTANT (LLSH 1 6))) + (\FGETWIDTH WIDTHSVECTOR (CHARCODE ↑)) else 0) (\FGETWIDTH WIDTHSVECTOR CC] CHARCODE)) @@ -2182,18 +2178,16 @@ TABWIDTH) (SETQ TABWIDTH (UNFOLD SPACEWIDTH 8)) [add NEWXPOSITON (SETQ TABWIDTH - (IDIFFERENCE - TABWIDTH - (IMOD (IDIFFERENCE NEWXPOSITON - (DSPLEFTMARGIN NIL - STREAM)) - TABWIDTH] - (RETURN (if (IGREATERP NEWXPOSITON (DSPRIGHTMARGIN - NIL STREAM)) - then - (* ; - "tab was past rightmargin, force cr.") - NIL + (IDIFFERENCE TABWIDTH + (IMOD (IDIFFERENCE NEWXPOSITON + (DSPLEFTMARGIN NIL + STREAM)) + TABWIDTH] + (RETURN (if (IGREATERP NEWXPOSITON (DSPRIGHTMARGIN NIL + STREAM)) + then (* ; + "tab was past rightmargin, force cr.") + NIL else TABWIDTH)))) (\FGETWIDTH WIDTHSVECTOR CHARCODE))) (REAL.CCE (SELECTC CHARCODE @@ -2282,10 +2276,10 @@ (fetch (FONTDESCRIPTOR FONTAVGCHARWIDTH) of FONT))) (replace (FONTDESCRIPTOR FONTSLUGWIDTH) of FONT with SLUGWIDTH)) (SETQ CSINFO (create CHARSETINFO - CHARSETASCENT _ (IDIFFERENCE SLUGHEIGHT DESCENT) - CHARSETDESCENT _ DESCENT - CSSLUGP _ T - CSCOMPLETEP _ T)) + CHARSETASCENT ← (IDIFFERENCE SLUGHEIGHT DESCENT) + CHARSETDESCENT ← DESCENT + CSSLUGP ← T + CSCOMPLETEP ← T)) (SETQ WIDTHS (fetch (CHARSETINFO WIDTHS) of CSINFO)) (for I from 0 to \MAXTHINCHAR do (\FSETWIDTH WIDTHS I SLUGWIDTH)) (replace IMAGEWIDTHS OF CSINFO with WIDTHS) @@ -2300,7 +2294,7 @@ CSINFO]) (\FONTSYMBOL - [LAMBDA (X ElseReturnXFlg) (* ; "Edited 28-Jul-88 11:59 by rmk:") + [LAMBDA (X ElseReturnXFlg) (* ; "Edited 28-Jul-88 11:59 by rmk:") (* ; "Edited 24-Mar-87 14:32 by FS") (* ;; "Return a symbol in IL package and is in uppercase. Currently the function IL:U-CASE is believed to do this, but if it changes, this is the font hook. ElseReturnXFlg is if you want an IL symbol if X is a symbol or string, otherwise just X.") @@ -2314,7 +2308,7 @@ (T (ERROR "Want an IL symbol"]) (\DEVICESYMBOL - [LAMBDA (X ElseReturnXFlg) (* ; "Edited 7-Oct-88 20:07 by rmk:") + [LAMBDA (X ElseReturnXFlg) (* ; "Edited 7-Oct-88 20:07 by rmk:") (* ; "Edited 28-Jul-88 14:43 by rmk:") (* ; "Edited 24-Mar-87 14:33 by FS") @@ -2322,8 +2316,7 @@ (LET ((STRM (\GETSTREAM X 'OUTPUT T))) (COND - (STRM (fetch (IMAGEOPS IMFONTCREATE) of (fetch (STREAM IMAGEOPS) of - STRM))) + (STRM (fetch (IMAGEOPS IMFONTCREATE) of (fetch (STREAM IMAGEOPS) of STRM))) ((NULL X) 'DISPLAY) (T (* ; "because its used in ASSOC.") @@ -2451,26 +2444,26 @@ (EQ SLOPE 'REGULAR) (EQ EXPANSION 'REGULAR)) (* ; "BRR") (CONSTANT (create FONTFACE - WEIGHT _ 'BOLD] + WEIGHT ← 'BOLD] [(AND (EQ WEIGHT 'MEDIUM) (EQ SLOPE 'ITALIC) (EQ EXPANSION 'REGULAR)) (* ; "MIR") (CONSTANT (create FONTFACE - SLOPE _ 'ITALIC] + SLOPE ← 'ITALIC] [(AND (EQ WEIGHT 'BOLD) (EQ SLOPE 'ITALIC) (EQ EXPANSION 'REGULAR)) (* ; "BIR") (CONSTANT (create FONTFACE - WEIGHT _ 'BOLD - SLOPE _ 'ITALIC] + WEIGHT ← 'BOLD + SLOPE ← 'ITALIC] (T (* ; "Otherwise, cons up") (create FONTFACE - WEIGHT _ WEIGHT - SLOPE _ SLOPE - EXPANSION _ EXPANSION]) + WEIGHT ← WEIGHT + SLOPE ← SLOPE + EXPANSION ← EXPANSION]) (\FONTFACE.COLOR - [LAMBDA (FACE NOERRORFLG DEV) (* ; "Edited 28-Jul-88 14:51 by rmk:") + [LAMBDA (FACE NOERRORFLG DEV) (* ; "Edited 28-Jul-88 14:51 by rmk:") (* ; "Edited 28-Jul-88 13:09 by rmk:") (* ; "Edited 24-Mar-87 17:03 by FS") @@ -2501,32 +2494,32 @@ [SETQ ANSWER (SELECTQ BWFACE ((* ***) (CONSTANT (create FONTFACE - WEIGHT _ '* - SLOPE _ '* - EXPANSION _ '*))) + WEIGHT ← '* + SLOPE ← '* + EXPANSION ← '*))) ((NIL MRR STANDARD NNN) (CONSTANT (create FONTFACE))) ((ITALIC MIR) (CONSTANT (create FONTFACE - SLOPE _ 'ITALIC))) + SLOPE ← 'ITALIC))) ((BOLD BRR) (CONSTANT (create FONTFACE - WEIGHT _ 'BOLD))) + WEIGHT ← 'BOLD))) ((BOLDITALIC BIR) (CONSTANT (create FONTFACE - WEIGHT _ 'BOLD - SLOPE _ 'ITALIC))) + WEIGHT ← 'BOLD + SLOPE ← 'ITALIC))) (create FONTFACE - WEIGHT _ (SELCHARQ (NTHCHARCODE FACE 1) + WEIGHT ← (SELCHARQ (NTHCHARCODE FACE 1) (M 'MEDIUM) (B 'BOLD) (L 'LIGHT) (GO ERROR)) - SLOPE _ (SELCHARQ (NTHCHARCODE FACE 2) + SLOPE ← (SELCHARQ (NTHCHARCODE FACE 2) (R 'REGULAR) (I 'ITALIC) (GO ERROR)) - EXPANSION _ (SELCHARQ (NTHCHARCODE FACE 3) + EXPANSION ← (SELCHARQ (NTHCHARCODE FACE 3) (R 'REGULAR) (C 'COMPRESSED) (E 'EXPANDED) @@ -2547,12 +2540,10 @@ -1) BITSPERPIXEL)) (* ; - "COPY ANSWER to avoid smashing constants.") + "COPY ANSWER to avoid smashing constants.") (SETQ ANSWER (COPY ANSWER)) - (replace (FONTFACE BACKCOLOR) of ANSWER with BACKCOLOR - ) - (replace (FONTFACE FORECOLOR) of ANSWER with FORECOLOR - ))) + (replace (FONTFACE BACKCOLOR) of ANSWER with BACKCOLOR) + (replace (FONTFACE FORECOLOR) of ANSWER with FORECOLOR))) ANSWER) (T (GO ERROR] @@ -2568,10 +2559,9 @@ (NULL (fetch (FONTFACE COLOR) of ANSWER))) (SETQ FACE (COPY FACE)) (replace (FONTFACE BACKCOLOR) of ANSWER with 0) - (replace (FONTFACE FORECOLOR) of ANSWER with - (MAXIMUMCOLOR ( + (replace (FONTFACE FORECOLOR) of ANSWER with (MAXIMUMCOLOR ( \DISPLAYSTREAMTYPEBPP - DEV))) + DEV))) ANSWER) (T ANSWER))) (RETURN ANSWER) @@ -2645,11 +2635,11 @@ (EQ DEVICE '*] (push $$COLLECT (create FONTSPEC - FSFAMILY _ FM - FSSIZE _ S - FSFACE _ FC - FSROTATION _ R - FSDEVICE _ D)))]) + FSFAMILY ← FM + FSSIZE ← S + FSFACE ← FC + FSROTATION ← R + FSDEVICE ← D)))]) (CL:WHEN CHECKFILESTOO? (* ;  "apply the device font lookup function.") (SETQ FILEFONTS (SGETMULTI \FONTSAVAILABLEFILECACHE FAMILY SIZE FACE ROTATION @@ -2706,7 +2696,7 @@ (SETQ DEVICE (fetch (FONTSPEC FSDEVICE) of FONTSPEC)) (SETQ VAL (OR (CAR (FONTFILES (CL:IF (MEMB (fetch (FONTSPEC FSROTATION) of FONTSPEC) '(90 270)) - (create FONTSPEC using FONTSPEC FSROTATION _ 0) + (create FONTSPEC using FONTSPEC FSROTATION ← 0) FONTSPEC))) (APPLY* (OR (CAR (GETMULTI IMAGESTREAMTYPES DEVICE 'FONTEXISTS?)) (CAR (GETMULTI IMAGESTREAMTYPES DEVICE 'FONTSAVAILABLE)) @@ -2740,7 +2730,7 @@ (LET (FAMILY SIZE FACE ROTATION DEVICE) (SPREADFONTSPEC FONTSPEC) - (for FILEPATTERN FILEDIR FONTSFOUND (FILING.ENUMERATION.DEPTH _ 1) + (for FILEPATTERN FILEDIR FONTSFOUND (FILING.ENUMERATION.DEPTH ← 1) in [\FONTFILENAMES FAMILY SIZE FACE DEVICE (MKLIST (FONTDEVICEPROP DEVICE 'FONTEXTENSIONS] do (SETQ FILEDIR (FILENAMEFIELD FILEPATTERN 'DIRECTORY)) @@ -2829,7 +2819,7 @@ [SETQ DIRLST (MKLIST (FONTDEVICEPROP DEVICE 'FONTDIRECTORIES]) (CL:UNLESS EXTLST [SETQ EXTLST (MKLIST (FONTDEVICEPROP DEVICE 'FONTEXTENSIONS]) - (for FILEPATTERN FILEDIR FONTSFOUND (FILING.ENUMERATION.DEPTH _ 1) + (for FILEPATTERN FILEDIR FONTSFOUND (FILING.ENUMERATION.DEPTH ← 1) IN (\FONTFILENAMES FAMILY SIZE FACE DEVICE EXTLST) do (SETQ FILEDIR (FILENAMEFIELD FILEPATTERN 'DIRECTORY)) (SETQ FILEDIR (CL:IF FILEDIR @@ -2930,10 +2920,10 @@ (CL:UNLESS COLOR (SETQ COLOR (COPY (fetch (FONTFACE COLOR) of BASE)))) (create FONTFACE - WEIGHT _ WEIGHT - SLOPE _ SLOPE - EXPANSION _ EXPANSION - COLOR _ COLOR]) + WEIGHT ← WEIGHT + SLOPE ← SLOPE + EXPANSION ← EXPANSION + COLOR ← COLOR]) (FONTFACETOATOM [LAMBDA (FACE NOERROR) (* ; "Edited 22-Jan-2026 08:13 by rmk") @@ -3043,7 +3033,7 @@ (FONTHASLEFTKERNS FLAG) (* ;  "T if at least one character set has an entry for left kerns") (FONTEXTRAFIELD2 POINTER)) - FONTCHARSETVECTOR _ (\CREATEFONTCHARSETVECTOR) + FONTCHARSETVECTOR ← (\CREATEFONTCHARSETVECTOR) (INIT (DEFPRINT 'FONTDESCRIPTOR (FUNCTION FONTDESCRIPTOR.DEFPRINT)))) (RECORD FONTFACE (WEIGHT SLOPE EXPANSION) @@ -3068,7 +3058,7 @@ (LIST NIL NIL] (RPLACA (CDR (CDDDR DATUM)) NEWVALUE] - WEIGHT _ 'MEDIUM SLOPE _ 'REGULAR EXPANSION _ 'REGULAR (TYPE? LISTP)) + WEIGHT ← 'MEDIUM SLOPE ← 'REGULAR EXPANSION ← 'REGULAR (TYPE? LISTP)) (DATATYPE CHARSETINFO (WIDTHS (* ; "The advance-width of each character, an array indexed by charcode. Usually the same as the imagewidth, but can differ for accents, kerns kerns. This is what should be used for stringwidth calculations.") (CSSLUGP FLAG) (* ; "True if this is a slug charset") @@ -3087,9 +3077,9 @@ LEFTKERN CSINFOPROPS (* ; "Alist of extra properties") (CHARSETNO WORD)) (* ;  "The number of this CSINFO in its font--MAX.SMALLP if not initialized") - WIDTHS _ (\CREATECSINFOELEMENT) - OFFSETS _ (\CREATECSINFOELEMENT) - CHARSETNO _ MAX.SMALLP) + WIDTHS ← (\CREATECSINFOELEMENT) + OFFSETS ← (\CREATECSINFOELEMENT) + CHARSETNO ← MAX.SMALLP) (RECORD FONTSPEC (FSFAMILY FSSIZE FSFACE FSROTATION FSDEVICE) (TYPE? LISTP)) @@ -3489,15 +3479,15 @@ then (APPLY* FN FONTSPEC) else (APPLY FN FONTSPEC))))) else (SETQ FONT (create FONTDESCRIPTOR - FONTFAMILY _ (fetch (FONTSPEC FSFAMILY) of FONTSPEC) - FONTSIZE _ (fetch (FONTSPEC FSSIZE) of FONTSPEC) - FONTFACE _ (fetch (FONTSPEC FSFACE) of FONTSPEC) - ROTATION _ (fetch (FONTSPEC FSROTATION) of FONTSPEC) - FONTDEVICE _ (fetch (FONTSPEC FSDEVICE) of FONTSPEC) - \SFAscent _ 0 - \SFDescent _ 0 - \SFHeight _ 0 - FONTDEVICESPEC _ (create FONTSPEC using FONTSPEC] + FONTFAMILY ← (fetch (FONTSPEC FSFAMILY) of FONTSPEC) + FONTSIZE ← (fetch (FONTSPEC FSSIZE) of FONTSPEC) + FONTFACE ← (fetch (FONTSPEC FSFACE) of FONTSPEC) + ROTATION ← (fetch (FONTSPEC FSROTATION) of FONTSPEC) + FONTDEVICE ← (fetch (FONTSPEC FSDEVICE) of FONTSPEC) + \SFAscent ← 0 + \SFDescent ← 0 + \SFHeight ← 0 + FONTDEVICESPEC ← (create FONTSPEC using FONTSPEC] FONT]) (\CREATECHARSET @@ -3626,9 +3616,9 @@ [LAMBDA (CSINFO FIRSTCHAR LASTCHAR) (* ; "Edited 3-Aug-2025 20:59 by rmk") (* ; "Edited 1-Aug-2025 23:50 by rmk") (* AJB " 6-Dec-85 14:42") - (for CHARCODE LEFT RIGHT SLUGCHAROFFSET SLUGCHARWIDTH (OFFSETS _ (fetch (CHARSETINFO OFFSETS) + (for CHARCODE LEFT RIGHT SLUGCHAROFFSET SLUGCHARWIDTH (OFFSETS ← (fetch (CHARSETINFO OFFSETS) of CSINFO)) - (WIDTHS _ (fetch (CHARSETINFO WIDTHS) of CSINFO)) from 0 to SLUGCHARINDEX + (WIDTHS ← (fetch (CHARSETINFO WIDTHS) of CSINFO)) from 0 to SLUGCHARINDEX first (SETQ SLUGCHAROFFSET (\FGETOFFSET OFFSETS SLUGCHARINDEX)) (SETQ SLUGCHARWIDTH (IDIFFERENCE (\FGETOFFSET OFFSETS (ADD1 SLUGCHARINDEX)) SLUGCHAROFFSET)) @@ -3687,15 +3677,15 @@ (* ;; "FONTEXISTS? has determined that there is at least one source file for this font, so the font exists in at least some character sets, d FONTCREATED1 tells us that the font descriptor is not yet availabe.") (create FONTDESCRIPTOR - FONTFAMILY _ (fetch (FONTSPEC FSFAMILY) of FONTSPEC) - FONTSIZE _ (fetch (FONTSPEC FSSIZE) of FONTSPEC) - FONTFACE _ (fetch (FONTSPEC FSFACE) of FONTSPEC) - ROTATION _ (fetch (FONTSPEC FSROTATION) of FONTSPEC) - FONTDEVICE _ (fetch (FONTSPEC FSDEVICE) of FONTSPEC) - \SFAscent _ 0 - \SFDescent _ 0 - \SFHeight _ 0 - FONTDEVICESPEC _ (create FONTSPEC using FONTSPEC]) + FONTFAMILY ← (fetch (FONTSPEC FSFAMILY) of FONTSPEC) + FONTSIZE ← (fetch (FONTSPEC FSSIZE) of FONTSPEC) + FONTFACE ← (fetch (FONTSPEC FSFACE) of FONTSPEC) + ROTATION ← (fetch (FONTSPEC FSROTATION) of FONTSPEC) + FONTDEVICE ← (fetch (FONTSPEC FSDEVICE) of FONTSPEC) + \SFAscent ← 0 + \SFDescent ← 0 + \SFHeight ← 0 + FONTDEVICESPEC ← (create FONTSPEC using FONTSPEC]) (\CREATECHARSET.DISPLAY [LAMBDA (FONTSPEC FONT CHARSET) (* ; "Edited 7-Oct-2025 17:05 by rmk") @@ -3748,14 +3738,14 @@ )) (CL:WHEN (SETQ CSINFO (\CREATECHARSET.DISPLAY (create FONTSPEC using FONTSPEC - FSROTATION _ 0) + FSROTATION ← 0) FONT CHARSET)) (\SFROTATECSINFO CSINFO ROTATION)) elseif (OR (KANJICHARSETP CHARSET) (CHINESECHARSETP CHARSET)) then (CL:UNLESS (EQUAL FACE '(MEDIUM REGULAR REGULAR)) (\CREATECHARSET.DISPLAY (create FONTSPEC - using FONTSPEC FSFACE _ + using FONTSPEC FSFACE ← '(MEDIUM REGULAR REGULAR)) FONT CHARSET)) elseif (EQ 'BOLD (fetch (FONTFACE WEIGHT) of FACE)) @@ -3764,7 +3754,7 @@ then (MAKEITALIC.CHARSET FONTSPEC CHARSET FONT) elseif (EQ 'COMPRESSED (fetch (FONTFACE EXPANSION) of FACE)) then (\CREATECHARSET.DISPLAY (create FONTSPEC - using FONTSPEC FSFACE _ + using FONTSPEC FSFACE ← '(MEDIUM REGULAR REGULAR)) FONT CHARSET))) CSINFO]) @@ -3785,16 +3775,16 @@ (LET ((FACE (fetch (FONTSPEC FSFACE) of FONTSPEC))) (OR [AND (EQ 'BOLD (fetch (FONTFACE WEIGHT) of FACE)) - (FONTEXISTS? (create FONTSPEC using FONTSPEC FSFACE _ - (create FONTFACE using FACE WEIGHT _ + (FONTEXISTS? (create FONTSPEC using FONTSPEC FSFACE ← + (create FONTFACE using FACE WEIGHT ← 'MEDIUM] [AND (EQ 'ITALIC (fetch (FONTFACE SLOPE) of FACE)) - (FONTEXISTS? (create FONTSPEC using FONTSPEC FSFACE _ - (create FONTFACE using FACE SLOPE _ + (FONTEXISTS? (create FONTSPEC using FONTSPEC FSFACE ← + (create FONTFACE using FACE SLOPE ← 'REGULAR] [AND (EQ 'COMPRESSED (fetch (FONTFACE EXPANSION) of FACE)) - (FONTEXISTS? (create FONTSPEC using FONTSPEC FSFACE _ - (create FONTFACE using FACE EXPANSION _ + (FONTEXISTS? (create FONTSPEC using FONTSPEC FSFACE ← + (create FONTFACE using FACE EXPANSION ← 'REGULAR] (COERCEFONTSPEC FONTSPEC (APPEND (FONTDEVICEPROP 'DISPLAY 'FONTCOERCIONS) (FONTDEVICEPROP 'DISPLAY 'CHARCOERCIONS]) @@ -3881,7 +3871,7 @@  "J starts at 1 because we know that the offset of J=0 is 0 ?") (\FSETOFFSET OFFSETS I (\WIN STRM))) - (for I (SLUGOFFSET _ (\WIN STRM)) from 0 to \MAXTHINCHAR + (for I (SLUGOFFSET ← (\WIN STRM)) from 0 to \MAXTHINCHAR when (EQ 0 (\FGETOFFSET OFFSETS I)) unless (EQ I FIRSTCHAR) do (\FSETOFFSET OFFSETS I SLUGOFFSET) finally (\FSETOFFSET OFFSETS SLUGCHARINDEX SLUGOFFSET) @@ -3955,7 +3945,7 @@ (ITIMES 2 RASTERWIDTH (IPLUS (fetch (CHARSETINFO CHARSETASCENT) of CSINFO) (fetch (CHARSETINFO CHARSETDESCENT) of CSINFO] (* ; "Offsets. ") - [for I (OFFSET _ 0) from FIRSTCHAR to LASTCHAR first (\WOUT STREAM OFFSET) + [for I (OFFSET ← 0) from FIRSTCHAR to LASTCHAR first (\WOUT STREAM OFFSET) (* ; "Offset of the first char") do (CL:UNLESS (EQ SLUGOFFSET (\FGETOFFSET OFFSETS I)) (* ; @@ -3968,7 +3958,7 @@ (CLOSEF STREAM]) (STRIKECSINFO - [LAMBDA (CSINFO) (* ; "Edited 27-Apr-89 13:39 by atm") + [LAMBDA (CSINFO) (* ; "Edited 27-Apr-89 13:39 by atm") (* ;; "Returns a STRIKE type font descriptor (EQ WIDTHS IMAGEWIDTHS), cause we know how to write those guys out (they read quicker but display slower). If (EQ WIDTHS IMAGEWIDTHS), just return original.") @@ -3984,9 +3974,9 @@ (SETQ BMHEIGHT (BITMAPHEIGHT OLDBM)) [SETQ BMWIDTH (for I from 0 to \MAXTHINCHAR sum (if (IEQP DUMMYOFFSET (\FGETOFFSET OFFSETS I)) - then 0 - else (IMAX (\FGETIMAGEWIDTH IMWIDTHS I) - (\FGETWIDTH WIDTHS I] + then 0 + else (IMAX (\FGETIMAGEWIDTH IMWIDTHS I) + (\FGETWIDTH WIDTHS I] (* ;; "") @@ -4007,17 +3997,17 @@ (SETQ NEWBM (BITMAPCREATE BMWIDTH BMHEIGHT 1)) (SETQ NEWOFFSET 0) - [for I from 0 to 255 - do (SETQ OLDOFFSET (\FGETOFFSET OFFSETS I)) - (if (IEQP DUMMYOFFSET OLDOFFSET) - then (\FSETOFFSET NEWOFFSETS I BMWIDTH) - else (\FSETOFFSET NEWOFFSETS I NEWOFFSET) - (SETQ NEWWIDTH (IMAX (\FGETIMAGEWIDTH IMWIDTHS I) - (\FGETWIDTH WIDTHS I))) - (BITBLT OLDBM OLDOFFSET 0 NEWBM NEWOFFSET 0 (\FGETWIDTH IMWIDTHS I) - BMHEIGHT - 'REPLACE) - (SETQ NEWOFFSET (IPLUS NEWOFFSET NEWWIDTH] + [for I from 0 to 255 do (SETQ OLDOFFSET (\FGETOFFSET OFFSETS I)) + (if (IEQP DUMMYOFFSET OLDOFFSET) + then (\FSETOFFSET NEWOFFSETS I BMWIDTH) + else (\FSETOFFSET NEWOFFSETS I NEWOFFSET) + (SETQ NEWWIDTH (IMAX (\FGETIMAGEWIDTH IMWIDTHS I) + (\FGETWIDTH WIDTHS I))) + (BITBLT OLDBM OLDOFFSET 0 NEWBM NEWOFFSET 0 (\FGETWIDTH + IMWIDTHS I) + BMHEIGHT + 'REPLACE) + (SETQ NEWOFFSET (IPLUS NEWOFFSET NEWWIDTH] (* ;; "") @@ -4026,17 +4016,16 @@ (* ;; "") (SETQ WIDTHS (COPYALL WIDTHS)) - [for I from 0 to \MAXTHINCHAR do (\FSETWIDTH WIDTHS I - (IMAX (\FGETWIDTH WIDTHS I) - (\FGETIMAGEWIDTH IMWIDTHS I] + [for I from 0 to \MAXTHINCHAR do (\FSETWIDTH WIDTHS I (IMAX (\FGETWIDTH WIDTHS I) + (\FGETIMAGEWIDTH IMWIDTHS I] (RETURN (create CHARSETINFO - WIDTHS _ WIDTHS - OFFSETS _ NEWOFFSETS - IMAGEWIDTHS _ WIDTHS - CHARSETBITMAP _ NEWBM - YWIDTHS _ (fetch (CHARSETINFO YWIDTHS) of CSINFO) - CHARSETASCENT _ (fetch (CHARSETINFO CHARSETASCENT) of CSINFO) - CHARSETDESCENT _ (fetch (CHARSETINFO CHARSETDESCENT) of CSINFO]) + WIDTHS ← WIDTHS + OFFSETS ← NEWOFFSETS + IMAGEWIDTHS ← WIDTHS + CHARSETBITMAP ← NEWBM + YWIDTHS ← (fetch (CHARSETINFO YWIDTHS) of CSINFO) + CHARSETASCENT ← (fetch (CHARSETINFO CHARSETASCENT) of CSINFO) + CHARSETDESCENT ← (fetch (CHARSETINFO CHARSETDESCENT) of CSINFO]) ) @@ -4056,11 +4045,11 @@ (* ;; "BOLD is requested in FACE, so we look for an MRR or MIR that we can bold. If we find one, we presume that it is complete for all characters in its face. But there may be other fonts in the coercion chain that have true information about the bold face that we are after. We look for those before we try to adjust the characters in the non-bold CSINFO that we found.") - (LET ([MFONT (FONTCREATE1 (create FONTSPEC using FONTSPEC FSFACE _ (create FONTFACE + (LET ([MFONT (FONTCREATE1 (create FONTSPEC using FONTSPEC FSFACE ← (create FONTFACE using (fetch (FONTSPEC FSFACE) of FONTSPEC) - WEIGHT _ 'MEDIUM] + WEIGHT ← 'MEDIUM] CSINFO) (* ;; "MFONT is the corresponding Medium font.") @@ -4074,7 +4063,7 @@ of MFONT)) (SETQ CSINFO (COPYALL CSINFO)) (* ; "CSINFO is now the CS to be bolded") (\SETCHARSETINFO FONT CHARSET CSINFO) - (for CODE SOURCEFONT (CHARCOERCIONS _ (FONTDEVICEPROP FONT 'CHARCOERCIONS)) + (for CODE SOURCEFONT (CHARCOERCIONS ← (FONTDEVICEPROP FONT 'CHARCOERCIONS)) from (FIRSTCHARSETCODE CHARSET) to (LASTCHARSETCODE CHARSET) do (if (SLUGCHARP.DISPLAY CODE FONT) then @@ -4127,11 +4116,11 @@ (* ;; "ITALIC is requested, so we look for an MRR or MIR that we can italicize. If we find one, we presume that it is complete for all characters in its face. But there may be other fonts in the coercion chain that have true information about the italic face that we are after. We look for those before we try to adjust the characters in non-italic CSINFO that we found.") - (LET ([RFONT (FONTCREATE1 (create FONTSPEC using FONTSPEC FSFACE _ (create FONTFACE + (LET ([RFONT (FONTCREATE1 (create FONTSPEC using FONTSPEC FSFACE ← (create FONTFACE using (fetch (FONTSPEC FSFACE) of FONTSPEC) - SLOPE _ 'REGULAR] + SLOPE ← 'REGULAR] CSINFO) (* ;; "RFONT is the corresponding Regular font.") @@ -4146,7 +4135,7 @@ (SETQ CSINFO (COPYALL CSINFO)) (* ;  "CSINFO is now the CS to be italicized") (\SETCHARSETINFO FONT CHARSET CSINFO) - (for CODE SOURCEFONT (CHARCOERCIONS _ (FONTDEVICEPROP FONT 'CHARCOERCIONS)) + (for CODE SOURCEFONT (CHARCOERCIONS ← (FONTDEVICEPROP FONT 'CHARCOERCIONS)) from (FIRSTCHARSETCODE CHARSET) to (LASTCHARSETCODE CHARSET) do (if (SLUGCHARP.DISPLAY CODE FONT) then @@ -4229,7 +4218,7 @@  "fill in the slug for the magic charcode") (BITBLT OLDCHARBITMAP SLUGOFFSET 0 NEWCHARBITMAP SLUGOFFSET 0 SLUGWIDTH HEIGHT 'INPUT 'REPLACE) - (create CHARSETINFO using CSINFO CHARSETBITMAP _ NEWCHARBITMAP]) + (create CHARSETINFO using CSINFO CHARSETBITMAP ← NEWCHARBITMAP]) (\SFMAKEITALIC [LAMBDA (CSINFO) (* ; "Edited 16-Jun-2025 23:20 by rmk") @@ -4267,12 +4256,12 @@ 'INPUT 'REPLACE))] (BITBLT OLDBITMAP SLUGOFFSET 0 NEWBITMAP SLUGOFFSET 0 SLUGWIDTH HEIGHT 'INPUT 'REPLACE) - (create CHARSETINFO using CSINFO CHARSETBITMAP _ NEWBITMAP]) + (create CHARSETINFO using CSINFO CHARSETBITMAP ← NEWBITMAP]) ) (DEFINEQ (\SFMAKEROTATEDFONT - [LAMBDA (FONTDESC ROTATION) (* ; "Edited 30-Mar-87 20:35 by FS") + [LAMBDA (FONTDESC ROTATION) (* ; "Edited 30-Mar-87 20:35 by FS") (* ;; "takes a fontdecriptor and rotates it.") @@ -4280,33 +4269,31 @@ (HELP "ROTATED fonts need to be fixed for NS Chars & New FONTDESCRIPTOR fields") (* (create FONTDESCRIPTOR using - FONTDESC (SETQ CHARACTERBITMAP - (\SFROTATEFONTCHARACTERS - (fetch (FONTDESCRIPTOR - CHARACTERBITMAP) of FONTDESC) - ROTATION)) (SETQ ROTATION ROTATION) - (SETQ \SFOffsets ( - \SFFIXOFFSETSAFTERROTATION FONTDESC - ROTATION)) (SETQ FONTCHARSETVECTOR - (\ALLOCBLOCK (ADD1 \MAXCHARSET) T)))) + FONTDESC (SETQ CHARACTERBITMAP + (\SFROTATEFONTCHARACTERS + (fetch (FONTDESCRIPTOR CHARACTERBITMAP) + of FONTDESC) ROTATION)) (SETQ ROTATION ROTATION) (SETQ \SFOffsets (\SFFIXOFFSETSAFTERROTATION + FONTDESC ROTATION)) (SETQ + FONTCHARSETVECTOR (\ALLOCBLOCK + (ADD1 \MAXCHARSET) T)))) (* ;; "If you uncomment out the code above, remove this comment and the NIL below") NIL]) (\SFROTATECSINFO - [LAMBDA (CSINFO ROTATION) (* gbn "15-Sep-85 14:38") + [LAMBDA (CSINFO ROTATION) (* gbn "15-Sep-85 14:38") (* ;; "takes a CHARSETINFO and rotates it and produces a rotated equivalent one.") - (create CHARSETINFO using CSINFO CHARSETBITMAP _ (\SFROTATEFONTCHARACTERS - (fetch (CHARSETINFO CHARSETBITMAP) - of CSINFO) - ROTATION) - OFFSETS _ (\SFROTATECSINFOOFFSETS CSINFO ROTATION]) + (create CHARSETINFO using CSINFO CHARSETBITMAP ← (\SFROTATEFONTCHARACTERS (fetch (CHARSETINFO + CHARSETBITMAP) + of CSINFO) + ROTATION) + OFFSETS ← (\SFROTATECSINFOOFFSETS CSINFO ROTATION]) (\SFROTATEFONTCHARACTERS - [LAMBDA (CHARBITMAP ROTATION) (* ; "Edited 22-Sep-87 10:38 by Snow") + [LAMBDA (CHARBITMAP ROTATION) (* ; "Edited 22-Sep-87 10:38 by Snow") (* ;;; "rotate a bitmap either 90 or 270 for fonts.") @@ -4343,7 +4330,7 @@ (DEFINEQ (\SFMAKECOLOR - [LAMBDA (BWCSINFO BACKCOLOR FORECOLOR BITSPERPIXEL) (* kbr%: " 6-Feb-86 18:17") + [LAMBDA (BWCSINFO BACKCOLOR FORECOLOR BITSPERPIXEL) (* kbr%: " 6-Feb-86 18:17") (* ;; "makes a csinfo that has a character bitmap that is colorized.") @@ -4359,12 +4346,9 @@ (T (\DISPLAYSTREAMTYPEBPP BITSPERPIXEL] (SETQ BACKCOLOR (COLORNUMBERP BACKCOLOR BITSPERPIXEL)) (SETQ FORECOLOR (COLORNUMBERP FORECOLOR BITSPERPIXEL)) - (SETQ CHARACTERBITMAP (COLORIZEBITMAP (fetch (CHARSETINFO CHARSETBITMAP) of - BWCSINFO - ) + (SETQ CHARACTERBITMAP (COLORIZEBITMAP (fetch (CHARSETINFO CHARSETBITMAP) of BWCSINFO) BACKCOLOR FORECOLOR BITSPERPIXEL)) - (SETQ COLORCSINFO (create CHARSETINFO using BWCSINFO CHARSETBITMAP _ - CHARACTERBITMAP)) + (SETQ COLORCSINFO (create CHARSETINFO using BWCSINFO CHARSETBITMAP ← CHARACTERBITMAP)) (RETURN COLORCSINFO]) ) (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: DOEVAL@COMPILE DONTCOPY @@ -4496,43 +4480,43 @@ (ADDTOVAR LAMA FONTCOPY) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (11417 21130 (CHARWIDTH 11427 . 12212) (CHARWIDTHY 12214 . 13731) (STRINGWIDTH 13733 . -14826) (\CHARWIDTH.DISPLAY 14828 . 15241) (\STRINGWIDTH.DISPLAY 15243 . 15667) (\STRINGWIDTH.GENERIC -15669 . 21128)) (21131 27651 (DEFAULTFONT 21141 . 22426) (FONTCLASS 22428 . 24590) (FONTCLASSUNPARSE -24592 . 25491) (FONTCLASSCOMPONENT 25493 . 26081) (SETFONTCLASSCOMPONENT 26083 . 26525) ( -GETFONTCLASSCOMPONENT 26527 . 27649)) (29364 47382 (FONTCREATE 29374 . 32619) (FONTCREATE1 32621 . -35236) (FONTCREATE.SLUGFD 35238 . 36720) (\FONT.CHECKARGS1 36722 . 41427) (\FONTCREATE1.NOFN 41429 . -41643) (FONTFILEP 41645 . 42533) (\READCHARSET 42535 . 47380)) (47383 54459 (\FONT.CHECKARGS 47393 . -54142) (\CHARSET.CHECK 54144 . 54457)) (54460 61071 (COERCEFONTSPEC 54470 . 60382) ( -COERCEFONTSPEC.TARGETFACE 60384 . 61069)) (63266 64605 (MAKEFONTSPEC 63276 . 64603)) (64606 72783 ( -COMPLETE.FONT 64616 . 67139) (COMPLETEFONTP 67141 . 67764) (COMPLETE.CHARSET 67766 . 70451) ( -PRUNESLUGCSINFOS 70453 . 71378) (MONOSPACEFONTP 71380 . 72781)) (72822 81268 (FONTASCENT 72832 . 73216 -) (FONTDESCENT 73218 . 73703) (FONTHEIGHT 73705 . 74107) (FONTPROP 74109 . 80545) (\AVGCHARWIDTH 80547 - . 81266)) (81925 82833 (FONTDEVICEPROP 81935 . 82831)) (82879 83733 (EDITCHAR 82889 . 83731)) (83779 -95969 (GETCHARBITMAP 83789 . 84913) (PUTCHARBITMAP 84915 . 87073) (\GETCHARBITMAP.CSINFO 87075 . 89091 -) (\PUTCHARBITMAP.CSINFO 89093 . 95967)) (95970 116450 (MOVECHARBITMAP 95980 . 97874) (MOVEFONTCHARS -97876 . 101836) (\MOVEFONTCHAR 101838 . 106681) (\MOVEFONTCHARS.SOURCEDATA 106683 . 112788) ( -\MAKESLUGCHAR 112790 . 115325) (SLUGCHARP.DISPLAY 115327 . 116448)) (117108 128945 (FONTFILES 117118 - . 118951) (\FINDFONTFILE 118953 . 120930) (\FONTFILENAMES 120932 . 121492) (\FONTFILENAME 121494 . -124405) (FONTSPECFROMFILENAME 124407 . 128943)) (128946 165521 (FONTCOPY 128956 . 134019) (FONTP -134021 . 134320) (FONTUNPARSE 134322 . 136041) (SETFONTDESCRIPTOR 136043 . 137507) (\STREAMCHARWIDTH -137509 . 141673) (\COERCECHARSET 141675 . 145042) (\BUILDSLUGCSINFO 145044 . 148667) (\FONTSYMBOL -148669 . 149319) (\DEVICESYMBOL 149321 . 150190) (\FONTFACE 150192 . 157382) (\FONTFACE.COLOR 157384 - . 164304) (SETFONTCHARENCODING 164306 . 165519)) (165522 185183 (FONTSAVAILABLE 165532 . 170886) ( -FONTEXISTS? 170888 . 174427) (\SEARCHFONTFILES 174429 . 177514) (FLUSHFONTCACHE 177516 . 179739) ( -FINDFONTFILES 179741 . 182955) (SORTFONTSPECS 182957 . 185181)) (185184 189291 (MATCHFONTFACE 185194 - . 186009) (MAKEFONTFACE 186011 . 187037) (FONTFACETOATOM 187039 . 189289)) (189922 190414 ( -\UNITWIDTHSVECTOR 189932 . 190412)) (205043 207110 (FONTDESCRIPTOR.DEFPRINT 205053 . 206632) ( -FONTCLASS.DEFPRINT 206634 . 207108)) (210939 213729 (\CREATEKERNELEMENT 210949 . 211307) ( -\FSETLEFTKERN 211309 . 211800) (\FGETLEFTKERN 211802 . 213727)) (213730 225378 (\CREATEFONT 213740 . -216618) (\CREATECHARSET 216620 . 221129) (\INSTALLCHARSETINFO 221131 . 224465) ( -\INSTALLCHARSETINFO.CHARENCODING 224467 . 225376)) (225700 227064 (\FONTRESETCHARWIDTHS 225710 . -227062)) (227694 237735 (\CREATEDISPLAYFONT 227704 . 229553) (\CREATECHARSET.DISPLAY 229555 . 235264) -(\FONTEXISTS?.DISPLAY 235266 . 237733)) (237736 252601 (STRIKEFONT.FILEP 237746 . 238634) ( -STRIKEFONT.GETCHARSET 238636 . 244228) (WRITESTRIKEFONTFILE 244230 . 249141) (STRIKECSINFO 249143 . -252599)) (252632 268949 (MAKEBOLD.CHARSET 252642 . 256291) (MAKEBOLD.CHAR 256293 . 258045) ( -MAKEITALIC.CHARSET 258047 . 261720) (MAKEITALIC.CHAR 261722 . 264068) (\SFMAKEBOLD 264070 . 266294) ( -\SFMAKEITALIC 266296 . 268947)) (268950 273099 (\SFMAKEROTATEDFONT 268960 . 270361) (\SFROTATECSINFO -270363 . 271000) (\SFROTATEFONTCHARACTERS 271002 . 271382) (\SFROTATECSINFOOFFSETS 271384 . 273097)) ( -273100 274481 (\SFMAKECOLOR 273110 . 274479))))) + (FILEMAP (NIL (11390 21057 (CHARWIDTH 11400 . 12189) (CHARWIDTHY 12191 . 13708) (STRINGWIDTH 13710 . +14747) (\CHARWIDTH.DISPLAY 14749 . 15164) (\STRINGWIDTH.DISPLAY 15166 . 15594) (\STRINGWIDTH.GENERIC +15596 . 21055)) (21058 27690 (DEFAULTFONT 21068 . 22353) (FONTCLASS 22355 . 24627) (FONTCLASSUNPARSE +24629 . 25530) (FONTCLASSCOMPONENT 25532 . 26120) (SETFONTCLASSCOMPONENT 26122 . 26564) ( +GETFONTCLASSCOMPONENT 26566 . 27688)) (29403 47443 (FONTCREATE 29413 . 32658) (FONTCREATE1 32660 . +35275) (FONTCREATE.SLUGFD 35277 . 36781) (\FONT.CHECKARGS1 36783 . 41488) (\FONTCREATE1.NOFN 41490 . +41704) (FONTFILEP 41706 . 42594) (\READCHARSET 42596 . 47441)) (47444 54520 (\FONT.CHECKARGS 47454 . +54203) (\CHARSET.CHECK 54205 . 54518)) (54521 61132 (COERCEFONTSPEC 54531 . 60443) ( +COERCEFONTSPEC.TARGETFACE 60445 . 61130)) (63327 64676 (MAKEFONTSPEC 63337 . 64674)) (64677 72854 ( +COMPLETE.FONT 64687 . 67210) (COMPLETEFONTP 67212 . 67835) (COMPLETE.CHARSET 67837 . 70522) ( +PRUNESLUGCSINFOS 70524 . 71449) (MONOSPACEFONTP 71451 . 72852)) (72893 81351 (FONTASCENT 72903 . 73287 +) (FONTDESCENT 73289 . 73774) (FONTHEIGHT 73776 . 74178) (FONTPROP 74180 . 80628) (\AVGCHARWIDTH 80630 + . 81349)) (82008 82916 (FONTDEVICEPROP 82018 . 82914)) (82962 83816 (EDITCHAR 82972 . 83814)) (83862 +96052 (GETCHARBITMAP 83872 . 84996) (PUTCHARBITMAP 84998 . 87156) (\GETCHARBITMAP.CSINFO 87158 . 89174 +) (\PUTCHARBITMAP.CSINFO 89176 . 96050)) (96053 116547 (MOVECHARBITMAP 96063 . 97957) (MOVEFONTCHARS +97959 . 101919) (\MOVEFONTCHAR 101921 . 106768) (\MOVEFONTCHARS.SOURCEDATA 106770 . 112885) ( +\MAKESLUGCHAR 112887 . 115422) (SLUGCHARP.DISPLAY 115424 . 116545)) (117205 129054 (FONTFILES 117215 + . 119048) (\FINDFONTFILE 119050 . 121027) (\FONTFILENAMES 121029 . 121589) (\FONTFILENAME 121591 . +124502) (FONTSPECFROMFILENAME 124504 . 129052)) (129055 165304 (FONTCOPY 129065 . 134148) (FONTP +134150 . 134449) (FONTUNPARSE 134451 . 136174) (SETFONTDESCRIPTOR 136176 . 137640) (\STREAMCHARWIDTH +137642 . 141653) (\COERCECHARSET 141655 . 145022) (\BUILDSLUGCSINFO 145024 . 148655) (\FONTSYMBOL +148657 . 149311) (\DEVICESYMBOL 149313 . 150097) (\FONTFACE 150099 . 157303) (\FONTFACE.COLOR 157305 + . 164087) (SETFONTCHARENCODING 164089 . 165302)) (165305 184982 (FONTSAVAILABLE 165315 . 170679) ( +FONTEXISTS? 170681 . 174222) (\SEARCHFONTFILES 174224 . 177311) (FLUSHFONTCACHE 177313 . 179536) ( +FINDFONTFILES 179538 . 182754) (SORTFONTSPECS 182756 . 184980)) (184983 189098 (MATCHFONTFACE 184993 + . 185808) (MAKEFONTFACE 185810 . 186844) (FONTFACETOATOM 186846 . 189096)) (189729 190221 ( +\UNITWIDTHSVECTOR 189739 . 190219)) (204864 206931 (FONTDESCRIPTOR.DEFPRINT 204874 . 206453) ( +FONTCLASS.DEFPRINT 206455 . 206929)) (210760 213550 (\CREATEKERNELEMENT 210770 . 211128) ( +\FSETLEFTKERN 211130 . 211621) (\FGETLEFTKERN 211623 . 213548)) (213551 225217 (\CREATEFONT 213561 . +216457) (\CREATECHARSET 216459 . 220968) (\INSTALLCHARSETINFO 220970 . 224304) ( +\INSTALLCHARSETINFO.CHARENCODING 224306 . 225215)) (225539 226907 (\FONTRESETCHARWIDTHS 225549 . +226905)) (227537 237614 (\CREATEDISPLAYFONT 227547 . 229414) (\CREATECHARSET.DISPLAY 229416 . 235131) +(\FONTEXISTS?.DISPLAY 235133 . 237612)) (237615 252620 (STRIKEFONT.FILEP 237625 . 238513) ( +STRIKEFONT.GETCHARSET 238515 . 244109) (WRITESTRIKEFONTFILE 244111 . 249024) (STRIKECSINFO 249026 . +252618)) (252651 268984 (MAKEBOLD.CHARSET 252661 . 256316) (MAKEBOLD.CHAR 256318 . 258070) ( +MAKEITALIC.CHARSET 258072 . 261751) (MAKEITALIC.CHAR 261753 . 264099) (\SFMAKEBOLD 264101 . 266327) ( +\SFMAKEITALIC 266329 . 268982)) (268985 273009 (\SFMAKEROTATEDFONT 268995 . 270229) (\SFROTATECSINFO +270231 . 270906) (\SFROTATEFONTCHARACTERS 270908 . 271292) (\SFROTATECSINFOOFFSETS 271294 . 273007)) ( +273010 274184 (\SFMAKECOLOR 273020 . 274182))))) STOP diff --git a/sources/FONT.LCOM b/sources/FONT.LCOM index 4d534cc76697fe8dd547bb1654233dc3b9321daf..10c2ab6a6667724c66c63137f8bf9b4a96eab295 100644 GIT binary patch delta 211 zcmex7h2{PfmI-bq3UY4#LB5V53UZ+#Zn_qlTwEG%o<6S5L9UJ=t}Y5nMh3cWsY$v< z21aHIhDKJVCRQdE6SH+BO*Iv`lngBql14^WCMH&fCKETvFj`JLD{g@yXJn+LN!WCg z$uf*GYNiTC=H`YL1`1ZLE}kK}PLT>lx!DR<0YR=|p8lc1x-LN1DR50@XEbWw%(#6s IBjW)M0NC<0X#fBK delta 234 zcmcaVh2`@UmI-bGnp|8OZk|4_&Oxq@A+9b8lXDrxC)Q|5nrJF;DH&Smx}_%R8W|Xw zDHxhr8Jk;~nois=V~r%Nr>Cc+kdj!EnxcTA+``JhL`f6Fe4|(eBXe^Tb8`hNR~OF^ zU8hKeqTFl+D`yW!KX=z)-4K5T4L84F1+Ex3f4>ktXAf6rZ^t0_U_(s>tAHTaFi-!` mU|koWYk@YJAUV+3%Fx8hz+$pCqYR^Q^L)nb^BEZrZ~y>)^*b;C