(GraphicsToPressTest.JaM of December 6, 1982 4:33 pm) =

(graphics.jam).run

(loadp) {
	.getviewer
	(GraphicsToPressJaM.bcd).loadbcd
	(GraphicsToPressPackage.bcd).loadbcd
	}.cvx .def

(rect) {
	100 200 160 80 .drawbox
	}.cvx .def

(trappath) {
	0 0 .moveto 90 100 .lineto 200 100 .lineto 240 0 .lineto 
	}.cvx .def

(rectpath) {
	0 0 .moveto 0 60 .lineto 100 60 .lineto 100 0 .lineto
	}.cvx .def

(testp) {
.initdc
fat .setfat
100 100 .translate
rectpath .drawarea
200 0 .translate
trappath .drawarea
.initdc
fat .setfat
0 0 .5 .hsvcolor
100 250 .translate
rectpath .drawarea
200 0 .translate
trappath .drawarea
.initdc
fat .setfat
100 400 .translate
rectpath 0 0 .drawstroke
200 0 .translate
trappath 0 0 .drawstroke
.initdc
fat .setfat
100 550 .translate
rectpath .cliparea
.4 .4 .scale
-228 -600 .setpos
(monk.ais) .drawimage
.initdc
fat .setfat
100 550 .translate
200 0 .translate
trappath .cliparea
.38 .38 .scale
-35 -81 .setpos
(monk.ais) .drawimage
}.cvx .def

(fat) .true .store
(fat) .false .store
(thintest) .dup = {(thin.press) .dup Press.Open Press.Activate (fat) .false .store testp Press.Close =}.cvx .def
(fattest) .dup =  {(fat.press) .dup Press.Open Press.Activate (fat) .true .store testp Press.Close =}.cvx .def