FontSampler.JaM
(date) (Friday, March 2, 1984) .def
(corners) {
0.8 .setstrokewidth
(w) 72.0 8.5 .mul .def
(h) 72.0 11.0 .mul .def
0 0 72 0 .maskvector
0 0 0 72 .maskvector
w 0 w 72 .maskvector
w 0 w 72 .sub 0 .maskvector
0 h 0 h 72 .sub .maskvector
0 h 72 h .maskvector
w h w 72 .sub h .maskvector
w h w h 72 .sub .maskvector
}.cvx .def
(fonts) [
(Xerox/PressFonts/TimesRoman/MRR)
(Xerox/PressFonts/TimesRoman/BRR)
(Xerox/PressFonts/TimesRoman/MIR)
(Xerox/PressFonts/TimesRoman/BIR)
(Xerox/PressFonts/Helvetica/MRR)
(Xerox/PressFonts/Helvetica/BRR)
(Xerox/PressFonts/Helvetica/MIR)
(Xerox/PressFonts/Helvetica/BIR)
(Xerox/PressFonts/Modern/MRR)
(Xerox/PressFonts/Modern/BRR)
(Xerox/PressFonts/Modern/MIR)
(Xerox/PressFonts/Modern/BIR)
(Xerox/PressFonts/Classic/MRR)
(Xerox/PressFonts/Classic/BRR)
(Xerox/PressFonts/Classic/MIR)
(XEROX/PressFonts/Logo/MRR)
(Xerox/PressFonts/XeroxBook/MRR)
] .def
(samp) {(name) .exch .def name 1 0 .nsrsetfont {name .show}.cvx .dosaveall 0 -1 .setxyrel {fox .show}.cvx .dosaveall 0 -1.3 .setxyrel} .cvx .def
(dofonts) {{72.27 708.6475 .setxy 12 12 .scale fonts {samp}.cvx .arrayforall}.cvx .dosaveall}.cvx .def
(blurb1045) {72 14 .setxy (Xerox/pressfonts/modern/BIR) 12 0 .nsrsetfont (Imager -> PD -> 1045 300bpi Fonts from splines ).show date .show}.cvx .def
(blurbplate) {72 14 .setxy (Xerox/pressfonts/modern/BIR) 12 0 .nsrsetfont (Imager -> PD -> Platemaker 880bpi Fonts from splines ).show date .show}.cvx .def
(blurbhornet) {72 14 .setxy (Xerox/pressfonts/modern/BIR) 12 0 .nsrsetfont (Imager -> PD -> Raven 384bpi Fonts from splines ).show date .show}.cvx .def
(ERO) {
(XEROX/PressFonts/Modern/MRR) 12 0 .nsrsetfont (in collaboration with ) .show
(XEROX/PressFonts/Logo/MRR) 30 0 .nsrsetfont (E) .show
(XEROX/PressFonts/Modern/MRR) 25 0 .nsrsetfont (ast ) .show
(XEROX/PressFonts/Logo/MRR) 30 0 .nsrsetfont (R) .show
(XEROX/PressFonts/Modern/MRR) 25 0 .nsrsetfont (ochester ) .show
(XEROX/PressFonts/Logo/MRR) 30 0 .nsrsetfont (O) .show
(XEROX/PressFonts/Modern/MRR) 25 0 .nsrsetfont (perations ) .show
}.cvx .def
(do1045) {50 45 .setlinescreen (fontsandparc300.pd).dup = .openravenpd dofonts blurb1045 102 62 .setxy ERO 0 72 .translate logo .closepd}.cvx .def
(doplate) {110 45 .setlinescreen (fontsandparc880.pd).dup = .openplatemakerpd corners dofonts blurbplate logo .closepd}.cvx .def
(dohornet) {60 45 .setlinescreen (fontsandparc384.pd).dup = .openhornetpd dofonts blurbhornet logo .closepd}.cvx .def