ps2811.ps

开放源码的编译器open watcom 1.6.0版的源代码

/showobj save def
%% normally xo=8.5 and yo=11
/xo 8.5 def
/yo 11 def
/sx 5.4 xo div def
/sy 8.5 yo div def
/xoff 1.75 xo 8.5 div mul def
/yoff 2 yo 11 div mul def
/oshow {showpage} bind def
/showflag 1 def
/xyit {8.75 72 mul 1.0 72 mul translate
90 rotate
sx sy scale
xoff neg 72 mul 0 translate} bind def
xyit
/showpage { showflag 1 eq
  { xo xoff add -1.5 add 72 mul 0 moveto
    0 yo 72 mul rlineto closepath stroke
    xo .2 add 72 mul 0 translate /showflag 2 def }
  { oshow xyit /showflag 1 def } ifelse
  } def
/showfinish { showflag 2 eq {oshow} if } def