dvi2ps 5.1j-1.2build1 / usr / lib / dvi2ps / headers / dvi2.ps

%
/TeXDict 300 dict def
TeXDict begin
/inch {72 mul} bind def
/largepaperarray [
/letter /legal /11x17
/b4 /b5 /a5 /a4 /a3
] def
/smallpaperarray [
/note dup where {
pop
}{
pop /lettersmall dup where {
pop
}{
pop /letter
} ifelse
} ifelse
/legal /11x17
/b4 /b5 /a5
/a4small dup where {
pop
}{
pop /note dup where {
pop
}{
pop /a4
} ifelse
} ifelse
/a3
] def
/setpaper {
papertray {
dup where {
exch get exec
}{
pop
} ifelse
}{
pop
} ifelse
} bind def
/trayarray [
/lettertray /legaltray /11x17tray
/b4tray /b5tray /a5tray /a4tray /a3tray
] def
/settray {
dup statusdict exch known manualfeed not and {
mark exch statusdict begin load
{
exec
} stopped {
$error /newerror get {
$error /errorname get /rangecheck eq {
(Tray not found, using default tray.\n) print flush
TeXDict /papertray false put
}{
handleerror
} ifelse
$error /newerror false put
} if
} if
end cleartomark
}{
pop
} ifelse
} bind def
/papertray true def
/widtharray  [
8.5 inch 8.5 inch 11 inch
10.12 inch 7.17 inch
5.83 inch 8.27 inch 11.69 inch
] def
/heightarray [
11 inch 14 inch 17 inch
14.33 inch 10.12 inch
8.27 inch 11.69 inch 16.54 inch
] def
/xoffset 0 def
/yoffset 0 def
/leftm 72 def
/topm 72 def
/landscape false def
/manualfeed false def
/sizesetup {
dup widtharray exch get /paperwidth exch def
heightarray exch get /paperheight exch def
} bind def
/pagesetup {
dup sizesetup
dup trayarray exch get settray
large {largepaperarray}{smallpaperarray} ifelse
exch get setpaper
} bind def
/@lettersize {0 sizesetup} def
/@legalsize {1 sizesetup} def
/@tabloidsize {2 sizesetup} def
/@b4size {3 sizesetup} def
/@b5size {4 sizesetup} def
/@a5size {5 sizesetup} def
/@a4size {6 sizesetup} def
/@a3size {7 sizesetup} def
/@letter {0 pagesetup} def
/@legal {1 pagesetup} def
/@tabloid {2 pagesetup} def
/@b4 {3 pagesetup} def
/@b5 {4 pagesetup} def
/@a5 {5 pagesetup} def
/@a4 {6 pagesetup} def
/@a3 {7 pagesetup} def
/@landscape {/landscape true def} bind def
/@manualfeed {
/manualfeed true def
statusdict /manualfeed known {
statusdict /manualfeed true put
statusdict /manualfeedtimeout 120 put
} if
} bind def
/@large {/large true def} bind def
/@small {/large false def} bind def
/@envelope {
/xoffset 4.28 inch def
/yoffset 1.5 inch def
@letter
} bind def
/COPIES {
/#copies exch def
} bind def
/NF {
/newname exch def
/fsize exch def
/corr exch def
newname 7 dict def
newname load begin
/FontType 3 def
/FontMatrix [corr 0 0 corr neg 0 0] def
/FontBBox [0 0 1 1] def
/BitMaps fsize array def
/BuildChar /CharBuilder load def
/Encoding 256 array def
0 1 255 {Encoding exch /.notdef put} for
end
newname newname load definefont pop
} bind def
/ch-image {ch-data 0 get} bind def
/ch-width {ch-data 1 get} bind def
/ch-height {ch-data 2 get} bind def
/ch-xoff {ch-data 3 get} bind def
/ch-yoff {ch-data 4 get} bind def
/ch-tfmw {ch-data 5 get} bind def
/CharBuilder {
/ch-code exch def
/font-dict exch def
/ch-data font-dict /BitMaps get ch-code get def
ch-data null eq not {
ch-tfmw 0
ch-xoff neg  ch-yoff neg ch-width ch-xoff sub ch-height ch-yoff sub
setcachedevice
ch-width ch-height true [1 0  0 1  ch-xoff ch-yoff]
{ch-image} imagemask
} if
} bind def
/NF2 {
/newname exch def
/fsize exch def
/corr exch def
newname 7 dict def
newname load begin
/FontType 3 def
/FontMatrix [corr 0 0 corr neg 0 0] def
/FontBBox [0 0 1 1] def
/BitMaps fsize array def
/BuildChar /CharBuilder2 load def
/Encoding 256 array def
0 1 255 {Encoding exch /.notdef put} for
end
newname newname load definefont pop
} bind def
/CharBuilder2 {
/ch-code exch def
/font-dict exch def
/ch-data font-dict /BitMaps get ch-code get def
ch-data null eq not {
ch-tfmw 0
ch-xoff neg  ch-yoff neg ch-width ch-xoff sub ch-height ch-yoff sub
setcachedevice
ch-xoff neg ch-yoff neg translate
ch-image exec
} if
} bind def
/BFT {
/bf-v exch def
/bf-h exch def
findfont [bf-h 0 0 bf-v 0 0] makefont def
} bind def
/BFE /BFT load def
/BFF {
/bf-v exch def
/bf-h exch def
/savecurfont currentfont def
findfont dup setfont
3 -1 roll
/bf-stand exch def
[
bf-stand stringwidth pop
dup bf-h exch div
exch bf-v exch div 0 0 3 -1 roll
0 0
] makefont def
savecurfont setfont
} bind def
/SF /setfont load def
/s3 3 string def
/D {
/ch-code exch def
/ch-data exch def
currentfont /BitMaps get ch-code ch-data put
currentfont /Encoding get ch-code
dup s3 cvs cvn
put
} bind def
/BP {
userdict /bop-hook known { bop-hook } if
/SaveImage save def
xoffset yoffset translate
leftm topm
landscape {
exch translate
90 rotate
}{
paperheight exch sub translate
} ifelse
72 Resolution div dup neg scale
0 0 moveto
} def
/EP {
SaveImage restore
userdict /eop-hook known { eop-hook } if
showpage
} def
/START {
userdict /start-hook known { start-hook } if
/DVImag exch def
/magscale true def
/Resolution exch def
} def
/l /lineto load def
/p /moveto load def
/r {
0 rmoveto
} bind def
/s /show load def
/c /curveto load def
/rs {
90 rotate show -90 rotate
} bind def
/ru {
/dy exch neg def
/dx exch def
/x currentpoint /y exch def def
newpath x y moveto
dx 0 rlineto
0 dy rlineto
dx neg 0 rlineto
closepath fill
x y moveto
} bind def
end