github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-13 23:47:27 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #1154 from Interlisp/tweak-init2

Browse Source 
Tweak INIT: HELPTIME 1 for more break windows; extend font profile
This commit is contained in:
Frank Halasz 2023-04-19 18:03:08 -07:00 committed by GitHub
commit 8bb283e0c4
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 168 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

237
sources/FONTPROFILE
View File

@ -1,16 +1,20 @@
(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"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONTPROFILE.;2)
:EDIT-BY "lmm"
: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)
@ -18,7 +22,7 @@ Copyright (c) 1986, 1988, 1990-1991, 1999, 2021 by Venue & Xerox Corporation.
(
(* ;; "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))
[VARS (FONTVARS '(
(* ;; "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))
(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
[HUGE (FONTPROFILE (DEFAULTFONT 1 (MODERN 24)
NIL
(TERMINAL 8))
(TERMINAL 8)
(POSTSCRIPT (TERMINAL 8)))
(BOLDFONT 2 (MODERN 24 BRR)
NIL
(MODERN 8 BRR))
(MODERN 8 BRR)
(POSTSCRIPT (MODERN 8 BRR)))
(LITTLEFONT 3 (MODERN 18 MRR)
NIL
(MODERN 8 MIR))
(MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(BIGFONT 4 (MODERN 36 BRR)
NIL
(MODERN 10 BRR))
(MODERN 10 BRR)
(POSTSCRIPT (MODERN 10 BRR)))
(TEXTFONT 5 (CLASSIC 24)
NIL
(CLASSIC 10))
(CLASSIC 10)
(POSTSCRIPT (CLASSIC 10)))
(TEXTBOLDFONT 7 (CLASSIC 24 BRR)
NIL
(CLASSIC 10 BRR]
(CLASSIC 10 BRR)
(POSTSCRIPT (CLASSIC 10 BRR]
[BIG (FONTPROFILE (DEFAULTFONT 1 (MODERN 18)
NIL
(TERMINAL 8))
(TERMINAL 8)
(POSTSCRIPT (TERMINAL 8)))
(TEXTFONT 5 (CLASSIC 18)
NIL
(CLASSIC 10))
(CLASSIC 10)
(POSTSCRIPT (CLASSIC 10)))
(BOLDFONT 2 (MODERN 18 BRR)
NIL
(MODERN 8 BRR))
(MODERN 8 BRR)
(POSTSCRIPT (MODERN 8 BRR)))
(LITTLEFONT 3 (MODERN 12 MRR)
NIL
(MODERN 8 MIR))
(MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(BIGFONT 4 (MODERN 24 BRR)
NIL
(MODERN 10 BRR))
(MODERN 10 BRR)
(POSTSCRIPT (MODERN 10 BRR)))
(TEXTBOLDFONT 7 (CLASSIC 18 BRR)
NIL
(CLASSIC 10 BRR]
(CLASSIC 10 BRR)
(POSTSCRIPT (CLASSIC 10 BRR]
[MEDIUM (FONTPROFILE (DEFAULTFONT 1 (MODERN 14)
NIL
(TERMINAL 8))
(TERMINAL 8)
(TERMINAL 8)
(POSTSCRIPT (TERMINAL 8)))
(BOLDFONT 2 (MODERN 14 BRR)
NIL
(MODERN 8 BRR))
(MODERN 8 BRR)
(POSTSCRIPT (MODERN 8 BRR)))
(LITTLEFONT 3 (MODERN 10)
NIL
(MODERN 8 MIR))
(MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(BIGFONT 4 (MODERN 18)
NIL
(MODERN 10 BRR))
(MODERN 10 BRR)
(POSTSCRIPT (MODERN 10 BRR)))
(TEXTFONT 5 (CLASSIC 14)
NIL
(CLASSIC 10))
(CLASSIC 10)
(POSTSCRIPT (CLASSIC 10)))
(TEXTBOLDFONT 7 (CLASSIC 14 BRR)
NIL
(CLASSIC 10 BRR]
(CLASSIC 10 BRR)
(POSTSCRIPT (CLASSIC 10 BRR]
[STANDARD (FONTCHANGEFLG . ALL)
(FILELINELENGTH . 102)
(FONTPROFILE (DEFAULTFONT 1 (GACHA 10)
(GACHA 8)
(TERMINAL 8))
(TERMINAL 8)
(POSTSCRIPT (TERMINAL 8)))
(ITALICFONT 1 (HELVETICA 10 MIR)
(GACHA 8 MIR)
(MODERN 8 MIR))
(MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(BOLDFONT 2 (HELVETICA 10 BRR)
(HELVETICA 8 BRR)
(MODERN 8 BRR))
(MODERN 8 BRR)
(POSTSCRIPT (MODERN 8 BRR)))
(LITTLEFONT 3 (HELVETICA 8)
(HELVETICA 6 MIR)
(MODERN 8 MIR))
(MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(TINYFONT 6 (GACHA 8)
(GACHA 6)
(TERMINAL 6))
(TERMINAL 6)
(POSTSCRIPT (TERMINAL 6)))
(BIGFONT 4 (HELVETICA 12 BRR)
NIL
(MODERN 10 BRR))
(MENUFONT 5 (HELVETICA 10))
(MODERN 10 BRR)
(POSTSCRIPT (MODERN 10 BRR)))
(MENUFONT 5 (HELVETICA 10)
(HELVETICA 10)
(HELVETICA 10)
(POSTSCRIPT (HELVETICA 10)))
(COMMENTFONT 6 (HELVETICA 10)
(HELVETICA 8)
(MODERN 8))
(MODERN 8)
(POSTSCRIPT (MODERN 8)))
(TEXTFONT 7 (TIMESROMAN 10)
NIL
(CLASSIC 10]
(TIMESROMAN 10)
(CLASSIC 10)
(POSTSCRIPT (CLASSIC 10]
[BIGGER (FONTPROFILE (DEFAULTFONT 1 (GACHA 12)
NIL
(TERMINAL 8))
(TERMINAL 8)
(TERMINAL 8)
(POSTSCRIPT (TERMINAL 8)))
(ITALICFONT 1 (HELVETICA 12 MIR)
(GACHA 8 MIR)
(MODERN 8 MIR))
(MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(BOLDFONT 2 (HELVETICA 12 BRR)
(HELVETICA 8 BRR)
(MODERN 8 BRR))
(MODERN 8 BRR)
(POSTSCRIPT (MODERN 8 BRR)))
(LITTLEFONT 3 (HELVETICA 10)
(HELVETICA 6 MIR)
(MODERN 8 MIR))
(MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(TINYFONT 6 (GACHA 10)
(GACHA 6)
(TERMINAL 6))
(TERMINAL 6)
(POSTSCRIPT (TERMINAL 6)))
(BIGFONT 4 (HELVETICA 14 BRR)
NIL
(MODERN 10 BRR))
(MENUFONT 5 (HELVETICA 12))
(MODERN 10 BRR)
(MODERN 10 BRR)
(POSTSCRIPT (MODERN 10 BRR)))
(MENUFONT 5 (HELVETICA 12)
(HELVETICA 12)
(HELVETICA 12)
(POSTSCRIPT (HELVETICA 12)))
(COMMENTFONT 6 (HELVETICA 12)
(HELVETICA 8)
(MODERN 8))
(MODERN 8)
(POSTSCRIPT (MODERN 8)))
(TEXTFONT 7 (TIMESROMAN 12)
NIL
(CLASSIC 10]
(TIMESROMAN 12)
(CLASSIC 10)
(POSTSCRIPT (CLASSIC 10]
[NS (FONTCHANGEFLG . ALL)
(FILELINELENGTH . 102)
(COMMENTLINELENGTH 116 . 126)
@ -230,23 +274,32 @@ Copyright (c) 1986, 1988, 1990-1991, 1999, 2021 by Venue & Xerox Corporation.
(FONTESCAPECHAR . %)
(FONTPROFILE (DEFAULTFONT 1 (TERMINAL 10)
(TERMINAL 8)
(TERMINAL 8))
(TERMINAL 8)
(POSTSCRIPT (TERMINAL 8)))
(ITALICFONT 1 (MODERN 10 BIR)
(MODERN 8 BIR)
(MODERN 8 BIR))
(MODERN 8 BIR)
(POSTSCRIPT (MODERN 8 BIR)))
(BOLDFONT 2 (MODERN 10 BRR)
(MODERN 8 BRR)
(MODERN 8 BRR))
(MODERN 8 BRR)
(POSTSCRIPT (MODERN 8 BRR)))
(LITTLEFONT 3 (MODERN 8)
(MODERN 6 MIR)
(MODERN 8 MIR))
(MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(BIGFONT 4 (MODERN 12 BRR)
(MODERN 10 BRR)
(MODERN 10 BRR))
(MENUFONT 5 (MODERN 10))
(MODERN 10 BRR)
(POSTSCRIPT (MODERN 10 BRR)))
(MENUFONT 5 (MODERN 10)
(MODERN 10)
(MODERN 10)
(POSTSCRIPT (MODERN 10)))
(COMMENTFONT 6 (MODERN 8)
(MODERN 6 MIR)
(MODERN 8 MIR]
(MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR]
[BIGGERNS (FONTCHANGEFLG . ALL)
(FILELINELENGTH . 102)
(COMMENTLINELENGTH 116 . 126)
@ -255,23 +308,70 @@ Copyright (c) 1986, 1988, 1990-1991, 1999, 2021 by Venue & Xerox Corporation.
(FONTESCAPECHAR . %)
(FONTPROFILE (DEFAULTFONT 1 (TERMINAL 12)
(TERMINAL 8)
(TERMINAL 8))
(TERMINAL 8)
(POSTSCRIPT (TERMINAL 8)))
(ITALICFONT 1 (MODERN 12 BIR)
(MODERN 8 BIR)
(MODERN 8 BIR))
(MODERN 8 BIR)
(POSTSCRIPT (MODERN 8 BIR)))
(BOLDFONT 2 (MODERN 12 BRR)
(MODERN 8 BRR)
(MODERN 8 BRR))
(MODERN 8 BRR)
(POSTSCRIPT (MODERN 8 BRR)))
(LITTLEFONT 3 (MODERN 10)
(MODERN 6 MIR)
(MODERN 8 MIR))
(MODERN 8 MIR)
(POSTSCRIPT (MODERN 8 MIR)))
(BIGFONT 4 (MODERN 14 BRR)
(MODERN 10 BRR)
(MODERN 10 BRR))
(MENUFONT 5 (MODERN 12))
(MODERN 10 BRR)
(POSTSCRIPT (MODERN 10 BRR)))
(MENUFONT 5 (MODERN 12)
(MODERN 12)
(MODERN 12)
(POSTSCRIPT (MODERN 12)))
(COMMENTFONT 6 (MODERN 10)
(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)
@ -332,7 +432,7 @@ Copyright (c) 1986, 1988, 1990-1991, 1999, 2021 by Venue & Xerox Corporation.
(TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT))
(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)
1 FILERDTBL)
(PUTPROPS FONTPROFILE COPYRIGHT ("Venue & Xerox Corporation" 1986 1988 1990 1991 1999 2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (16323 27907 (FONTSET 16333 . 22674) (FONTPROFILE 22676 . 25025) (FONTPROFILE.ADDDEVICE
25027 . 27905)) (28143 30042 (FONTMAPARRAY 28153 . 30040)))))
(FILEMAP (NIL (21780 33364 (FONTSET 21790 . 28131) (FONTPROFILE 28133 . 30482) (FONTPROFILE.ADDDEVICE
30484 . 33362)) (33600 35499 (FONTMAPARRAY 33610 . 35497)))))
STOP

BIN
sources/FONTPROFILE.LCOM
View File

Binary file not shown.