Rmk175 offline font construction (#2555)
* Medleyfont format updated to version 2, revised and more complete fonts deployed in fonts/medleydisplayfonts/
* Rename AFONT to ACFONT, include STRIKE formats
* FILESETS: Add MCCSFONTS to loadup
* MCCSFONTS: New file that isolates all of the legacy font translations previously spread in other files (MCCS)
* Medleyfont display fonts created offline using new file library/IMPORTFONTS
* LLCHAR: Add \MAXCHARSET=65535, \MAXCHAR etc.
* git ignores internal/fonts/**
* MEDLEYDIR: Define the pseudohost {MEDLEY} whose prefix set to the current value of MEDLEYDIR whenever system restarts
* (MEDLEYDIR xxx) entries in MEDLEY-INIT-VARS removed in favor of {MEDLEY}xxx
* Add cdm command to connect to {MEDLEY} and its subdirectories
This commit is contained in:
rmkaplan
GitHub
@@ -1,13 +1,13 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "16-Mar-2026 23:19:02" {WMEDLEY}<lispusers>EDITFONT.;42 26474
|
||||
(FILECREATED " 5-May-2026 12:21:24" {MEDLEY}<lispusers>EDITFONT.;53 27357
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS EDITFONT)
|
||||
(RECORDS CHARITEM)
|
||||
|
||||
:PREVIOUS-DATE "12-Oct-2025 17:39:29" {WMEDLEY}<lispusers>EDITFONT.;41)
|
||||
:PREVIOUS-DATE " 5-Apr-2026 11:56:20" {MEDLEY}<lispusers>EDITFONT.;51)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT EDITFONTCOMS)
|
||||
@@ -19,8 +19,8 @@
|
||||
(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)
|
||||
EF.EDITBM EF.MIDDLEBUTTONFN EF.CHANGESIZE EF.DELETE EF.ENTER EF.REPLACE EF.SAVE
|
||||
EF.INSPECT COPYFONT READSTRIKEFONTFILE)
|
||||
(FNS BLANKCHARSETCREATE EDITFONT)
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS CHARITEM)
|
||||
(FILES (LOADCOMP)
|
||||
@@ -38,14 +38,16 @@
|
||||
(DEFINEQ
|
||||
|
||||
(EF.INIT
|
||||
[LAMBDA NIL (* ; "Edited 4-Aug-2025 13:16 by rmk")
|
||||
[LAMBDA NIL (* ; "Edited 5-Apr-2026 11:56 by rmk")
|
||||
(* ; "Edited 4-Aug-2025 13:16 by rmk")
|
||||
[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."]
|
||||
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."])
|
||||
ITEMS _ '((Save 'EF.SAVE "Save EDITFONT's work back into font.")
|
||||
(Inspect 'EF.INSPECT "Inspect this charset info"])
|
||||
|
||||
(EF.PROMPT
|
||||
[LAMBDA (STRING WINDOW) (* kbr%: "16-Oct-85 22:48")
|
||||
@@ -81,7 +83,8 @@
|
||||
(WINDOWPROP WINDOW 'MENU NIL])
|
||||
|
||||
(EF.CHARITEMS
|
||||
[LAMBDA (FONT CHARSET ROWMAJOR) (* ; "Edited 5-Oct-2025 14:42 by rmk")
|
||||
[LAMBDA (FONT CHARSET ROWMAJOR) (* ; "Edited 18-Mar-2026 16:13 by rmk")
|
||||
(* ; "Edited 5-Oct-2025 14:42 by rmk")
|
||||
(* ; "Edited 29-Aug-2025 11:34 by rmk")
|
||||
(* ; "Edited 27-Aug-2025 22:50 by rmk")
|
||||
(* ; "Edited 4-Aug-2025 00:14 by rmk")
|
||||
@@ -95,7 +98,7 @@
|
||||
collect (create CHARITEM
|
||||
BITMAP _ (GETCHARBITMAP C FONT)
|
||||
CHARCODE _ C8
|
||||
SLUGCHARP _ (SLUGCHARP.DISPLAY C FONT)))
|
||||
SLUGCHARP _ (SLUGCHARP C FONT)))
|
||||
else (for ROW from 0 to 15 join (for COL CODE from 0 to 15
|
||||
collect (SETQ CODE (LOGOR (LLSH CHARSET 8)
|
||||
(IPLUS (TIMES COL 16)
|
||||
@@ -103,7 +106,7 @@
|
||||
(create CHARITEM
|
||||
BITMAP _ (GETCHARBITMAP CODE FONT)
|
||||
CHARCODE _ CODE
|
||||
SLUGCHARP _ (SLUGCHARP.DISPLAY CODE FONT])
|
||||
SLUGCHARP _ (SLUGCHARP CODE FONT])
|
||||
|
||||
(EF.BUTTONEVENTFN
|
||||
[LAMBDA (WINDOW) (* kbr%: "16-Oct-85 22:19")
|
||||
@@ -313,6 +316,12 @@
|
||||
|
||||
(\SETCHARSETINFO FONT CHARSET CSINFO])
|
||||
|
||||
(EF.INSPECT
|
||||
[LAMBDA (WINDOW) (* ; "Edited 5-Apr-2026 11:41 by rmk")
|
||||
(* ; "Save EDITFONT changes to FONT. *")
|
||||
(INSPECT (\GETCHARSETINFO (WINDOWPROP WINDOW 'FONT)
|
||||
(WINDOWPROP WINDOW 'CHARSET])
|
||||
|
||||
(COPYFONT
|
||||
[LAMBDA (FONT) (* ; "Edited 3-Aug-2025 17:37 by rmk")
|
||||
(* jds "26-Aug-86 16:01")
|
||||
@@ -429,18 +438,20 @@
|
||||
(RETURN FONT])
|
||||
|
||||
(EDITFONT
|
||||
[LAMBDA (FONT CHARSET ROWMAJOR NCOLUMNS TITLETAG) (* ; "Edited 16-Mar-2026 23:17 by rmk")
|
||||
[LAMBDA (FONT CHARSET ROWMAJOR NCOLUMNS TITLETAG) (* ; "Edited 5-May-2026 12:19 by rmk")
|
||||
(* ; "Edited 4-Apr-2026 18:14 by rmk")
|
||||
(* ; "Edited 30-Mar-2026 12:10 by rmk")
|
||||
(* ; "Edited 25-Mar-2026 00:04 by rmk")
|
||||
(* ; "Edited 21-Mar-2026 10:43 by rmk")
|
||||
(* ; "Edited 16-Mar-2026 23:17 by rmk")
|
||||
(* ; "Edited 7-Oct-2025 14:55 by rmk")
|
||||
(* ; "Edited 5-Oct-2025 15:06 by rmk")
|
||||
(* ; "Edited 4-Sep-2025 09:27 by rmk")
|
||||
(* ; "Edited 29-Aug-2025 22:34 by rmk")
|
||||
(* ; "Edited 17-Aug-2025 12:03 by rmk")
|
||||
(* ; "Edited 3-Aug-2025 23:25 by rmk")
|
||||
(* ; "Edited 2-Aug-2025 10:11 by rmk")
|
||||
(* mjs "27-Mar-85 14:48")
|
||||
(* kbr%: "21-Oct-85 15:35")
|
||||
(* kbr%: "21-Oct-85 15:35")
|
||||
(SETQ FONT (FONTCREATE FONT))
|
||||
(SETQ FONT (FONTCREATE FONT NIL NIL NIL NIL NIL CHARSET))
|
||||
(CL:UNLESS (EQ 'DISPLAY (FONTPROP FONT 'DEVICE))
|
||||
(ERROR FONT " is not a display font"))
|
||||
(SETQ CHARSET (OR (CHARSET.DECODE CHARSET)
|
||||
@@ -497,10 +508,10 @@
|
||||
|
||||
(EF.INIT)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1147 16904 (EF.INIT 1157 . 1791) (EF.PROMPT 1793 . 2375) (EF.MESSAGE 2377 . 2589) (
|
||||
EF.CLOSEFN 2591 . 3118) (EF.CHARITEMS 3120 . 4956) (EF.BUTTONEVENTFN 4958 . 5370) (EF.WHENSELECTEDFN
|
||||
5372 . 5776) (EF.EDITBM 5778 . 7272) (EF.MIDDLEBUTTONFN 7274 . 7519) (EF.CHANGESIZE 7521 . 8850) (
|
||||
EF.DELETE 8852 . 10033) (EF.ENTER 10035 . 10976) (EF.REPLACE 10978 . 11951) (EF.SAVE 11953 . 16196) (
|
||||
COPYFONT 16198 . 16473) (READSTRIKEFONTFILE 16475 . 16902)) (16905 26286 (BLANKCHARSETCREATE 16915 .
|
||||
23000) (EDITFONT 23002 . 26284)))))
|
||||
(FILEMAP (NIL (1157 17541 (EF.INIT 1167 . 1996) (EF.PROMPT 1998 . 2580) (EF.MESSAGE 2582 . 2794) (
|
||||
EF.CLOSEFN 2796 . 3323) (EF.CHARITEMS 3325 . 5254) (EF.BUTTONEVENTFN 5256 . 5668) (EF.WHENSELECTEDFN
|
||||
5670 . 6074) (EF.EDITBM 6076 . 7570) (EF.MIDDLEBUTTONFN 7572 . 7817) (EF.CHANGESIZE 7819 . 9148) (
|
||||
EF.DELETE 9150 . 10331) (EF.ENTER 10333 . 11274) (EF.REPLACE 11276 . 12249) (EF.SAVE 12251 . 16494) (
|
||||
EF.INSPECT 16496 . 16833) (COPYFONT 16835 . 17110) (READSTRIKEFONTFILE 17112 . 17539)) (17542 27169 (
|
||||
BLANKCHARSETCREATE 17552 . 23637) (EDITFONT 23639 . 27167)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user