161 lines
9.9 KiB
Plaintext
161 lines
9.9 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED "16-Mar-2026 23:19:02" ("compiled on " {WMEDLEY}<lispusers>EDITFONT.;42)
|
||
"12-Mar-2026 00:11:01" brecompiled exprs%: EDITFONT in "FULL 12-Mar-2026 ..." dated
|
||
"12-Mar-2026 00:11:10")
|
||
(FILECREATED "16-Mar-2026 23:19:02" {WMEDLEY}<lispusers>EDITFONT.;42 26474 :EDIT-BY rmk :CHANGES-TO (
|
||
FNS EDITFONT) (RECORDS CHARITEM) :PREVIOUS-DATE "12-Oct-2025 17:39:29"
|
||
{WMEDLEY}<lispusers>EDITFONT.;41)
|
||
EF.INIT :D8
|
||
(F 2 EF.MENU F 3 EF.TITLEMENU) r ` do ¿dg ¿dg ¿jdnÿdhHdI
|
||
¿c` do ¿dg ¿dg ¿jdnÿdhHdI
|
||
¿c NIL
|
||
(85 DEFAULTMENUHELDFN 76 CLRPROMPT 60 |MENUTYPE#| 29 DEFAULTMENUHELDFN 20 CLRPROMPT 4 |MENUTYPE#|)
|
||
( 67 ((SAVE (QUOTE EF.SAVE) "Save EDITFONT's work back into font.")) 11 ((CHANGESIZE (QUOTE EF.CHANGESIZE) "Change size of character.") (DELETE (QUOTE EF.DELETE) "Delete character.") (EDITBM (QUOTE EF.EDITBM) "Edit character.") (REPLACE (QUOTE EF.REPLACE) "Prompt for bitmap to replace character.")))
|
||
EF.PROMPTA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 PROMPTW) 4 g Q hhPc g ` hhPc Q (49 TTYINREAD 34 TTY.PROCESS 10 TTYDISPLAYSTREAM)
|
||
(29 \RUNNING.PROCESS 24 TTY.PROCESS 4 TTYDISPLAYSTREAM)
|
||
()
|
||
EF.PROMPT :D8
|
||
(L (1 WINDOW 0 STRING) P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 0 PROMPTW F 5 LISPXHIST) N A Xd @H
|
||
o H
|
||
U!g ¿$YH I (75 EVAL 69 TERPRI 57 SI::RESETUNWIND 52 \MVLIST 47 EF.PROMPTA0001 33 PRIN1 22 PRIN1 15 CLEARW 8 GETPROMPTWINDOW)
|
||
(42 SI::RESETUNWIND)
|
||
( 27 " ")
|
||
EF.MESSAGE :D8
|
||
(L (1 WINDOW 0 STRING)) A X@H
|
||
h (16 PRIN1 8 GETPROMPTWINDOW)
|
||
NIL
|
||
()
|
||
EF.CLOSEFN :D8
|
||
(L (0 WINDOW)) , o g ð•g @ @g h h (40 PUTWINDOWPROP 28 CLOSEW 9 ASKUSER)
|
||
(34 MENU 21 DON'T 14 N)
|
||
( 4 "Close Editfont Window?")
|
||
EF.CHARITEMS :D8
|
||
(P 13 CODE P 9 COL P 6 ROW P 2 C P 1 C8 I 2 ROWMAJOR I 1 CHARSET I 0 FONT) ª B²;lÿjAá3IHó‘KJ@
|
||
IJ@
|
||
h½LµMh\»IkÔ¹JkÔº°ÖM&¼°óljNMó³aOljB
|
||
OOó³AAáOlÖNØä_@
|
||
Od@
|
||
h_¿OµOh__¿OkÔ_°ÆO&_¿°òO
|
||
_¿NkÔ^°ŸO (156 \NCONC2 112 SLUGCHARP.DISPLAY 103 GETCHARBITMAP 31 SLUGCHARP.DISPLAY 23 GETCHARBITMAP)
|
||
NIL
|
||
()
|
||
EF.BUTTONEVENTFN :D8
|
||
(L (0 WINDOW) F 1 EF.TITLEMENU) 4 h@
|
||
@ @ –@ <00>Q X´@kHh (40 MENU 33 MENUBUTTONFN 26 INSIDEP 21 LASTMOUSEY 15 LASTMOUSEX 9 DSPCLIPPINGREGION)
|
||
NIL
|
||
()
|
||
EF.WHENSELECTEDFN :D8
|
||
(L (2 KEY 1 MENU 0 CHARITEM)) ' @´$Bdg ð˜¿@A
|
||
Žg ð´
|
||
@A
|
||
h (35 EF.MIDDLEBUTTONFN 19 EF.EDITBM)
|
||
(25 MIDDLE 9 LEFT)
|
||
()
|
||
EF.EDITBMA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 0 \INTERRUPTABLE I 0 SI::*CLEANUP-FORMS* F 1 CHARITEM F 2 BITMAP F 3 MENU F 4 SI::*RESETFORMS* F 5 CHARCODE F 6 SLUGCHARP) a g QSo QSnÿÿ hTcQcV²d c¿ QR¿QhRUi
|
||
o Sg
|
||
|
||
(94 EDITBM 89 CONCAT 84 GETMENUPROP 68 CHARCODE.ENCODE 44 BITMAPCOPY 24 SHADEITEM)
|
||
(79 EDITFONTTITLE 4 SHADEITEM)
|
||
( 73 " in " 11 (0))
|
||
EF.EDITBM :D8
|
||
(L (2 CHARSET) P 5 RESETSTATE P 4 SI::*RESETFORMS* P 3 LISPXHIST P 2 BITMAP P 1 CHARCODE P 0 SLUGCHARP I 1 MENU I 0 CHARITEM F 6 LISPXHIST) ; @@V!g ¿$H´A A (56 REDISPLAYW 51 WFROMMENU 45 UPDATE/MENU/IMAGE 31 SI::RESETUNWIND 26 \MVLIST 21 EF.EDITBMA0001)
|
||
(16 SI::RESETUNWIND)
|
||
()
|
||
EF.MIDDLEBUTTONFN :D8
|
||
(L (1 MENU 0 CHARITEM) F 1 EF.MENU) Q Xd´
|
||
@AlHh (8 MENU)
|
||
NIL
|
||
()
|
||
EF.CHANGESIZE :D8
|
||
(L (1 MENU 0 CHARITEM) P 3 \INTERRUPTABLE) ~ 0A Zo J
|
||
dµo J
|
||
h Xo J
|
||
dµo J
|
||
h dH
|
||
Y@hdI @I¿@hA A h (122 REDISPLAYW 117 WFROMMENU 111 UPDATE/MENU/IMAGE 92 BKBITBLT 81 BITMAPCREATE 74 EVAL 67 EF.MESSAGE 53 EF.PROMPT 41 EVAL 34 EF.MESSAGE 20 EF.PROMPT 8 WFROMMENU)
|
||
NIL
|
||
( 61 "Aborted." 47 "New width?" 28 "Aborted." 14 "New height?")
|
||
EF.DELETE :D8
|
||
(P 2 \INTERRUPTABLE P 1 SLUGBITMAP P 0 WINDOW I 1 MENU I 0 CHARITEM) N A n Hg
|
||
É Hg
|
||
àÐÉ
|
||
Y@I¿@iA A (75 REDISPLAYW 70 WFROMMENU 64 UPDATE/MENU/IMAGE 44 \GETCHARBITMAP.CSINFO 35 GETWINDOWUSERPROP 22 GETWINDOWUSERPROP 5 WFROMMENU)
|
||
(30 CHARSET 17 FONT)
|
||
()
|
||
EF.ENTER :D8
|
||
(L (1 MENU 0 CHARITEM) P 1 \INTERRUPTABLE) X o Xdµo i
|
||
¿i °2dà ²#¿@H¿@hA ¿A †l
|
||
h (84 \LISPERROR 76 REDISPLAYW 71 WFROMMENU 64 UPDATE/MENU/IMAGE 34 TERPRI 27 PRIN1 12 EF.PROMPT)
|
||
(42 BITMAP)
|
||
( 21 "Aborted." 7 "Enter new bitmap (evaluated):")
|
||
EF.REPLACE :D8
|
||
(L (1 MENU 0 CHARITEM) P 2 \INTERRUPTABLE) Y A Yo I
|
||
Xdµo I
|
||
°2dà ²#¿@H¿@hA ¿A †l
|
||
h (85 \LISPERROR 77 REDISPLAYW 72 WFROMMENU 65 UPDATE/MENU/IMAGE 35 EF.MESSAGE 20 EF.PROMPT 8 WFROMMENU)
|
||
(43 BITMAP)
|
||
( 29 "Aborted." 14 "New bitmap?")
|
||
EF.SAVE :D8
|
||
(P 22 C8 P 21 BM P 20 CI P 14 SLUGWIDTH P 13 SLUGOFFSET P 12 SLUGBM P 11 CSINFO P 10 OFFSET P 9 WIDTH P 8 HEIGHT P 7 OFFSETS P 6 WIDTHS P 5 CB P 4 CBHEIGHT P 3 CBWIDTH P 2 CHARSET P 1 CHARITEMS P 0 FONT I 0 WINDOW) @g
|
||
@g
|
||
@g
|
||
jdåI!O&µ‚±n HÉ JàÐÉ
|
||
_d È_ KO Ô[LO È_ ¿dO ñ¢¿O \KL
|
||
]HÉ JàÐÉ d M¿_d É_O É ^j_I1O&µ‚± ÁO_On ÐOÍ On kØÐOO ØÍ OjdMOjO O Èg g
|
||
I_"µ‚± ÝO MO N O OO NH É JàÐO O_(d³(_*¿KO* ÈØ»LO* È_ ¿dO ñ¢¿O \¿O&_&±þÁ_(d³W_* È_¿O*jdMOjOO* Èg g
|
||
¿O(lÿå_,¿OO,ÐOÍ ¿NO,ÐOÍ ¿OOÔ_¿O&_&±þ×_$² OO$lÿåÐOÍ ¿NO$lÿåÐO Í ¿O"±þõ (422 BKBITBLT 240 BKBITBLT 127 COPYALL 113 BITMAPCREATE 67 \GETCHARBITMAP.CSINFO 32 GETWINDOWUSERPROP 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP)
|
||
(416 REPLACE 411 INPUT 404 BITMAP 382 BITMAP 342 BITMAP 330 BITMAP 297 FONTDESCRIPTOR 288 CHARSETINFO 277 CHARSETINFO 267 CHARSETINFO 257 CHARSETINFO 234 REPLACE 229 INPUT 222 BITMAP 156 CHARSETINFO 145 CHARSETINFO 133 CHARSETINFO 92 BITMAP 75 BITMAP 27 CHARSET 16 CHARITEMS 5 FONT)
|
||
()
|
||
COPYFONT :D8
|
||
(L (0 FONT))
|
||
@ (10 COPYALL 5 FONTCREATE)
|
||
NIL
|
||
()
|
||
READSTRIKEFONTFILE :D8
|
||
(L (5 CHARSET 4 FONT 3 FILE 2 FACE 1 SIZE 0 FAMILY)) o @ABCDE
|
||
(21 FONTCREATE 9 HELP)
|
||
NIL
|
||
( 4 "USE MEDLEYFONT.READ.FONT")
|
||
BLANKCHARSETCREATE :D8
|
||
(P 25 W P 24 I P 21 I P 19 FS P 10 CBHEIGHT P 9 CBWIDTH P 8 CB P 7 SLUGOFFSET P 6 WIDTHS P 5 OFFSETS P 4 SLUGWIDTH P 3 CSINFO P 2 FONT P 1 DEVICE P 0 ROTATION I 8 WIDTH I 7 DESCENT I 6 ASCENT I 5 LASTCHAR I 4 FIRSTCHAR I 3 CHARSET I 2 FACE I 1 SIZE I 0 FAMILY) þ C£jb¿D£jb¿E¤lÿb
|
||
¿jDElÿ ¯o DEh
|
||
¿F¨Fl
|
||
¿G©Gl
|
||
¿ð@@ABjg C
|
||
Zdà žJÉ CàÐÉ [¢± ¨JJO&à žO&g
|
||
_&<26>O&O&_&¿b ¿O&O&_&¿b¿O&O&_&¿b¿O&O&_&¿¸O&Y` dg ¿d@¿dA¿dB¿djÍ
|
||
¿djÍ ¿@ABjg h_¿dO¿llÿØi
|
||
_¿dO ¿ºGµAo ê b°,h_ ¿_¿Oµ‚± šiŸG EkØDÙkØð©Gl
|
||
¿` dFÍ
|
||
¿dGÍ ¿dnÿÿÍ¿lÿlØkØâ _ ¿dO ¿lÿlØkØâ _ ¿dO ¿[d É ^Gd¢± › ¼DkÙjO*O(ó³3NO*ÐLÍ ¿O*kÔ_*°í¦O_ ¿hˆO_ ¿O_¿O 3 ’±ÿGh±ÿLGEDO,µlÿEkØO*O(ó²'°T_2¿O0O.ó³äNO0ÐO2Í ¿O0kÔ_0¿O,_,°ÊNO*ÐLÍ ¿O*kÔ_*°È¼lÿjO*O(ó³NO*ÐGÍ ¿O*kÔ_*°ìK É]EkØDO*O(ó³ MO*kØÐMO*ÐÈ NO*ÐÈ ØÍ ¿O*kÔ_*°ßNn ÐLÍ MEÐÈ NEÐÈ Ø_Mn ÐOÍ Mn kØÐOLØÍ DkÙjO*O(ó³MO*ÐOÍ ¿O*kÔ_*°ìn EkØO*O(ó³MO*ÐOÍ ¿O*kÔ_*°ìJ È µjK È _"¿dO"ñ¢¿O"b J È µjK È _$¿dO$ñ¢¿O$bFGØ_Mn ÐÈ Nn ÐÈ Ø_dO
|
||
_nÿÿOOjLO Èg
|
||
K OKDE K K É J FÍJ GÍ J J È
|
||
µjdOñ¢¿OÍ
|
||
J É É CàÐK J J ÍJ (1016 \AVGCHARWIDTH 921 \FONTRESETCHARWIDTHS 903 BLTSHADE 872 BITMAPCREATE 435 LAST 403 \ALLOCBLOCK 381 \ALLOCBLOCK 343 \LISPERROR 325 LENGTH 297 FIXR 271 \ALLOCBLOCK 142 FONTPROP 95 \FONT.CHECKARGS 72 \LISPERROR 57 \LISPERROR 44 ERROR 28 <=)
|
||
(1010 FONTDESCRIPTOR 996 FONTDESCRIPTOR 989 FONTDESCRIPTOR 968 FONTDESCRIPTOR 962 FONTDESCRIPTOR 952 FONTDESCRIPTOR 943 FONTDESCRIPTOR 933 CHARSETINFO 927 CHARSETINFO 909 CHARSETINFO 897 REPLACE 890 BITMAP 826 CHARSETINFO 815 FONTDESCRIPTOR 794 CHARSETINFO 783 FONTDESCRIPTOR 620 CHARSETINFO 419 CHARSETINFO 349 |CHARSETINFOTYPE#| 245 DISPLAY 208 DISPLAY 201 |FONTDESCRIPTORTYPE#| 137 SPEC 129 FONTDESCRIPTOR 102 FONTDESCRIPTOR 88 DISPLAY)
|
||
( 291 0.6 34 "ILLEGAL ARGS")
|
||
EDITFONT :D8
|
||
(P 7 WINDOW P 6 POS P 5 REGION P 4 WIDTH P 3 HEIGHT P 2 TITLE P 1 MENU P 0 CHARITEMS I 4 TITLETAG I 3 NCOLUMNS I 2 ROWMAJOR I 1 CHARSET I 0 FONT) }
|
||
@ b dg
|
||
g ð«@o
|
||
¿A µjb @AB X` d@¿di ¿Cµl_¿dO¿dH¿dg ¿dg ¿dg ¿jdnÿdh_¿dO
|
||
¿Y@g
|
||
o @g
|
||
o @g
|
||
o A D›o D
|
||
„o
|
||
ZIg J I i
|
||
[I \dK
|
||
^dNLKh]dJ
|
||
_dg H Og @ Og A IOjd Og g O @ (377 MODERNWINDOW 370 PUTWINDOWPROP 353 ADDMENU 342 PUTWINDOWPROP 329 PUTWINDOWPROP 316 PUTWINDOWPROP 302 CREATEW 282 GETBOXPOSITION 274 WIDTHIFWINDOW 269 BITMAPWIDTH 264 CHECK/MENU/IMAGE 257 HEIGHTIFWINDOW 251 BITMAPHEIGHT 246 CHECK/MENU/IMAGE 240 PUTMENUPROP 227 PACK* 215 CONCAT 202 OCTALSTRING 191 FONTFACETOATOM 186 FONTPROP 170 FONTPROP 154 FONTPROP 59 EF.CHARITEMS 43 CHARSET.DECODE 36 ERROR 18 FONTPROP 5 FONTCREATE)
|
||
(365 EF.BUTTONEVENTFN 360 BUTTONEVENTFN 336 CHARSET 323 FONT 310 CHARITEMS 234 EDITFONTTITLE 181 FACE 165 SIZE 149 FAMILY 119 DEFAULTMENUHELDFN 110 CLRPROMPT 101 EF.WHENSELECTEDFN 65 |MENUTYPE#| 23 DISPLAY 13 DEVICE)
|
||
( 221 "" 209 " " 196 " " 175 " " 159 " " 31 " is not a display font")
|
||
(PRETTYCOMPRINT EDITFONTCOMS)
|
||
(RPAQQ EDITFONTCOMS ((* ;;
|
||
"EDITFONT -- By Kelly Roach. Need to LOAD EXPORTS.ALL in order to compile this file.") (INITVARS (
|
||
EF.MENU NIL) (EF.TITLEMENU NIL)) (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 COPYFONT READSTRIKEFONTFILE) (FNS BLANKCHARSETCREATE EDITFONT) (DECLARE%:
|
||
EVAL@COMPILE DONTCOPY (RECORDS CHARITEM) (FILES (LOADCOMP) FONT)) (P (EF.INIT))))
|
||
(RPAQ? EF.MENU NIL)
|
||
(RPAQ? EF.TITLEMENU NIL)
|
||
(EF.INIT)
|
||
NIL
|