home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip Hitware 7 A
/
CHIP_HITWARE_7A.iso
/
Tools
/
PrintFile
/
PrFile32.exe
/
RCDATA
/
148
< prev
Wrap
Text File
|
1998-12-07
|
2KB
|
88 lines
%!PS-Adobe-3.0
%%Creator: PrintFile version 2.0
%%LanguageLevel: 1
%%EndComments
%%BeginProlog
%
% PrintFile EPS printing procedure set
% Copyright 1997 Peter Lerup
%
% Author: Peter Lerup
% Date: 97-07-23
/prf_scale 1 def
/prf_frame_hook {
} def
/prf_header_hook {
} def
/prf_bbox {
bbx1 bby1 bbx2 bby2
} def
/xdef { exch def } def
/_center {
prx2 prx1 add 2 div bbx2 bbx1 add 2 div sub
pry2 pry1 add 2 div bby2 bby1 add 2 div sub
translate
} def
/_scale {
prx2 prx1 sub bbx2 bbx1 sub div
pry2 pry1 sub bby2 bby1 sub div
2 copy gt {exch} if pop 0.95 mul /prf_scale xdef
bbx2 bbx1 add 2 div bby2 bby1 add 2 div translate
prf_scale dup scale
bbx2 bbx1 add 2 div neg bby2 bby1 add 2 div neg translate
} def
/_begin {
initgraphics
/filename xdef
/doheader xdef
/framewidth xdef
/doframe xdef
/option xdef
/bby2 xdef
/bbx2 xdef
/bby1 xdef
/bbx1 xdef
newpath clippath pathbbox newpath
/pry2 xdef
/prx2 xdef
/pry1 xdef
/prx1 xdef
option 1 ge { _center } if
option 2 ge { _scale } if
save [
/showpage {} def
} def
/_drawframe {
matrix currentmatrix matrix defaultmatrix setmatrix
framewidth setlinewidth
setmatrix
prf_frame_hook
newpath
bbx1 bby1 moveto bbx2 bby1 lineto bbx2 bby2 lineto
bbx1 bby2 lineto bbx1 bby1 lineto stroke
} def
/_drawheader {
initgraphics
/Helvetica findfont 9 scalefont setfont
prx1 pry2 moveto 15 -20 rmoveto
filename
prf_header_hook
show
} def
/_end {
doframe { _drawframe } if
doheader { _drawheader } if
showpage
} def
%%EndProlog