From 9660232d6eec27f9b182dfb2c39cfb8ff2232ece Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Mon, 27 Jun 2022 11:49:36 -0700 Subject: [PATCH] Rmk50: TERMINAL fonts plus fixed masterscope conflicts (#806) * EDITFONT: CHARSET in interface * IDLEHAX, LIFE, TMAX-ENDNOTE: Clean up conflicts in making full masterscope DB * FONT: Add charset coercion for TERMINAL * TERMINAL fonts: Remove bogus character set files so that better coercions can take place --- .../c360/TERMINAL06-BRR-C360.DISPLAYFONT | Bin 604 -> 0 bytes .../c360/TERMINAL06-MRR-C360.DISPLAYFONT | Bin 604 -> 0 bytes .../c360/TERMINAL08-BRR-C360.DISPLAYFONT | Bin 614 -> 0 bytes .../c360/TERMINAL08-MRR-C360.DISPLAYFONT | Bin 602 -> 0 bytes .../c360/TERMINAL10-BRR-C360.DISPLAYFONT | Bin 642 -> 0 bytes .../c360/TERMINAL10-MRR-C360.DISPLAYFONT | Bin 630 -> 0 bytes .../c360/TERMINAL12-BRR-C360.DISPLAYFONT | Bin 644 -> 0 bytes .../c360/TERMINAL12-MRR-C360.DISPLAYFONT | Bin 628 -> 0 bytes .../c42/TERMINAL06-BRR-C42.DISPLAYFONT | Bin 78 -> 0 bytes .../c42/TERMINAL06-MRR-C42.DISPLAYFONT | Bin 78 -> 0 bytes .../c42/TERMINAL08-BRR-C42.DISPLAYFONT | Bin 78 -> 0 bytes .../c42/TERMINAL08-MRR-C42.DISPLAYFONT | Bin 76 -> 0 bytes .../c42/TERMINAL10-BRR-C42.DISPLAYFONT | Bin 82 -> 0 bytes .../c42/TERMINAL10-MRR-C42.DISPLAYFONT | Bin 82 -> 0 bytes .../c42/TERMINAL12-BRR-C42.DISPLAYFONT | Bin 82 -> 0 bytes .../c42/TERMINAL12-MRR-C42.DISPLAYFONT | Bin 80 -> 0 bytes .../c46/TERMINAL06-BRR-C46.DISPLAYFONT | Bin 78 -> 0 bytes .../c46/TERMINAL06-MRR-C46.DISPLAYFONT | Bin 78 -> 0 bytes .../c46/TERMINAL08-BRR-C46.DISPLAYFONT | Bin 80 -> 0 bytes .../c46/TERMINAL08-MRR-C46.DISPLAYFONT | Bin 80 -> 0 bytes .../c46/TERMINAL10-BRR-C46.DISPLAYFONT | Bin 82 -> 0 bytes .../c46/TERMINAL10-MRR-C46.DISPLAYFONT | Bin 82 -> 0 bytes .../c46/TERMINAL12-BRR-C46.DISPLAYFONT | Bin 84 -> 0 bytes .../c46/TERMINAL12-MRR-C46.DISPLAYFONT | Bin 82 -> 0 bytes lispusers/EDITFONT | 851 +++++++++--------- lispusers/EDITFONT.LCOM | Bin 13568 -> 12638 bytes lispusers/IDLEHAX | 38 +- lispusers/IDLEHAX.LCOM | Bin 16210 -> 16275 bytes lispusers/LIFE | 105 ++- lispusers/LIFE.DFASL | Bin 4693 -> 4740 bytes lispusers/tmax/TMAX-ENDNOTE | 72 +- lispusers/tmax/TMAX-ENDNOTE.LCOM | Bin 10498 -> 10579 bytes sources/FONT | 433 +++++---- sources/FONT.LCOM | Bin 44074 -> 44190 bytes 34 files changed, 754 insertions(+), 745 deletions(-) delete mode 100644 fonts/displayfonts/c360/TERMINAL06-BRR-C360.DISPLAYFONT delete mode 100644 fonts/displayfonts/c360/TERMINAL06-MRR-C360.DISPLAYFONT delete mode 100644 fonts/displayfonts/c360/TERMINAL08-BRR-C360.DISPLAYFONT delete mode 100644 fonts/displayfonts/c360/TERMINAL08-MRR-C360.DISPLAYFONT delete mode 100644 fonts/displayfonts/c360/TERMINAL10-BRR-C360.DISPLAYFONT delete mode 100644 fonts/displayfonts/c360/TERMINAL10-MRR-C360.DISPLAYFONT delete mode 100644 fonts/displayfonts/c360/TERMINAL12-BRR-C360.DISPLAYFONT delete mode 100644 fonts/displayfonts/c360/TERMINAL12-MRR-C360.DISPLAYFONT delete mode 100644 fonts/displayfonts/c42/TERMINAL06-BRR-C42.DISPLAYFONT delete mode 100644 fonts/displayfonts/c42/TERMINAL06-MRR-C42.DISPLAYFONT delete mode 100644 fonts/displayfonts/c42/TERMINAL08-BRR-C42.DISPLAYFONT delete mode 100644 fonts/displayfonts/c42/TERMINAL08-MRR-C42.DISPLAYFONT delete mode 100644 fonts/displayfonts/c42/TERMINAL10-BRR-C42.DISPLAYFONT delete mode 100644 fonts/displayfonts/c42/TERMINAL10-MRR-C42.DISPLAYFONT delete mode 100644 fonts/displayfonts/c42/TERMINAL12-BRR-C42.DISPLAYFONT delete mode 100644 fonts/displayfonts/c42/TERMINAL12-MRR-C42.DISPLAYFONT delete mode 100644 fonts/displayfonts/c46/TERMINAL06-BRR-C46.DISPLAYFONT delete mode 100644 fonts/displayfonts/c46/TERMINAL06-MRR-C46.DISPLAYFONT delete mode 100644 fonts/displayfonts/c46/TERMINAL08-BRR-C46.DISPLAYFONT delete mode 100644 fonts/displayfonts/c46/TERMINAL08-MRR-C46.DISPLAYFONT delete mode 100644 fonts/displayfonts/c46/TERMINAL10-BRR-C46.DISPLAYFONT delete mode 100644 fonts/displayfonts/c46/TERMINAL10-MRR-C46.DISPLAYFONT delete mode 100644 fonts/displayfonts/c46/TERMINAL12-BRR-C46.DISPLAYFONT delete mode 100644 fonts/displayfonts/c46/TERMINAL12-MRR-C46.DISPLAYFONT diff --git a/fonts/displayfonts/c360/TERMINAL06-BRR-C360.DISPLAYFONT b/fonts/displayfonts/c360/TERMINAL06-BRR-C360.DISPLAYFONT deleted file mode 100644 index d5a373619563dee7402532b931c149543a1e1015..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 604 zcmWgOVPND4aSihI^mFuKKmY@7My4I-7_NXtBp4VN#h5NIU0`5jU~bZbsQUkpfrWvS zLOutEeuNW%tpEQ}xI=+YboekZ1H+FM!+$XSjKJ_^0){UG11P+Wf!G3wZGqSch~58_ z2!MJ((HjWFVIZwQI+}%ryMd44cLN6l3k!RL5X1il0Wj+eLkI(i#ozF$AqXPI@RcEy t;R9IqV?!H5djkv0{{{$TVY$~}-Ef`ZFHr0RLk7bO1`h@nre_Uh4FH-wj_v>e diff --git a/fonts/displayfonts/c360/TERMINAL06-MRR-C360.DISPLAYFONT b/fonts/displayfonts/c360/TERMINAL06-MRR-C360.DISPLAYFONT deleted file mode 100644 index a65cdf7737bb08d74e8209b7b959e0449e5dffb4..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 604 zcmWgOVPND4aSihI^mFuKKmY@7Mur{d7_NXtBp4VN#h5NIU0`5jU~bZbsQUkpfrWvS zLOutEeuNW%tpEQ}xI=+YboekZ1H+FM!+$XSjKJ_^0){UG11P+Wf!G3wZGqSch~58_ z2!MJ((HjWFVIZwQI+}%ryMd44cLN6l3k!RL5X1il0Wj+eLkI(i#ozF$AqXPI@RcEy t;R9IqV?!H5djkv0{{{$TVY$~}-Ef`ZFHr0RLk7bO1`h@nre_Uh4FHw9j_d#c diff --git a/fonts/displayfonts/c360/TERMINAL08-BRR-C360.DISPLAYFONT b/fonts/displayfonts/c360/TERMINAL08-BRR-C360.DISPLAYFONT deleted file mode 100644 index e7547f36fb8139e634a287a1f1199ce171fad453..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 614 zcmWgOVPN10aSihI^mFuKKmY@72Bsb77^T1>5)2HC(o7eaE-)}Mu)@^*{|97qpzzty z_~`P)@L|S->Hq&xxC}#(j~ZT_i11=yVqjrl$M7GrdKLywpu8Rsn*gyj5IX{~I}rQ+ zCj$WW1p{#;NGp(zV_{`ykYo7A@SQ<`frX8qfuBK$;Xe=pd93_E`UgV!^Bt(WpP>QBp4pJb0KqIQMGU`yu!w<$rJ>0Ud-uu!cdHpi)yu0tM ztbMcmp?}?%CjQtL_@bj9|GVeiJ_E@^NvH@_p(Zqhmi?h*t}6`PsGJj}0t#$Mqg09v o_NMlXZ)(fHDIJlA9O$#SBzMd)(w&(iSCkGZauh;TV9eBD&agv$^#A|> diff --git a/fonts/displayfonts/c360/TERMINAL10-BRR-C360.DISPLAYFONT b/fonts/displayfonts/c360/TERMINAL10-BRR-C360.DISPLAYFONT deleted file mode 100644 index dcc912eb550e88c6b24b0330db1305c48e1d94ed..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 642 zcmWgOVPND4aSihI^mFuKKmY@7My4I-7!$!F5)2HCnoJj%E-)}Mu));){|jXEkj-ZV z>Sx8GA7(t5{{J6^%P<7^M28Op6EN&JG5iP9&-niz0}BH;P+kv+O@Y`3h@FAh3y1^$ zlL&x%!htvrh*LpYfpiWF8$$uh2lfO18~%J?DPUn^{=oi$#o_;l{~uTwSlAdp{QdBk zK@oB8 z>;S}WKlv1 z8AO2)!u}H=5+EV~VlzDWE1)W%!f*q~X8!Oep|PR)LjwZ~+y4&;$imhpU~pjD1rXUL Zz`|m`72*O37RC$gQkD~Aj%Bz&3RCtvv+XEXSPTze-1m8bkb6$=(I)qo1 M!s5X2001 M!s5X200 Oz)-;O0|*Nk6c_+g&?qgaK-n2@C)L diff --git a/fonts/displayfonts/c46/TERMINAL06-MRR-C46.DISPLAYFONT b/fonts/displayfonts/c46/TERMINAL06-MRR-C46.DISPLAYFONT deleted file mode 100644 index a63ac83c622e884cd73a12b83ed74d2a8d942cc0..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 78 zcmWgOVPND4aSihI^mFuKKmY@7Muy^IhAUtZ2_VVObb;vt10w@-lRjJ(3j+&~&BVeY J!0>?qgaK+W2?_uJ diff --git a/fonts/displayfonts/c46/TERMINAL08-BRR-C46.DISPLAYFONT b/fonts/displayfonts/c46/TERMINAL08-BRR-C46.DISPLAYFONT deleted file mode 100644 index f32d55d838dd4c217e202a7844ecdb4c03d318f1..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 80 zcmWgOVPN10aSihI^mFuKKmY@72BzX-Mk%m}1dtS9y1;aSfsug~p$5nX@t9axe=z)D J-~i$u3;<8~361~& diff --git a/fonts/displayfonts/c46/TERMINAL08-MRR-C46.DISPLAYFONT b/fonts/displayfonts/c46/TERMINAL08-MRR-C46.DISPLAYFONT deleted file mode 100644 index 20fd866cbda174822f6e630c4a7d80269857eb39..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 80 zcmWgOVPN10aSihI^mFuKKmY@728QBdMk%m}1dtS9y1;aSfsug~p$5nX@t9axIT(I0 GKrjGAP6w<2 diff --git a/fonts/displayfonts/c46/TERMINAL10-BRR-C46.DISPLAYFONT b/fonts/displayfonts/c46/TERMINAL10-BRR-C46.DISPLAYFONT deleted file mode 100644 index 9b00a09659a809f01cc1a0305b042f58f7819ad8..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 82 zcmWgOVPND4aSihI^mFuKKmY@7MyBFo#ze4)1dtSDy1;aSfsug?p$5nX@t9cHSQ!2Q HA%p|~YUc^; diff --git a/fonts/displayfonts/c46/TERMINAL10-MRR-C46.DISPLAYFONT b/fonts/displayfonts/c46/TERMINAL10-MRR-C46.DISPLAYFONT deleted file mode 100644 index 72541cc08c4c34002ad27731eb33f7187d02bfd0..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 82 zcmWgOVPND4aSihI^mFuKKmY@7Muy^I#ze4)1dtSDy1;aSfsug?p$5nX@t9cHSQ!2= JumB;51OQ;k2l@a2 diff --git a/fonts/displayfonts/c46/TERMINAL12-BRR-C46.DISPLAYFONT b/fonts/displayfonts/c46/TERMINAL12-BRR-C46.DISPLAYFONT deleted file mode 100644 index 518f5e5b6c983467a8754fe8167ef897b02cbdc6..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 84 zcmWgOVPN10aSihI^mFuKKmY@72BzX-#^qoU2_PxNbb;vt10w@FLJg1&;xVzXGco)F HLKq1EjZ+Fc diff --git a/fonts/displayfonts/c46/TERMINAL12-MRR-C46.DISPLAYFONT b/fonts/displayfonts/c46/TERMINAL12-MRR-C46.DISPLAYFONT deleted file mode 100644 index 4817b85aec8ddbac3bd2200e7d85fa1d886749ae..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 82 zcmWgOVPN10aSihI^mFuKKmY@728QBd#^qoU2_PxRbb;vt10w@FR1G7LW&`t>SlE~t L{xL8CA&3M3Ze<8P diff --git a/lispusers/EDITFONT b/lispusers/EDITFONT index dbecc3a3..c4c836a7 100644 --- a/lispusers/EDITFONT +++ b/lispusers/EDITFONT @@ -1,16 +1,22 @@ -(FILECREATED "26-Aug-86 16:23:09" {ERIS}EDITFONT.;2 42108 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - changes to: (FNS COPYFONT) +(FILECREATED "27-Jun-2022 10:59:12"  +{DSK}kaplan>local>medley3.5>working-medley>lispusers>EDITFONT.;5 38667 - previous date: " 7-Feb-86 11:05:47" {ERIS}EDITFONT.;1) + :CHANGES-TO (FNS EDITFONT EF.EDIT) + + :PREVIOUS-DATE "26-Aug-86 16:23:09" +{DSK}kaplan>local>medley3.5>working-medley>lispusers>EDITFONT.;1) -(* Copyright (c) 1985, 1986 by Xerox Corporation. All rights reserved.) +(* ; " +Copyright (c) 1985-1986 by Xerox Corporation. +") (PRETTYCOMPRINT EDITFONTCOMS) -(RPAQQ EDITFONTCOMS - ((* EDITFONT -- By Kelly Roach. Need to LOAD EXPORTS.ALL and LOADFROM FONT in order to compile +(RPAQQ EDITFONTCOMS + ((* EDITFONT -- By Kelly Roach. Need to LOAD EXPORTS.ALL and LOADFROM FONT in order to compile this file. *) (CONSTANTS (BITSPERWORD 16) (BYTESPERWORD 2) @@ -19,18 +25,20 @@ (INITVARS (EF.MENU NIL) (EF.TITLEMENU NIL)) (RECORDS CHARITEM) - (FNS EF.INIT EF.EDIT EF.PROMPT EF.MESSAGE EF.CLOSEFN EF.CHARITEMS EF.BUTTONEVENTFN - EF.WHENSELECTEDFN EF.EDITBM EF.MIDDLEBUTTONFN EF.CHANGESIZE EF.DELETE EF.ENTER - EF.REPLACE EF.SAVE EF.BLANK COPYFONT READSTRIKEFONTFILE WRITESTRIKEFONTFILE) + (FNS EF.INIT EF.PROMPT EF.MESSAGE EF.CLOSEFN EF.CHARITEMS EF.BUTTONEVENTFN EF.WHENSELECTEDFN + EF.EDITBM EF.MIDDLEBUTTONFN EF.CHANGESIZE EF.DELETE EF.ENTER EF.REPLACE EF.SAVE EF.BLANK + COPYFONT READSTRIKEFONTFILE WRITESTRIKEFONTFILE) (FNS BLANKFONTCREATE EDITFONT) + (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) + FONT)) (P (EF.INIT)))) -(* EDITFONT -- By Kelly Roach. Need to LOAD EXPORTS.ALL and LOADFROM FONT in order to compile -this file. *) +(* EDITFONT -- By Kelly Roach. Need to LOAD EXPORTS.ALL and LOADFROM FONT in order to compile this +file. *) -(DECLARE: EVAL@COMPILE +(DECLARE%: EVAL@COMPILE (RPAQQ BITSPERWORD 16) @@ -40,6 +48,7 @@ this file. *) (RPAQQ DUMMYINDEX 256) + (CONSTANTS (BITSPERWORD 16) (BYTESPERWORD 2) (MAXCODE 255) @@ -49,159 +58,98 @@ this file. *) (RPAQ? EF.MENU NIL) (RPAQ? EF.TITLEMENU NIL) -[DECLARE: EVAL@COMPILE +(DECLARE%: EVAL@COMPILE (RECORD CHARITEM (BITMAP (CHARCODE DUMMYFLG))) -] +) (DEFINEQ -(EF.INIT - (LAMBDA NIL (* kbr: - "21-Oct-85 15:50") +(EF.INIT + [LAMBDA NIL (* kbr%: "21-Oct-85 15:50") (PROG NIL - (SETQ EF.MENU (create MENU - ITEMS _(QUOTE ((CHANGESIZE (QUOTE EF.CHANGESIZE) - "Change size of character.") - (DELETE (QUOTE (QUOTE EF.DELETE)) - "Delete character.") - (EDITBM (QUOTE (QUOTE EF.EDITBM)) - "Edit character.") - (REPLACE (QUOTE (QUOTE EF.REPLACE)) - "Prompt for bitmap to replace character."))))) - (SETQ EF.TITLEMENU (create MENU - ITEMS _(QUOTE ((SAVE (QUOTE EF.SAVE) - "Save EDITFONT's work back into font.")))))) - )) + [SETQ EF.MENU (create MENU + ITEMS _ '((CHANGESIZE 'EF.CHANGESIZE "Change size of character.") + (DELETE ''EF.DELETE "Delete character.") + (EDITBM ''EF.EDITBM "Edit character.") + (REPLACE ''EF.REPLACE + "Prompt for bitmap to replace character."] + (SETQ EF.TITLEMENU (create MENU + ITEMS _ '((SAVE 'EF.SAVE "Save EDITFONT's work back into font."]) -(EF.EDIT - (LAMBDA (FONT FROMCHAR8CODE TOCHAR8CODE CHARSET) (* kbr: - "21-Oct-85 15:35") - (* Edit FONT. - *) - (COND - ((NULL FROMCHAR8CODE) - (SETQ FROMCHAR8CODE 0))) - (COND - ((NULL TOCHAR8CODE) - (SETQ TOCHAR8CODE 255))) - (COND - ((NULL CHARSET) - (SETQ CHARSET 0))) - (PROG (CHARITEMS MENU TITLE HEIGHT WIDTH REGION POS WINDOW) - (COND - ((FONTP FONT) - (SETQ CHARITEMS (EF.CHARITEMS FONT FROMCHAR8CODE TOCHAR8CODE CHARSET)) - (SETQ MENU - (create MENU - MENUFONT _ FONT - CENTERFLG _ T - MENUCOLUMNS _ 16 - ITEMS _ CHARITEMS - WHENSELECTEDFN _(FUNCTION EF.WHENSELECTEDFN))) - (SETQ TITLE (PACK* (FONTPROP FONT (QUOTE FAMILY)) - (FONTPROP FONT (QUOTE SIZE)) - (PACKC (for ATOM in (FONTPROP FONT (QUOTE FACE)) - collect (CHCON1 ATOM))))) - (SETQ HEIGHT (HEIGHTIFWINDOW (fetch (MENU IMAGEHEIGHT) of MENU) - T)) - (SETQ WIDTH (WIDTHIFWINDOW (fetch (MENU IMAGEWIDTH) of MENU))) - (SETQ POS (GETBOXPOSITION WIDTH HEIGHT)) - (SETQ REGION (create REGION - LEFT _(fetch (POSITION XCOORD) of POS) - BOTTOM _(fetch (POSITION YCOORD) of POS) - WIDTH _ WIDTH - HEIGHT _ HEIGHT)) - (SETQ WINDOW (CREATEW REGION TITLE)) - (WINDOWPROP WINDOW (QUOTE CHARITEMS) - CHARITEMS) - (ADDMENU MENU WINDOW (create POSITION - XCOORD _ 0 - YCOORD _ 0)) - (WINDOWPROP WINDOW (QUOTE BUTTONEVENTFN) - (QUOTE EF.BUTTONEVENTFN))) - (T (ERROR "Can't edit " FONT)))))) - -(EF.PROMPT - (LAMBDA (STRING WINDOW) (* kbr: - "16-Oct-85 22:48") +(EF.PROMPT + [LAMBDA (STRING WINDOW) (* kbr%: "16-Oct-85 22:48") (PROG (PROMPTW ANSWER) (SETQ PROMPTW (GETPROMPTWINDOW WINDOW)) (CLEARW PROMPTW) (PRIN1 STRING PROMPTW) (PRIN1 " " PROMPTW) - (SETQ ANSWER (RESETLST (RESETSAVE (TTYDISPLAYSTREAM PROMPTW)) - (RESETSAVE (TTY.PROCESS (THIS.PROCESS))) - (TTYINREAD PROMPTW))) + (SETQ ANSWER (RESETLST + (RESETSAVE (TTYDISPLAYSTREAM PROMPTW)) + (RESETSAVE (TTY.PROCESS (THIS.PROCESS))) + (TTYINREAD PROMPTW))) (TERPRI PROMPTW) (SETQ ANSWER (EVAL ANSWER)) - (RETURN ANSWER)))) + (RETURN ANSWER]) -(EF.MESSAGE - (LAMBDA (STRING WINDOW) (* kbr: - "16-Oct-85 22:50") +(EF.MESSAGE + [LAMBDA (STRING WINDOW) (* kbr%: "16-Oct-85 22:50") (PROG (PROMPTW) (SETQ PROMPTW (GETPROMPTWINDOW WINDOW)) - (PRIN1 STRING PROMPTW)))) + (PRIN1 STRING PROMPTW]) -(EF.CLOSEFN - (LAMBDA (WINDOW) (* kbr: - "15-Dec-84 15:20") - (* Close EF Window. - *) +(EF.CLOSEFN + [LAMBDA (WINDOW) (* kbr%: "15-Dec-84 15:20") + (* Close EF Window. *) (PROG NIL - (COND + [COND ((EQ (ASKUSER "Close Editfont Window?") - (QUOTE N)) - (RETURN (QUOTE DON'T)))) - (CLOSEW WINDOW) (* Break circularity. - *) - (WINDOWPROP WINDOW (QUOTE MENU) - NIL)))) + 'N) + (RETURN 'DON'T] + (CLOSEW WINDOW) (* Break circularity. + *) + (WINDOWPROP WINDOW 'MENU NIL]) -(EF.CHARITEMS - (LAMBDA (FONT FROMCHAR8CODE TOCHAR8CODE CHARSET) (* kbr: - "16-Oct-85 23:11") - (* Get CHARITEMS for - FONT. *) +(EF.CHARITEMS + [LAMBDA (FONT FROMCHAR8CODE TOCHAR8CODE CHARSET) (* kbr%: "16-Oct-85 23:11") + (* Get CHARITEMS for FONT. + *) (PROG (FROMCHARCODE TOCHARCODE OFFSETS DUMMYOFFSET DUMMYBITMAP OFFSET BITMAP CHARITEM CHARITEMS) - (* Get DUMMY CHARITEM *) - (* Interlisp assuming - 256 is dummy is dumb now - because of NS chars. - Maybe Kaplan and Nuyens - will fix. *) + (* Get DUMMY CHARITEM *) + + (* Interlisp assuming 256 is dummy is dumb now because of NS chars. + Maybe Kaplan and Nuyens will fix. *) + (SETQ DUMMYBITMAP (GETCHARBITMAP 256 FONT)) - (SETQ CHARITEM (create CHARITEM + (SETQ CHARITEM (create CHARITEM BITMAP _ DUMMYBITMAP CHARCODE _ DUMMYINDEX DUMMYFLG _ T)) - (push CHARITEMS CHARITEM) (* Get ordinairy - CHARITEMs. *) + (push CHARITEMS CHARITEM) (* Get ordinairy CHARITEMs. + *) (SETQ FROMCHARCODE (IPLUS (ITIMES 256 CHARSET) FROMCHAR8CODE)) (SETQ TOCHARCODE (IPLUS (ITIMES 256 CHARSET) TOCHAR8CODE)) - (SETQ OFFSETS (fetch (CHARSETINFO OFFSETS) of (\GETCHARSETINFO CHARSET FONT))) + (SETQ OFFSETS (fetch (CHARSETINFO OFFSETS) of (\GETCHARSETINFO CHARSET FONT))) (SETQ DUMMYOFFSET (\FGETOFFSET OFFSETS DUMMYINDEX)) - (for I from TOCHARCODE to FROMCHARCODE by -1 - do (SETQ OFFSET (\FGETOFFSET OFFSETS I)) - (COND + (for I from TOCHARCODE to FROMCHARCODE by -1 + do (SETQ OFFSET (\FGETOFFSET OFFSETS I)) + [COND ((EQ OFFSET DUMMYOFFSET) - (SETQ CHARITEM (create CHARITEM + (SETQ CHARITEM (create CHARITEM BITMAP _ DUMMYBITMAP CHARCODE _ I DUMMYFLG _ T))) (T (SETQ BITMAP (GETCHARBITMAP I FONT)) - (SETQ CHARITEM (create CHARITEM + (SETQ CHARITEM (create CHARITEM BITMAP _ BITMAP CHARCODE _ I - DUMMYFLG _ NIL)))) - (push CHARITEMS CHARITEM)) (* OKEY DOKEY *) - (RETURN CHARITEMS)))) + DUMMYFLG _ NIL] + (push CHARITEMS CHARITEM)) (* OKEY DOKEY *) + (RETURN CHARITEMS]) -(EF.BUTTONEVENTFN - (LAMBDA (WINDOW) (* kbr: - "16-Oct-85 22:19") +(EF.BUTTONEVENTFN + [LAMBDA (WINDOW) (* kbr%: "16-Oct-85 22:19") (PROG (COMMAND) (COND ((INSIDEP (DSPCLIPPINGREGION NIL WINDOW) @@ -209,210 +157,194 @@ this file. *) (LASTMOUSEY WINDOW)) (MENUBUTTONFN WINDOW)) ((SETQ COMMAND (MENU EF.TITLEMENU)) - (APPLY* COMMAND WINDOW)))))) + (APPLY* COMMAND WINDOW]) -(EF.WHENSELECTEDFN - (LAMBDA (CHARITEM MENU KEY) (* kbr: - "16-Oct-85 22:26") +(EF.WHENSELECTEDFN + [LAMBDA (CHARITEM MENU KEY) (* kbr%: "16-Oct-85 22:26") (PROG NIL (COND (CHARITEM (SELECTQ KEY - (LEFT (EF.EDITBM CHARITEM MENU)) - (MIDDLE (EF.MIDDLEBUTTONFN CHARITEM MENU)) - (* Do nothing. - *))))))) + (LEFT (EF.EDITBM CHARITEM MENU)) + (MIDDLE (EF.MIDDLEBUTTONFN CHARITEM MENU)) + (* Do nothing. *)]) -(EF.EDITBM - (LAMBDA (CHARITEM MENU) (* kbr: - "15-Dec-84 15:20") +(EF.EDITBM + [LAMBDA (CHARITEM MENU) (* kbr%: "15-Dec-84 15:20") (PROG (BITMAP CHARCODE DUMMYFLG) - (RESETLST (RESETSAVE (SHADEITEM CHARITEM MENU BLACKSHADE) - (BQUOTE (SHADEITEM (\, CHARITEM) - (\, MENU) - (\, WHITESHADE)))) - (SETQ BITMAP (fetch (CHARITEM BITMAP) of CHARITEM)) - (COND - ((AND (NOT (IEQP (fetch (CHARITEM CHARCODE) of CHARITEM) - DUMMYINDEX)) - (fetch (CHARITEM DUMMYFLG) of CHARITEM)) (* Undummify this - CHARITEM. *) - (SETQ BITMAP (COPYALL BITMAP)) - (UNINTERRUPTABLY - (replace (CHARITEM BITMAP) of CHARITEM with BITMAP) - (replace (CHARITEM DUMMYFLG) of CHARITEM with NIL)))) - (EDITBM BITMAP)) (* Update MENU image. - SHADEITEM's side effects - above suffice if we only - changed one menu item. - (I.e. we edited an - ordinairy CHARITEM.) *) + (RESETLST + [RESETSAVE (SHADEITEM CHARITEM MENU BLACKSHADE) + `(SHADEITEM ,CHARITEM ,MENU ,WHITESHADE] + (SETQ BITMAP (fetch (CHARITEM BITMAP) of CHARITEM)) + [COND + ((AND (NOT (IEQP (fetch (CHARITEM CHARCODE) of CHARITEM) + DUMMYINDEX)) + (fetch (CHARITEM DUMMYFLG) of CHARITEM)) + (* Undummify this CHARITEM. + *) + (SETQ BITMAP (COPYALL BITMAP)) + (UNINTERRUPTABLY + (replace (CHARITEM BITMAP) of CHARITEM with BITMAP) + (replace (CHARITEM DUMMYFLG) of CHARITEM with NIL))] + (EDITBM BITMAP)) + + (* Update MENU image. SHADEITEM's side effects above suffice if we only changed + one menu item. (I.e. we edited an ordinairy CHARITEM.) *) + (COND - ((IEQP (fetch (CHARITEM CHARCODE) of CHARITEM) + ((IEQP (fetch (CHARITEM CHARCODE) of CHARITEM) DUMMYINDEX) (UPDATE/MENU/IMAGE MENU) - (REDISPLAYW (WFROMMENU MENU))))))) + (REDISPLAYW (WFROMMENU MENU]) -(EF.MIDDLEBUTTONFN - (LAMBDA (CHARITEM MENU) (* kbr: - "15-Dec-84 15:20") +(EF.MIDDLEBUTTONFN + [LAMBDA (CHARITEM MENU) (* kbr%: "15-Dec-84 15:20") (PROG (COMMAND) (SETQ COMMAND (MENU EF.MENU)) (COND - (COMMAND (APPLY* COMMAND CHARITEM MENU)))))) + (COMMAND (APPLY* COMMAND CHARITEM MENU]) -(EF.CHANGESIZE - (LAMBDA (CHARITEM MENU) (* kbr: - "16-Oct-85 23:03") - (* Change height & width - of CHARITEM's BITMAP *) +(EF.CHANGESIZE + [LAMBDA (CHARITEM MENU) (* kbr%: "16-Oct-85 23:03") + (* Change height & width of CHARITEM's + BITMAP *) (PROG (HEIGHT WIDTH NEWBITMAP WINDOW) (SETQ WINDOW (WFROMMENU MENU)) - (SETQ HEIGHT (EF.PROMPT "New height?" WINDOW)) + (SETQ HEIGHT (EF.PROMPT "New height?" WINDOW)) (COND ((NULL HEIGHT) - (EF.MESSAGE "Aborted." WINDOW) + (EF.MESSAGE "Aborted." WINDOW) (RETURN))) (SETQ HEIGHT (EVAL HEIGHT)) - (SETQ WIDTH (EF.PROMPT "New width?" WINDOW)) + (SETQ WIDTH (EF.PROMPT "New width?" WINDOW)) (COND ((NULL WIDTH) - (EF.MESSAGE "Aborted." WINDOW) + (EF.MESSAGE "Aborted." WINDOW) (RETURN))) (SETQ WIDTH (EVAL WIDTH)) (SETQ NEWBITMAP (BITMAPCREATE WIDTH HEIGHT)) - (BITBLT (fetch (CHARITEM BITMAP) of CHARITEM) + (BITBLT (fetch (CHARITEM BITMAP) of CHARITEM) NIL NIL NEWBITMAP) (UNINTERRUPTABLY - (replace (CHARITEM BITMAP) of CHARITEM with NEWBITMAP) - (replace (CHARITEM DUMMYFLG) of CHARITEM with NIL)) + (replace (CHARITEM BITMAP) of CHARITEM with NEWBITMAP) + (replace (CHARITEM DUMMYFLG) of CHARITEM with NIL)) (UPDATE/MENU/IMAGE MENU) - (REDISPLAYW (WFROMMENU MENU))))) + (REDISPLAYW (WFROMMENU MENU]) -(EF.DELETE - (LAMBDA (CHARITEM MENU) (* kbr: - "15-Dec-84 15:20") - (* Turn CHARITEM into - dummy charitem. - *) +(EF.DELETE + [LAMBDA (CHARITEM MENU) (* kbr%: "15-Dec-84 15:20") + (* Turn CHARITEM into dummy charitem. + *) (PROG (WINDOW CHARITEMS DUMMYBITMAP) (SETQ WINDOW (WFROMMENU MENU)) - (SETQ CHARITEMS (WINDOWPROP WINDOW (QUOTE CHARITEMS))) - (SETQ DUMMYBITMAP (fetch (CHARITEM BITMAP) of (CAR (LAST CHARITEMS)))) + (SETQ CHARITEMS (WINDOWPROP WINDOW 'CHARITEMS)) + [SETQ DUMMYBITMAP (fetch (CHARITEM BITMAP) of (CAR (LAST CHARITEMS] (UNINTERRUPTABLY - (replace (CHARITEM BITMAP) of CHARITEM with DUMMYBITMAP) - (replace (CHARITEM DUMMYFLG) of CHARITEM with T)) + (replace (CHARITEM BITMAP) of CHARITEM with DUMMYBITMAP) + (replace (CHARITEM DUMMYFLG) of CHARITEM with T)) (UPDATE/MENU/IMAGE MENU) - (REDISPLAYW (WFROMMENU MENU))))) + (REDISPLAYW (WFROMMENU MENU]) -(EF.ENTER - (LAMBDA (CHARITEM MENU) (* kbr: - "15-Dec-84 15:20") - (* Enter BITMAP of - CHARITEM. *) +(EF.ENTER + [LAMBDA (CHARITEM MENU) (* kbr%: "15-Dec-84 15:20") + (* Enter BITMAP of CHARITEM. + *) (PROG (NEWBITMAP) - (SETQ NEWBITMAP (EF.PROMPT "Enter new bitmap (evaluated):")) + (SETQ NEWBITMAP (EF.PROMPT "Enter new bitmap (evaluated):")) (COND ((NULL NEWBITMAP) (printout T "Aborted." T)) - ((type? BITMAP NEWBITMAP) + ((type? BITMAP NEWBITMAP) (UNINTERRUPTABLY - (replace (CHARITEM BITMAP) of CHARITEM with NEWBITMAP) - (replace (CHARITEM DUMMYFLG) of CHARITEM with NIL)) + (replace (CHARITEM BITMAP) of CHARITEM with NEWBITMAP) + (replace (CHARITEM DUMMYFLG) of CHARITEM with NIL)) (UPDATE/MENU/IMAGE MENU) (REDISPLAYW (WFROMMENU MENU))) - (T (LISPERROR "ILLEGAL ARG" NEWBITMAP)))))) + (T (LISPERROR "ILLEGAL ARG" NEWBITMAP]) -(EF.REPLACE - (LAMBDA (CHARITEM MENU) (* kbr: - "16-Oct-85 23:04") - (* Replace BITMAP of - CHARITEM. *) +(EF.REPLACE + [LAMBDA (CHARITEM MENU) (* kbr%: "16-Oct-85 23:04") + (* Replace BITMAP of CHARITEM. + *) (PROG (BITMAP WINDOW) (SETQ WINDOW (WFROMMENU MENU)) - (SETQ BITMAP (EF.PROMPT "New bitmap?" WINDOW)) + (SETQ BITMAP (EF.PROMPT "New bitmap?" WINDOW)) (COND ((NULL BITMAP) - (EF.MESSAGE "Aborted." WINDOW)) - ((type? BITMAP BITMAP) + (EF.MESSAGE "Aborted." WINDOW)) + ((type? BITMAP BITMAP) (UNINTERRUPTABLY - (replace (CHARITEM BITMAP) of CHARITEM with BITMAP) - (replace (CHARITEM DUMMYFLG) of CHARITEM with NIL)) + (replace (CHARITEM BITMAP) of CHARITEM with BITMAP) + (replace (CHARITEM DUMMYFLG) of CHARITEM with NIL)) (UPDATE/MENU/IMAGE MENU) (REDISPLAYW (WFROMMENU MENU))) - (T (LISPERROR "ILLEGAL ARG" BITMAP)))))) + (T (LISPERROR "ILLEGAL ARG" BITMAP]) -(EF.SAVE - (LAMBDA (WINDOW) (* kbr: - "21-Oct-85 15:39") - (* Save EDITFONT changes - to FONT. *) +(EF.SAVE + [LAMBDA (WINDOW) (* kbr%: "21-Oct-85 15:39") + (* Save EDITFONT changes to FONT. + *) (PROG (CHARITEMS FONT CB CBWIDTH CBHEIGHT WIDTHS OFFSETS HEIGHT WIDTH DUMMYOFFSET OFFSET BITMAP FIRSTCHAR LASTCHAR CHARSET CSINFO) - (SETQ CHARITEMS (WINDOWPROP WINDOW (QUOTE CHARITEMS))) - (SETQ FONT (WINDOWPROP WINDOW (QUOTE FONT))) (* New allocations. - *) + (SETQ CHARITEMS (WINDOWPROP WINDOW 'CHARITEMS)) + (SETQ FONT (WINDOWPROP WINDOW 'FONT)) (* New allocations. *) (SETQ CBWIDTH 0) (SETQ CBHEIGHT 0) - (for I from 0 to DUMMYINDEX as CHARITEM in CHARITEMS - when (OR (NOT (fetch (CHARITEM DUMMYFLG) of CHARITEM)) - (IEQP I DUMMYINDEX)) do (SETQ BITMAP (fetch (CHARITEM BITMAP) of CHARITEM)) - (SETQ CBWIDTH (IPLUS CBWIDTH (fetch (BITMAP BITMAPWIDTH + [for I from 0 to DUMMYINDEX as CHARITEM in CHARITEMS + when (OR (NOT (fetch (CHARITEM DUMMYFLG) of CHARITEM)) + (IEQP I DUMMYINDEX)) do (SETQ BITMAP (fetch (CHARITEM BITMAP) of CHARITEM)) + (SETQ CBWIDTH (IPLUS CBWIDTH (fetch (BITMAP BITMAPWIDTH ) - of BITMAP))) - (SETQ CBHEIGHT (IMAX CBHEIGHT (fetch (BITMAP + of BITMAP))) + (SETQ CBHEIGHT (IMAX CBHEIGHT (fetch (BITMAP BITMAPHEIGHT ) - of BITMAP)))) - (SETQ CSINFO (create CHARSETINFO - CHARSETASCENT _(fetch (FONTDESCRIPTOR \SFAscent) of FONT) - CHARSETDESCENT _(fetch (FONTDESCRIPTOR \SFDescent) of FONT))) - (SETQ OFFSETS (fetch (CHARSETINFO OFFSETS) of CSINFO)) - (SETQ WIDTHS (fetch (CHARSETINFO WIDTHS) of CSINFO)) (* Store new info in - allocations. *) + of BITMAP] + (SETQ CSINFO (create CHARSETINFO + CHARSETASCENT _ (fetch (FONTDESCRIPTOR \SFAscent) of FONT) + CHARSETDESCENT _ (fetch (FONTDESCRIPTOR \SFDescent) of FONT))) + (SETQ OFFSETS (fetch (CHARSETINFO OFFSETS) of CSINFO)) + (SETQ WIDTHS (fetch (CHARSETINFO WIDTHS) of CSINFO)) + (* Store new info in allocations. + *) (SETQ OFFSET 0) - (SETQ DUMMYOFFSET (IDIFFERENCE CBWIDTH (fetch (BITMAP BITMAPWIDTH) - of (fetch (CHARITEM BITMAP) - of (CAR (LAST CHARITEMS)))))) + [SETQ DUMMYOFFSET (IDIFFERENCE CBWIDTH (fetch (BITMAP BITMAPWIDTH) + of (fetch (CHARITEM BITMAP) + of (CAR (LAST CHARITEMS] (SETQ CB (BITMAPCREATE CBWIDTH CBHEIGHT)) - (for I from 0 to DUMMYINDEX as CHARITEM in CHARITEMS - do (SETQ BITMAP (fetch (CHARITEM BITMAP) of CHARITEM)) - (SETQ WIDTH (fetch (BITMAP BITMAPWIDTH) of BITMAP)) - (SETQ HEIGHT (fetch (BITMAP BITMAPHEIGHT) of BITMAP)) + [for I from 0 to DUMMYINDEX as CHARITEM in CHARITEMS + do (SETQ BITMAP (fetch (CHARITEM BITMAP) of CHARITEM)) + (SETQ WIDTH (fetch (BITMAP BITMAPWIDTH) of BITMAP)) + (SETQ HEIGHT (fetch (BITMAP BITMAPHEIGHT) of BITMAP)) (\FSETWIDTH WIDTHS I WIDTH) (COND - ((AND (fetch (CHARITEM DUMMYFLG) of CHARITEM) + ((AND (fetch (CHARITEM DUMMYFLG) of CHARITEM) (NOT (IEQP I DUMMYINDEX))) (\FSETOFFSET OFFSETS I DUMMYOFFSET)) (T (\FSETOFFSET OFFSETS I OFFSET) - (BITBLT BITMAP 0 0 CB OFFSET 0 WIDTH HEIGHT (QUOTE INPUT) - (QUOTE REPLACE)) - (SETQ OFFSET (IPLUS OFFSET WIDTH))))) (* FIRSTCHAR & LASTCHAR. - (I wonder what you're - suppose to do if there - aren't any chars?) *) - (SETQ FIRSTCHAR (\CHAR8CODE (fetch (CHARITEM CHARCODE) - of (for CHARITEM in CHARITEMS - thereis (NOT (fetch (CHARITEM DUMMYFLG) of CHARITEM))) - ))) - (SETQ LASTCHAR (\CHAR8CODE (fetch (CHARITEM CHARCODE) - of (for CHARITEM in (REVERSE CHARITEMS) - thereis (NOT (fetch (CHARITEM DUMMYFLG) of CHARITEM)))) - )) - (SETQ CHARSET (\CHARSET (fetch (CHARITEM CHARCODE) of (CAR CHARITEMS)))) - (* Store new info. - *) + (BITBLT BITMAP 0 0 CB OFFSET 0 WIDTH HEIGHT 'INPUT 'REPLACE) + (SETQ OFFSET (IPLUS OFFSET WIDTH] (* FIRSTCHAR & LASTCHAR. + (I wonder what you're suppose to do if + there aren't any chars?) *) + [SETQ FIRSTCHAR (\CHAR8CODE (fetch (CHARITEM CHARCODE) + of (for CHARITEM in CHARITEMS + thereis (NOT (fetch (CHARITEM DUMMYFLG) of CHARITEM] + [SETQ LASTCHAR (\CHAR8CODE (fetch (CHARITEM CHARCODE) + of (for CHARITEM in (REVERSE CHARITEMS) + thereis (NOT (fetch (CHARITEM DUMMYFLG) of CHARITEM] + [SETQ CHARSET (\CHARSET (fetch (CHARITEM CHARCODE) of (CAR CHARITEMS] + (* Store new info. *) (UNINTERRUPTABLY - (replace (CHARSETINFO CHARSETBITMAP) of CSINFO with CB) - (replace (CHARSETINFO WIDTHS) of CSINFO with WIDTHS) - (replace (CHARSETINFO OFFSETS) of CSINFO with OFFSETS) + (replace (CHARSETINFO CHARSETBITMAP) of CSINFO with CB) + (replace (CHARSETINFO WIDTHS) of CSINFO with WIDTHS) + (replace (CHARSETINFO OFFSETS) of CSINFO with OFFSETS) (\FONTRESETCHARWIDTHS CSINFO FIRSTCHAR LASTCHAR) - (replace (CHARSETINFO IMAGEWIDTHS) of CSINFO with WIDTHS)) (* OKEY DOKEY. - *) - ))) + (replace (CHARSETINFO IMAGEWIDTHS) of CSINFO with WIDTHS)) + (* OKEY DOKEY. *) + ]) -(EF.BLANK - (LAMBDA (FAMILY SIZE FACE FIRSTCHAR LASTCHAR ASCENT DESCENT WIDTH) (* kbr: - "21-Oct-85 15:25") +(EF.BLANK + [LAMBDA (FAMILY SIZE FACE FIRSTCHAR LASTCHAR ASCENT DESCENT WIDTH) + (* kbr%: "21-Oct-85 15:25") (PROG (FONT CSINFO WIDTHS DUMMYWIDTH OFFSETS DUMMYOFFSET CB CBWIDTH CBHEIGHT) (SETQ FAMILY (U-CASE FAMILY)) (COND @@ -432,44 +364,45 @@ this file. *) ((NOT (SMALLP DESCENT)) (LISPERROR "ILLEGAL ARG" DESCENT))) (COND - ((NOT (OR (FIXP WIDTH) + ([NOT (OR (FIXP WIDTH) (AND (LISTP WIDTH) - (NOT (for W in WIDTH thereis (NOT (FIXP W)))) + [NOT (for W in WIDTH thereis (NOT (FIXP W] (IEQP (LENGTH WIDTH) (IPLUS LASTCHAR (IMINUS FIRSTCHAR) - 1 1))))) - (LISPERROR "ILLEGAL ARG" WIDTH))) (* WIDTHS. *) - (SETQ CSINFO (create CHARSETINFO + 1 1] + (LISPERROR "ILLEGAL ARG" WIDTH))) (* WIDTHS. *) + (SETQ CSINFO (create CHARSETINFO CHARSETASCENT _ ASCENT CHARSETDESCENT _ DESCENT)) - (SETQ WIDTHS (fetch (CHARSETINFO WIDTHS) of CSINFO)) - (COND + (SETQ WIDTHS (fetch (CHARSETINFO WIDTHS) of CSINFO)) + [COND ((LISTP WIDTH) (SETQ DUMMYWIDTH (CAR (LAST WIDTH))) - (for I from 0 to (SUB1 FIRSTCHAR) do (\FSETWIDTH WIDTHS I DUMMYWIDTH)) - (for I from FIRSTCHAR to LASTCHAR as W in WIDTH do (\FSETWIDTH WIDTHS I W)) - (for I from (ADD1 LASTCHAR) to DUMMYINDEX do (\FSETWIDTH WIDTHS I DUMMYWIDTH))) - (T (for I from 0 to DUMMYINDEX do (\FSETWIDTH WIDTHS I WIDTH)))) - (* OFFSETS. *) - (SETQ OFFSETS (fetch (CHARSETINFO OFFSETS) of CSINFO)) - (for I from FIRSTCHAR to (ADD1 LASTCHAR) do (\FSETOFFSET OFFSETS (ADD1 I) + (for I from 0 to (SUB1 FIRSTCHAR) do (\FSETWIDTH WIDTHS I DUMMYWIDTH)) + (for I from FIRSTCHAR to LASTCHAR as W in WIDTH do (\FSETWIDTH WIDTHS I W)) + (for I from (ADD1 LASTCHAR) to DUMMYINDEX do (\FSETWIDTH WIDTHS I DUMMYWIDTH))) + (T (for I from 0 to DUMMYINDEX do (\FSETWIDTH WIDTHS I WIDTH] + (* OFFSETS. *) + (SETQ OFFSETS (fetch (CHARSETINFO OFFSETS) of CSINFO)) + [for I from FIRSTCHAR to (ADD1 LASTCHAR) do (\FSETOFFSET OFFSETS (ADD1 I) (IPLUS (\FGETOFFSET OFFSETS I) - (\FGETWIDTH WIDTHS I)))) + (\FGETWIDTH WIDTHS I] (SETQ DUMMYOFFSET (\FGETOFFSET OFFSETS (ADD1 LASTCHAR))) - (for I from 0 to (SUB1 FIRSTCHAR) do (\FSETOFFSET OFFSETS I DUMMYOFFSET)) - (for I from (ADD1 LASTCHAR) to DUMMYINDEX do (\FSETOFFSET OFFSETS I DUMMYOFFSET)) - (* Characterbitmap CB. - *) + (for I from 0 to (SUB1 FIRSTCHAR) do (\FSETOFFSET OFFSETS I DUMMYOFFSET)) + (for I from (ADD1 LASTCHAR) to DUMMYINDEX do (\FSETOFFSET OFFSETS I DUMMYOFFSET)) + (* Characterbitmap CB. + *) (SETQ CBHEIGHT (IPLUS ASCENT DESCENT)) (SETQ CBWIDTH (IPLUS (\FGETOFFSET OFFSETS DUMMYINDEX) (\FGETWIDTH WIDTHS DUMMYINDEX))) (SETQ CB (BITMAPCREATE CBWIDTH CBHEIGHT)) - (replace (CHARSETINFO CHARSETBITMAP) of CSINFO with CB) (* FONT. *) + (replace (CHARSETINFO CHARSETBITMAP) of CSINFO with CB) + (* FONT. *) (\FONTRESETCHARWIDTHS CSINFO FIRSTCHAR LASTCHAR) - (replace (CHARSETINFO IMAGEWIDTHS) of CSINFO with (fetch (CHARSETINFO WIDTHS) of CSINFO)) - (SETQ FONT - (create FONTDESCRIPTOR - FONTDEVICE _(QUOTE DISPLAY) + (replace (CHARSETINFO IMAGEWIDTHS) of CSINFO with (fetch (CHARSETINFO WIDTHS) of CSINFO)) + [SETQ FONT + (create FONTDESCRIPTOR + FONTDEVICE _ 'DISPLAY FONTFAMILY _ FAMILY FONTSIZE _ SIZE FONTFACE _ FACE @@ -477,39 +410,39 @@ this file. *) \SFDescent _ 0 \SFHeight _ 0 ROTATION _ 0 - FONTDEVICESPEC _(LIST FAMILY SIZE FACE 0 (QUOTE DISPLAY)))) - (replace (FONTDESCRIPTOR \SFAscent) of FONT with (IMAX (fetch (FONTDESCRIPTOR \SFAscent) - of FONT) - (fetch (CHARSETINFO CHARSETASCENT) - of CSINFO))) - (replace (FONTDESCRIPTOR \SFDescent) of FONT with (IMAX (fetch (FONTDESCRIPTOR \SFDescent) - of FONT) - (fetch (CHARSETINFO CHARSETDESCENT) - of CSINFO))) - (replace (FONTDESCRIPTOR \SFHeight) of FONT with (IMAX (fetch (FONTDESCRIPTOR \SFHeight) - of FONT) - (IPLUS (fetch (CHARSETINFO + FONTDEVICESPEC _ (LIST FAMILY SIZE FACE 0 'DISPLAY] + (replace (FONTDESCRIPTOR \SFAscent) of FONT with (IMAX (fetch (FONTDESCRIPTOR \SFAscent) + of FONT) + (fetch (CHARSETINFO CHARSETASCENT) + of CSINFO))) + (replace (FONTDESCRIPTOR \SFDescent) of FONT with (IMAX (fetch (FONTDESCRIPTOR \SFDescent) + of FONT) + (fetch (CHARSETINFO CHARSETDESCENT) + of CSINFO))) + [replace (FONTDESCRIPTOR \SFHeight) of FONT with (IMAX (fetch (FONTDESCRIPTOR \SFHeight) + of FONT) + (IPLUS (fetch (CHARSETINFO CHARSETASCENT) - of CSINFO) - (fetch (CHARSETINFO + of CSINFO) + (fetch (CHARSETINFO CHARSETDESCENT) - of CSINFO)))) - (\SETCHARSETINFO (fetch (FONTDESCRIPTOR FONTCHARSETVECTOR) of FONT) + of CSINFO] + (\SETCHARSETINFO (fetch (FONTDESCRIPTOR FONTCHARSETVECTOR) of FONT) 0 CSINFO) - (replace (FONTDESCRIPTOR FONTAVGCHARWIDTH) of FONT with (\AVGCHARWIDTH FONT)) - (RETURN FONT)))) + (replace (FONTDESCRIPTOR FONTAVGCHARWIDTH) of FONT with (\AVGCHARWIDTH FONT)) + (RETURN FONT]) (COPYFONT - (LAMBDA (FONT) (* jds "26-Aug-86 16:01") + [LAMBDA (FONT) (* jds "26-Aug-86 16:01") (PROG (NEWFONT NEWCHARSETVECTOR OLDCHARSETVECTOR NEWCSINFO OLDCSINFO) (SETQ NEWFONT (create FONTDESCRIPTOR using FONT)) (SETQ NEWCHARSETVECTOR (\ALLOCBLOCK (ADD1 \MAXCHARSET) T)) (SETQ OLDCHARSETVECTOR (fetch (FONTDESCRIPTOR FONTCHARSETVECTOR) of FONT)) - (for CHARSET from 0 to \MAXCHARSET + [for CHARSET from 0 to \MAXCHARSET do (SETQ OLDCSINFO (\GETBASEPTR OLDCHARSETVECTOR (UNFOLD CHARSET 2))) (COND - (OLDCSINFO (SETQ NEWCSINFO (create CHARSETINFO + (OLDCSINFO [SETQ NEWCSINFO (create CHARSETINFO CHARSETASCENT _ (fetch (CHARSETINFO CHARSETASCENT) of OLDCSINFO) @@ -518,7 +451,7 @@ this file. *) of OLDCSINFO) CHARSETBITMAP _ (COPYALL (fetch (CHARSETINFO CHARSETBITMAP) - of OLDCSINFO)))) + of OLDCSINFO] (\BLT (fetch (CHARSETINFO WIDTHS) of NEWCSINFO) (fetch (CHARSETINFO WIDTHS) of OLDCSINFO) (ADD1 DUMMYINDEX)) @@ -529,78 +462,72 @@ this file. *) WIDTHS) of NEWCSINFO)) (\RPLPTR NEWCHARSETVECTOR (UNFOLD CHARSET 2) - NEWCSINFO)))) - (RETURN NEWFONT)))) + NEWCSINFO] + (RETURN NEWFONT]) -(READSTRIKEFONTFILE - (LAMBDA (FAMILY SIZE FACE FILE FONT CHARSET) (* kbr: - "14-Oct-85 11:16") - (* Very similar to - \READSTRIKEFONTFILE of - SOURCES>FONT. - Returns fontdescriptor - FONT. *) +(READSTRIKEFONTFILE + [LAMBDA (FAMILY SIZE FACE FILE FONT CHARSET) (* kbr%: "14-Oct-85 11:16") + (* Very similar to \READSTRIKEFONTFILE + of SOURCES>FONT. + Returns fontdescriptor FONT. + *) (PROG (STRM CSINFO NUMBCODES RW BITMAP OFFSETS FIRSTCHAR LASTCHAR HEIGHT WIDTHS) - (* This part imitates - \READSTRIKEFONTFILE *) - (SETQ STRM (OPENSTREAM FILE (QUOTE INPUT) - (QUOTE OLD))) - (SETQ CSINFO (create CHARSETINFO)) + (* This part imitates + \READSTRIKEFONTFILE *) + (SETQ STRM (OPENSTREAM FILE 'INPUT 'OLD)) + (SETQ CSINFO (create CHARSETINFO)) (\WIN STRM) - (SETQ FIRSTCHAR (\WIN STRM)) (* minimum ascii code) - (SETQ LASTCHAR (\WIN STRM)) (* maximum ascii code) - (\WIN STRM) (* MaxWidth which isn't - used by anyone.) - (\WIN STRM) (* number of words in - this StrikeBody) - (replace (CHARSETINFO CHARSETASCENT) of CSINFO with (\WIN STRM))(* ascent in scan lines - (=FBBdy+FBBoy)) - (replace (CHARSETINFO CHARSETDESCENT) of CSINFO with (\WIN STRM)) - (* descent in scan-lines - (=FBBoy)) - (\WIN STRM) (* offset in bits - (<0 for kerning, else 0, - =FBBox)) - (SETQ RW (\WIN STRM)) (* raster width of - bitmap) - (* height of bitmap) - (SETQ HEIGHT (IPLUS (fetch (CHARSETINFO CHARSETASCENT) of CSINFO) - (fetch (CHARSETINFO CHARSETDESCENT) of CSINFO))) + (SETQ FIRSTCHAR (\WIN STRM)) (* minimum ascii code) + (SETQ LASTCHAR (\WIN STRM)) (* maximum ascii code) + (\WIN STRM) (* MaxWidth which isn't used by + anyone.) + (\WIN STRM) (* number of words in this StrikeBody) + (replace (CHARSETINFO CHARSETASCENT) of CSINFO with (\WIN STRM)) + (* ascent in scan lines + (=FBBdy+FBBoy)) + (replace (CHARSETINFO CHARSETDESCENT) of CSINFO with (\WIN STRM)) + (* descent in scan-lines + (=FBBoy)) + (\WIN STRM) (* offset in bits (<0 for kerning, + else 0, =FBBox)) + (SETQ RW (\WIN STRM)) (* raster width of bitmap) + (* height of bitmap) + (SETQ HEIGHT (IPLUS (fetch (CHARSETINFO CHARSETASCENT) of CSINFO) + (fetch (CHARSETINFO CHARSETDESCENT) of CSINFO))) (SETQ BITMAP (BITMAPCREATE (UNFOLD RW BITSPERWORD) HEIGHT)) - (\BINS STRM (fetch (BITMAP BITMAPBASE) of BITMAP) + (\BINS STRM (fetch (BITMAP BITMAPBASE) of BITMAP) 0 (UNFOLD (ITIMES RW HEIGHT) - BYTESPERWORD)) (* read bits into bitmap) - (replace (CHARSETINFO CHARSETBITMAP) of CSINFO with BITMAP) + BYTESPERWORD)) (* read bits into bitmap) + (replace (CHARSETINFO CHARSETBITMAP) of CSINFO with BITMAP) (SETQ NUMBCODES (IPLUS (IDIFFERENCE LASTCHAR FIRSTCHAR) - 3)) (* SETQ OFFSETS - (ARRAY (IPLUS \MAXCHAR 3) - (QUOTE SMALLPOSP) 0 0)) - (SETQ OFFSETS (fetch (CHARSETINFO OFFSETS) of CSINFO)) (* initialise the - offsets to 0) - (for I from 0 to (IPLUS \MAXTHINCHAR 2) do (\FSETOFFSET OFFSETS I 0)) - (* AIN OFFSETS FIRSTCHAR - NUMBCODES STRM) - (for I from FIRSTCHAR as J from 1 to NUMBCODES do (\FSETOFFSET OFFSETS I (\WIN STRM))) - (SETQ WIDTHS (fetch (CHARSETINFO WIDTHS) of CSINFO)) - (for I from 0 to (IPLUS \MAXTHINCHAR 2) do (\FSETWIDTH WIDTHS I 0)) - (* replace WIDTHS of - CSINFO with (ARRAY - (IPLUS \MAXCHAR 3) - (QUOTE SMALLPOSP) 0 0)) + 3)) (* SETQ OFFSETS (ARRAY + (IPLUS \MAXCHAR 3) (QUOTE SMALLPOSP) 0 + 0)) + (SETQ OFFSETS (fetch (CHARSETINFO OFFSETS) of CSINFO)) + (* initialise the offsets to 0) + (for I from 0 to (IPLUS \MAXTHINCHAR 2) do (\FSETOFFSET OFFSETS I 0)) + (* AIN OFFSETS FIRSTCHAR NUMBCODES + STRM) + (for I from FIRSTCHAR as J from 1 to NUMBCODES do (\FSETOFFSET OFFSETS I (\WIN STRM))) + (SETQ WIDTHS (fetch (CHARSETINFO WIDTHS) of CSINFO)) + (for I from 0 to (IPLUS \MAXTHINCHAR 2) do (\FSETWIDTH WIDTHS I 0)) + (* replace WIDTHS of CSINFO with + (ARRAY (IPLUS \MAXCHAR 3) + (QUOTE SMALLPOSP) 0 0)) (\FONTRESETCHARWIDTHS CSINFO FIRSTCHAR LASTCHAR) - (replace (CHARSETINFO IMAGEWIDTHS) of CSINFO with (fetch (CHARSETINFO WIDTHS) of CSINFO)) - (CLOSEF STRM) (* This part imitates - \CREATEDISPLAYFONT *) + (replace (CHARSETINFO IMAGEWIDTHS) of CSINFO with (fetch (CHARSETINFO WIDTHS) of CSINFO)) + (CLOSEF STRM) (* This part imitates + \CREATEDISPLAYFONT *) (COND ((NULL CHARSET) (SETQ CHARSET 0))) - (COND + [COND ((NULL FONT) (SETQ FONT - (create FONTDESCRIPTOR - FONTDEVICE _(QUOTE DISPLAY) + (create FONTDESCRIPTOR + FONTDEVICE _ 'DISPLAY FONTFAMILY _ FAMILY FONTSIZE _ SIZE FONTFACE _ FACE @@ -608,37 +535,34 @@ this file. *) \SFDescent _ 0 \SFHeight _ 0 ROTATION _ 0 - FONTDEVICESPEC _(LIST FAMILY SIZE FACE 0 (QUOTE DISPLAY)))))) - (* This part imitates - \CREATECHARSET. - *) - (replace (FONTDESCRIPTOR \SFAscent) of FONT with (IMAX (fetch (FONTDESCRIPTOR \SFAscent) - of FONT) - (fetch (CHARSETINFO CHARSETASCENT) - of CSINFO))) - (replace (FONTDESCRIPTOR \SFDescent) of FONT with (IMAX (fetch (FONTDESCRIPTOR \SFDescent) - of FONT) - (fetch (CHARSETINFO CHARSETDESCENT) - of CSINFO))) - (replace (FONTDESCRIPTOR \SFHeight) of FONT with (IMAX (fetch (FONTDESCRIPTOR \SFHeight) - of FONT) - (IPLUS (fetch (CHARSETINFO + FONTDEVICESPEC _ (LIST FAMILY SIZE FACE 0 'DISPLAY] + (* This part imitates \CREATECHARSET. + *) + (replace (FONTDESCRIPTOR \SFAscent) of FONT with (IMAX (fetch (FONTDESCRIPTOR \SFAscent) + of FONT) + (fetch (CHARSETINFO CHARSETASCENT) + of CSINFO))) + (replace (FONTDESCRIPTOR \SFDescent) of FONT with (IMAX (fetch (FONTDESCRIPTOR \SFDescent) + of FONT) + (fetch (CHARSETINFO CHARSETDESCENT) + of CSINFO))) + [replace (FONTDESCRIPTOR \SFHeight) of FONT with (IMAX (fetch (FONTDESCRIPTOR \SFHeight) + of FONT) + (IPLUS (fetch (CHARSETINFO CHARSETASCENT) - of CSINFO) - (fetch (CHARSETINFO + of CSINFO) + (fetch (CHARSETINFO CHARSETDESCENT) - of CSINFO)))) - (\SETCHARSETINFO (fetch (FONTDESCRIPTOR FONTCHARSETVECTOR) of FONT) + of CSINFO] + (\SETCHARSETINFO (fetch (FONTDESCRIPTOR FONTCHARSETVECTOR) of FONT) CHARSET CSINFO) - (replace (FONTDESCRIPTOR FONTAVGCHARWIDTH) of FONT with (\AVGCHARWIDTH FONT)) - (RETURN FONT)))) + (replace (FONTDESCRIPTOR FONTAVGCHARWIDTH) of FONT with (\AVGCHARWIDTH FONT)) + (RETURN FONT]) -(WRITESTRIKEFONTFILE - (LAMBDA (FONT CHARSET FILE) (* kbr: - "21-Oct-85 15:08") - (* Write strike FILE - using info in FONT. - *) +(WRITESTRIKEFONTFILE + [LAMBDA (FONT CHARSET FILE) (* kbr%: "21-Oct-85 15:08") + (* Write strike FILE using info in + FONT. *) (PROG (STREAM CSINFO FIRSTCHAR LASTCHAR WIDTH MAXWIDTH LENGTH RASTERWIDTH DUMMYCHAR DUMMYOFFSET OFFSET PREVIOUSOFFSET WIDTH CODE) (COND @@ -654,79 +578,112 @@ this file. *) (COND ((NULL CSINFO) (ERROR "Couldn't find charset " CHARSET))) - (SETQ WIDTHS (fetch (CHARSETINFO WIDTHS) of CSINFO)) - (SETQ OFFSETS (fetch (CHARSETINFO OFFSETS) of CSINFO)) + (SETQ WIDTHS (fetch (CHARSETINFO WIDTHS) of CSINFO)) + (SETQ OFFSETS (fetch (CHARSETINFO OFFSETS) of CSINFO)) (SETQ DUMMYOFFSET (\FGETOFFSET OFFSETS DUMMYINDEX)) - (SETQ FIRSTCHAR (for I from 0 to MAXCODE thereis (NOT (EQ (\FGETOFFSET OFFSETS I) - DUMMYOFFSET)))) - (SETQ LASTCHAR (for I from MAXCODE to 0 by -1 thereis (NOT (EQ (\FGETOFFSET OFFSETS I) - DUMMYOFFSET)))) + [SETQ FIRSTCHAR (for I from 0 to MAXCODE thereis (NOT (EQ (\FGETOFFSET OFFSETS I) + DUMMYOFFSET] + [SETQ LASTCHAR (for I from MAXCODE to 0 by -1 thereis (NOT (EQ (\FGETOFFSET OFFSETS I) + DUMMYOFFSET] (SETQ DUMMYCHAR (ADD1 LASTCHAR)) - (SETQ STREAM (OPENSTREAM FILE (QUOTE OUTPUT) - (QUOTE NEW) - (QUOTE ((TYPE BINARY))))) (* STRIKE HEADER. - *) + [SETQ STREAM (OPENSTREAM FILE 'OUTPUT 'NEW '((TYPE BINARY] + (* STRIKE HEADER. *) (\WOUT STREAM 32768) (\WOUT STREAM FIRSTCHAR) (\WOUT STREAM LASTCHAR) (SETQ MAXWIDTH 0) - (for I from 0 to DUMMYINDEX do (SETQ MAXWIDTH (IMAX MAXWIDTH (\FGETWIDTH WIDTHS I)))) - (\WOUT STREAM MAXWIDTH) (* STRIKE BODY. - *) - (* Length. *) - (SETQ RASTERWIDTH (fetch (BITMAP BITMAPRASTERWIDTH) of (fetch (CHARSETINFO CHARSETBITMAP) - of CSINFO))) + [for I from 0 to DUMMYINDEX do (SETQ MAXWIDTH (IMAX MAXWIDTH (\FGETWIDTH WIDTHS I] + (\WOUT STREAM MAXWIDTH) (* STRIKE BODY. *) + (* Length. *) + (SETQ RASTERWIDTH (fetch (BITMAP BITMAPRASTERWIDTH) of (fetch (CHARSETINFO CHARSETBITMAP) + of CSINFO))) (SETQ LENGTH (IPLUS 8 (IDIFFERENCE LASTCHAR FIRSTCHAR) - (ITIMES (fetch (FONTDESCRIPTOR \SFHeight) of FONT) + (ITIMES (fetch (FONTDESCRIPTOR \SFHeight) of FONT) RASTERWIDTH))) - (\WOUT STREAM LENGTH) (* Ascent, Descent, - Xoffset (no longer used) - and Rasterwidth. - *) - (\WOUT STREAM (fetch (CHARSETINFO CHARSETASCENT) of CSINFO)) - (\WOUT STREAM (fetch (CHARSETINFO CHARSETDESCENT) of CSINFO)) + (\WOUT STREAM LENGTH) (* Ascent, Descent, Xoffset + (no longer used) and Rasterwidth. + *) + (\WOUT STREAM (fetch (CHARSETINFO CHARSETASCENT) of CSINFO)) + (\WOUT STREAM (fetch (CHARSETINFO CHARSETDESCENT) of CSINFO)) (\WOUT STREAM 0) - (\WOUT STREAM RASTERWIDTH) (* Bitmap. *) - (\BOUTS STREAM (fetch (BITMAP BITMAPBASE) of (fetch (CHARSETINFO CHARSETBITMAP) - of CSINFO)) + (\WOUT STREAM RASTERWIDTH) (* Bitmap. *) + [\BOUTS STREAM (fetch (BITMAP BITMAPBASE) of (fetch (CHARSETINFO CHARSETBITMAP) + of CSINFO)) 0 - (ITIMES 2 RASTERWIDTH (IPLUS (fetch (CHARSETINFO CHARSETASCENT) of CSINFO) - (fetch (CHARSETINFO CHARSETDESCENT) of CSINFO)))) - (* Offsets. *) + (ITIMES 2 RASTERWIDTH (IPLUS (fetch (CHARSETINFO CHARSETASCENT) of CSINFO) + (fetch (CHARSETINFO CHARSETDESCENT) of CSINFO] + (* Offsets. *) (SETQ CODE 0) (\WOUT STREAM CODE) - (for I from FIRSTCHAR to DUMMYCHAR do (SETQ OFFSET (\FGETOFFSET OFFSETS I)) + (for I from FIRSTCHAR to DUMMYCHAR do (SETQ OFFSET (\FGETOFFSET OFFSETS I)) (SETQ WIDTH (\FGETWIDTH WIDTHS I)) - (COND + [COND ((AND (IEQP OFFSET DUMMYOFFSET) (NOT (IEQP I DUMMYCHAR))) - (* CODE stays the same. - *) + (* CODE stays the same. + *) ) - (T (SETQ CODE (IPLUS CODE WIDTH)))) + (T (SETQ CODE (IPLUS CODE WIDTH] (\WOUT STREAM CODE)) - (CLOSEF STREAM)))) + (CLOSEF STREAM]) ) (DEFINEQ -(BLANKFONTCREATE - (LAMBDA (FAMILY SIZE FACE FIRSTCHAR LASTCHAR ASCENT DESCENT WIDTH) (* mjs - "27-Mar-85 14:48") - (EF.BLANK FAMILY SIZE FACE FIRSTCHAR LASTCHAR ASCENT DESCENT WIDTH))) +(BLANKFONTCREATE + [LAMBDA (FAMILY SIZE FACE FIRSTCHAR LASTCHAR ASCENT DESCENT WIDTH) + (* mjs "27-Mar-85 14:48") + (EF.BLANK FAMILY SIZE FACE FIRSTCHAR LASTCHAR ASCENT DESCENT WIDTH]) -(EDITFONT - (LAMBDA (FONT FROMCHARCODE TOCHARCODE) (* mjs - "27-Mar-85 14:48") - (EF.EDIT FONT FROMCHARCODE TOCHARCODE))) +(EDITFONT + [LAMBDA (FONT FROMCHARCODE TOCHARCODE CHARSET) (* ; "Edited 27-Jun-2022 10:47 by rmk") + (* mjs "27-Mar-85 14:48") + (* kbr%: "21-Oct-85 15:35") + (SETQ FONT (FONTCREATE FONT)) + (CL:UNLESS FROMCHARCODE (SETQ FROMCHARCODE 0)) + (CL:UNLESS TOCHARCODE (SETQ TOCHARCODE 255)) + (CL:UNLESS CHARSET (SETQ CHARSET 0)) + (PROG (CHARITEMS MENU TITLE HEIGHT WIDTH REGION POS WINDOW) + (SETQ CHARITEMS (EF.CHARITEMS FONT FROMCHARCODE TOCHARCODE CHARSET)) + (SETQ MENU + (create MENU + MENUFONT _ FONT + CENTERFLG _ T + MENUCOLUMNS _ 16 + ITEMS _ CHARITEMS + WHENSELECTEDFN _ (FUNCTION EF.WHENSELECTEDFN))) + [SETQ TITLE (PACK* (FONTPROP FONT 'FAMILY) + (FONTPROP FONT 'SIZE) + (PACKC (for ATOM in (FONTPROP FONT 'FACE) collect (CHCON1 ATOM] + (SETQ HEIGHT (HEIGHTIFWINDOW (fetch (MENU IMAGEHEIGHT) of MENU) + T)) + (SETQ WIDTH (WIDTHIFWINDOW (fetch (MENU IMAGEWIDTH) of MENU))) + (SETQ POS (GETBOXPOSITION WIDTH HEIGHT)) + (SETQ REGION (create REGION + LEFT _ (fetch (POSITION XCOORD) of POS) + BOTTOM _ (fetch (POSITION YCOORD) of POS) + WIDTH _ WIDTH + HEIGHT _ HEIGHT)) + (SETQ WINDOW (CREATEW REGION TITLE)) + (WINDOWPROP WINDOW 'CHARITEMS CHARITEMS) + (ADDMENU MENU WINDOW (create POSITION + XCOORD _ 0 + YCOORD _ 0)) + (WINDOWPROP WINDOW 'BUTTONEVENTFN 'EF.BUTTONEVENTFN]) ) -(EF.INIT) +(DECLARE%: EVAL@COMPILE DONTCOPY + +(FILESLOAD (LOADCOMP) + FONT) +) + +(EF.INIT) (PUTPROPS EDITFONT COPYRIGHT ("Xerox Corporation" 1985 1986)) -(DECLARE: DONTCOPY - (FILEMAP (NIL (1490 41501 (EF.INIT 1500 . 2609) (EF.EDIT 2611 . 4889) (EF.PROMPT 4891 . 5533) ( -EF.MESSAGE 5535 . 5828) (EF.CLOSEFN 5830 . 6579) (EF.CHARITEMS 6581 . 9239) (EF.BUTTONEVENTFN 9241 . -9736) (EF.WHENSELECTEDFN 9738 . 10300) (EF.EDITBM 10302 . 12192) (EF.MIDDLEBUTTONFN 12194 . 12522) ( -EF.CHANGESIZE 12524 . 13795) (EF.DELETE 13797 . 14715) (EF.ENTER 14717 . 15618) (EF.REPLACE 15620 . -16549) (EF.SAVE 16551 . 21425) (EF.BLANK 21427 . 26773) (COPYFONT 26775 . 29227) (READSTRIKEFONTFILE -29229 . 36752) (WRITESTRIKEFONTFILE 36754 . 41499)) (41502 42014 (BLANKFONTCREATE 41512 . 41779) ( -EDITFONT 41781 . 42012))))) +(DECLARE%: DONTCOPY + (FILEMAP (NIL (1748 36280 (EF.INIT 1758 . 2484) (EF.PROMPT 2486 . 3068) (EF.MESSAGE 3070 . 3282) ( +EF.CLOSEFN 3284 . 3811) (EF.CHARITEMS 3813 . 6034) (EF.BUTTONEVENTFN 6036 . 6448) (EF.WHENSELECTEDFN +6450 . 6854) (EF.EDITBM 6856 . 8254) (EF.MIDDLEBUTTONFN 8256 . 8501) (EF.CHANGESIZE 8503 . 9722) ( +EF.DELETE 9724 . 10489) (EF.ENTER 10491 . 11322) (EF.REPLACE 11324 . 12187) (EF.SAVE 12189 . 16862) ( +EF.BLANK 16864 . 22489) (COPYFONT 22491 . 24931) (READSTRIKEFONTFILE 24933 . 31905) ( +WRITESTRIKEFONTFILE 31907 . 36278)) (36281 38495 (BLANKFONTCREATE 36291 . 36548) (EDITFONT 36550 . +38493))))) STOP diff --git a/lispusers/EDITFONT.LCOM b/lispusers/EDITFONT.LCOM index 958ef0d4856bdff8ae9a5fe66c13b944ac18ba40..bc1159351b43f658d2bfe2e433c28b56b024d931 100644 GIT binary patch literal 12638 zcmb_iU2I!Nb|xvUE7J)>$&A)fyxNKCDwJv|sIGO+)ikWO6DP z8)E*U)vedBtvAh@Y|%C&D? z+rIuQQ*3iAJIDlqwlEh{+U z#~HGVUFuAm&5U@1OL8S+oB&|w^4gd6qs2! zYcy(`-+EN558z*~%bBiad~Ty}wfj}-_kSOEqV9DRGC8+D7GY5F_ zqAZas6-zu{tgvW+eY3lZS}RLM{g=PVw8>+JXaUQRuzdt{fr|hXa0-x90C9n zs0!UIuY7%tnF4$MIwO^4S65aypn^MF>}y+_JL5wmBP?pDUSGM!u;cAD9Q9TE8b*XpNs+_@fk05I zRw16(SvfN`H9B8d$P|)e=uy!Vl~I;q0ojnq>G8sRaV*74`SK_fP|-_zSqDNWVvxyi zFF+x~4wu6z6!79nQZFc7eV{n7>JYS7iDakCZeE8!Jjp7RrA&d~kcGlj8OL`Mdbtdo zqiPa(nTs!#E9jDkVnCUeOY?<7rZC&;so4jLTIVzXUY|H37D(^uOjUhFsAS&r^D6DoN=-J#hUn;PP>UC z;^fNWeD8DJf>okj{OO@C#<>&DzNNGvWW-;vY$C$+OYt0wf^|C1T!uv^#2UpCrBqo& zW6SwVSY(BTC+O%{6(JPDf-{96gE5hXU<8LzkCzr$jLqs5C0W56usp1FexDAgHUWzR z_!dA_E|Y~5;B_ot!3&?$0bY0=iWiCtfE9l*s+Mug%bawl7JE(PKDz< znB^1<6=gWEtyM#&# z6xM<)$qUa{STM{AwEHk{qq%h*ID~Udh{G1vH)~sOz9cyUfGK4vdcNFRZio>LCkV<@ z;Z%+#coN2*r2w1ldVrA;rcHepI?&zw?O)n-I;MrjEZ0z67l&)0mLGT-wZzBq!$t8s zbGS6UKbW|Cd*5->otTz8Jwe;ucU`7|w{JPFq%&2I@lk<$?%#M}j(b4L-ur%zd)Di} z!##2m?y1-4_zvU;KIER)AN>p?cKKi1i1O^1BjT7C-2j z-bg>?QNk8dgyPe$oEy_>QI;u`Gf5rd53*dmT*<@U>q`vhp;cRiLL|$@L@rY-0wPNK zY=%Px+KRc5)(d5ri3B_~%U(2=r7ubSfw2P*NFzwH&qFF*(;u9hkyiWO4~^-#knrzG z&Hccw>a_R}&O3a8Ofs3%TPqJv5>Z(bfMSHn4p?hWPgP7V%MSl5_$L@!79MJ8z9>D@ z$6JJ8Yda8>#*{jct0MTE!tv-tO>Fy;v)eQiWpP;Hnp`YzK6)fi<-kB?V72F>bG7@T z%jty1-f7&s!BBQN-+x9z=W4eB1-Mu`V-UH1=5)zK#TdLKX>;LzBzSQtPL3#+k&Y*I z!FS-8ttQ-qfHae8sDKuNe47Q3=r?M&08kg31yC%=m;xu>nIZ>|!tL&0M7*2Kg4a>$ zeXdJLT*|o! zNY$GzbxvbKeXM5-EF?djytmJof<$K5UCi{YZn8H4mt@*yp>T8Jl+|uNWvSJ@f}x8R z(y<+C(pE1`JL|Q~6C|cyZ`X9@i~&KBD$02}L=@CWnOZUm24fZ>5uhHG(j?AP7V0#U ztFTy5oh^y7Y$B{|zp&|fcu6GJh=>rR(Pm-bCbg# z#A%4v;4%yq*4|`quGepOc+&*@i5)4rM! zZsM(;DzXQh9k>leI9VM6Vd&tL(R|eGI@~z?XQ83hbD*B{xjLxBpbq;SM)hn>xt*`@ zv$EuPxl#3HWgO#l%GtW_RQs|yvCzvM3v>L#>2$q1YE=Dlo#{GEVe`?yR?o;!RL@KL zoJk)@!$)v_((65|W}Ne#FjO&*C8=ToYvyP989pE!4wIbsb=SSlYSiFiuHFBGy@&tK zqc!q6{uC7QoZ*MOKW6Z#v)XTDdB0l!;ZJgAxvM&e%@2P1w!sH~%EKE!tA-68a8(0) z4}WO+@S|T9-%#VLUZXwUW8``GHuoN2u~FgiJk7&$>URs&(s$t4eL<9b)Th5uo8!I) z_i~SLAjF?11vd@uqls^1pK1#xW_}=>7!yj|MYwzKoIIH8bWn8rU z6*_*vXU+{4W2c!Wjf*;76cSYs8B{LhzLO9 zEgX<#_+>mXga26s`1qWq4%I%2$8bxI5P?CFAk8TAC6Pc3emufC7KZgxo>&-(0#ytF z4$UIq&n&|F(iRYsi9D?qo3z&_5D{A2k&&|2gA?YFM!3+5?!>2pIPKQ1F&We)^>U(= zDOLc`(U1u9EEKqJ$eLM3naMNRle|@G6hWnFiDq)~LbhdzCJ+!q8Z3%zTR8zMg=9or z7T|uu;L&(^N~ugql{J>4d=oi&aImn*cs`R`LWI&)c+TPIAw;=*Rz_7<9q|x*C$21x zF(Z)RYIovG&UX?fF^NjjtmvrdW+jD6%B;+KLhMF#)>G?x-(Rox8C9=5&i_@v(Ld`E zA5JzBcYrq=hd6rg&U(y|60T}GAgY!+0!u!eLEjNr>IbzS7_g*J$#HqsBj@`wfiHoSzr{_0(b2lS2~*&B>p`8uy4p`ih*W;5(5?Bn28tf|?&0UA0$nu(ABwGJ$Y;8trK^w6J^^atE%fE&~CnTF^ta=ruA0Cpbm`2f=!htkEUY9ML8L1R%eBQ2q* zN6vc74cMyjFu_>(phq^UE+~~K~M*GZ_V+c+p`|(HUz@Z-h)qad>GQlUlOMHdq~a0Xdd2s za5u+CZ|8|H3c~2#gMZ8MaY+~lVSMkwFA%Q5hY~m##aUjCUz(-!D35G7YDdBl)sF+( zP&lga%LLa+IDQrkB~-H20Yw(aFi3e0y)X-y=JGbP#7Mf`w@#N2~Ei4fVs<1hyBnH zwpjaX3jEFfL4^0m84F<-DEUFFXxW8!M)5xpwmN(N=9It|nMGS{qr=j)fP?+P%gsj( zxH{xQ^mE_+-%oqzct0f;m*3uVyeEMvC!xdrVJ#2*QMFSa)d~P2S=&D$PB7Ak06jpK z-G}so>IJ0PsePdK0qw5Hl{nOw95~k-hks{eCE2COE*n`j(q&kNmYXHVuOFwcfA7(Y z$X+5Yv>go6W9z}eb%P~uWNQksf;?^-IIKar?7~6v+#*~pU>9x>N@8sf!W*&Gk;u2z z10BwTy&36$Ywu|6SWRG|BPU?uaq20whAv>}4kW9S?$F(HOMhAuB8w#yi(Ck_Kh}G2 z{qZvn#|iQtu05R)7D@aOW^Pfck6rAaW4Y7p=V^8*|GpxBsvav*8Yf9PQ1(aFPFee1 zF%6w*%?_*H>|OlhUSXA&)26~@x%cC{ywpNK7RAF!texZ@#FW$$Q?9M=8=#HRfk^&K%0VW$~K?8xv;=+lAaFmX< z#X$rJGL}%b7*4(Q8;C`$Rlo)>;-x2g!_Tfk3Hw3EI&rzb*T1S%XIP;6|GM-CPs3yWu z0jvuYvONY_!8-!d)?z3G1Nx58rOG7ZsT2%;8I=$vfGE%&VXlw9;&OBmw(dS7BeQp= z&G0DxqsCR&?&(JS(;qb-#XoIFYq%JU%ZtJI^tu3)B{O#>@10b}XWy~x;GKw`DRT-4MU&xldGm4v8R1%9^CCNovrQ zXag}DqB?$#58b~pm|u92pTi1dZj11ReaO!N3C`{QJe@bckT<`ec7H;GovZ3;_GIVo z97@mVmYaJ%K71uzFozY)VQD!I5tQGk4s*ZifY8xzb}`I8rw}7nNBMcP4~p$Ra<_)L zYwj_p;vTb;`p&*w2*s5SsrXI(YH>1KyuIgvWU7*YFjv zTig9>X|%+})ug&?Pq8R2?v`gbayQWl;H4}fbdaUUq}dt?Oek8IA|BC?9ClR#6q_Yn zW6D-Mi%=z?gDL@=WGOU>5J&V2#mupxu-Pw!e3oq0T3^+*k)yT1w zt+@PYLq40povp~uQ*b9uh5{89wuMnhBin;20)-;bBtmH;f;9?@6s$!MRa&tr(gB4L zY*}TzBI-873?srFL&E_(?1d0ZcHn&oOf~aoh{LQCYsknI@O(l;HV*QnbR5jAwFksy zsbW94NQmKy7DY+;Y9U^t+!H1pN^HH+tZhDzcTRXzAzn#cU)!O_CL-fSYf>iH%#eS9 zxi3er1Gz6GQxbURHtTt^2UQ0>e-IaHVgcEAn~*auOwKJ zmqCgkVM%WXP{b9LNY&BBWm?b7rs)|G-i6R3Ka|uhDqYDF!$i&x@3UHQ0m|kh67hzF zZk^3nB#K~K66eH|ctz66;lX2c88a{sSG$b_DkqHI?}@!i*j0|?v=8Cgy6*|2*7W+2 zXG*sp7$Th}0NZ!`OG6~JDXw!HOP0$AOR+a_%2L}sS9A6{pWtVNZ`X%hAotxo$@}U9 z)&B4BzF{DatLx@J@%}#1L0GQK@*$KU$gI{C3q_EZYgu6-Ua2_?u3T26!(Oh*yWgru zu0JjPYVK*&#ZSiDMT(WC8(H*TwFH6nDIl!St=6Z%NLj0Ku z30{L+BLtsGDeWMzkmpG%ga+3lk=7Gg+r2#iL25~R9JEo6Q|hAyC`{}e7{CKBygnYq zRVOxrQUX2-xk?F+=U+jUNfGy+!I1PlWd(U10Xp_YCh^WS@iBq|84vu=wZ`Q(T3&pO_+Rgef~7-T=Mfm62p*+C{iu ze!SwvE5Za`rsBz4rS)tS1iH{I72_8#+K9lT(H4P?jj@@xSaz-1e2bN~R#xldtgwc+ z%y@K}<9M>DL%5|%c^shwTLDxNkxruE9=(WmZ*A9bHH!Y~-892v>FdC?=Gr(L#RF4F z0#6MK@bml-C|%$#@DhB;DB5P0;5wQV4TOArQJilr5}~)L^Z7j9PA2t5=GG!nV5gtn z5MRQb2J?eILP_yX33Sw2FNhhDKr879%v5ek1tfY3jjrM)GJfUlFHzJ}12>h;hj>(M zp%W^0d4td)A5hdg8FK!e16I|}A~4~pV?6u5 z|E)H9#F)_PNbAv_)DyXQNyqDUdQ34*>O-D7-T+o;GH?o2aGB&yjd0m%AVwAivx$Qv z_-ATZhiF@5yMRryRm>*MB5abi`wLPWp*M1lm!zQa=A0D7LbGcQ8ieAs^hPKyJqM(> z)+M2zVzH^*tl$8|B-r8h11t$%pkt=pBxaU`{qqkku5E99gC(}MuWfCw?5uBX4gt21 MRmC6Zws>&&KQ9k*Pa-9fmnJDovK2G3$V8GE z%aE01*-&iAmkq@>Yy+C^4=@y2yCo=wT5()#OFMqpfZ87n_(MM^0S2V)`e6gMB@6ax zsJ-7g_dfDHN>1Bh4G{6(bN{|`&-tA{_c}D2%~`3Em8@84F(M|TUa#+5f6hv0E3>jt8UMA& zsOT9n5@+XMZO~kii76v7WyVLuWtyt-bWLnxrhL8DsJ|hM*xBT(FH^tq@$nH+TieA- zBW-FVJQX&k%*m0_o{(#^Mw|yG;vy2CGNM!ANo>w4Wy@cAHkU0I7t2B_dPd*pxZ( zxl2Swd#u^LvG>pq{y^P&g;JyqMLpI~>h z_A(cQT{zj?s$Ko92epkM{MYOAW@_2s@n+w8_lwl;mmhazBj71yb3LI%Or)*ZDsDwbrvSP}8C=Wa^N`bOQ}5?m!E6@r^s;^5*UDO8R$d;jq0^f40CxA(k*)5)3Cqg46Z7wPX)wdr7>S=$Ug+N?DK!K2Mu zrY-#gw)7va22~7{0jR;>O|!NfrwJX!-tY-W?Z&B^x7Yiq9OSL^Rr{JUc)&QYD20lRSP#W<*Tgq(>x4%8Hz?Gg;gral8A;UL~*gAju`rg!%IwxWID~~W=tGt zjhjND_>wTpxR|plGjbVXk*$zG7|}^35ZPHRHAd7FGucW$SyX~zK)q8LE4ArqGPN)!B9oI`N&%z+E}4`pL_{QJu+RWhq}Cg9Xv_k_8oQ z5hFs)y#$M5dVC%)%hx#;Qpn}TP;qG8!?YJkwB2;o4WegGib`cATYx8!7LW~8XwNCD zTo#cqRnxGkx#UW@f-ZS{C$NKVWXM};KC=BEAT=XvY0Q< z&m{07qrRNUmI=xtB3UReStS(1_V+VLY4K(rR!Z0#*cNLK1&<1kcs;&e;Y~6pmTUYo zona+peN@H8-Y<1C*SMYk93}oWPaX00tz?*>Fag|~hzaX_GAH8Tq6Pbz6|o6EL;ePJ zzyd=Ps0avRhfF{sF$}r^iByG146OG_d_>Z}i$F(2GFjn4T=_MjmnTHx|H zInrTvM1C%pz?Y!c1HJ@2nlG9o1WQnPwWUKg!oCC_X(}hn7BqqvB>t?|2cGPCK$ ze11g%De6&GZ?zk`D_Q4=HmGb*=|F6IstxS_&G>rW0@J!-X|H-c%8;zqP~2qAAFBFc zD2J*6P*NWy_m}y1W`AY+&T#7Edv`pyj;E#-*N>2F-|=0b!S`-^E@ra5zT>h_20yzQ zpO-<9URe0#YdIO*-1t2iR4ZMQ!HpUr4A$XgU|C;z@Ix5X8$XZ%5}e2ci7v5GvnU=D ztIAFhk(dbc;p&3pn^0Z}TC;^&2?EQP8`)c8os#){vXExf)XF~#UPHZ{uD0p*db|+s z4YhMEbu5l7bZ;rj?<+i9e*ft7mCR#)Es88-P*D0+yC7o|7uiBNo3;Q=5s^!lD|rdA zT!C?G*Ono!>2fiZ%NC2kBITZq_Oz9z!IlNAUapR z`rv^=jiI5+(E8DH-u3QtKCc&2{NdIoHwDT*?|WZRAiv(-gb17~4K|6qG1y;X0f3;w z&a025poikYWG)9kN|ZCnv_;-ASmLg6U=nUS=m-?FNRk)sFlGn8g>k}Z%;0$tip=Kb z7$)ebTOgtJ=1^Gxr{XTtmOMhHE$lnr`=v)%7Wn)4&r#BEvR(btE%vg zGw}#ML7VL*5sQl@f+`k8xCx8JG|aTiO^kQiB2o$4*1>wTgpFkhyoAz|iFa5>Tjn|> z^$;~bL@B@s)_B??B;^SxJ6STV%r#PohEMBrf_2KNgW$IvUFzk`PFW^o*Wf~)NWofa zL4KqaX@%`b>(Il(zTSL~b7%1c%i=;Rx{S;1N&8#LNP|c_vp82|IF7Ku$>m z+xa1=(SApay=CRKAoHTSL=_t8E=V3=fbNoL??E4qh{KUiUf$k8LI{Z=Ga*I__1DGg zo3-7I=SL_X;b?{B=hlt-=F1zq+Rp31U!Q99;HhfOa~!6Pvt+St7v`Zzob09p4f_;- zmlYl}6t5`6@p>=x2Dk!3!f>t~(hBFG^?@WI2W6F_7v+S5QQDX0Xi-TT*kDGq z(LtG@${|N^pslM&9EqzCHJzOa)n8j{yh?e=(JAFX+F2gWL^$@HOe9#)>6x%?;U31! zl`dkY9g(as7qiTa7A~l&gPXozf}8NU9Ncv2KH_5sH_gMi`3tHnMI=g(n5l;3_EtT2xq^f=1R1UY@ zcQ|Kccw6o|bVp~+CTuJx&tJ8x3>$Z#A{L)%W!B)k&)7o^lxZE#W1!IX-6+LoW6G%T zEe#_q>ixvu`;9?Ix@y@`UfH@>Tg||i+3M{-DUGgMU2pDr1N|?ONIkx7 zBX^HCHQ`wG6bPs8o@h26G`jY$?EjcGv3eTR(?MScH3VuX=xJ7mYdQqDB!^YW^TJj& zxS%3kuUD>X~MBOzm@i1CB=H!B4A$YKrQ(qUUV-PzJu4 z_b1hpy@4<4HRppzn!1?BrgX7@UCUuPDD6C&+F(A|y%F$M6HOVH=4XGrcmH2yq6V|) z{R>bij)4dG-r1&1c&h`=1v#Lo^t%OW>AUN>@eG%O)MsF;hG=R_2AsLT z9_A;4CmGmB@Z{deUwNx%XyR|nGj#m-|7LUV{=0I_w|D zgkpfTmc@>S<6@PPwd`<_j%YD95Y?2BK0_oXBDfJy3asrqCG6PFkiW1Bk65N=@c#l- z2>9%%LsJjhA-H`9h(LxIG}uPZ7=_&h1p2}>qc%vI(U!7CCnjxb6juq_N=Msz&p=>I zs(3<&i%66zjce7Bl+ifB{UZ~twIZ=r(5;%V4QE%(L|jW-V z9T25c5N$MSAr`h`L#O&KtVOp7bWe~4%+Y7UH$XXt9E&cRZCIuIfi|kr4FM-p$*OTO zmB39UQ%6NtdeGxJO5hgmRiX7|PckarNop(KoMBM9+?{&F`%cOxrcp`T6$=&1uFRq` zYggv{QE@Xq=dX3W7utZrRQnXN{P)JqfjK`xEy}jq_>Q@ka$G4ikvY+a0wRr!h zKL-jWQBqev+-f)Yy#1I1O>L6*LBBP-Uk&8YfC2OBXP+}Uj1!mCB8A|QY%0yMuOjHR zafztEk|RKD95*e#W-UqAD>J~?+SXm%wrt%!Mt{JEE${)CGh5u9FEWOzL-^*QU=X(A z%D(dFswY7@860jdD>h^l8Xi@v-acL(M*A=!>G0j7s!?}2rn{VQfbHF5t}e&zS?sR+ z%BazFuxzUDo#AZIqlfVs-+eLz_zyy&pJv{hfJv`rZOT z@M*yO=^OviKj%-Udi$S{p{`p`bezI_q5i%5ac_0JDbL8U&u;#BUY@xp$7%E#j6Tzp zAzw9g<95fKKcM=YzqQET&;Bik<@WF4FC8WS-FGzqlp695!oPPC{u9x7RKsvQ3`Z_` zevSY|X{{McxPUlH^}}#JiiD~g+Y!(?A)G+bRRyvNC7M1XqbTO+x9JE zaO2uFT#YztQS_v(F=im+e4~vpprfl=0%+i5+a`=W8v-n#xVvgm6=^`L(a-HW6Yi5 z3ylZB%oB0|+2}vY1m@)c<*rxX-t&A%L0wLP(edxs@<23QJMj;-0-#OR?i^uEsQQ6Y zet@9cHCFe@ovv{o`t|`oFRE>L^h_Qg@|FF6YAz_UPm_HvvTmdo9a-A$0(r9oz>a~v z2hSog9z)#i@Sq}endYqH`qz<$bT#1wl!IpA?2L$87!5=|P9cckO4L=yEwZZ)Np;mb z6e|*TJ5!KcXLqQ-vx@BgK?%c!Xs0qv94_)Ki*x~rJI3sSMbbhKer&0Pk2FuNQUoGY zM5?;w*d*G)n#zpOp3o)ka97&bHY#}2&Lk!FaKnaKMPV^NLuprPcezT~O`e@1{i!G` z^+tg_BF=Sxo-^co>j{tNh;oKfY-afn+wNs0!ESjBLh^zK91-Q7z!AxaA7#Y8`g=+J zRQ*n(GNX!eR~uJdJK^ki@u1xeEPRarWPn|b)r>9k3o`K0$Gu%ac}hwBarN_Db+9Q< z$Ddp{Yssm%SZXU)BN}L;m(h0)LjmDeq3FCj`O4X z-Wj$&z6bwDkJSE8I*^xR_qND^7z4J9A^szRK5Cn)otC}(e}?-!clU20P{hNB4zB{4 z94F#LVK~&~u81NHbEtz6nMk-D3 zop2MwMqPDe{yK*sHti%4wmR&ndC=o9Cl7>qW(U-nu*Mw|lQ-5$!UbsC(udn+u;(FG zA1`&ByNkkaaMletZmv2kiK`ACxax?pXVcbsB#ZIph53z0zjd1(LGIbv{Xj&F(BIYG zVP7B*haf&;fA|Fy{Bn5DxV}U|@I!!IAv#ic`q~SNC<^`lJ3#-X5Q~$LsGtq7d3w z^*4?#%zwDAT*=$VrT?S-OPPW_tY8nz*p?7MYIRr&-2qugVRvcTeNG_3S{;$6>^>;A z`>1bi+TSew_EOSschd9RQG2}OY51@!dwujwH)7)VOZPK z{{F4%P(}{5Rv5BZkb!yI(B91I14N!gv+{dLH1;7c@^x6^0Dj++L%Dr~{D)4ZEz6DX z_A5Kf_rsIGVSep{7rsaZ&Pb&2;&E6FE>Q@lO9_|@MGM0KaLI%RYM1b4K+!0SR3*Tw zE|H6@Xuxn?LV%`9Q6RJ~CG4?LJS5aKGE+R(XzkA+i==2VdlmyRp{60o)}_{J2A)Z@ zt&~8ZrtYI?i|#iprYoGqwVXS+C8JOT2*&UzjIo#unFf#;7Ip$`49mOf_+;&?#_)LE z*<^MMH9LHD%9(c9qbQhar&00k&e;q^x`^9gClK&0Rwyew>E4>#_s93Z6*uuZo5EGh zT1b{w@VXg^gpt(ttBo2xfP4wBuK0oU^*TR zV0b`@mr8USS!q3c2cZl$mWs)9=UhZEb*x1YXU~e6H^f4{(Rf3Yw%67-#zmoye{#O+EB~Ch?3D8?w`-uUH z_M<~8!sK(FoqD?;i-FMb&+4$N5Q_sK#?yp@yqhW zVLM4UZaEGFvOR}5L0|&?Ba}|fpxx0lXf87Ah##Z)&z6^tgKCl8$7Pe9hi20pM@J{u z^Zz6UECp(f=jkZ;-4IEDgXWe4G_V-7q=3Z`PtzfpI8>H4-Yi~7F$XX!v!f>jn4(t? t<+ip^+N8w);2|`!T;JLLb&=ZMxwgHtw!67~bp-Fxk-)?sNGdlarry>medley>lispusers>IDLEHAX.;3 26245 +(FILECREATED "26-Jun-2022 18:21:17"  +{DSK}kaplan>Local>medley3.5>working-medley>lispusers>IDLEHAX.;4 26796 - :CHANGES-TO (FNS IDLE-DRAIN) - (VARS IDLEHAXCOMS) + :CHANGES-TO (FNS KAL.ADVANCE) - :PREVIOUS-DATE "15-Jan-2022 15:31:21" {DSK}larry>medley>lispusers>IDLEHAX.;1) + :PREVIOUS-DATE " 9-Feb-2022 13:53:05" +{DSK}kaplan>Local>medley3.5>working-medley>lispusers>IDLEHAX.;3) (* ; " @@ -194,8 +195,17 @@ Copyright (c) 1985-1988, 1991, 2022 by Xerox Corporation. ) (KAL.ADVANCE -(LAMBDA (STATE) (* lmm "30-Jul-85 20:16") (freplace A of STATE with (KAL.ORAND (ffetch A of STATE) (ffetch B of STATE))) (freplace PERIODCOUNT of STATE with (SUB1 (ffetch PERIODCOUNT of STATE))) (COND ((EQ (ffetch PERIODCOUNT of STATE) 0) (freplace B of STATE with (KAL.ORAND (ffetch B of STATE) (ffetch C of STATE))) (freplace PERIODCOUNT of STATE with (ffetch PERIOD of STATE))))) -) + [LAMBDA (STATE) (* ; "Edited 26-Jun-2022 18:20 by rmk") + (* lmm "30-Jul-85 20:16") + (freplace (KALSTATE A) of STATE with (KAL.ORAND (ffetch (KALSTATE A) of STATE) + (ffetch (KALSTATE B) of STATE))) + (freplace (KALSTATE PERIODCOUNT) of STATE with (SUB1 (ffetch (KALSTATE PERIODCOUNT) of STATE))) + (COND + ((EQ (ffetch (KALSTATE PERIODCOUNT) of STATE) + 0) + (freplace (KALSTATE B) of STATE with (KAL.ORAND (ffetch (KALSTATE B) of STATE) + (ffetch (KALSTATE C) of STATE))) + (freplace (KALSTATE PERIODCOUNT) of STATE with (ffetch (KALSTATE PERIOD) of STATE]) (KAL.SPOTS (LAMBDA (X Y WINDOWSIDE W BLACK XOFFSET) (* lmm " 3-Aug-85 21:59") (PROG ((X0 (LRSH X 7)) (Y0 (LRSH Y 7)) X1 Y1 C) (COND ((ILESSP X0 Y0) (SETQ X1 (IDIFFERENCE (SUB1 WINDOWSIDE) X0)) (SETQ Y1 (IDIFFERENCE (SUB1 WINDOWSIDE) Y0)) (SETQ C (LOGAND X 1)) (KAL.BMS W X0 Y0 X1 Y1 (if BLACK then (DIFFERENCE 1 C) else C) XOFFSET))))) @@ -470,12 +480,12 @@ Copyright (c) 1985-1988, 1991, 2022 by Xerox Corporation. (ADDTOVAR IDLE.FUNCTIONS ("Swap" 'IDLE-SWAP)) (PUTPROPS IDLEHAX COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1988 1991 2022)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3794 7834 (POLYGONSDEMO 3804 . 3974) (POLYGONS 3976 . 4340) (CONNECTPOLYS 4342 . 6740) -(DRAWPOLY1 6742 . 7379) (RANDOMPT 7381 . 7832)) (8471 11453 (KALDEMO 8481 . 9892) (KAL.ADVANCE 9894 . -10295) (KAL.SPOTS 10297 . 10638) (KAL.BMS 10640 . 11127) (KAL.ORAND 11129 . 11451)) (11490 12976 ( -BUBBLES 11500 . 12606) (BUBBLE.CREATE 12608 . 12974)) (13003 13988 (IDLE-WINDOWS 13013 . 13986)) ( -14023 16294 (LINES 14033 . 15092) (LINES1 15094 . 15504) (LINES2 15506 . 15817) (LINES3 15819 . 16292) -) (16354 17567 (WALKINGSPOKE 16364 . 17145) (WARP 17147 . 17565)) (17592 21875 (IDLE-MELT 17602 . -20118) (IDLE-SLIDE 20120 . 21873)) (22046 22292 (DEMOWINDOW 22056 . 22290)) (22704 24577 (IDLE-DRAIN -22714 . 24575)) (24609 26090 (IDLE-SWAP 24619 . 26088))))) + (FILEMAP (NIL (3812 7852 (POLYGONSDEMO 3822 . 3992) (POLYGONS 3994 . 4358) (CONNECTPOLYS 4360 . 6758) +(DRAWPOLY1 6760 . 7397) (RANDOMPT 7399 . 7850)) (8489 12004 (KALDEMO 8499 . 9910) (KAL.ADVANCE 9912 . +10846) (KAL.SPOTS 10848 . 11189) (KAL.BMS 11191 . 11678) (KAL.ORAND 11680 . 12002)) (12041 13527 ( +BUBBLES 12051 . 13157) (BUBBLE.CREATE 13159 . 13525)) (13554 14539 (IDLE-WINDOWS 13564 . 14537)) ( +14574 16845 (LINES 14584 . 15643) (LINES1 15645 . 16055) (LINES2 16057 . 16368) (LINES3 16370 . 16843) +) (16905 18118 (WALKINGSPOKE 16915 . 17696) (WARP 17698 . 18116)) (18143 22426 (IDLE-MELT 18153 . +20669) (IDLE-SLIDE 20671 . 22424)) (22597 22843 (DEMOWINDOW 22607 . 22841)) (23255 25128 (IDLE-DRAIN +23265 . 25126)) (25160 26641 (IDLE-SWAP 25170 . 26639))))) STOP diff --git a/lispusers/IDLEHAX.LCOM b/lispusers/IDLEHAX.LCOM index ba3f6089fea0e44c9fd0cc6fb3a144a35b47ac90..fa3f4b92688fb4f76baa5b84e3a9c2b9bddba2d6 100644 GIT binary patch delta 447 zcmcaqH@SX7c#x5qu2*TEu91O}k%FOxm64H^iG`AahEj5VZb4>FYKlUBo`RABSG7y9 zcdbomacWVqU3OwYPGX*&PkwS@j$LkQN=|B}v7V`2d45rLW?s7PWPe7fdJ|0rB^0Ag ztV~R-42^+CB^9N@4NuNU%u7!#R<%;_cJ$G6bP03xb9Pn81X}49>f@t;Y=WMio{~aJ zVhPYm*i5!m(&W-`^Yn3b4svx2adUM+Qw8*zp_QRIIbH!e!`#wL!OGdg(a+sASU1F9 zLBq{2Sb+=4&6)~U0YR=|p8lc1x-O0(uD~#})OAZuf(ERym8r3nfhlRWLxOg4D5L1+ XuZ+#S99({$K3p1_T$>yCFX;mS_OgL0 delta 380 zcmbPSf2nRlxVeI*u3Ku7u91O}k%FPIm8r3np@EWuhEj5VZb4>FYKlUBo`RA>wM(#f ztxZOLZmL~QVo_10-DGJd8A$~$B?WUN?WR_y237{9N(vM2iPh)jmt!(F+lDLJW?b~%}o zRhWe86^zV`OiUH5oIM=<++BlpL;MvqxZM1L6+B&hTy!MZL$+ZB`yO?ABz^PqubYGrI_Wn`$Nz=hlP;)2rR)S}5+Ox%oy Yo6VS-c{zCfJbidIGmedley>medley>lispusers>LIFE.;3| 9875 +(FILECREATED "26-Jun-2022 18:34:22"  +|{DSK}kaplan>Local>medley3.5>working-medley>lispusers>LIFE.;3| 10394 - |changes| |to:| (VARS LIFECOMS) - (FNS EXPAND.BITMAP.VERTICALLY) + :CHANGES-TO (FNS EXPAND.BITMAP.VERTICALLY EXPAND.BITMAP.HORIZONTALLY) - |previous| |date:| "20-Aug-88 12:18:43" |{DSK}medley>medley>lispusers>LIFE.;1|) + :PREVIOUS-DATE " 6-Dec-2021 15:21:48" +|{DSK}kaplan>Local>medley3.5>working-medley>lispusers>LIFE.;2|) ; Copyright (c) 1987-1988 by Xerox Corporation. @@ -43,7 +44,7 @@ PBT TEMP) (|if| (NEQ N 1) |then| (SETQ TEMP (BITMAPCREATE (IQUOTIENT W N) - H)) + H)) (SETQ PBT (|create| PILOTBBT)) (BITBLT WIN 0 0 TEMP 0 0) (EXPAND.BITMAP.HORIZONTALLY TEMP N A PBT) @@ -63,13 +64,13 @@ (SHUFFLE (INHI LO HORIZ?) `(PROGN ,@(|if| HORIZ? |then| `((BITBLTBITMAP ,INHI N 0 ,LO 0 0 W1 H) - (BITBLTBITMAP ,INHI 0 0 ,LO W1 0 N H) - (BITBLTBITMAP ,INHI 0 0 C N 0 W1 H) - (BITBLTBITMAP ,INHI W1 0 C 0 0 N H)) + (BITBLTBITMAP ,INHI 0 0 ,LO W1 0 N H) + (BITBLTBITMAP ,INHI 0 0 C N 0 W1 H) + (BITBLTBITMAP ,INHI W1 0 C 0 0 N H)) |else| `((BITBLTBITMAP ,INHI 0 1 ,LO 0 0 W H1) - (BITBLTBITMAP ,INHI 0 0 ,LO 0 H1 W 1) - (BITBLTBITMAP ,INHI 0 0 C 0 1 W H1) - (BITBLTBITMAP ,INHI 0 H1 C 0 0 W 1))) + (BITBLTBITMAP ,INHI 0 0 ,LO 0 H1 W 1) + (BITBLTBITMAP ,INHI 0 0 C 0 1 W H1) + (BITBLTBITMAP ,INHI 0 H1 C 0 0 W 1))) (BITBLTBITMAP C 0 0 ,LO 0 0 W H 'INPUT 'INVERT) (BITBLTBITMAP ,LO 0 0 C 0 0 W H 'INPUT 'ERASE) (BITBLTBITMAP ,INHI 0 0 ,LO 0 0 W H 'INPUT 'INVERT) @@ -103,22 +104,26 @@ (DEFINEQ (EXPAND.BITMAP.VERTICALLY - (LAMBDA (BITMAP M BM2 PBT) (* \; - "Edited 6-Dec-2021 15:04 by medley") - (* \; - "Edited 6-Dec-2021 14:47 by medley") - (* \; - "Edited 6-Dec-2021 13:54 by medley") - (* \; - "Edited 6-Dec-2021 13:51 by medley") - (* \; - "Edited 6-Dec-2021 13:11 by medley") - (* \; - "Edited 6-Mar-87 15:02 by Masinter") + (LAMBDA (BITMAP M BM2 PBT) + + (* |;;| "Edited 26-Jun-2022 18:29 by rmk: Change (add ... to (SETQ xx (PLUS xxx ..)) because \"with\" gets confused") + + (* |;;| "Edited 6-Dec-2021 15:04 by medley") + + (* |;;| "Edited 6-Dec-2021 14:47 by medley") + + (* |;;| "Edited 6-Dec-2021 13:54 by medley") + + (* |;;| "Edited 6-Dec-2021 13:51 by medley") + + (* |;;| "Edited 6-Dec-2021 13:11 by medley") + + (* |;;| "Edited 6-Mar-87 15:02 by Masinter") + (OR BM2 (SETQ BM2 (BITMAPCREATE (|fetch| BITMAPWIDTH BITMAP) (TIMES M (|fetch| BITMAPHEIGHT BITMAP))))) (OR PBT (SETQ PBT (|create| PILOTBBT))) - (|with| PILOTBBT PBT (*) + (|with| PILOTBBT PBT (*) (SETQ PBTDESTHI (|ffetch| |BitMapHiLoc| BM2)) (SETQ PBTDESTLO (|ffetch| |BitMapLoLoc| BM2)) (SETQ PBTSOURCEHI (|ffetch| |BitMapHiLoc| BITMAP)) @@ -130,15 +135,49 @@ (SETQ PBTFLAGS 16384) (SETQ PBTHEIGHT (|fetch| BITMAPHEIGHT BITMAP)) (SETQ PBTWIDTH (|fetch| BITMAPWIDTH BITMAP)) - (|for| I |from| 1 |to| M |do| (\\PILOTBITBLT PBT 0) - (|add| PBTDESTLO (|fetch| - BITMAPRASTERWIDTH - |of| BM2)))) + (|for| I |from| 1 |to| M |do| (\\PILOTBITBLT PBT 0) + (* \; + "RMK: Can't use add here, expansion setf expansion gets confused") + (SETQ PBTDESTLO (PLUS PBTDESTLO (|fetch| BITMAPRASTERWIDTH + |of| BM2))) + \n)) BM2)) -(expand.bitmap.horizontally -(lambda (bitmap n bm2 pbt) (* \; "Edited 6-Mar-87 17:08 by Masinter") (or bm2 (setq bm2 (bitmapcreate (times n (|fetch| bitmapwidth bitmap)) (|fetch| bitmapheight bitmap)))) (or pbt (setq pbt (|create| pilotbbt))) (let ((sourcebase (|fetch| bitmapbase bitmap)) (destbase (|fetch| bitmapbase bm2))) (|with| pilotbbt pbt (setq pbtdestbpl n) (setq pbtsourcebpl 1) (setq pbtsourcebit 0) (setq pbtflags 16384) (setq pbtwidth 1) (let ((ht (times (|fetch| bitmapwidth bitmap) (|fetch| bitmapheight bitmap)))) (|do| (setq pbtdest destbase) (setq pbtsource sourcebase) (setq pbtheight (min (times 1024 16) ht)) (setq pbtdestbit 0) (|for| i |from| 0 |while| (lessp i n) |do| (\\pilotbitblt pbt 0) (|add| pbtdestbit 1)) (setq ht (- ht (times 1024 16))) (|if| (leq ht 0) |then| (return)) (setq destbase (\\addbase destbase (times n 1024))) (setq sourcebase (\\addbase sourcebase 1024)))))) bm2) -) +(EXPAND.BITMAP.HORIZONTALLY + (LAMBDA (BITMAP N BM2 PBT) + + (* |;;| "Edited 26-Jun-2022 18:34 by rmk: ADD doesn't expand properly under WITH, at least masterscope complains. So expanded it here") + + (* |;;| "Edited 26-Jun-2022 18:30 by rmk") + + (* |;;| "Edited 6-Mar-87 17:08 by Masinter") + + (OR BM2 (SETQ BM2 (BITMAPCREATE (TIMES N (|fetch| BITMAPWIDTH BITMAP)) + (|fetch| BITMAPHEIGHT BITMAP)))) + (OR PBT (SETQ PBT (|create| PILOTBBT))) + (LET ((SOURCEBASE (|fetch| BITMAPBASE BITMAP)) + (DESTBASE (|fetch| BITMAPBASE BM2))) + (|with| PILOTBBT PBT (SETQ PBTDESTBPL N) + (SETQ PBTSOURCEBPL 1) + (SETQ PBTSOURCEBIT 0) + (SETQ PBTFLAGS 16384) + (SETQ PBTWIDTH 1) + (LET ((HT (TIMES (|fetch| BITMAPWIDTH BITMAP) + (|fetch| BITMAPHEIGHT BITMAP)))) + (|do| (SETQ PBTDEST DESTBASE) + (SETQ PBTSOURCE SOURCEBASE) + (SETQ PBTHEIGHT (MIN (TIMES 1024 16) + HT)) + (SETQ PBTDESTBIT 0) + (|for| I |from| 0 |while| (LESSP I N) |do| (\\PILOTBITBLT PBT 0) + (SETQ PBTDESTBIT + (PLUS PBTDESTBIT 1))) + (SETQ HT (- HT (TIMES 1024 16))) + (|if| (LEQ HT 0) + |then| (RETURN)) + (SETQ DESTBASE (\\ADDBASE DESTBASE (TIMES N 1024))) + (SETQ SOURCEBASE (\\ADDBASE SOURCEBASE 1024)))))) + BM2)) ) (ADDTOVAR IDLE.FUNCTIONS @@ -151,6 +190,6 @@ (|LifeIdle| \w 8)))))) (PUTPROPS LIFE COPYRIGHT ("Xerox Corporation" 1987 1988)) (DECLARE\: DONTCOPY - (FILEMAP (NIL (1557 5825 (|Life| 1557 . 5825)) (5827 5955 (|LifeIdle| 5827 . 5955)) (5956 9223 ( -EXPAND.BITMAP.VERTICALLY 5966 . 8302) (EXPAND.BITMAP.HORIZONTALLY 8304 . 9221))))) + (FILEMAP (NIL (1590 5830 (|Life| 1590 . 5830)) (5832 5960 (|LifeIdle| 5832 . 5960)) (5961 9742 ( +EXPAND.BITMAP.VERTICALLY 5971 . 7898) (EXPAND.BITMAP.HORIZONTALLY 7900 . 9740))))) STOP diff --git a/lispusers/LIFE.DFASL b/lispusers/LIFE.DFASL index 1b40c9d33667473ff45f2c388f7b3dc40ca9c207..11ad3440957c818202565db99c485adfb134f677 100644 GIT binary patch delta 197 zcmcbr(xN&+S2eUawW!!GJFy@qG0)B?KRGeSE;ltLC$-X8&(y9wzbHF1FI{)?8)k`# zfugQPX1ZRbdAddhMn(#T7FNb4Rz^l#ZjQk|3Tc@+sS3$Osfi`2DGI@*c`1pNItoT+ p3P9zl3Ly15Pz@$#8`p_4J7F_vYL9cZOR#sX4N-2|{DwJ`4**P?KEnV2 delta 146 zcmZosy{a-nmnS1XH`OjTH6f^U9aN@Assf|&wPb!u)>YLNm+iw<1R#v`K4n%E4R+M`wN66{@T MgKYC=X_ibr0DAT-1poj5 diff --git a/lispusers/tmax/TMAX-ENDNOTE b/lispusers/tmax/TMAX-ENDNOTE index b410e03b..6710d5df 100644 --- a/lispusers/tmax/TMAX-ENDNOTE +++ b/lispusers/tmax/TMAX-ENDNOTE @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) -(FILECREATED "18-Mar-2022 07:12:34"  -|{DSK}kaplan>Local>medley3.5>my-medley>lispusers>TMAX-ENDNOTE.;4| 23444 +(FILECREATED "26-Jun-2022 18:15:33"  +|{DSK}kaplan>local>medley3.5>working-medley>lispusers>TMAX>TMAX-ENDNOTE.;3| 23863 - :CHANGES-TO (VARS TMAX-ENDNOTECOMS) + :CHANGES-TO (FNS REGMARK.PUTFN REGMARK.BUTTONEVENTINFN) - :PREVIOUS-DATE "17-Mar-2022 23:10:26" -|{DSK}kaplan>Local>medley3.5>my-medley>lispusers>TMAX-ENDNOTE.;2|) + :PREVIOUS-DATE "18-Mar-2022 07:12:34" +|{DSK}kaplan>local>medley3.5>working-medley>lispusers>TMAX>TMAX-ENDNOTE.;2|) ; Copyright (c) 1987 by Xerox Corporation. @@ -381,11 +381,12 @@ ydesc _ 0 xkern _ 0))) -(regmark.putfn - (lambda (markobj stream) (* |fsg| "23-Jul-87 14:02") - (prin2 (list '|Region| (|fetch| region.use |of| (|fetch| objectdatum |of| markobj)) - (|fetch| marking |of| (|fetch| objectdatum |of| markobj))) - stream))) +(REGMARK.PUTFN + (LAMBDA (MARKOBJ STREAM) (* \; "Edited 26-Jun-2022 18:12 by rmk") + (* |fsg| "23-Jul-87 14:02") + (PRIN2 (LIST '|Region| (|fetch| (REGMARKOBJ REGION.USE) |of| (|fetch| OBJECTDATUM |of| MARKOBJ)) + (|fetch| (REGMARKOBJ MARKING) |of| (|fetch| OBJECTDATUM |of| MARKOBJ))) + STREAM))) (regmark.getfn (lambda (stream copy.object) (* |fsg| "20-Aug-87 14:58") @@ -405,22 +406,25 @@ (|fetch| objectdatum |of| image.obj)))) (error "Unknown TARGET stream type" (imagestreamtype target.stream))))) -(regmark.buttoneventinfn - (lambda (markobj stream) (* |fsg| "18-Feb-87 10:07") - (* * |This| |function| |is| |never| |called| |because| |the| regmark - |ImageObjects| |are| |protected| |after| |they| |are| |inserted| |and| - |anything| |protected| |can't| |be| |selected.|) +(REGMARK.BUTTONEVENTINFN + (LAMBDA (MARKOBJ STREAM) (* \; "Edited 26-Jun-2022 18:13 by rmk") + (* |fsg| "18-Feb-87 10:07") - (and (mousestate middle) - (let ((markdatum (|fetch| objectdatum |of| markobj))) - (tedit.promptprint stream (concat "Region used for " (|fetch| region.use |of| markdatum - ) - (cond - ((|fetch| marking |of| markdatum) - (concat ", Marker is " (|fetch| marking - |of| markdatum))) - (t ""))) - t))))) + (* * |This| |function| |is| |never| |called| |because| |the| REGMARK + |ImageObjects| |are| |protected| |after| |they| |are| |inserted| |and| |anything| + |protected| |can't| |be| |selected.|) + + (AND (MOUSESTATE MIDDLE) + (LET ((MARKDATUM (|fetch| OBJECTDATUM |of| MARKOBJ))) + (TEDIT.PROMPTPRINT STREAM (CONCAT "Region used for " (|fetch| (REGMARKOBJ REGION.USE) + |of| MARKDATUM) + (COND + ((|fetch| (REGMARKOBJ MARKING) |of| MARKDATUM) + (CONCAT ", Marker is " (|fetch| (REGMARKOBJ + MARKING) + |of| MARKDATUM))) + (T ""))) + T))))) ) (RPAQ? \\REGMARKOBJ.IMAGEFNS @@ -445,13 +449,13 @@ ) (PUTPROPS TMAX-ENDNOTE COPYRIGHT ("Xerox Corporation" 1987)) (DECLARE\: DONTCOPY - (FILEMAP (NIL (2489 12116 (ADD.ENDNOTE 2499 . 3167) (INSERT.ENDNOTES 3169 . 5372) ( -INSERT.ENDNOTES.TEXT 5374 . 6803) (DELETE.ENDNOTES 6805 . 7796) (NOTESREGIONP 7798 . 8060) ( -SET.ENDNOTE.STYLE 8062 . 10735) (MAP.ENDNOTE.LOOKS 10737 . 11504) (GET.ENDNOTE.FONTS 11506 . 12114)) ( -12117 16032 (ENDNOTEP 12127 . 12468) (NOTE.PUTFN 12470 . 13122) (NOTE.GETFN 13124 . 13704) ( -NOTE.BUTTONEVENTINFN 13706 . 14486) (NOTE.WHENSELECTEDFN 14488 . 16030)) (16790 19194 (AUX.TEDIT 16800 - . 17762) (AUX.TEDIT.AFTERQUITFN 17764 . 18207) (AUX.TEDIT.TITLEMENUFN 18209 . 19192)) (19279 22743 ( -REGMARKOBJ 19289 . 19696) (REGMARKOBJP 19698 . 19892) (REGMARK.DISPLAYFN 19894 . 20140) ( -REGMARK.IMAGEBOXFN 20142 . 20493) (REGMARK.PUTFN 20495 . 20827) (REGMARK.GETFN 20829 . 21128) ( -REGMARK.COPYFN 21130 . 21668) (REGMARK.BUTTONEVENTINFN 21670 . 22741))))) + (FILEMAP (NIL (2529 12156 (ADD.ENDNOTE 2539 . 3207) (INSERT.ENDNOTES 3209 . 5412) ( +INSERT.ENDNOTES.TEXT 5414 . 6843) (DELETE.ENDNOTES 6845 . 7836) (NOTESREGIONP 7838 . 8100) ( +SET.ENDNOTE.STYLE 8102 . 10775) (MAP.ENDNOTE.LOOKS 10777 . 11544) (GET.ENDNOTE.FONTS 11546 . 12154)) ( +12157 16072 (ENDNOTEP 12167 . 12508) (NOTE.PUTFN 12510 . 13162) (NOTE.GETFN 13164 . 13744) ( +NOTE.BUTTONEVENTINFN 13746 . 14526) (NOTE.WHENSELECTEDFN 14528 . 16070)) (16830 19234 (AUX.TEDIT 16840 + . 17802) (AUX.TEDIT.AFTERQUITFN 17804 . 18247) (AUX.TEDIT.TITLEMENUFN 18249 . 19232)) (19319 23162 ( +REGMARKOBJ 19329 . 19736) (REGMARKOBJP 19738 . 19932) (REGMARK.DISPLAYFN 19934 . 20180) ( +REGMARK.IMAGEBOXFN 20182 . 20533) (REGMARK.PUTFN 20535 . 21006) (REGMARK.GETFN 21008 . 21307) ( +REGMARK.COPYFN 21309 . 21847) (REGMARK.BUTTONEVENTINFN 21849 . 23160))))) STOP diff --git a/lispusers/tmax/TMAX-ENDNOTE.LCOM b/lispusers/tmax/TMAX-ENDNOTE.LCOM index 03d7e25b1f503a3e870ebcb6ba261ec3253d081c..5b834c8ab094fbddb049c79bb52135a897951d01 100644 GIT binary patch delta 452 zcmZn)x*RkiFv!SE*Q+#7*T}%gNWsv;%Fxux*jPzHLn%2ww;(eoHANvmPeDn6tESo| z*t^!Iv^ce>*e*MjOHVDfs!<4Xb@z1)^41Fo z4Vf&jB2}+YlbKfoG{!B|$43F#EImCvpfM?lC8;Sj3fOG1RMO*e*M>21c=ZT~|LBKmQO{J!_L1 zO$8-GbA$y(##V-ARtCl(1CxqUVRqCg)TCAv6ct+m8F~378JT(MKvrg6je?R}sE>~V zvJrZEdP)j4DTyViDL`pt8K~g`mP(pj8g8CGuFgTOjv=ltlU11%larry>ilisp>medley>sources>FONT.;7 189150 - changes to%: (VARS FONTCOMS) +(FILECREATED "26-Jun-2022 13:00:17" {DSK}kaplan>Local>medley3.5>working-medley>sources>FONT.;2 188234 - previous date%: "28-Jun-99 16:29:49" {DSK}larry>ilisp>medley>sources>FONT.;6) + :CHANGES-TO (VARS FONTCOMS) + (FNS \CREATE-REAL-CHARSET.DISPLAY) + + :PREVIOUS-DATE " 9-Feb-2021 11:39:44" +{DSK}kaplan>Local>medley3.5>working-medley>sources>FONT.;1) (* ; " -Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1999, -2021 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1981-1994, 1999, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT FONTCOMS) @@ -21,7 +23,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, \STRINGWIDTH.GENERIC) (FNS DEFAULTFONT FONTCLASS FONTCLASSUNPARSE FONTCLASSCOMPONENT SETFONTCLASSCOMPONENT) [COMS (* ; - "Until we pin down the exact interface") + "Until we pin down the exact interface") (P (MOVD 'FONTCLASSCOMPONENT 'FONTCOMPONENT) (MOVD 'SETFONTCLASSCOMPONENT 'SETFONTCOMPONENT] [COMS (* ; "MAPPING FOR DOS FILENAMES ") @@ -123,6 +125,8 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, ((TIMESROMAN) (CLASSIC)) ((HELVETICA) + (MODERN)) + ((TERMINAL) (MODERN] (CHARSETERRORFLG NIL) (\DEFAULTCHARSET 0))) @@ -1409,12 +1413,13 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, (\CREATE-REAL-CHARSET.DISPLAY [LAMBDA (FAMILY SIZE FACE ROTATION DEVICE CHARSET FONTDESC NOSLUG?) + (* ; "Edited 26-Jun-2022 12:37 by rmk") (* ; "Edited 15-Jan-88 00:02 by FS") (COND [(AND (EQ ROTATION 0) (PROG1 (\READDISPLAYFONTFILE FAMILY SIZE FACE ROTATION 'DISPLAY CHARSET) (* ; - "If it is available, this will force the appropriate file to be read to fill in the charset entry") + "If it is available, this will force the appropriate file to be read to fill in the charset entry") ] (T (* ;; "if we get here, the font is not directly available, either it needs to be rotated, boldified, or italicised 'by hand'. Past that point, we do not allow DISPLAYFONTCOERCIONS, only MISSINGxxxxDISPLAYFONTCOERCIONS.") @@ -1428,8 +1433,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, (OR (MEMB ROTATION '(90 270)) (ERROR "only implemented rotations are 0, 90 and 270." ROTATION)) (COND - ((SETQ XFONT (\CREATEDISPLAYFONT FAMILY SIZE FACE 0 'DISPLAY - CHARSET)) + ((SETQ XFONT (\CREATEDISPLAYFONT FAMILY SIZE FACE 0 'DISPLAY CHARSET)) (* ;; "Do not call FONTCREATE here. The user might have modified (via PUTCHARBITMAP, etc.) the in-memory version of the source. This also fixes a bug in which several font descriptors ended up sharing bitmaps or charsetvectors, causing havoc when the user modifies either fontdescriptor.") @@ -1439,8 +1443,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, ((AND (EQ (fetch WEIGHT of FACE) 'BOLD) (SETQ XFONT (\CREATEDISPLAYFONT FAMILY SIZE - (create FONTFACE using FACE WEIGHT _ - 'MEDIUM) + (create FONTFACE using FACE WEIGHT _ 'MEDIUM) 0 'DISPLAY CHARSET))) @@ -1452,55 +1455,51 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, ((AND (EQ (fetch (FONTFACE SLOPE) of FACE) 'ITALIC) (SETQ XFONT (\CREATEDISPLAYFONT FAMILY SIZE - (create FONTFACE using FACE SLOPE _ - 'REGULAR) + (create FONTFACE using FACE SLOPE _ 'REGULAR) 0 'DISPLAY CHARSET))) (if (SETQ CSINFO (\GETCHARSETINFO CHARSET XFONT T)) then (\SFMAKEITALIC CSINFO) else NIL)) - [(AND CHARSET (NOT (EQL 0)) + [(AND CHARSET (NOT (EQL CHARSET 0)) (for TRANSL in MISSINGCHARSETDISPLAYFONTCOERCIONS bind NEWCSINFO UFONT REALFONT when (AND (SETQ UFONT (CAR TRANSL)) - (EQ FAMILY (CAR UFONT)) - (OR (NOT (CADR UFONT)) - (EQ SIZE (CADR UFONT))) - (OR (NOT (CADDR UFONT)) - (EQ CHARSET (CADDR UFONT))) - (SETQ REALFONT (CADR TRANSL)) - (SETQ NEWCSINFO (\CREATE-REAL-CHARSET.DISPLAY - (OR (CAR REALFONT) - FAMILY) - (OR (CADR REALFONT) - SIZE) - FACE ROTATION DEVICE - (OR (CADDR REALFONT) - CHARSET) - FONTDESC NOSLUG?))) + (EQ FAMILY (CAR UFONT)) + (OR (NOT (CADR UFONT)) + (EQ SIZE (CADR UFONT))) + (OR (NOT (CADDR UFONT)) + (EQ CHARSET (CADDR UFONT))) + (SETQ REALFONT (CADR TRANSL)) + (SETQ NEWCSINFO (\CREATE-REAL-CHARSET.DISPLAY + (OR (CAR REALFONT) + FAMILY) + (OR (CADR REALFONT) + SIZE) + FACE ROTATION DEVICE + (OR (CADDR REALFONT) + CHARSET) + FONTDESC NOSLUG?))) do (RETURN NEWCSINFO] - ((for TRANSL in MISSINGDISPLAYFONTCOERCIONS bind NEWCSINFO - UFONT REALFONT + ((for TRANSL in MISSINGDISPLAYFONTCOERCIONS bind NEWCSINFO UFONT REALFONT when (AND (SETQ UFONT (CAR TRANSL)) - (EQ FAMILY (CAR UFONT)) - (OR (NOT (CADR UFONT)) - (EQ SIZE (CADR UFONT))) - (OR (NOT (CADDR UFONT)) - (EQ CHARSET (CADDR UFONT))) - (SETQ REALFONT (CADR TRANSL)) - (SETQ NEWCSINFO (\CREATE-REAL-CHARSET.DISPLAY - (OR (CAR REALFONT) - FAMILY) - (OR (CADR REALFONT) - SIZE) - FACE ROTATION DEVICE - (OR (CADDR REALFONT) - CHARSET) - FONTDESC NOSLUG?))) + (EQ FAMILY (CAR UFONT)) + (OR (NOT (CADR UFONT)) + (EQ SIZE (CADR UFONT))) + (OR (NOT (CADDR UFONT)) + (EQ CHARSET (CADDR UFONT))) + (SETQ REALFONT (CADR TRANSL)) + (SETQ NEWCSINFO (\CREATE-REAL-CHARSET.DISPLAY + (OR (CAR REALFONT) + FAMILY) + (OR (CADR REALFONT) + SIZE) + FACE ROTATION DEVICE (OR (CADDR REALFONT) + CHARSET) + FONTDESC NOSLUG?))) do (RETURN NEWCSINFO))) ((NOT NOSLUG?) - (\BUILDSLUGCSINFO (fetch (FONTDESCRIPTOR FONTAVGCHARWIDTH) - of FONTDESC) + (\BUILDSLUGCSINFO (fetch (FONTDESCRIPTOR FONTAVGCHARWIDTH) of FONTDESC) (FONTPROP FONTDESC 'ASCENT) (FONTPROP FONTDESC 'DESCENT) (FONTPROP FONTDESC 'DEVICE]) @@ -2918,34 +2917,34 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, (ADDTOVAR SYSTEMRECLST (DATATYPE FONTCLASS ((PRETTYFONT# BYTE) - DISPLAYFD PRESSFD INTERPRESSFD OTHERFDS FONTCLASSNAME)) + DISPLAYFD PRESSFD INTERPRESSFD OTHERFDS FONTCLASSNAME)) (DATATYPE FONTDESCRIPTOR ((FONTDEVICE POINTER) - (FONTFAMILY POINTER) - (FONTSIZE POINTER) - (FONTFACE POINTER) - (\SFAscent WORD) - (\SFDescent WORD) - (\SFHeight WORD) - (ROTATION WORD) - (FBBOX SIGNEDWORD) - (FBBOY SIGNEDWORD) - (FBBDX SIGNEDWORD) - (FBBDY SIGNEDWORD) - (\SFLKerns POINTER) - (\SFRWidths POINTER) - (FONTDEVICESPEC POINTER) - (OTHERDEVICEFONTPROPS POINTER) - (FONTSCALE POINTER) - (\SFFACECODE BITS 8) - (FONTAVGCHARWIDTH WORD) - (FONTIMAGEWIDTHS POINTER) - (FONTCHARSETVECTOR POINTER) - (FONTEXTRAFIELD2 POINTER))) + (FONTFAMILY POINTER) + (FONTSIZE POINTER) + (FONTFACE POINTER) + (\SFAscent WORD) + (\SFDescent WORD) + (\SFHeight WORD) + (ROTATION WORD) + (FBBOX SIGNEDWORD) + (FBBOY SIGNEDWORD) + (FBBDX SIGNEDWORD) + (FBBDY SIGNEDWORD) + (\SFLKerns POINTER) + (\SFRWidths POINTER) + (FONTDEVICESPEC POINTER) + (OTHERDEVICEFONTPROPS POINTER) + (FONTSCALE POINTER) + (\SFFACECODE BITS 8) + (FONTAVGCHARWIDTH WORD) + (FONTIMAGEWIDTHS POINTER) + (FONTCHARSETVECTOR POINTER) + (FONTEXTRAFIELD2 POINTER))) (DATATYPE CHARSETINFO (WIDTHS OFFSETS IMAGEWIDTHS CHARSETBITMAP YWIDTHS (CHARSETASCENT WORD) - (CHARSETDESCENT WORD) - LEFTKERN)) + (CHARSETDESCENT WORD) + LEFTKERN)) ) (RPAQ? \FONTSINCORE ) @@ -2970,13 +2969,13 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, ) (* "FOLLOWING DEFINITIONS EXPORTED") (DEFOPTIMIZER FONTPROP (&REST ARGS) - (SELECTQ (AND (EQ (CAADR ARGS) - 'QUOTE) - (CADADR ARGS)) - (ASCENT (LIST 'FONTASCENT (CAR ARGS))) - (DESCENT (LIST 'FONTDESCENT (CAR ARGS))) - (HEIGHT (LIST 'FONTHEIGHT (CAR ARGS))) - 'IGNOREMACRO)) + (SELECTQ (AND (EQ (CAADR ARGS) + 'QUOTE) + (CADADR ARGS)) + (ASCENT (LIST 'FONTASCENT (CAR ARGS))) + (DESCENT (LIST 'FONTDESCENT (CAR ARGS))) + (HEIGHT (LIST 'FONTHEIGHT (CAR ARGS))) + 'IGNOREMACRO)) (* "END EXPORTED DEFINITIONS") @@ -2984,74 +2983,74 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE (DATATYPE FONTCLASS ((PRETTYFONT# BYTE) - DISPLAYFD PRESSFD INTERPRESSFD OTHERFDS FONTCLASSNAME)) + DISPLAYFD PRESSFD INTERPRESSFD OTHERFDS FONTCLASSNAME)) (DATATYPE FONTDESCRIPTOR ((FONTDEVICE POINTER) - (FONTFAMILY POINTER) - (FONTSIZE POINTER) - (FONTFACE POINTER) - (\SFAscent WORD) - (\SFDescent WORD) - (\SFHeight WORD) - (ROTATION WORD) - (FBBOX SIGNEDWORD) - (FBBOY SIGNEDWORD) - (FBBDX SIGNEDWORD) - (FBBDY SIGNEDWORD) - (\SFLKerns POINTER) - (\SFRWidths POINTER) - (FONTDEVICESPEC POINTER) (* ; - "Holds the spec by which the font is known to the printing device, if coercion has been done") - (OTHERDEVICEFONTPROPS POINTER) (* ; - "For individual devices to hang special information") - (FONTSCALE POINTER) - (\SFFACECODE BITS 8) - (FONTAVGCHARWIDTH WORD) (* ; - "Set in FONTCREATE, used to fix up the linelength when DSPFONT is called") - (FONTIMAGEWIDTHS POINTER) (* ; "This is the image width, as opposed to the advanced width; initial hack for accents, kerning. Fields is referenced by FONTCREATE.") - (FONTCHARSETVECTOR POINTER) (* ; "A 256-pointer block, with one pointer per 'character set' --each group of 256 character codes. Each pointer is either NIL if there's no info for that charset, or is a CHARSETINFO, containing widths, char bitmap, etc for the characters in that charset.") - (FONTEXTRAFIELD2 POINTER)) - FONTCHARSETVECTOR _ (\CREATEFONTCHARSETVECTOR)) + (FONTFAMILY POINTER) + (FONTSIZE POINTER) + (FONTFACE POINTER) + (\SFAscent WORD) + (\SFDescent WORD) + (\SFHeight WORD) + (ROTATION WORD) + (FBBOX SIGNEDWORD) + (FBBOY SIGNEDWORD) + (FBBDX SIGNEDWORD) + (FBBDY SIGNEDWORD) + (\SFLKerns POINTER) + (\SFRWidths POINTER) + (FONTDEVICESPEC POINTER) (* ; + "Holds the spec by which the font is known to the printing device, if coercion has been done") + (OTHERDEVICEFONTPROPS POINTER) (* ; + "For individual devices to hang special information") + (FONTSCALE POINTER) + (\SFFACECODE BITS 8) + (FONTAVGCHARWIDTH WORD) (* ; + "Set in FONTCREATE, used to fix up the linelength when DSPFONT is called") + (FONTIMAGEWIDTHS POINTER) (* ; "This is the image width, as opposed to the advanced width; initial hack for accents, kerning. Fields is referenced by FONTCREATE.") + (FONTCHARSETVECTOR POINTER) (* ; "A 256-pointer block, with one pointer per 'character set' --each group of 256 character codes. Each pointer is either NIL if there's no info for that charset, or is a CHARSETINFO, containing widths, char bitmap, etc for the characters in that charset.") + (FONTEXTRAFIELD2 POINTER)) + FONTCHARSETVECTOR _ (\CREATEFONTCHARSETVECTOR)) (RECORD FONTFACE (WEIGHT SLOPE EXPANSION) - [ACCESSFNS ((COLOR (CDDDR DATUM) - (RPLACD (CDDR DATUM) - NEWVALUE)) - (BACKCOLOR [COND - ((CDDDR DATUM) - (CAR (CDDDR DATUM] - (PROGN [COND - ((NULL (CDDDR DATUM)) - (RPLACD (CDDR DATUM) - (LIST NIL NIL] - (RPLACA (CDDDR DATUM) - NEWVALUE))) - (FORECOLOR [COND - ((CDDDR DATUM) - (CADR (CDDDR DATUM] - (PROGN [COND - ((NULL (CDDDR DATUM)) - (RPLACD (CDDR DATUM) - (LIST NIL NIL] - (RPLACA (CDR (CDDDR DATUM)) - NEWVALUE] - WEIGHT _ 'MEDIUM SLOPE _ 'REGULAR EXPANSION _ 'REGULAR (TYPE? LISTP)) + [ACCESSFNS ((COLOR (CDDDR DATUM) + (RPLACD (CDDR DATUM) + NEWVALUE)) + (BACKCOLOR [COND + ((CDDDR DATUM) + (CAR (CDDDR DATUM] + (PROGN [COND + ((NULL (CDDDR DATUM)) + (RPLACD (CDDR DATUM) + (LIST NIL NIL] + (RPLACA (CDDDR DATUM) + NEWVALUE))) + (FORECOLOR [COND + ((CDDDR DATUM) + (CADR (CDDDR DATUM] + (PROGN [COND + ((NULL (CDDDR DATUM)) + (RPLACD (CDDR DATUM) + (LIST NIL NIL] + (RPLACA (CDR (CDDDR DATUM)) + NEWVALUE] + 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.") - OFFSETS (* ; - "Offset of each character into the image bitmap; X value of left edge") - IMAGEWIDTHS (* ; - "imagewidths is not automagically allocated since it is not always needed") - CHARSETBITMAP (* ; - "Bitmap containing the character images, indexed by OFFSETS") - YWIDTHS - (CHARSETASCENT WORD) (* ; - "Max ascent for all characters in this CHARSET") - (CHARSETDESCENT WORD) (* ; - "Max descent for all characters in this CHARSET") - LEFTKERN) - WIDTHS _ (\CREATECSINFOELEMENT) - OFFSETS _ (\CREATECSINFOELEMENT)) +(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.") + OFFSETS (* ; + "Offset of each character into the image bitmap; X value of left edge") + IMAGEWIDTHS (* ; + "imagewidths is not automagically allocated since it is not always needed") + CHARSETBITMAP (* ; + "Bitmap containing the character images, indexed by OFFSETS") + YWIDTHS + (CHARSETASCENT WORD) (* ; + "Max ascent for all characters in this CHARSET") + (CHARSETDESCENT WORD) (* ; + "Max descent for all characters in this CHARSET") + LEFTKERN) + WIDTHS _ (\CREATECSINFOELEMENT) + OFFSETS _ (\CREATECSINFOELEMENT)) ) (/DECLAREDATATYPE 'FONTCLASS '(BYTE POINTER POINTER POINTER POINTER POINTER) @@ -3104,65 +3103,63 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, (DECLARE%: EVAL@COMPILE (PUTPROPS FONTASCENT MACRO ((FONTSPEC) - (ffetch \SFAscent of (\GETFONTDESC FONTSPEC)))) + (ffetch \SFAscent of (\GETFONTDESC FONTSPEC)))) (PUTPROPS FONTDESCENT MACRO ((FONTSPEC) - (ffetch \SFDescent of (\GETFONTDESC FONTSPEC)))) + (ffetch \SFDescent of (\GETFONTDESC FONTSPEC)))) (PUTPROPS FONTHEIGHT MACRO ((FONTSPEC) - (ffetch \SFHeight of (\GETFONTDESC FONTSPEC)))) + (ffetch \SFHeight of (\GETFONTDESC FONTSPEC)))) (PUTPROPS \FGETOFFSET DMACRO ((OFFSETSBLOCK CHAR8CODE) - (\GETBASE OFFSETSBLOCK CHAR8CODE))) + (\GETBASE OFFSETSBLOCK CHAR8CODE))) (PUTPROPS \FSETOFFSET DMACRO ((OFFSETSBLOCK CHAR8CODE OFFSET) - (\PUTBASE OFFSETSBLOCK CHAR8CODE OFFSET))) + (\PUTBASE OFFSETSBLOCK CHAR8CODE OFFSET))) (PUTPROPS \FGETWIDTH DMACRO ((WIDTHSBLOCK CHAR8CODE) - (\GETBASE WIDTHSBLOCK CHAR8CODE))) + (\GETBASE WIDTHSBLOCK CHAR8CODE))) (PUTPROPS \FSETWIDTH DMACRO ((WIDTHSBLOCK INDEX WIDTH) - (\PUTBASE WIDTHSBLOCK INDEX WIDTH))) + (\PUTBASE WIDTHSBLOCK INDEX WIDTH))) (PUTPROPS \FGETCHARWIDTH MACRO (OPENLAMBDA (FONTDESC CHARCODE) - (\FGETWIDTH (ffetch (CHARSETINFO WIDTHS) - of (\GETCHARSETINFO (\CHARSET CHARCODE) - FONTDESC)) - (\CHAR8CODE CHARCODE)))) + (\FGETWIDTH (ffetch (CHARSETINFO WIDTHS) of (\GETCHARSETINFO + (\CHARSET CHARCODE) + FONTDESC)) + (\CHAR8CODE CHARCODE)))) (PUTPROPS \FSETCHARWIDTH MACRO (OPENLAMBDA (FONTDESC CHARCODE WIDTH) - (\FSETWIDTH (ffetch (CHARSETINFO WIDTHS) - of (\GETCHARSETINFO (\CHARSET CHARCODE) - FONTDESC)) - (\CHAR8CODE CHARCODE) - WIDTH))) + (\FSETWIDTH (ffetch (CHARSETINFO WIDTHS) of (\GETCHARSETINFO + (\CHARSET CHARCODE) + FONTDESC)) + (\CHAR8CODE CHARCODE) + WIDTH))) (PUTPROPS \FGETIMAGEWIDTH MACRO ((IMAGEWIDTHSBLOCK CHAR8CODE) - (\GETBASE IMAGEWIDTHSBLOCK CHAR8CODE))) + (\GETBASE IMAGEWIDTHSBLOCK CHAR8CODE))) (PUTPROPS \FSETIMAGEWIDTH DMACRO ((WIDTHSBLOCK INDEX WIDTH) - (\PUTBASE WIDTHSBLOCK INDEX WIDTH))) + (\PUTBASE WIDTHSBLOCK INDEX WIDTH))) (PUTPROPS \GETCHARSETINFO MACRO ((CHARSET FONTDESC NOSLUG?) - (* ;; "fetches the charsetinfo for charset CHARSET in fontdescriptor FONTDESC. If NIL, then creates the required charset.") + (* ;; "fetches the charsetinfo for charset CHARSET in fontdescriptor FONTDESC. If NIL, then creates the required charset.") - (* ;; - "NOSLUG? means don't create an empty (slug) csinfo if the charset is not found, just return NIL") + (* ;; + "NOSLUG? means don't create an empty (slug) csinfo if the charset is not found, just return NIL") - (OR (\GETBASEPTR (ffetch FONTCHARSETVECTOR of - FONTDESC - ) - (UNFOLD CHARSET 2)) - (\CREATECHARSET CHARSET FONTDESC NOSLUG?)))) + (OR (\GETBASEPTR (ffetch FONTCHARSETVECTOR of FONTDESC) + (UNFOLD CHARSET 2)) + (\CREATECHARSET CHARSET FONTDESC NOSLUG?)))) (PUTPROPS \CREATECSINFOELEMENT MACRO (NIL (\ALLOCBLOCK (FOLDHI (IPLUS \MAXTHINCHAR 3) - WORDSPERCELL)))) + WORDSPERCELL)))) -(PUTPROPS \CREATEFONTCHARSETVECTOR MACRO (NIL (* ; - "Allocates a block for the character set records") - (\ALLOCBLOCK (ADD1 \MAXCHARSET) - T))) +(PUTPROPS \CREATEFONTCHARSETVECTOR MACRO (NIL (* ; + "Allocates a block for the character set records") + (\ALLOCBLOCK (ADD1 \MAXCHARSET) + T))) ) (DEFMACRO \CREATEKERNELEMENT () @@ -3263,13 +3260,15 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, (MODERN 12)))) (RPAQ? MISSINGDISPLAYFONTCOERCIONS '(((GACHA) - (TERMINAL)) - ((MODERN) - (CLASSIC)) - ((TIMESROMAN) - (CLASSIC)) - ((HELVETICA) - (MODERN)))) + (TERMINAL)) + ((MODERN) + (CLASSIC)) + ((TIMESROMAN) + (CLASSIC)) + ((HELVETICA) + (MODERN)) + ((TERMINAL) + (MODERN)))) (RPAQ? CHARSETERRORFLG NIL) @@ -3311,27 +3310,26 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, (RPAQ? DISPLAYFONTEXTENSIONS 'DISPLAYFONT) (RPAQ? DISPLAYFONTDIRECTORIES '({DSK}/USR/LOCAL/LDE/FONTS/DISPLAY/PRESENTATION/ - {dsk}/usr/local/lde/fonts/display/publishing/)) + {dsk}/usr/local/lde/fonts/display/publishing/)) ) (DECLARE%: EVAL@COMPILE (PUTPROPS \FGETCHARIMAGEWIDTH MACRO (OPENLAMBDA (FONT CHARCODE) - (\FGETWIDTH (ffetch (CHARSETINFO IMAGEWIDTHS) - of (\GETCHARSETINFO (\CHARSET - CHARCODE) - FONT)) - (\CHAR8CODE CHARCODE)))) + (\FGETWIDTH (ffetch (CHARSETINFO IMAGEWIDTHS) + of (\GETCHARSETINFO (\CHARSET CHARCODE) + FONT)) + (\CHAR8CODE CHARCODE)))) (PROGN (PUTPROPS \GETFONTDESC DMACRO [X (COND - ((CDR X) - (CONS '\COERCEFONTDESC X)) - (T `(\DTEST ,(CAR X) - 'FONTDESCRIPTOR]) + ((CDR X) + (CONS '\COERCEFONTDESC X)) + (T `(\DTEST ,(CAR X) + 'FONTDESCRIPTOR]) (PUTPROPS \GETFONTDESC MACRO (= . \COERCEFONTDESC))) (PUTPROPS \SETCHARSETINFO MACRO ((CHARSETVECTOR CHARSET CSINFO) - (\RPLPTR CHARSETVECTOR (UNFOLD CHARSET 2) - CSINFO))) + (\RPLPTR CHARSETVECTOR (UNFOLD CHARSET 2) + CSINFO))) ) (DECLARE%: DOEVAL@COMPILE DONTCOPY @@ -3350,29 +3348,30 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, (PUTPROPS FONT COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1999 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (8618 18137 (CHARWIDTH 8628 . 9413) (CHARWIDTHY 9415 . 10785) (STRINGWIDTH 10787 . 11880 -) (\CHARWIDTH.DISPLAY 11882 . 12295) (\STRINGWIDTH.DISPLAY 12297 . 12721) (\STRINGWIDTH.GENERIC 12723 - . 18135)) (18138 24520 (DEFAULTFONT 18148 . 19981) (FONTCLASS 19983 . 22145) (FONTCLASSUNPARSE 22147 - . 23046) (FONTCLASSCOMPONENT 23048 . 23557) (SETFONTCLASSCOMPONENT 23559 . 24518)) (25194 37926 ( -FONTCREATE 25204 . 34471) (\FONT.SYMBOLMEMB 34473 . 34703) (\FONT.SYMBOLASSOC 34705 . 35863) ( -\FONT.COMPARESYMBOL 35865 . 37924)) (37965 42589 (FONTASCENT 37975 . 38143) (FONTDESCENT 38145 . 38414 -) (FONTHEIGHT 38416 . 38602) (FONTPROP 38604 . 42047) (\AVGCHARWIDTH 42049 . 42587)) (42636 55275 ( -GETCHARBITMAP 42646 . 45536) (PUTCHARBITMAP 45538 . 53595) (MOVECHARBITMAP 53597 . 55273)) (55276 -140202 (FONTCOPY 55286 . 60594) (FONTSAVAILABLE 60596 . 65801) (FONTFILEFORMAT 65803 . 67427) (FONTP -67429 . 67728) (FONTUNPARSE 67730 . 70294) (SETFONTDESCRIPTOR 70296 . 72005) (CHARCODEP 72007 . 72368) - (EDITCHAR 72370 . 72799) (\STREAMCHARWIDTH 72801 . 76965) (\UNITWIDTHSVECTOR 76967 . 77330) ( -\CREATEDISPLAYFONT 77332 . 78085) (\CREATECHARSET.DISPLAY 78087 . 81003) (\CREATE-REAL-CHARSET.DISPLAY - 81005 . 88296) (\BUILDSLUGCSINFO 88298 . 89741) (\SEARCHDISPLAYFONTFILES 89743 . 91676) ( -\SEARCHFONTFILES 91678 . 94989) (\FINDFONTFILE 94991 . 96182) (\FONTSYMBOL 96184 . 96834) ( -\DEVICESYMBOL 96836 . 97705) (\FONTFACE 97707 . 104897) (\FONTFACE.COLOR 104899 . 111819) ( -\FONTFILENAME 111821 . 115236) (\FONTFILENAME.OLD 115238 . 118187) (\FONTFILENAME.NEW 118189 . 120446) - (\FONTINFOFROMFILENAME 120448 . 123562) (\FONTINFOFROMFILENAME.OLD 123564 . 125841) (\GETFONTDESC -125843 . 126234) (\COERCEFONTDESC 126236 . 131621) (\LOOKUPFONT 131623 . 132967) (\LOOKUPFONTSINCORE -132969 . 135042) (\READDISPLAYFONTFILE 135044 . 140200)) (141105 158155 (\READSTRIKEFONTFILE 141115 . -145643) (\SFMAKEBOLD 145645 . 148041) (\SFMAKEITALIC 148043 . 150946) (\SFMAKEROTATEDFONT 150948 . -152349) (\SFROTATECSINFO 152351 . 152988) (\SFROTATEFONTCHARACTERS 152990 . 153370) ( -\SFFIXOFFSETSAFTERROTATION 153372 . 155511) (\SFROTATECSINFOOFFSETS 155513 . 156782) (\SFMAKECOLOR -156784 . 158153)) (158156 166467 (WRITESTRIKEFONTFILE 158166 . 163007) (STRIKECSINFO 163009 . 166465)) - (181614 184470 (\CREATECHARSET 181624 . 184468)) (185556 187308 (\FONTRESETCHARWIDTHS 185566 . 187306 -))))) + (FILEMAP (NIL (8745 18264 (CHARWIDTH 8755 . 9540) (CHARWIDTHY 9542 . 10912) (STRINGWIDTH 10914 . 12007 +) (\CHARWIDTH.DISPLAY 12009 . 12422) (\STRINGWIDTH.DISPLAY 12424 . 12848) (\STRINGWIDTH.GENERIC 12850 + . 18262)) (18265 24647 (DEFAULTFONT 18275 . 20108) (FONTCLASS 20110 . 22272) (FONTCLASSUNPARSE 22274 + . 23173) (FONTCLASSCOMPONENT 23175 . 23684) (SETFONTCLASSCOMPONENT 23686 . 24645)) (25321 38053 ( +FONTCREATE 25331 . 34598) (\FONT.SYMBOLMEMB 34600 . 34830) (\FONT.SYMBOLASSOC 34832 . 35990) ( +\FONT.COMPARESYMBOL 35992 . 38051)) (38092 42716 (FONTASCENT 38102 . 38270) (FONTDESCENT 38272 . 38541 +) (FONTHEIGHT 38543 . 38729) (FONTPROP 38731 . 42174) (\AVGCHARWIDTH 42176 . 42714)) (42763 55402 ( +GETCHARBITMAP 42773 . 45663) (PUTCHARBITMAP 45665 . 53722) (MOVECHARBITMAP 53724 . 55400)) (55403 +139942 (FONTCOPY 55413 . 60721) (FONTSAVAILABLE 60723 . 65928) (FONTFILEFORMAT 65930 . 67554) (FONTP +67556 . 67855) (FONTUNPARSE 67857 . 70421) (SETFONTDESCRIPTOR 70423 . 72132) (CHARCODEP 72134 . 72495) + (EDITCHAR 72497 . 72926) (\STREAMCHARWIDTH 72928 . 77092) (\UNITWIDTHSVECTOR 77094 . 77457) ( +\CREATEDISPLAYFONT 77459 . 78212) (\CREATECHARSET.DISPLAY 78214 . 81130) (\CREATE-REAL-CHARSET.DISPLAY + 81132 . 88036) (\BUILDSLUGCSINFO 88038 . 89481) (\SEARCHDISPLAYFONTFILES 89483 . 91416) ( +\SEARCHFONTFILES 91418 . 94729) (\FINDFONTFILE 94731 . 95922) (\FONTSYMBOL 95924 . 96574) ( +\DEVICESYMBOL 96576 . 97445) (\FONTFACE 97447 . 104637) (\FONTFACE.COLOR 104639 . 111559) ( +\FONTFILENAME 111561 . 114976) (\FONTFILENAME.OLD 114978 . 117927) (\FONTFILENAME.NEW 117929 . 120186) + (\FONTINFOFROMFILENAME 120188 . 123302) (\FONTINFOFROMFILENAME.OLD 123304 . 125581) (\GETFONTDESC +125583 . 125974) (\COERCEFONTDESC 125976 . 131361) (\LOOKUPFONT 131363 . 132707) (\LOOKUPFONTSINCORE +132709 . 134782) (\READDISPLAYFONTFILE 134784 . 139940)) (140845 157895 (\READSTRIKEFONTFILE 140855 . +145383) (\SFMAKEBOLD 145385 . 147781) (\SFMAKEITALIC 147783 . 150686) (\SFMAKEROTATEDFONT 150688 . +152089) (\SFROTATECSINFO 152091 . 152728) (\SFROTATEFONTCHARACTERS 152730 . 153110) ( +\SFFIXOFFSETSAFTERROTATION 153112 . 155251) (\SFROTATECSINFOOFFSETS 155253 . 156522) (\SFMAKECOLOR +156524 . 157893)) (157896 166207 (WRITESTRIKEFONTFILE 157906 . 162747) (STRIKECSINFO 162749 . 166205)) + (180252 180415 (\CREATEKERNELEMENT 180252 . 180415)) (180417 180545 (\FSETLEFTKERN 180417 . 180545)) +(180547 180641 (\FGETLEFTKERN 180547 . 180641)) (180810 183666 (\CREATECHARSET 180820 . 183664)) ( +184821 186573 (\FONTRESETCHARWIDTHS 184831 . 186571))))) STOP diff --git a/sources/FONT.LCOM b/sources/FONT.LCOM index 43f79cc2289601fc27be2e21367b7535e6f8c2f7..1ae613b2acd18879115c39435f2838f3662e830c 100644 GIT binary patch delta 4521 zcmb7I2~dN^*g?P&ADm$v5(~=jx8Lgw!7Sd)i3Zt!A4ZZYVDm5^l6QHqmdX)b$WfB z!J;B+)z<#r?ctuTPSW2;RD^rf7HAr}BXob)j{EB)9ou_4`s&^NTRVE{d%HS&x*jp< z%=HiT?}&u^y0!EJnPR6=1FFq&)kafYRdt;nRC6k;=<$IGTC}56MZ&OwJ>+(i`SLoQ zPDMI92Ec$H&|@&EH2?J+a|ii9?OtUhoS~-1XsRN0RwwUu2mx(SBGWVgwc3m zCVgEVfYIA3Bdt%Ygi$1M3()nY^>o>yau~fBrJYmJ|d|b5bYJHFhOK{PyC1#*a+}?Cf14qRZ z6ZI;xW(^z;W`XxUhg+DJhJfx{dKb`!ku3WCQZJ0$%TV>HW$i$Jo1vtI%dIf#SdLOt z%e#QCOvU3qliC6FTav;xh%B+-U5rL=EiEqtG!P|_FD>R_~aMFFjxsG_UWvf-=u zOb&f+VkvD*Z^-4^FerW@AOs;?{uY-l=*0NI*17ajx<$r4e^!JwzO#C|Edw3-Vul5n zt6}tgh9yIz(QtDMNu8~RqmInK0rQS5b0(*r$843j(Y;wp^we?1+AL%Tf_|6RA#Ka} zGl~x6`*SwuBfo7VBRkPgvB@*=cH+Ie9VR#8l&@f^EDty>wA`0{k>IcD9ff)$(NgaHd75O-Yi( z+#Asiv`6X7@IrY%AK$%{8T=vC#Wf_CMUnALezp0;h~w8Yu{ZbEy(l&I{z zIZYe#%OwqAx;?*rr>Klfw<{-K^rR)IO*J*7jo}HN7D7QxMgv*7lK1=hR&B7=CuqGP zPov-`CcTNYIfP&%9}w)W4L)M5G0h3$Br#UUCq%m)l^IR2=vMtIL#<`uoWWusEF3-n zG6;7;VG^e{>TBt6fkq0JO|bJJcMvm%Ir8#ACjF$~OYrnNh2maa$lrNG33I)7K%B7KFJ^g}o#)If9$pfR@kf7tm z#dLqk1z1+68e+@dP(i-Zb%_S;BmfxC1H=p`Ocd-W12tHo;Kwc(`KUCJss{F7u-FAH_nJ@?%r$DGvoKBIV01N z=?#-_gdxKWdJC~St)kaJYHO*o5-}lEsh0{ABgO};!fZ?rRhE@=YO@5^HX&g3yL>^> z54Qz#8cxlVEvj6SmLS#PkFIbEE{8LgFj}n!wrx)~}^KPy{bod*eC(4@|}haLQ30q?96La|hbxO9H`L_ZV+ zv@Oq31Jv)(0p0CTfI$Zx($W9mG)UEnXR?YmfjNejxU`DdWEN~L$t`TZt*&t8k0e1G zV1&SXZjDUzpRTKD!7rNXl~U|NURRJ^Cg4fPAEq|njdw}J-N5Sg6*pc->5rGtwB~#& z_Z)_=F;6~YzUfiIXP)Sz<=$6e^oci@F{Y9WSxM!I>t)3>A{NP7=(D0(Rzlwv6|$xD zBXP~Lu|~N}Lh_kQt7xIGbXnq_iwS#$OU1&rnP}ANv&rN}3v?hwiB(kw{JYsyT}|2o zb`ReqxPrXfWhEwa?Lv$+RT*Z502XY-bUU<~3}({S7;?F70e8q@4Y<5^k(dm6s`ih$ zIJHS{CN^kztN_)3!5GSTl>waB-acixZOW{t?JEisjmB!K3k-pCE(CZ$tcANGghmsC zLl~Lep$*J^e@V`bA=03Mu4*=8eY*yw;u?q;0CC=IWj3N2i=C4rA!3`l+ zoOYMjHY>t{D{uW3-WO&94Uj@10fvN-3__XAg^dL?V`Df;$~wAhV_qiL#=LQ>R4;6$ z+*BbYt)#@xgTtirv}`hAt?q08w=9`c6N|w_Np}vN=)ivOn~q*RN6gjOZ%G02KwgJD z#ElRHus^3uXBFMCtc)Jq@;DY|_C4PL&Fp@toFfnh&;Y+0QdLbbJF{@JIxE%r7J6g~DE;g&ok)a~uUf=q&;I z*Is=-(~5ay_lq9HjJOH)eQzRYe!IO8*W~S}DE?vTxGnX4%IMIJJs|%4z_YMs-#}Rg zhdsq?Dl(HV57-N4v7yZ>3Vtgf70cCGfy`+21AoNbiyj`q-Cudcmd>@gMX@R5Ls=$w z4bsd!*bn^EgM{^TaS^BvtLTrp^V;A8sHXX`bu3dS{aN&UVE$rIUf(jumLzp z%vtG=*COyX?H-b`MZeiozL-<{ef;`$bU2)6fx8J(QTirU-s*&WklIKzFaS{nEVE(P z(o!qS4l8Ut*_b z5`Hm=@5Z=)ock@Ya;V?uRdBEo6Nw>*lt1J94uYoI;c~(XG$w*d5QlkdP=M!^B)V&O zJl=h1_7}mr_zrvb(hLHv+L^}Gyb)b(PFlI>2JgjGsC;4FNKs9>t9|xajD~Au^!{^2!?8x|0 z1??TpgVFGzLi*CE6GmT+ZUI_yIEQv0ZiLaf!zh`4qyy;aky85Nkvm}Y;SucXj7O0- zdK8~TH;<};4j;;+{Fnnq&x|2&W(*%kzGEwaK6nggK9#8LI6l)(AIFtTPvHEH6I+3P zB#qaOm%_MXJgaFoZvdjC#+M;gEOTNx)wb}agKYbOIr{cE+{bjy^86gGfBQhVH$2#- zMNM=44^26_3nZR7xs|zU<|LZ;&B@g{*sm_=-zDcBJtd{!XD@xrR$M<#=2Bl5D8m;Y z9%KSt{_6>B4Q@)~zKIF}o_HQ;1pHp?hT{doo*#nWFZ%6n2bo_yvrfQ-!&ikK9$v*y zD%f4}`!nx>61e$dTP*=FJRAZLoe>hrk}rz{`l9+_}GQVCD7exG0LBxMSQF| rhfz6x4x@VIoC)Z6=k8g-5%{kNOD{B<-gmwNIAiBAcCrg)tc?Bxlb`g< delta 4497 zcmaJ^3viQF7H-l2E#>d~U0QA*Y!gaj{v>UZBBg(mKkZMG{2@sTg<|Oo=!3SF)+ZDZ zR~%4e_9|j2)RvW6iV8;E)!7ko#vO5G*T?QmUDwynIIhgPQ(Vy**Io9U|EB2!cVRf( zod4W&&OPTl=bn4&L-pAy_0cL9r*%p$(e4w4faoB3#8&KVYc4h#j6C7_GP9wKH|G&; zUQ5re-uAAxR?^cALialSHG6N}*|V#yysN3N@9y&UuJ+x%<+N9ovd^L;9I6p|`#_Ds zKzM7JfiE)|^GKduc6-5EF`8`6BkiEe-PYRGb~iEUONeuztBd&W-rY0MPY6HjhhDGG zBdtySU>!8i`Cv4bnLxQUPd9rC4IYDjqRLMAN%vYT;E#P2D@%c9Z^|m1Ts} z)(Jj8amt-oCaw+It3eD|SI3&uA@PKhRxlvk|_u%xEh!+x~ADB1?4~wW?cG z9356~1p2LdJJ2nWw*h@MvKeT$rVS`5SV!N`6vFDN^4q&80PCk0wE|tbcpK2p#klkR z#q~f}FTtIUD)gHrb+A_LPo`U=VpUwQD@vsTMt3xB`a^UH(4nOdByc(%(c+E8b6pqhhx?P>(4P;fm)ZLjT6gI`!~xPf!;_+ryZOKtMeR6#KxlM z{jqqusn{l^8`AlU^v zo=}nAfRXo!elcLL7JM5eN1z&#pheR%l@rrI!Qlxj9ZA%~>Pn)X{+MWi6*^Xvltx>U zEJ<)q9T(nB${bdXzQ$+JHg1&Y)CkX< zDabfI@7p5A{#yo(dnH~Sp{ZzXHC0THU5FT=hca_i9dsg-M0HMWmD8^U1N8Tq-q`cw za%_Bb1pFDhaHE+TvbLx@Kct7VGU#|#VRYwIVEPNCKn zKmf6D?H@>@V)hr1v7(&9M9hX#)-J*CXZdW+F=0NBugC@Z>Iz-ztU#^Di!oq|vU3eo zM=pTSN2E|meOM7TGT9@}n9R<7Y&LQGa#N!aeOedMQhn|U`d#ih&~Z9%Z!|iib<1@Q zXaq*!9f>TW2lEqQHI$EyVT+~^8v?Ah6|`k?L{I$n0PD~Rlz_1#d|L4DNRawi`z_G- zbp@%MQbBruy}MF&xkYy+JHoP68**mQHdg{-A=_s}GU?;1=J?MSVYx{~y!yLkbWc(L zzK)6xA>n}-=~C3?h^=o&EO|}3q<%Y+bWHD@Zj8NHgY3pc;5R12kMNh&i`AV|n>^Qo z4mtL5clEn(McnVMe&aXmJEu0w$=8Bdtt2+v*x{>g;NRQpK1D!EX=8|LfHSg`5^{5a2sRzuhN!1F{cd z%_4`aIkGvcqvIo#Lj9jRszs@)I)tbDi*;c7Tya6dj6SbV_Od*DUYwwY*89&}460Q8 z+91?bh1&y*uZ<7zfLP1T&Jnm{4SKjJpr&wBr4#^+GsUm*PQ>UU)1;!;TYHnlZ%ug` zF#VOKRF#IN0aoHdEv2?L)G}Pw753dOds)88lyt|#U&n<+)bJZ~k630YcY&bmZ;8#Sv)vk*xlrqJwbE_+;b&BX) zca;_Bc$GelgLW}Lfh-h%uTnx`l6a+<@r-uaA+kWxJEY>28H9@tNeL6PkInx*$-DZ0 z00UdJD7fcmE9hSTHhPurD$i8%S?iGk>^g$z0;ZViUY86)ue&Nj7Xq7}*kyo6U{XDU zxzw;Rlh(OUz<^;Udo+>r&xg%5e~$uFn&8RAXvki=$MYhrcsX5z9?7(xvNgnPGUCETOeN4<{Z6+~BT50mCE0;<^PPZgoC!gLaS)Tyd{d7$ zl+xRMNooU6AM~A+0Q1o29b%nihl{~#U4VaJ8E#@(j5o2&Jbf-MJJQHo=)?ZK5SXO_ z0lHmft>kj}UA0wqzvOYs3@J^4y_mdDYd5jbtzD9?QRaa1dwKd$oe{Xanez9i(LdE? zWGMOdi-4wTObg;VbU`fH_%-UezNwZKwNvsqW<*$Ox7EM72o6|6V9-iQQ8K8sSJr=- z%+f8(Y47ItMG89UCz~^pxCR!E`BJ;U)LmPO6mTm_oB~7){SLmg#iZ1D<9}3(IW4j9 zCOWtyjcS_xuxC^AuH_slDaE-?$%z~AU+X3=Y+Z0?(9fHbpuVp+4`K=TZ~qbK?K|!) zP;-`0n{Rv*`8%ELF`VRs9s=pwS!>MJa^q9{$Bp3%w%V%0ggIyMVc4%zu0%5-H zANT=H@44$J>f`QlBybHbS+1$|q8w9%(4zPB+zQZwGD1E8(k}Z%Vx9MsVPtmqjFgh+ z@_Pr+!i#&>G2p89XDYxArtHmCLGOTi6zq6i*j+NrUW7L)!%_{-LXc>91F#km>>0FS zPoLPoSH(1~I)F{scOV}+mCq||SV!!Fy&8a`46cg1pdeu|nb~{hfEi9qKmPe!O4FWO z@rt9bJg7A78wY>QDq~*TP$aHA^Z_1a^w2L^Z)6faIe_oW*|2RpYzY;{@L^91%*&8` z6q!@b^v2;QK+_Ws7eWMZqz;Lo671T7Js`rHO@ZJi50B0cU=QtyF%SPSp291qi3_w+`1Hc=x96(<*B1E7X@EFS^*_V zzklp=pdUVNOjO1S`IKJlOC-Gf0@?;AA-IE!xx_UgDu9}RY z+z`H!nubzo*H8@n6X4grp)~sDP$jIQPT;Pd6HP$hJAtn(ei%o^qr=Gmei&b3TTg0% zK6nxzeqWwMzULH5K6h#*&_A9+&YBUVVPfBbfpbTTJ#P8