github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +00:00
Code Issues Projects Releases Wiki Activity
Interlisp.medley/obsolete/library/IPFONTSAMPLE.TEDIT
Matt Heffron 1f317d34ef
Obsolete and rename FONTSAMPLE no R (#2010) 
* Add back character sets that had characters outside 16 bit plane

* Update XCCS-353=SYMBOLS3.TXT

Update title line

* Update UNICODE.TEDIT

* Fix charset names

* Reorganized the tables, added requested interfaces

* Use a single hash

* Top-level array branch beats a single hash

* cleanup UNICODE.TRANSLATE macro

* Fix slug in outcharfn

* Remove a stray line

* Another try, would work for raw

* Remove duplicates, redo hashing

* Getting complete maps in both directions

* Initializing

* Only the latest file versions

* Add back gothic mappings

* Enable FONTSAMPLER to display glyphs from DISPLAYFONT (bitmap font) on non-DISPLAY stream (e.g., PDF)
Added .LCOM to repository.

Corrected PR.

* Relocate FONTSAMPLE files to obsolete.

* Files renamed. Internal names and documentation were NOT updated.

---------

Co-authored-by: rmkaplan <ron.kaplan@post.harvard.edu>
2025-02-03 12:30:53 -08:00

31 lines
8.6 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

1
Lisp Library Modules, Medley Release 1.0, FONTSAMPLE
1
Lisp Library Modules, Medley Release 1.0, FONTSAMPLE
FONTSAMPLE
1
FONTSAMPLE
1
FONTSAMPLE
6
FontSample(FONTSAMPLE NIL FontSample NIL NIL 95) provides a set of tools for generating Interpress masters for a font sampler, and is intended to allow you to see what results on a printer when you specify a font. This is useful because there may be several font substitutions between when you specify a font (for example in TEdit) and when a printer actually renders the font.
The set of font mappings(FONT% MAPPINGS NIL font% mappings NIL NIL 95) is a function of the local font substitutions in a particular workstation, the workstation's environment (which fonts are available to it at that time, if the font file server is temporarily unavailable), which printer is being used, and which font files are currently installed on the printer.
For example, Lisp might substitute Terminal for Gacha, and the printer might substitute Modern for Terminal. Thus you could request Gacha and get Modern. The font sampler is intended to display the final result of these substitutions.
Requirements
1
FONTSHEETSx.IP (where x = 1, ... 7)
Installation
1
Load FONTSAMPLE.LCOM from the library.
User Interface
1
To find the cumulative effect of all font substitions at a given time, environment, and printer, you should generate the Interpress masters (which reflect the environmental and Lisp mappings(ENVIRONMENTAL% AND% LISP% MAPPINGS NIL environmental% and% Lisp% mappings NIL NIL 95)) and then send them to various printers (which reflect the printer mappings).
(SEND.FILE.TO.PRINTER 'FONTSHEET1.IP)
(SEND.FILE.TO.PRINTER 'FONTSHEET2.IP)
etc.
Short sample masters for all currently supported InterPress fonts can be found in the Lisp Library with the names FONTSHEET1.IP, FONTSHEET2.IP ... FONTSHEET7.IP. These reflect the default Lisp font mappings.
Note: These environmental mappings may change from release to release, so new masters should be printed for every release.
Functions
1
(FNT.MAKEBOOK(FNT.MAKEBOOK (function) NIL NIL NIL 95) OUTFROOTNAME LISTOFFONTS PRINTFN
PERPAGE) [Function]
This function enumerates fonts across multiple output files. Multiple files are necessary because some printers cannot handle documents with many fonts. The function iterates over the fonts in LISTOFFONTS, invoking PRINTFN (which has arguments as in FNT.DISPLOOK) PERPAGE times per output file. The files are named OUTFROOTNAME with the page number concatenated at the end. If LISTOFFONTS is the atom ALL, then FONTSAVAILABLE is invoked for all Interpress fonts (this is an extremely slow operation). PRINTFN defaults to FNT.DISPLOOK; PERPAGE defaults to 18. Each font in LISTOFFONTS should be a FONTLIST.
(FNT.DISPTBLE(FNT.DISPTBLE (function) NIL NIL NIL 96) STREAM FONT) [Function]
This function prints a description of the font and characters 0 to 254 of the font specified by FONT on STREAM. It expects a letter-sized output stream. If used with FNT.MAKEBOOK, PERPAGE should be 1.
(FNT.DISPLOOK(FNT.DISPLOOK (function) NIL NIL NIL 96) STREAM FONT) [Function]
This function prints a description of the font and representative characters of FONT on STREAM. If used with FNT.MAKEBOOK, PERPAGE should be 18.
Limitations
1
The font sheets are applicable only to InterPress printers.
Example
1
(SETQ FONTLISTLIST (LIST '(MODERN 10 MRR 0 INTERPRESS)
'(CLASSIC 8 BRR 0 INTERPRESS)))
(FNT.MAKEBOOK 'FOO FONTLISTLIST 'FNT.DISPTBLE 1)
generates two files named FOO1 and FOO2 each containing output from one invocation of FNT.DISPTBLE. Thus FOO1 has a font table for (MODERN 10 MRR 0 INTERPRESS), FOO2 has a font table for (CLASSIC 8 BRR 0 INTERPRESS).
[This page intentionally left blank]
(LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "") STARTINGPAGE# 95) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (270 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (TEXT NIL NIL (54 54 504 702) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD LEFT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (54 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGV) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE VERSOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (270 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE RECTOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL)))))-<01>T8ll<01><00><01>8ll<01>
<00><01>2H`<01>
<01>2HH<01>
<01>3<01><01>T2ll<01><01>2ll<01><01>5Hl<01>l<01>2HH<01>
<01>2HH<01><01>2HH<01><01>3<01><01>T-T-<01><00><01>TF<01><01> PAGEHEADING VERSOHEADF<01><01> PAGEHEADING RECTOHEADE<01><01> PAGEHEADINGFOOTINGVE<01><01> PAGEHEADINGFOOTINGR  HELVETICA
CLASSIC
 HELVETICATITAN
CLASSIC
 HELVETICAMODERN
MODERNTERMINAL
MODERN
MODERNMODERN
 HRULE.GETFNMODERN
6 HRULE.GETFNMODERN
6  HRULE.GETFNMODERN
  HRULE.GETFNMODERN


 HRULE.GETFNMODERN 
&IM.INDEX.GETFNM .IM.INDEX.GETFN) <00>

 HRULE.GETFNMODERN


 HRULE.GETFNMODERN

 HRULE.GETFNMODERN
<00>VIM.INDEX.GETFNO&& r
3 z

 HRULE.GETFNMODERN
(IM.INDEX.GETFNMODERN
 
 <00> 
 - 2 
L
  

(IM.INDEX.GETFNMODERN
  `9 

(IM.INDEX.GETFNMODERN

 O   HRULE.GETFNMODERN
; HRULE.GETFNMODERN7!0 
/ %<0E><00>z<EFBFBD>
Reference in New Issue View Git Blame Copy Permalink