(PressFonts.JaM of August 31, 1982 9:58 am) =
(graphics.jam).run

(loadpress) {loadg .getviewer
(PressFontReaderImpl).loadbcd
(PressFontReaderCmds).loadbcd
(PressFontWriterImpl).loadbcd
(PressFontWriterCmds).loadbcd
(ComplexCmds).loadbcd
(RealConvertImpl).loadbcd
(AISImpl).loadbcd
}.cvx .def

(dupvec) (2 .copy).cvx .def
(delta) 4 .def
(setdelta) ((delta) .exch .def).cvx .def
(cross) (dupvec delta 0 .cadd .moveto
	 dupvec delta 0 .csub .drawto
	 dupvec 0 delta .cadd .moveto
	        0 delta .csub .drawto).cvx .def

(black) {65535 .setcolor}.cvx .def
(showc) {.dup CharDimensions (bbdy) .exch .store (bbdx) .exch .store (bboy) .exch .store (bbox) .exch .store bbox bboy bbdx bbdy black .drawbox cross white DrawSplineChar black} .cvx .def

(timesr) {(TimesRoman-mrr.sd) OpenFontFile}.cvx .def

(ochars) {0 128 {.dup .cviac ochar 1 .add}.cvx .rept .pop}.cvx .def

(tableDeltaX) 30 .def
(tableDeltaY) -30 .def

(drawAllChars) {(j) 0 .def (x) 0 .def (ochar) {x 0 .moveto DrawRasterChars (x) x tableDeltaX .add .store (j) j 1 .add .store j 16 .eq {(j) 0 .def (x) 0 .def 0 tableDeltaY .translate}/if}.cvx .def ochars}.cvx .def

(RasterFont) {OpenFontFile AllocateBitmap (Bitmap size = ).print BitmapSize .exch .cvs .print ( by ).print =}.cvx .def

(capture) 256 .dict .def
capture .begin
(.bbox) {4 2 .roll printpt printpt (.bbox) = }.cvx .def
(.moveto) {printpt (.moveto) = }.cvx .def
(.lineto) {printpt (.lineto) = }.cvx .def
(.curveto) {6 4 .roll printpt 4 2 .roll printpt printpt (.curveto) = }.cvx .def
(.drawarea) {(.drawarea) = }.cvx .def
(.draweoarea) {(.draweoarea) = }.cvx .def
(.drawpath) {cvs .print ( .drawpath).print}.cvx .def
(.width) {printpt (.width) =}.cvx .def
(printpt) {.exch cvs .print ( ).print cvs .print ( ).print}.cvx .def
(cvs) {(                    ) .cvis}.cvx .def
.end

(sdfontprinter) 256 .dict .def
sdfontprinter .begin
(.bbox) {4 2 .roll printpt printpt (.bbox) = }.cvx .def
(.moveto) {printpt (.moveto) = }.cvx .def
(.lineto) {printpt (.lineto) = }.cvx .def
(.curveto) {6 4 .roll printpt 4 2 .roll printpt printpt (.curveto) = }.cvx .def
(.draweoarea) {(.draweoarea) = }.cvx .def
(.width) {printpt (.width) =}.cvx .def
(printpt) {.exch cvs .print ( ).print cvs .print ( ).print}.cvx .def
(cvs) {(                    ) .cvis}.cvx .def
(printsdcode) {.dup .cvias ("L).print .print (" {) =
	.cvias DrawSplineChar
	(}.cvx .def) =
	}.cvx .def
.end

(.width) {.pop .pop}.cvx .def
(.bbox) {.pop .pop}.cvx .def