% 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