78 lines
13 KiB
Plaintext
78 lines
13 KiB
Plaintext
Medley READ-BDF
|
||
2
|
||
|
||
4
|
||
|
||
1
|
||
|
||
READ-BDF
|
||
1
|
||
|
||
4
|
||
|
||
By: Matt Heffron (heffron@alumni.caltech.edu)
|
||
This document last edited on December 2, 2025.
|
||
INTRODUCTION
|
||
This module defines functions to read BDF format font files, and then to write MEDLEYDISPLAYFONT files containing the glyphs from the source BDF file. In normal use, these font files will have remapped the glyphs from their Unicode encoding to Medley's MCCS encoding. All newly created symbols in this module are in the BDF package.
|
||
FUNCTIONS
|
||
(READ-BDF PATH &KEY :VERBOSE :MCCS-ONLY :EXTERNAL-FORMAT) [Function]
|
||
READ-BDF reads and parses the BDF file specified by PATH. (The parameter PATH is required and it does not default the extension of the filename.) This returns a BDF-FONT structure containg all of the glyphs contained in the file, unless :MCCS-ONLY is non-NIL, in which case it will contain only the glyphs which correspond to valid MCCS characters.
|
||
The :VERBOSE keyword parameter enables display of some summary information about the BDF-FONT structure created.
|
||
The :EXTERNAL-FORMAT specifies the character encoding of the BDF file itself. This can be any value acceptable to use with the CL:OPEN or IL:OPENSTREAM functions. (At least one linux utility writes BDF files as ISO8859/1, so that is the default for this parameter.) If :VERBOSE is non-NIL, then at, its completion, READ-BDF will print the full internal font name, and the values of the Family, Size, Weight, Slant, and Expansion as determined from the parsed BDF file. (Collectively, Weight, Slant, and Expansion comprise the font FACE. See the IRM 27.12, Fonts, for further description.)
|
||
(BUILD-COMPOSITE FONTS &KEY :VERBOSE) [Function]
|
||
BUILD-COMPOSITE builds a single BDF-FONT structure instance from a sequence of BDF fonts. Either BDF-FONT instances, or paths to .bdf files (either as strings or PATHNAME instances).The FONTS parameter should be a LIST. (It may be a single BDF-FONT instance or path, in which case BUILD-COMPOSITE is equivalent to READ-BDF.)
|
||
If (FIRST FONTS) is a BDF-FONT instance, it will be modified. If it designates a file, then a new BDF-FONT instance will be created. If any entry on FONTS is not one of: a BDF-FONT instance, a string, or a PATHNAME instance, an error will be raiseed.
|
||
The :VERBOSE keyword parameter enables display of the progress of the process.
|
||
The building of the composite BDF-FONT proceeds as follows. The initial font is loaded by READ-BDF if necessary. A BITMAP is created by READ-BDF from the initial font and stored in the BDF-FONT structure. This has a bit for every possible MCCS character, and that bit is set if the corresponding character glyph is present in the font. Each subsequent entry on FONTS, in turn, is loaded by READ-BDF if necessary, then each glyph present in that BDF-FONT is checked, using the initial font's BITMAP (above), to see if it is already present in the initial font. If it is not, that glyph is pushed onto the list of glyphs in the initial font and the corresponding bit is set in the BITMAP.
|
||
(WRITE-BDF-TO-MEDLEYDISPLAYFONT-FILE BDFONT DEST-DIR &KEY :FAMILY :SIZE :FACE :ROTATION :DEVICE) [Function]
|
||
WRITE-BDF-TO-MEDLEYDISPLAYFONT-FILE writes one MEDLEYDISPLAYFONT file from BDFONT containing each MCCS character set which contains glyphs mapped into it. BDFONT must be of a BDF-FONT structure. The file will be written into the provided DEST-DIR path. BDFONT and DEST<53><54> <00>"<22> DIR must be provided.
|
||
:FAMILY, :SIZE, :FACE, :ROTATION, and :DEVICE correspond to the same arguments to IL:FONTCREATE. WRITE-BDF-TO-MEDLEYDISPLAYFONT-FILE will attempt to get default values from the information in the BDF-FONT. (See the description of :VERBOSE output of READ-BDF, above.) :FAMILY may be a FONTSPEC as for IL:FONTCREATE, in which case unspecified values for :SIZE :FACE :ROTATION and :DEVICE are taken from the :FAMILY list. :FAMILY may also be an IL:FONTDESCRIPTOR, again as for IL:FONTCREATE, in this case each of the values will be used if no values were specified. If :DEVICE is either T or NIL, then :DEVICE is taken as DISPLAY.
|
||
WRITE-BDF-TO-MEDLEYDISPLAYFONT-FILE returns a list of three values. The full pathname of the file written, the IL:FONTDESCRIPTOR containing the mapped character sets, the list of character sets contained in the BDF-FONT structure which were actually written to the file.
|
||
NOTES
|
||
<EFBFBD><EFBFBD> <00>f<EFBFBD> The names of the three entry point functions, READ-BDF, BUILD-COMPOSITE, and WRITE-BDF-TO-MEDLEYDISPLAYFONT-FILE, are the only symbols exported from the BDF package, all others are internal to that package.
|
||
<EFBFBD><EFBFBD> <00>f<EFBFBD> Using a FAMILY name that contains any digits or hyphens ("-"), either explicitly, or from the information in the BDF-FONT, is strongly discouraged. This is likely to result in fonts which cannot be located by the standard font search process (e.g., TEdit), although they can be created explicitly using IL:FONTCREATE. (A hyphen cannot occur in the FAMILY name from the information in the BDF-FONT.)
|
||
<EFBFBD><EFBFBD> <00>f<EFBFBD> It is recommended that the DEST-DIR path provided to the function WRITE-BDF-TO-MEDLEYDISPLAYFONT-FILE be a different location than those on the standard value of IL:DISPLAYFONTDIRECTORIES. This will protect your files from possible loss when newer releases of Medley are installed. You may (in your personal INIT file) add your DEST-DIR location to the IL:DISPLAYFONTDIRECTORIES list to enable the normal font finding process to locate your fonts. This recommendation is for the situation when you are creating fonts in your own environment, and you want them outside of the installation directory structure.
|
||
<EFBFBD><EFBFBD> <00>f<EFBFBD> For BDF files containing a large number of glyphs, READ-BDF can take quite a while and use a lot of memory. For example, READ-BDF of gnu unifont-16.0.02.bdf with 57086 glyphs, took 72 seconds, and allocated 1.3 million FIXP and 3.3 million ONED-ARRAY.
|
||
|
||
(SEQUENCE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "") STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (ALTERNATE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))))
|
||
1 $ 5 <01> $ T 5 <01> $ T 5 <01> $<01> T 4 <01> $<01> 7 <00><01> $ <00> <01> 1 <01> $ 1 <00> <00>8 $ 1 <00> <00>8 $ J <01> $<01> PAGEHEADING RUNNINGHEAD / MODERN
|
||
(CHARPROPS (COLOR . BLACK)) . GACHA
|
||
(CHARPROPS (COLOR . BLACK)) / MODERN
|
||
(CHARPROPS (COLOR . BLACK)) / MODERN
|
||
(CHARPROPS (COLOR . BLACK)) / MODERN
|
||
(CHARPROPS (COLOR . BLACK)) / MODERN
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MRR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MRR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MIR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MRR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MIR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MIR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MRR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MRR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MIR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MIR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MRR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MRR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MRR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MRR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MRR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MIR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MIR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MIR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MRR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) q H(TEDIT-FONTCLASS 0 (MODERN 10 MRR 0) NIL NIL (POSTSCRIPT NIL) (PDF NIL))
|
||
(CHARPROPS (COLOR . BLACK)) / MODERN
|
||
(CHARPROPS (COLOR . BLACK)) / MODERN
|
||
(CHARPROPS (COLOR . BLACK)) 2 HELVETICA
|
||
(CHARPROPS (COLOR . BLACK)) / MODERN (CHARPROPS (COLOR . BLACK)) / MODERN (CHARPROPS (COLOR . BLACK)) 3
|
||
TIMESROMAN $ (CHARPROPS (COLOR . BLACK))
|
||
|
||
HRULE.GETFN HRULE.GETFN HRULE.GETFN HRULE.GETFN HRULE.GETFN . . B
|
||
|
||
|
||
4 T & f I
|
||
2 <00> 1 & <00>
|
||
9 M 1 O R , H C 4 * <00> %
|
||
|
||
% # ( J M
|
||
4 # @ N <00> # & t a &
|
||
g
|
||
# + <00> 6 <00> (((CHARENCODING . MCCS)))PROPS: #DATE:j<>Ɔ <16> <00>z<EFBFBD> |