[Pixel]<Imaging>DocGraphics>SIGGRAPH87>fonts.jam!1

% fonts.jam

(fonts.jam) =

% Font Stuff

% <POINTSIZE> FONTNAME - sets the desired font

(xxxpoints) 40.0 .def % default point size setting

(HELVB){ (xxxpoints) .exch .def (xerox/pressfonts/helvetica-brr) .findfont xxxpoints .scalefont .setfont} .cvx .def

(HELVM){ (xxxpoints) .exch .def (xerox/pressfonts/helvetica-mrr) .findfont xxxpoints .scalefont .setfont} .cvx .def

(HELVMI){ (xxxpoints) .exch .def (xerox/pressfonts/helvetica-mir) .findfont xxxpoints .scalefont .setfont} .cvx .def

(HELVBI){ (xxxpoints) .exch .def (xerox/pressfonts/helvetica-bir) .findfont xxxpoints .scalefont .setfont} .cvx .def

(TIMEB){ (xxxpoints) .exch .def (xerox/pressfonts/TimesRoman-brr) .findfont xxxpoints .scalefont .setfont} .cvx .def

(TIMEMI){ (xxxpoints) .exch .def (xerox/pressfonts/TimesRoman-mir) .findfont xxxpoints .scalefont .setfont} .cvx .def

(TIMEM){ (xxxpoints) .exch .def (xerox/pressfonts/TimesRoman-mrr) .findfont xxxpoints .scalefont .setfont} .cvx .def

(TIMEBI){ (xxxpoints) .exch .def (xerox/pressfonts/TimesRoman-bir) .findfont xxxpoints .scalefont .setfont} .cvx .def

(OLDEM){ (xxxpoints) .exch .def (xerox/pressfonts/OldEnglish-mrr) .findfont xxxpoints .scalefont .setfont} .cvx .def

(TEMPLM){ (xxxpoints) .exch .def (xerox/pressfonts/Template-mrr) .findfont xxxpoints .scalefont .setfont} .cvx .def

(XRXBKM){ (xxxpoints) .exch .def (xerox/pressfonts/XeroxBook-mrr) .findfont xxxpoints .scalefont .setfont} .cvx .def

(LOGO){ (xxxpoints) .exch .def (xerox/pressfonts/Logo-mrr) .findfont xxxpoints .scalefont .setfont} .cvx .def

(MATH){ (xxxpoints) .exch .def (xerox/pressfonts/Math-mrr) .findfont xxxpoints .scalefont .setfont} .cvx .def

(CRMM){ (xxxpoints) .exch .def (xerox/pressfonts/Cream-mrr) .findfont xxxpoints .scalefont .setfont} .cvx .def

(CRMMI){ (xxxpoints) .exch .def (xerox/pressfonts/Cream-mir) .findfont xxxpoints .scalefont .setfont} .cvx .def

(CRMB){ (xxxpoints) .exch .def (xerox/pressfonts/Cream-brr) .findfont xxxpoints .scalefont .setfont} .cvx .def

(CRMBI){ (xxxpoints) .exch .def (xerox/pressfonts/Cream-bir) .findfont xxxpoints .scalefont .setfont} .cvx .def

(MODM){ (xxxpoints) .exch .def (xerox/pressfonts/Modern-mrr) .findfont xxxpoints .scalefont .setfont} .cvx .def

(MODMI){ (xxxpoints) .exch .def (xerox/pressfonts/Modern-mir) .findfont xxxpoints .scalefont .setfont} .cvx .def

(MODB){ (xxxpoints) .exch .def (xerox/pressfonts/Modern-brr) .findfont xxxpoints .scalefont .setfont} .cvx .def

(MODBI){ (xxxpoints) .exch .def (xerox/pressfonts/Modern-bir) .findfont xxxpoints .scalefont .setfont} .cvx .def

(MOCK){ (xxxpoints) .exch .def (xerox/pressfonts/Mockingbird-mrr) .findfont xxxpoints .scalefont .setfont} .cvx .def

(HIPP){ (xxxpoints) .exch .def (xerox/pressfonts/Hippo-mrr) .findfont xxxpoints .scalefont .setfont} .cvx .def

(CLSSM){ (xxxpoints) .exch .def (xerox/pressfonts/Classic-mrr) .findfont xxxpoints .scalefont .setfont} .cvx .def

(CLSSMI){ (xxxpoints) .exch .def (xerox/pressfonts/Classic-mir) .findfont xxxpoints .scalefont .setfont} .cvx .def

(CLSSB){ (xxxpoints) .exch .def (xerox/pressfonts/Classic-brr) .findfont xxxpoints .scalefont .setfont} .cvx .def

(ARROW){ (xxxpoints) .exch .def (xerox/pressfonts/Arrows-mrr) .findfont xxxpoints .scalefont .setfont} .cvx .def

(FLEM){ (xxxpoints) .exch .def (xerox/xc1-1-1-0/FlemishScriptIIMRRc0) .findfont xxxpoints .scalefont .setfont} .cvx .def

(BH){ (xxxpoints) .exch .def (xerox/xc1-1-1-0/ITCBauhausMRRc0) .findfont xxxpoints .scalefont .setfont}.cvx .def

(LUC){ (xxxpoints) .exch .def (xerox/xc1-2-2/Lucida) .findfont xxxpoints .scalefont .setfont} .cvx .def

(LUCI){ (xxxpoints) .exch .def (xerox/xc1-2-2/Lucida-italic) .findfont xxxpoints .scalefont .setfont} .cvx .def

(LUCB){ (xxxpoints) .exch .def (xerox/xc1-2-2/Lucida-bold) .findfont xxxpoints .scalefont .setfont} .cvx .def

(LUCBI){ (xxxpoints) .exch .def (xerox/xc1-2-2/Lucida-bold-italic) .findfont xxxpoints .scalefont .setfont} .cvx .def

(LUCM){ (xxxpoints) .exch .def (xerox/xc1-2-2/LucidaMono) .findfont xxxpoints .scalefont .setfont} .cvx .def

(LUCMB){ (xxxpoints) .exch .def (xerox/xc1-2-2/LucidaMono-bold) .findfont xxxpoints .scalefont .setfont} .cvx .def

(LUCS){ (xxxpoints) .exch .def (xerox/xc1-2-2/LucidaSans) .findfont xxxpoints .scalefont .setfont} .cvx .def

(LUCSB){ (xxxpoints) .exch .def (xerox/xc1-2-2/LucidaSans-bold) .findfont xxxpoints .scalefont .setfont} .cvx .def

(LUCSI){ (xxxpoints) .exch .def (xerox/xc1-2-2/LucidaSans-italic) .findfont xxxpoints .scalefont .setfont} .cvx .def

(LUCSBI){ (xxxpoints) .exch .def (xerox/xc1-2-2/LucidaSans-bold-italic) .findfont xxxpoints .scalefont .setfont} .cvx .def

(LUCSM){ (xxxpoints) .exch .def (xerox/xc1-2-2/LucidaSansMono) .findfont xxxpoints .scalefont .setfont} .cvx .def

(LUCSMB){ (xxxpoints) .exch .def (xerox/xc1-2-2/LucidaSansMono-bold) .findfont xxxpoints .scalefont .setfont} .cvx .def

(LUCTMI){ (xxxpoints) .exch .def (xerox/xc1-2-2/TeXMath-italic) .findfont xxxpoints .scalefont .setfont} .cvx .def

(egText) (The quick brown fox jumped over the lazy dog - 1234567890 !@#$%~&* XEROX) .def

(showEgText) { % (classic) showEgText

(showEgTextXX) .exch .def

(pointSizeXX) .exch .def

pointSizeXX MODM

showEgTextXX .show ( - ) .show

pointSizeXX showEgTextXX .cvx .exec

egText .show

} .cvx .def

(examples) {

(psxx) 20 .def

(yxx) 50 .def

(xxx) 10 .def

(yxxInc) psxx 2 .add .def

xxx yxx .setxy psxx (HELVB) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (HELVM) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (HELVMI) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (HELVBI) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (TIMEB) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (TIMEMI) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (TIMEBI) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (OLDEM) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (TEMPLM) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (XRXBKM) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (LOGO) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (MATH) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (CRMM) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (CRMMI) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (CRMB) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (CRMBI) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (MODM) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (MODMI) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (MODB) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (MODBI) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy {

psxx MODM (MOCK - ) .show 0.03 .scalet psxx MOCK egText .show

} .cvx .dosave (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (HIPP) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (CLSSM) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (CLSSMI) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (CLSSB) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy {

psxx MODM (ARROW - ) .show 0.3 .scalet psxx ARROW egText .show

} .cvx .dosave (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (FLEM) showEgText (yxx) yxx yxxInc .add .def

xxx yxx .setxy psxx (BH) showEgText (yxx) yxx yxxInc .add .def

} .cvx .def