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)))))-àT8llàðà8llà ðà2H`à à2HHà à3ààT2llàà2llàà5Hlàlà2HHà à2HHàà2HHàà3ààT-T-øäìTFøø PAGEHEADING VERSOHEADFøø PAGEHEADING RECTOHEADEøø PAGEHEADINGFOOTINGVEøø 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) î   HRULE.GETFNMODERN    HRULE.GETFNMODERN   HRULE.GETFNMODERN ¾VIM.INDEX.GETFNO&& r 3 z   HRULE.GETFNMODERN (IM.INDEX.GETFNMODERN       - 2  L     (IM.INDEX.GETFNMODERN   `9   (IM.INDEX.GETFNMODERN   O   HRULE.GETFNMODERN ; HRULE.GETFNMODERN7!0  / %®Êzº