XEROX FONTSAMPLER 2 4 1 FONTSAMPLER 1 4 By: Nick Briggs (Briggs.pa@Xerox.com) This document last edited on April 27, 1987 INTRODUCTION The FONTSAMPLER package provides a function which will easily generate sample sheets of your favourite fonts on your favourite printer. ÿÿFUNCTIONS ÿ(FontSample Fonts CharacterSets Printer StreamType) [Function] Creates a sample sheet for the font described by the font descriptor(s) Fonts on the image stream generated by passing Printer and StreamType to OPENIMAGESTREAM. Fonts may be either a single font descriptor (the result of a call to FONTCREATE) or a list of font descriptors. CharacterSets may be either a single number, or a list of numbers representing character sets. The default value of CharacterSets (if NIL is passed) is 0 (the Roman Alphabet and Punctuation). FontSample will create a page for each font and character set combination specified, consisting of all the characters of the font/character set combination, arranged on a 16 by 16 grid, and labelled in the default 12pt font for the stream. For example, to create a sample sheet for the Modern 12pt regular font, character sets 0 and 239 (general and technical symbols 2) on the Interpress printer Fountain one might do: (FontSample (FONTCREATE 'MODERN 12 'MRR 0 'INTERPRESS) '(0 239) '{LPT}Fountain:) (FontSampleFaked FontAsList Printer StreamType) [Function] There are very often fonts on printers that Interlisp-D cannot speak about, because it is lacking a font width file. FontSampleFaked can produce sample sheets for many of these fonts. FontAsList should be a font expressed in the raw form that FONTCREATE takes, Printer and StreamType are as for FontSample, however passing DISPLAY for StreamType will not produce meaningfull results. To produce a sample sheet for the Vintage 10pt bold font on the Interpress printer Fountain one might incant: (FontSampleFaked '(Vintage-Printwheel 10 BRR) '{LPT}Fountain:) NOTES Be careful if you create sample sheets for many fonts at once ÿÿï$ÿ especially the larger type sizes (24pt and up) ÿÿï$ÿ you may cause an Interpress printer to hang and require rebooting to recover. (LIST ((PAGE NIL (PAPERSIZE LETTER STARTINGPAGE# 95) (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 NIL) (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 NIL . LETTER) (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 NIL) (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 NIL . LETTER) (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 NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))).ÈÈ(È.È È(È(ŠŠ8(ŠŠ8DÈÈ PAGEHEADING RUNNINGHEAD MODERNTERMINAL HELVETICA MODERN MODERN MODERN MODERNMODERN LOGO   HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN ', ˆ& H* m h 3´U º D 4 'oD>2QƒTzº