ref: 13b1ea74932158069ab1f4c584db81477d9f3551
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