ref: d4bc9052beb3305d64a353a16641740380eb87af
dir: /sys/src/cmd/postscript/postbgi/postbgi.ps/
% % Version 3.3.2 prologue for BGI files - STARE or PRISM. % /#copies 1 store /aspectratio 1 def /fixlinewidth true def /fixscreen false def /font /Courier def /formsperpage 1 def /landscape false def /linewidth 0 def /magnification 1 def /margin 0 def /orientation 0 def /prism false def /resolution 128 def /rotation 1 def /scaletodevice false def /screenheight 1280 def /screenwidth 1024 def /xoffset 0 def /yoffset 0 def /devres 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt def /useclippath true def /pagebbox [0 0 612 792] def /inch {72 mul} bind def /min {2 copy gt {exch} if pop} bind def /kshow {kshow} bind def % so later references don't bind /show {show} bind def /setup { counttomark 2 idiv {def} repeat pop landscape {/orientation 90 orientation add def} if prism {/fixscreen true def /scaletodevice true def} if prism linewidth 0 eq and {/linewidth .3 def} if fixscreen {devres 4 div orientation currentscreen 3 1 roll pop pop setscreen} if pagedimensions /scaling scaletodevice {devres resolution div truncate 72 mul devres div dup} {height margin sub screenheight div width margin sub screenwidth div} ifelse min def xcenter ycenter translate orientation rotation mul rotate xoffset inch yoffset inch translate magnification dup aspectratio mul scale scaling scaling scale screenwidth 2 div neg screenheight 2 div neg translate tietodevicespace linewidth scaling div setlinewidth 1 setlinecap newpath } def /pagedimensions { useclippath { /pagebbox [clippath pathbbox newpath] def } if pagebbox aload pop 4 -1 roll exch 4 1 roll 4 copy landscape {4 2 roll} if sub /width exch def sub /height exch def add 2 div /xcenter exch def add 2 div /ycenter exch def userdict /gotpagebbox true put } def /pagesetup {/page exch def} bind def /tietodevicespace { fixlinewidth linewidth 0 gt and linewidth 1 lt and { /moveto { 2 copy /Y exch def /X exch def transform round exch round exch itransform moveto } bind def /lineto { 2 copy /Y exch def /X exch def transform round exch round exch itransform lineto } bind def /rlineto {Y add exch X add exch lineto} bind def /v V 0 get bind def } if } def /V [{moveto counttomark 2 idiv {rlineto} repeat stroke}] def /v V 0 get bind def /p {linewidth 2 div 0 360 arc fill} bind def /pp {/ch exch def counttomark 2 idiv {moveto xc yc rmoveto ch show} repeat} bind def /l {{scaling div} forall counttomark array astore 0 setdash} bind def /c {setrgbcolor} bind def /T {newpath moveto rlineto rlineto rlineto closepath eofill} bind def /R { newpath moveto 1 index 0 rlineto 0 exch rlineto neg 0 rlineto closepath 0 eq {stroke} {eofill} ifelse } bind def /f { dup dup /charwidth exch 6 mul def /xc exch -2.5 mul def /yc exch -3.5 mul def font findfont charwidth .6 div scalefont setfont } bind def /t { /str exch def gsave translate rotate xc yc moveto currentpoint { pop pop exch charwidth add exch moveto currentpoint } str kshow pop pop grestore } bind def /done {/lastpage where {pop lastpage} if} def