github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-05 15:44:25 +00:00
Code Issues Projects Releases Wiki Activity

Tweak INIT: HELPTIME 1 for more break windows; extend font profile

Browse Source
This commit is contained in:
Larry Masinter
2023-04-13 09:56:16 -07:00
parent d34522d769
commit 0f49e248d3
4 changed files with 180 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
greetfiles/MEDLEYDIR-INIT
View File

@@ -1,11 +1,13 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "22-Nov-2022 20:59:24" {DSK}<home>frank>il>medley>wmedley>greetfiles>MEDLEYDIR-INIT.;6 2860 (FILECREATED "13-Apr-2023 09:44:06" {DSK}<home>larry>il>medley>greetfiles>MEDLEYDIR-INIT.;6 2925
:EDIT-BY "lmm"
:CHANGES-TO (VARS MEDLEYDIR-INITCOMS) :CHANGES-TO (VARS MEDLEYDIR-INITCOMS)
:PREVIOUS-DATE "22-Nov-2022 20:42:43" :PREVIOUS-DATE "10-Apr-2023 11:58:07" {DSK}<home>larry>il>medley>greetfiles>MEDLEYDIR-INIT.;5
{DSK}<home>frank>il>medley>wmedley>greetfiles>MEDLEYDIR-INIT.;5) )
(PRETTYCOMPRINT MEDLEYDIR-INITCOMS) (PRETTYCOMPRINT MEDLEYDIR-INITCOMS)
@@ -22,18 +24,19 @@
(DWIMWAIT 180) (DWIMWAIT 180)
(HELPDEPTH 4) (HELPDEPTH 4)
(HELPTIME 10) (HELPTIME 1)
(FILING.ENUMERATION.DEPTH 1) (FILING.ENUMERATION.DEPTH 1)
[LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR") [LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
(UNIX-GETENV "HOME"] (UNIX-GETENV "HOME"]
[USERGREETFILES `((,LOGINDIR "INIT" COM) [USERGREETFILES `((,LOGINDIR "INIT" COM)
(,LOGINDIR "INIT"] (,LOGINDIR "INIT"]
(COPYRIGHTFLG 'NEVER)
(COPYRIGHTSRESERVED NIL) (COPYRIGHTSRESERVED NIL)
(AUTOBACKTRACEFLG 'ALWAYS) (AUTOBACKTRACEFLG 'ALWAYS)
(MAXLEVEL 30000) (MAXLEVEL 30000)
(MAXLOOP 30000)) (MAXLOOP 30000))
(FNS INTERLISPMODE) (FNS INTERLISPMODE)
(ALISTS (FONTDEFS LARGER)))) (ALISTS (FONTDEFS))))
(LOAD? (CONCAT (OR (UNIX-GETENV "MEDLEYDIR") (LOAD? (CONCAT (OR (UNIX-GETENV "MEDLEYDIR")
"") "")
@@ -49,7 +52,7 @@
(RPAQQ HELPDEPTH 4) (RPAQQ HELPDEPTH 4)
(RPAQQ HELPTIME 10) (RPAQQ HELPTIME 1)
(RPAQQ FILING.ENUMERATION.DEPTH 1) (RPAQQ FILING.ENUMERATION.DEPTH 1)
@@ -59,6 +62,8 @@
(RPAQ USERGREETFILES `((,LOGINDIR "INIT" COM) (RPAQ USERGREETFILES `((,LOGINDIR "INIT" COM)
(,LOGINDIR "INIT"))) (,LOGINDIR "INIT")))
(RPAQQ COPYRIGHTFLG NEVER)
(RPAQQ COPYRIGHTSRESERVED NIL) (RPAQQ COPYRIGHTSRESERVED NIL)
(RPAQQ AUTOBACKTRACEFLG ALWAYS) (RPAQQ AUTOBACKTRACEFLG ALWAYS)
@@ -84,5 +89,5 @@
(ADDTOVAR FONTDEFS ) (ADDTOVAR FONTDEFS )
(DECLARE%: DONTCOPY (DECLARE%: DONTCOPY
(FILEMAP (NIL (1986 2811 (INTERLISPMODE 1996 . 2809))))) (FILEMAP (NIL (2051 2876 (INTERLISPMODE 2061 . 2874)))))
STOP STOP

BIN
greetfiles/MEDLEYDIR-INIT.LCOM
View File

Binary file not shown.

237
sources/FONTPROFILE
View File

@@ -1,16 +1,20 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 6-Sep-2021 19:11:32" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONTPROFILE.;4 30288
changes to%: (ALISTS (FONTDEFS BIGGERNS)) (FILECREATED "13-Apr-2023 08:40:30" {DSK}<home>larry>il>medley>sources>FONTPROFILE.;2 35652
previous date%: " 6-Sep-2021 15:52:13" :EDIT-BY "lmm"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONTPROFILE.;2)
:CHANGES-TO (ALISTS (FONTDEFS HUGE)
(FONTDEFS BIG)
(FONTDEFS MEDIUM)
(FONTDEFS STANDARD)
(FONTDEFS BIGGER)
(FONTDEFS NS)
(FONTDEFS BIGGERNS))
(VARS FONTPROFILECOMS)
:PREVIOUS-DATE " 6-Sep-2021 19:11:32" {DSK}<home>larry>il>medley>sources>FONTPROFILE.;1)
(* ; "
Copyright (c) 1986, 1988, 1990-1991, 1999, 2021 by Venue & Xerox Corporation.
")
(PRETTYCOMPRINT FONTPROFILECOMS) (PRETTYCOMPRINT FONTPROFILECOMS)
@@ -18,7 +22,7 @@ Copyright (c) 1986, 1988, 1990-1991, 1999, 2021 by Venue & Xerox Corporation.
( (
(* ;; "FONT") (* ;; "FONT")
(ALISTS (FONTDEFS HUGE BIG MEDIUM STANDARD BIGGER NS BIGGERNS)) (ALISTS (FONTDEFS HUGE BIG MEDIUM STANDARD BIGGER NS BIGGERNS LARGER))
(ADDVARS (CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu)) (ADDVARS (CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu))
[VARS (FONTVARS '( [VARS (FONTVARS '(
(* ;; "standard size fonts. Assumes only DEFAULTFONT set") (* ;; "standard size fonts. Assumes only DEFAULTFONT set")
@@ -76,7 +80,7 @@ Copyright (c) 1986, 1988, 1990-1991, 1999, 2021 by Venue & Xerox Corporation.
(TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT)) (TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT))
(VALUEFONT DEFAULTFONT) (VALUEFONT DEFAULTFONT)
(* ; (* ;
 " for printing out values returned in Exec")  " for printing out values returned in Exec")
(* ;; "") (* ;; "")
@@ -118,110 +122,150 @@ Copyright (c) 1986, 1988, 1990-1991, 1999, 2021 by Venue & Xerox Corporation.
(ADDTOVAR FONTDEFS (ADDTOVAR FONTDEFS
[HUGE (FONTPROFILE (DEFAULTFONT 1 (MODERN 24) [HUGE (FONTPROFILE (DEFAULTFONT 1 (MODERN 24)
NIL NIL
(TERMINAL 8)) (TERMINAL 8)
(POSTSCRIPT (TERMINAL 8)))
(BOLDFONT 2 (MODERN 24 BRR) (BOLDFONT 2 (MODERN 24 BRR)
NIL NIL
(MODERN 8 BRR)) (MODERN 8 BRR)
(POSTSCRIPT (MODERN 8 BRR)))
(LITTLEFONT 3 (MODERN 18 MRR) (LITTLEFONT 3 (MODERN 18 MRR)
NIL NIL
(MODERN 8 MIR)) (MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(BIGFONT 4 (MODERN 36 BRR) (BIGFONT 4 (MODERN 36 BRR)
NIL NIL
(MODERN 10 BRR)) (MODERN 10 BRR)
(POSTSCRIPT (MODERN 10 BRR)))
(TEXTFONT 5 (CLASSIC 24) (TEXTFONT 5 (CLASSIC 24)
NIL NIL
(CLASSIC 10)) (CLASSIC 10)
(POSTSCRIPT (CLASSIC 10)))
(TEXTBOLDFONT 7 (CLASSIC 24 BRR) (TEXTBOLDFONT 7 (CLASSIC 24 BRR)
NIL NIL
(CLASSIC 10 BRR] (CLASSIC 10 BRR)
(POSTSCRIPT (CLASSIC 10 BRR]
[BIG (FONTPROFILE (DEFAULTFONT 1 (MODERN 18) [BIG (FONTPROFILE (DEFAULTFONT 1 (MODERN 18)
NIL NIL
(TERMINAL 8)) (TERMINAL 8)
(POSTSCRIPT (TERMINAL 8)))
(TEXTFONT 5 (CLASSIC 18) (TEXTFONT 5 (CLASSIC 18)
NIL NIL
(CLASSIC 10)) (CLASSIC 10)
(POSTSCRIPT (CLASSIC 10)))
(BOLDFONT 2 (MODERN 18 BRR) (BOLDFONT 2 (MODERN 18 BRR)
NIL NIL
(MODERN 8 BRR)) (MODERN 8 BRR)
(POSTSCRIPT (MODERN 8 BRR)))
(LITTLEFONT 3 (MODERN 12 MRR) (LITTLEFONT 3 (MODERN 12 MRR)
NIL NIL
(MODERN 8 MIR)) (MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(BIGFONT 4 (MODERN 24 BRR) (BIGFONT 4 (MODERN 24 BRR)
NIL NIL
(MODERN 10 BRR)) (MODERN 10 BRR)
(POSTSCRIPT (MODERN 10 BRR)))
(TEXTBOLDFONT 7 (CLASSIC 18 BRR) (TEXTBOLDFONT 7 (CLASSIC 18 BRR)
NIL NIL
(CLASSIC 10 BRR] (CLASSIC 10 BRR)
(POSTSCRIPT (CLASSIC 10 BRR]
[MEDIUM (FONTPROFILE (DEFAULTFONT 1 (MODERN 14) [MEDIUM (FONTPROFILE (DEFAULTFONT 1 (MODERN 14)
NIL (TERMINAL 8)
(TERMINAL 8)) (TERMINAL 8)
(POSTSCRIPT (TERMINAL 8)))
(BOLDFONT 2 (MODERN 14 BRR) (BOLDFONT 2 (MODERN 14 BRR)
NIL NIL
(MODERN 8 BRR)) (MODERN 8 BRR)
(POSTSCRIPT (MODERN 8 BRR)))
(LITTLEFONT 3 (MODERN 10) (LITTLEFONT 3 (MODERN 10)
NIL NIL
(MODERN 8 MIR)) (MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(BIGFONT 4 (MODERN 18) (BIGFONT 4 (MODERN 18)
NIL NIL
(MODERN 10 BRR)) (MODERN 10 BRR)
(POSTSCRIPT (MODERN 10 BRR)))
(TEXTFONT 5 (CLASSIC 14) (TEXTFONT 5 (CLASSIC 14)
NIL NIL
(CLASSIC 10)) (CLASSIC 10)
(POSTSCRIPT (CLASSIC 10)))
(TEXTBOLDFONT 7 (CLASSIC 14 BRR) (TEXTBOLDFONT 7 (CLASSIC 14 BRR)
NIL NIL
(CLASSIC 10 BRR] (CLASSIC 10 BRR)
(POSTSCRIPT (CLASSIC 10 BRR]
[STANDARD (FONTCHANGEFLG . ALL) [STANDARD (FONTCHANGEFLG . ALL)
(FILELINELENGTH . 102) (FILELINELENGTH . 102)
(FONTPROFILE (DEFAULTFONT 1 (GACHA 10) (FONTPROFILE (DEFAULTFONT 1 (GACHA 10)
(GACHA 8) (GACHA 8)
(TERMINAL 8)) (TERMINAL 8)
(POSTSCRIPT (TERMINAL 8)))
(ITALICFONT 1 (HELVETICA 10 MIR) (ITALICFONT 1 (HELVETICA 10 MIR)
(GACHA 8 MIR) (GACHA 8 MIR)
(MODERN 8 MIR)) (MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(BOLDFONT 2 (HELVETICA 10 BRR) (BOLDFONT 2 (HELVETICA 10 BRR)
(HELVETICA 8 BRR) (HELVETICA 8 BRR)
(MODERN 8 BRR)) (MODERN 8 BRR)
(POSTSCRIPT (MODERN 8 BRR)))
(LITTLEFONT 3 (HELVETICA 8) (LITTLEFONT 3 (HELVETICA 8)
(HELVETICA 6 MIR) (HELVETICA 6 MIR)
(MODERN 8 MIR)) (MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(TINYFONT 6 (GACHA 8) (TINYFONT 6 (GACHA 8)
(GACHA 6) (GACHA 6)
(TERMINAL 6)) (TERMINAL 6)
(POSTSCRIPT (TERMINAL 6)))
(BIGFONT 4 (HELVETICA 12 BRR) (BIGFONT 4 (HELVETICA 12 BRR)
NIL NIL
(MODERN 10 BRR)) (MODERN 10 BRR)
(MENUFONT 5 (HELVETICA 10)) (POSTSCRIPT (MODERN 10 BRR)))
(MENUFONT 5 (HELVETICA 10)
(HELVETICA 10)
(HELVETICA 10)
(POSTSCRIPT (HELVETICA 10)))
(COMMENTFONT 6 (HELVETICA 10) (COMMENTFONT 6 (HELVETICA 10)
(HELVETICA 8) (HELVETICA 8)
(MODERN 8)) (MODERN 8)
(POSTSCRIPT (MODERN 8)))
(TEXTFONT 7 (TIMESROMAN 10) (TEXTFONT 7 (TIMESROMAN 10)
NIL (TIMESROMAN 10)
(CLASSIC 10] (CLASSIC 10)
(POSTSCRIPT (CLASSIC 10]
[BIGGER (FONTPROFILE (DEFAULTFONT 1 (GACHA 12) [BIGGER (FONTPROFILE (DEFAULTFONT 1 (GACHA 12)
NIL (TERMINAL 8)
(TERMINAL 8)) (TERMINAL 8)
(POSTSCRIPT (TERMINAL 8)))
(ITALICFONT 1 (HELVETICA 12 MIR) (ITALICFONT 1 (HELVETICA 12 MIR)
(GACHA 8 MIR) (GACHA 8 MIR)
(MODERN 8 MIR)) (MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(BOLDFONT 2 (HELVETICA 12 BRR) (BOLDFONT 2 (HELVETICA 12 BRR)
(HELVETICA 8 BRR) (HELVETICA 8 BRR)
(MODERN 8 BRR)) (MODERN 8 BRR)
(POSTSCRIPT (MODERN 8 BRR)))
(LITTLEFONT 3 (HELVETICA 10) (LITTLEFONT 3 (HELVETICA 10)
(HELVETICA 6 MIR) (HELVETICA 6 MIR)
(MODERN 8 MIR)) (MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(TINYFONT 6 (GACHA 10) (TINYFONT 6 (GACHA 10)
(GACHA 6) (GACHA 6)
(TERMINAL 6)) (TERMINAL 6)
(POSTSCRIPT (TERMINAL 6)))
(BIGFONT 4 (HELVETICA 14 BRR) (BIGFONT 4 (HELVETICA 14 BRR)
NIL (MODERN 10 BRR)
(MODERN 10 BRR)) (MODERN 10 BRR)
(MENUFONT 5 (HELVETICA 12)) (POSTSCRIPT (MODERN 10 BRR)))
(MENUFONT 5 (HELVETICA 12)
(HELVETICA 12)
(HELVETICA 12)
(POSTSCRIPT (HELVETICA 12)))
(COMMENTFONT 6 (HELVETICA 12) (COMMENTFONT 6 (HELVETICA 12)
(HELVETICA 8) (HELVETICA 8)
(MODERN 8)) (MODERN 8)
(POSTSCRIPT (MODERN 8)))
(TEXTFONT 7 (TIMESROMAN 12) (TEXTFONT 7 (TIMESROMAN 12)
NIL (TIMESROMAN 12)
(CLASSIC 10] (CLASSIC 10)
(POSTSCRIPT (CLASSIC 10]
[NS (FONTCHANGEFLG . ALL) [NS (FONTCHANGEFLG . ALL)
(FILELINELENGTH . 102) (FILELINELENGTH . 102)
(COMMENTLINELENGTH 116 . 126) (COMMENTLINELENGTH 116 . 126)
@@ -230,23 +274,32 @@ Copyright (c) 1986, 1988, 1990-1991, 1999, 2021 by Venue & Xerox Corporation.
(FONTESCAPECHAR . %) (FONTESCAPECHAR . %)
(FONTPROFILE (DEFAULTFONT 1 (TERMINAL 10) (FONTPROFILE (DEFAULTFONT 1 (TERMINAL 10)
(TERMINAL 8) (TERMINAL 8)
(TERMINAL 8)) (TERMINAL 8)
(POSTSCRIPT (TERMINAL 8)))
(ITALICFONT 1 (MODERN 10 BIR) (ITALICFONT 1 (MODERN 10 BIR)
(MODERN 8 BIR) (MODERN 8 BIR)
(MODERN 8 BIR)) (MODERN 8 BIR)
(POSTSCRIPT (MODERN 8 BIR)))
(BOLDFONT 2 (MODERN 10 BRR) (BOLDFONT 2 (MODERN 10 BRR)
(MODERN 8 BRR) (MODERN 8 BRR)
(MODERN 8 BRR)) (MODERN 8 BRR)
(POSTSCRIPT (MODERN 8 BRR)))
(LITTLEFONT 3 (MODERN 8) (LITTLEFONT 3 (MODERN 8)
(MODERN 6 MIR) (MODERN 6 MIR)
(MODERN 8 MIR)) (MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(BIGFONT 4 (MODERN 12 BRR) (BIGFONT 4 (MODERN 12 BRR)
(MODERN 10 BRR) (MODERN 10 BRR)
(MODERN 10 BRR)) (MODERN 10 BRR)
(MENUFONT 5 (MODERN 10)) (POSTSCRIPT (MODERN 10 BRR)))
(MENUFONT 5 (MODERN 10)
(MODERN 10)
(MODERN 10)
(POSTSCRIPT (MODERN 10)))
(COMMENTFONT 6 (MODERN 8) (COMMENTFONT 6 (MODERN 8)
(MODERN 6 MIR) (MODERN 6 MIR)
(MODERN 8 MIR] (MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR]
[BIGGERNS (FONTCHANGEFLG . ALL) [BIGGERNS (FONTCHANGEFLG . ALL)
(FILELINELENGTH . 102) (FILELINELENGTH . 102)
(COMMENTLINELENGTH 116 . 126) (COMMENTLINELENGTH 116 . 126)
@@ -255,23 +308,70 @@ Copyright (c) 1986, 1988, 1990-1991, 1999, 2021 by Venue & Xerox Corporation.
(FONTESCAPECHAR . %) (FONTESCAPECHAR . %)
(FONTPROFILE (DEFAULTFONT 1 (TERMINAL 12) (FONTPROFILE (DEFAULTFONT 1 (TERMINAL 12)
(TERMINAL 8) (TERMINAL 8)
(TERMINAL 8)) (TERMINAL 8)
(POSTSCRIPT (TERMINAL 8)))
(ITALICFONT 1 (MODERN 12 BIR) (ITALICFONT 1 (MODERN 12 BIR)
(MODERN 8 BIR) (MODERN 8 BIR)
(MODERN 8 BIR)) (MODERN 8 BIR)
(POSTSCRIPT (MODERN 8 BIR)))
(BOLDFONT 2 (MODERN 12 BRR) (BOLDFONT 2 (MODERN 12 BRR)
(MODERN 8 BRR) (MODERN 8 BRR)
(MODERN 8 BRR)) (MODERN 8 BRR)
(POSTSCRIPT (MODERN 8 BRR)))
(LITTLEFONT 3 (MODERN 10) (LITTLEFONT 3 (MODERN 10)
(MODERN 6 MIR) (MODERN 6 MIR)
(MODERN 8 MIR)) (MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(BIGFONT 4 (MODERN 14 BRR) (BIGFONT 4 (MODERN 14 BRR)
(MODERN 10 BRR) (MODERN 10 BRR)
(MODERN 10 BRR)) (MODERN 10 BRR)
(MENUFONT 5 (MODERN 12)) (POSTSCRIPT (MODERN 10 BRR)))
(MENUFONT 5 (MODERN 12)
(MODERN 12)
(MODERN 12)
(POSTSCRIPT (MODERN 12)))
(COMMENTFONT 6 (MODERN 10) (COMMENTFONT 6 (MODERN 10)
(MODERN 8 MIR) (MODERN 8 MIR)
(MODERN 10 MIR]) (MODERN 10 MIR)
(POSTSCRIPT (MODERN 10 MIR]
[LARGER (FONTCHANGEFLG . ALL)
(FILELINELENGTH . 102)
(FONTPROFILE (DEFAULTFONT 1 (GACHA 12)
(GACHA 8)
(TERMINAL 8)
(POSTSCRIPT (TERMINAL 8)))
(ITALICFONT 1 (HELVETICA 14 MIR)
(GACHA 8 MIR)
(MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(BOLDFONT 2 (HELVETICA 14 BRR)
(HELVETICA 8 BRR)
(MODERN 8 BRR)
(POSTSCRIPT (MODERN 8 BRR)))
(LITTLEFONT 3 (HELVETICA 12)
(HELVETICA 6 MIR)
(MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(TINYFONT 6 (GACHA 10)
(GACHA 6)
(TERMINAL 6)
(POSTSCRIPT (TERMINAL 6)))
(BIGFONT 4 (HELVETICA 16 BRR)
(HELVETICA 12 BRR)
(MODERN 10 BRR)
(POSTSCRIPT (MODERN 10 BRR)))
(MENUFONT 5 (HELVETICA 12)
(HELVETICA 12)
(HELVETICA 12)
(POSTSCRIPT (HELVETICA 12)))
(COMMENTFONT 6 (HELVETICA 10)
(HELVETICA 8)
(MODERN 8)
(POSTSCRIPT (MODERN 8)))
(TEXTFONT 7 (TIMESROMAN 12)
(TIMESROMAN 10)
(CLASSIC 10)
(POSTSCRIPT (CLASSIC 10])
(ADDTOVAR CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu) (ADDTOVAR CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu)
@@ -332,7 +432,7 @@ Copyright (c) 1986, 1988, 1990-1991, 1999, 2021 by Venue & Xerox Corporation.
(TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT)) (TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT))
(VALUEFONT DEFAULTFONT) (VALUEFONT DEFAULTFONT)
(* ; (* ;
 " for printing out values returned in Exec")  " for printing out values returned in Exec")
(* ;; "") (* ;; "")
@@ -599,8 +699,7 @@ Copyright (c) 1986, 1988, 1990-1991, 1999, 2021 by Venue & Xerox Corporation.
(SETSEPR '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26) (SETSEPR '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26)
1 FILERDTBL) 1 FILERDTBL)
(PUTPROPS FONTPROFILE COPYRIGHT ("Venue & Xerox Corporation" 1986 1988 1990 1991 1999 2021))
(DECLARE%: DONTCOPY (DECLARE%: DONTCOPY
(FILEMAP (NIL (16323 27907 (FONTSET 16333 . 22674) (FONTPROFILE 22676 . 25025) (FONTPROFILE.ADDDEVICE (FILEMAP (NIL (21780 33364 (FONTSET 21790 . 28131) (FONTPROFILE 28133 . 30482) (FONTPROFILE.ADDDEVICE
25027 . 27905)) (28143 30042 (FONTMAPARRAY 28153 . 30040))))) 30484 . 33362)) (33600 35499 (FONTMAPARRAY 33610 . 35497)))))
STOP STOP

BIN
sources/FONTPROFILE.LCOM
View File

Binary file not shown.