1947 %! fontpage.ln03r.ps % by Richard J. Barbalace on August 26, 1992. % % A display of the fonts available on Athena public LN03R printers. % % Based on fontpage.lw-sipb.ps modified version by Richard J. Barbalace. % Information from the standard startup page: % % Digital LN03R printer - ScriptPrinter version 47.2 % Paper size: letter % Communication: 19200 baud, 7 bits + mark parity, XON/XOFF protocol % Vitual Memory limit: 470000, used: 60224, available: 409776 % % Times and Helvetica are registered trademarks of Allied Corporation. % ITC Avant Garde Gothic, ITC Lubalin Graph, and ITC Souvenir % are registered trademarks of International Typeface Corporation. /inch {72 mul} def % You may wish to change the following parameters: /left_margin {0.5 inch} def % left margin /top_margin {9.5 inch} def % top margin /alphabet_margin {4.5 inch} def % margin for alphabets /text_margin {3.75 inch} def % margin for sample text /font_size 18 def % font size for font names /text_size 12 def % font size for sample text /alpha_size 9 def % font size for alphabets /vspace {font_size -1.2 mul} def % vertical space to next line /plain_font /Times-Roman def % plain font for displaying font names % Be careful if you modify the following routines: /enter { % Move to next line left_margin currentpoint exch pop moveto 0 vspace rmoveto} def /alphabet { % English alphabet alpha_size string cvn get_font % Get specified font alphabet_margin currentpoint exch pop moveto (abcdefghijklmnopqrstuvwxyz) show alphabet_margin currentpoint exch pop alpha_size add moveto (ABCDEFGHIJKLMNOPQRSTUVWXYZ) show alphabet_margin currentpoint exch pop alpha_size sub moveto} def /sample_text { % Sample sentence text_size string cvn get_font % Get specified font text_margin currentpoint exch pop moveto (The quick brown fox jumped over the lazy dogs.) show} def /get_font { % Load the current font /fname exch def /fsize exch def fname findfont fsize scalefont setfont} def /master1 { % Main routine, page 1 /string exch def % Text string specifying font font_size plain_font get_font % Plain font style string show % Display font name sample_text % Display sample sentence enter} def /master2 { % Main routine, page 2 /string exch def % Text string specifying font font_size string cvn get_font % Get specified font string show % Display font name alphabet % Display alphabet in font enter} def % List of fonts named in /usr/athena/lib/ps - % only those available on the LN03R are printed. % Heading left_margin top_margin moveto 9 plain_font get_font % 9 pt plain font style ((Times-Roman, 18 point)) show text_margin currentpoint exch pop moveto ((12 point)) show enter (AvantGarde-Book) master1 (AvantGarde-BookOblique) master1 (AvantGarde-Demi) master1 (AvantGarde-DemiOblique) master1 %(Bookman-Demi) master1 %(Bookman-DemiItalic) master1 %(Bookman-Light) master1 %(Bookman-LightItalic) master1 (Courier) master1 (Courier-Bold) master1 (Courier-BoldOblique) master1 (Courier-Oblique) master1 %(DIThacks) master1 %(Garamond-Bold) master1 %(Garamond-BoldItalic) master1 %(Garamond-Light) master1 %(Garamond-LightItalic) master1 (Helvetica) master1 (Helvetica-Bold) master1 (Helvetica-BoldOblique) master1 %(Helvetica-Narrow) master1 %(Helvetica-Narrow-Bold) master1 %(Helvetica-Narrow-BoldOblique) master1 %(Helvetica-Narrow-Oblique) master1 (Helvetica-Oblique) master1 (LubalinGraph-Book) master1 (LubalinGraph-BookOblique) master1 (LubalinGraph-Demi) master1 (LubalinGraph-DemiOblique) master1 (NewCenturySchlbk-Bold) master1 (NewCenturySchlbk-BoldItalic) master1 (NewCenturySchlbk-Italic) master1 (NewCenturySchlbk-Roman) master1 %(Notice) master1 %(Optima) master1 %(Optima-Bold) master1 %(Optima-BoldOblique) master1 %(Optima-Oblique) master1 %(Palatino-Bold) master1 %(Palatino-BoldItalic) master1 %(Palatino-Italic) master1 %(Palatino-Roman) master1 (Souvenir-Demi) master1 (Souvenir-DemiItalic) master1 (Souvenir-Light) master1 (Souvenir-LightItalic) master1 (Symbol) master1 (Times-Bold) master1 (Times-BoldItalic) master1 (Times-Italic) master1 (Times-Roman) master1 %(ZapfChancery-MediumItalic) master1 %(ZapfDingbats) master1 showpage % Heading left_margin top_margin moveto 9 plain_font get_font % 9 pt plain font style ((18 point)) show alphabet_margin currentpoint exch pop moveto ((9 point)) show enter (AvantGarde-Book) master2 (AvantGarde-BookOblique) master2 (AvantGarde-Demi) master2 (AvantGarde-DemiOblique) master2 %(Bookman-Demi) master2 %(Bookman-DemiItalic) master2 %(Bookman-Light) master2 %(Bookman-LightItalic) master2 (Courier) master2 (Courier-Bold) master2 (Courier-BoldOblique) master2 (Courier-Oblique) master2 %(DIThacks) master2 %(Garamond-Bold) master2 %(Garamond-BoldItalic) master2 %(Garamond-Light) master2 %(Garamond-LightItalic) master2 (Helvetica) master2 (Helvetica-Bold) master2 (Helvetica-BoldOblique) master2 %(Helvetica-Narrow) master2 %(Helvetica-Narrow-Bold) master2 %(Helvetica-Narrow-BoldOblique) master2 %(Helvetica-Narrow-Oblique) master2 (Helvetica-Oblique) master2 (LubalinGraph-Book) master2 (LubalinGraph-BookOblique) master2 (LubalinGraph-Demi) master2 (LubalinGraph-DemiOblique) master2 (NewCenturySchlbk-Bold) master2 (NewCenturySchlbk-BoldItalic) master2 (NewCenturySchlbk-Italic) master2 (NewCenturySchlbk-Roman) master2 %(Notice) master2 %(Optima) master2 %(Optima-Bold) master2 %(Optima-BoldOblique) master2 %(Optima-Oblique) master2 %(Palatino-Bold) master2 %(Palatino-BoldItalic) master2 %(Palatino-Italic) master2 %(Palatino-Roman) master2 (Souvenir-Demi) master2 (Souvenir-DemiItalic) master2 (Souvenir-Light) master2 (Souvenir-LightItalic) master2 (Symbol) master2 (Times-Bold) master2 (Times-BoldItalic) master2 (Times-Italic) master2 (Times-Roman) master2 %(ZapfChancery-MediumItalic) master2 %(ZapfDingbats) master2 % Source information 9 plain_font get_font % 9 pt plain font style 7.75 inch 1.5 inch moveto 90 rotate (Fonts available on the Athena public LN03R printers.) show 2 inch 0 rmoveto (Source: /mit/postscript/Fonts/fontpage.ln03r.ps) show showpage . 0