home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 May
/
CHIPCD5_98.iso
/
coreldrw
/
Filters
/
pfit80.dll
/
RCDATA
/
PROLOG_POSTSCRIPT
< prev
Wrap
Text File
|
1997-10-01
|
11KB
|
306 lines
%BEGINNING OF PROLOG
%!PS-Adobe
/wpdict 250 dict def
wpdict begin
/d {bind def}bind def
/l {load def}d
/cp /closepath l
/cup /currentpoint l
/cs /currentscreen l
/cv /curveto l
/drx {dtransform round x round x}d
/f /eofill l
/g /setgray l
/gr /grestore l
/gs /gsave l
/ife {ifelse}d
/ix /index l
/li /lineto l
/lc /setlinecap l
/lj /setlinejoin l
/m /moveto l
/mx /matrix l
/np /newpath l
/p /pop l
/re /rotate l
/rh /readhexstring l
/rl /rlineto l
/rm /rmoveto l
/rs /restore l
/s /stroke l
/sc /scale l
/sd /setdash l
/ss /setscreen l
/sv /save l
/tr /translate l
/w /setlinewidth l
/x /exch l
/xd {x def}d
/c {3{255 div 3 1 roll}repeat setrgbcolor}d
/bF false def
/bF2 false def
/bf 0 def
/ds {gs 1 lc s gr}d
/gd {255 div g}d
/h {0 rm}d
/lp {px li}d
/mp {px m}d
/nb 50 string def
/osv 0 def
/pf {gs eofill gr} def
/pff {gs fill gr} def
/pl {{px li} repeat}d
/ps {gs s gr}def
/plen 0 def
/pwid 0 def
/px {transform .25 sub round .25 add x .25 sub round .25 add x
itransform}d
/pxd {drx idtransform}d
/rlp {pxd rl}d
/rmp {pxd rm}d
/_g {g}d
/_lr {rlp}d
/_s {s}d
/_w {w}d
/rmtx mx def
/_m {mp}d
/_rmxy {rmp}d
/rF false def
/sF false def
/pth 0 def/ptw 0 def/pths 0 def/ptws 0 def/PColor 0 def
/instpat 0 def/cm 0 def/slan 0 def/hscl 0 def
/psz 0 def/xres 0 def/yres 0 def/pstr 0 def/lutb 0 def
/rot 0 def/mir 0 def/HTd 0 def/WDd 0 def/ury 0 def
/llx 0 def/lly 0 def/exstr 0 def/HTs 0 def/WDs 0 def
/Hs 0 def/Ws 0 def/imc 0 def/Bdep 0 def/clu 0 def
/curx 0 def/cury 0 def/Sx 0 def/Sy 0 def/xpos 0 def
/ypos 0 def/lw 0 def
/DUy 0 def/DUx 0 def/Ux 0 def/Uy 0 def/cml 0 def
/PATsc {aload length dup 1 eq{p dup null eq{p}{gd}ife}{p c}ife}d
/PATtcalc {gs x concat mx currentmatrix x 2 ne{dup 4 get x dup 5 get x
XStep 0 drx XStep div x XStep div x 0 YStep drx YStep div x YStep div x
7 -3 roll astore}if gr}d
/PATmp {x dup length 7 add dict copy begin TilingType PATtcalc
/cm xd currentdict /Multi known not {/Multi 1 def}if
/FontType 3 def /Encoding 256 array def
3 string 0 1 255{Encoding x dup 3 ix cvs cvn put}for p
/FontMatrix mx def /FontBBox BBox def
/BuildChar{mark 3 1 roll x begin
Multi 1 ne {PaintData x get}{p}ife
PaintType 2 eq Multi 1 ne or
{XStep 0 FontBBox aload p setcachedevice}
{XStep 0 setcharwidth}ife currentdict /PaintProc load
end gs false PATredef exec true PATredef gr
cleartomark}d currentdict end /foo x definefont}d
/PATpcalc {PATDict /CurrentPattern get begin gs
cm setmatrix BBox aload p p p tr pathbbox
gr YStep div ceiling 4 1 roll XStep div ceiling 4 1 roll
YStep div floor 4 1 roll XStep div floor 4 1 roll
2 ix sub cvi abs x 3 ix sub cvi abs x
4 2 roll YStep mul x XStep mul x end}d
/PATfill {save 5 1 roll PATDict /CurrentPattern get dup begin
setfont cm setmatrix PaintType 2 eq{PATDict /PColor get PATsc}if
3 ix string 0 1 Multi 1 sub{3 ix 3 ix m
Multi 1 ne{dup PaintColors x get PATsc}if
0 1 7 ix 1 sub{2 ix x 2 ix put}for p
3 ix{cup 2 ix show YStep add m}repeat}for
5{p}repeat end restore}d
/oldeofill /eofill l
/oldfill /fill l
/oldstroke /stroke l
/oldshow /show l
/oldwidthshow /widthshow l
/PATredef {userdict begin
{/eofill {/eoclip load PATdraw np}d
/fill {/clip load PATdraw np}d
/stroke {PATstroke}d
/show {0 0 null 0 0 6 -1 roll PATawidthshow}d
/widthshow {0 0 3 -1 roll PATawidthshow}d}
{/eofill {oldeofill}d
/fill {oldfill}d
/stroke {oldstroke}d
/show {oldshow}d
/widthshow {oldwidthshow}d}ife
end}d
false PATredef
/PATdraw {PATpcalc gs 5 -1 roll exec np PATfill gr}d
/PATstroke {{cup strokepath m PATpcalc gs clip np PATfill gr np}stopped
{0.1 g oldstroke (Path is too complex, filling with light gray)=}if}d
/PATsstr 1 string def
/PATawidthshow {{dup PATsstr dup 0 4 -1 roll put
false charpath /clip load PATdraw cup np m
3 ix eq{4 ix 4 ix rm}if 2 copy rm}forall
p p p p p cup np m}d
/PATDict 3 dict def
/PATsp {true PATredef PATDict begin /CurrentPattern xd
CurrentPattern /PaintType get 2 eq {/PColor xd} if
/CColor[currentrgbcolor]def end}d
/PATusp {false PATredef PATDict begin CColor aload p c end p}d
/pdictt 20 dict def
pdictt begin
/dummy null def
/PaintType 1 def
/PatternType 1 def
/TilingType 2 def
/BBox [0 0 1 1] def
/XStep 1 def/YStep 1 def/Multi 2 def
/PaintData[{0 0 m 0 1 rl 1 0 rl 0 -1 rl closepath
PaintColors 0 get aload p null ne {eofill}if}
{ptw pth true [ptw 0 0 pth neg 0 ptw]{Bitmap}imagemask}]def
/PaintProc {begin exec end}d
end
/makedict {pdictt 20 dict copy dup begin
x /Bitmap xd x /PaintColors xd gs initmatrix 1 1 drx idtransform sc
[ptws 0 0 pths 0 0] PATmp gr end}d
/setpat {/pth xd /ptw xd /pths xd /ptws xd makedict /instpat xd instpat PATsp}d
/unsetpat {instpat PATusp}d
/B {/bF true def sF not{/S /bsh l /bF2 true def}if}d
/b {/bF false def bF2{/S /show l /bF2 false def}if}d
/bd {sv}d
/bp {sv .06 .06 sc 0 0 m}d
/bsh {gs psz 30 div 0 rm dup show gr show}d
/clr {rF{6 3 roll p p p}{eq3{p p gd}{c}ife}ife}d
/co {/pwid xd /plen xd
osv 1 eq{0 pwid tr -90 re}if osv 2 eq{pwid plen tr 180 re}if
osv 3 eq{plen 0 tr 90 re}if dup 1 eq{pwid 0 tr 90 re}if
dup 2 eq{pwid plen tr 180 re}if dup 3 eq{0 plen tr -90 re}if /osv xd}d
/cw {s initclip m 0 2 ix rl 0 rl 0 x neg rl clip np}d
/ed {rs}d
/ep {rs showpage 0 0 m}d
/eq3 {3 copy 2 ix eq{eq{true}{false}ife}{p p false}ife}d
/fr {72 0 rmtx defaultmatrix dtransform
/yres xd /xres xd xres dup mul yres dup mul add sqrt}d
/is {sv 4 1 roll dup /pstr x 7 add 8 idiv string def
3 1 roll tr dup 1 sc dup 1 1[5 -1 roll 0 0 1 0 0]
{currentfile pstr rh p}
cml 0 eq{image}{false 3 colorimage}ife rs}d
/cexp {exstr 0 lutb 3 copy 7 -1 roll
{get putinterval exch 3 add exch 3 copy}forall p p p p p}d
/bwexp {dup 0 lutb 3 copy 7 -1 roll
{get put exch 1 add exch 3 copy}forall p p p p p}d
/NOM 0 def/INX 1 def/INY 2 def
/p1x 0 def/p1y 0 def/p2x 0 def/p2y 0 def/p3x 0 def/p3y 0 def
/idef {/p3y xd /p3x xd /p2y xd /p2x xd /p1y xd /p1x xd
/rot xd /mir xd p3x p1x sub 1 add dup mul p1y p3y sub 1 add
dup mul add sqrt /HTd xd p2y p1y sub 1 add dup mul p2x p1x
sub 1 add dup mul add sqrt /WDd xd}def
/mirror {mir NOM eq{Ws Hs sc}{mir INX eq{Ws neg Hs sc}
{mir INY eq {Ws Hs neg sc}{Ws neg Hs neg sc}ife}ife}ife}def
/ic {sv 6 1 roll tr 2 ix 2 ix sc [3 ix 0 0 5 ix neg 0 7 ix]
2 1 roll true 3 1 roll imagemask rs}d
/ieps {/ury xd /urx xd /lly xd /llx xd idef
ury lly sub /HTs xd urx llx sub /WDs xd
WDd WDs div /Ws xd HTd HTs div /Hs xd
p3x p3y tr rot rotate mirror llx neg lly neg tr}def
/im {sv 15 1 roll dup /pstr x string def /exstr x 3 mul string def
/HTs xd /WDs xd /imc xd /Bdep xd /clu xd
idef p1x p1y m cup transform /cury xd /curx xd rot rotate
/Ws WDd def /Hs HTd def mirror curx cury itransform tr WDs HTs Bdep
[WDs 0 0 HTs neg 0 0]{currentfile pstr rh p
clu 1 eq{cexp}if clu 2 eq{bwexp}if}
imc 0 eq{image}{false 3 colorimage}ife rs}d
/URy 0 def/URx 0 def/LLy 0 def/LLx 0 def
/dxcg 0 def/dx1 0 def/dx2 0 def/dx3 0 def
/cgray 0 def/curstep -1 def/dis 0 def/steps 0 def
/gsteps 0 def/grot 0 def/gtype 1 def/ry 0 def
/rx 0 def/botg 0 def/topg 0 def
/bgc 0 def/tgc 0 def/cgc 0 def
/extents {flattenpath pathbbox /URy xd /URx xd /LLy xd /LLx xd}def
/dxcolor {cml 0 eq{cgray dxcg sub dup /cgray xd curstep -1 eq{g}
{/curstep curstep 1 sub def curstep 1 eq {pop botg gd}{g}ife}ife}
{cgc aload pop dx3 sub 3 1 roll dx2 sub 3 1 roll
dx1 sub 3 1 roll 3 array astore /cgc xd
cgc aload pop setrgbcolor}ife}d
/box {LLx LLy m URx LLy li URx URy li LLx URy li cp s}def
/calcdx {sub gsteps 1 sub div 255 div} def
/computegdx {topg botg calcdx /dxcg xd} def
/computeRGBdx {mark tgc aload pop bgc aload pop
3 ix 1 ix calcdx /dx3 xd 4 ix 2 ix calcdx /dx2 xd
5 ix 3 ix calcdx /dx1 xd cleartomark}def
/ccdx{cml 0 eq{computegdx}{computeRGBdx}ife}def
/stclr {cml 0 eq{topg gd /cgray currentgray def}
{tgc aload pop c currentrgbcolor 3 array astore
/cgc xd}ife}def
/lgf {/steps gsteps def
ry 0 ne
{stclr /gf {add}def /top URy LLy sub ry mul LLy add def
/lw URy top sub steps .5 sub div def lgfdo}if
stclr /gf {sub} def
ry 0 ne{/lw top LLy sub steps .5 sub div def}if lgfdo}def
/lgfdo {ry 0 ne
{/center top def lw 2 div w
LLx center lw 4 div gf m URx center lw 4 div gf li s
/center center lw gf def LLx center m dxcolor}
{/lw URy LLy sub steps div def
/top URy lw 2 div sub def
/center top def LLx top m
/steps steps 1 add def}ife
lw w steps 1 sub dup /curstep xd
{URx center li s center lw gf /center xd
LLx center m dxcolor}repeat
/curstep -1 def
}def
/sgf {/steps gsteps .5 sub def
/midx URx LLx sub 1 rx sub mul def
/midy URy LLy sub ry mul def
/width URx LLx sub def
/dx width midx sub steps div def
/height URy LLy sub def
/dy height midy sub steps div def
/dw width steps div def /dl height steps div def
width w stclr
/xpos LLx def /ypos URy def /lw width def /lh height def
gsteps
{xpos lw 2 div add ypos m xpos lw 2 div add ypos
lh sub li s /lw lw dw sub def/lh lh dl sub def
/xpos xpos dx add def /ypos ypos dy sub def
lw w dxcolor}repeat /curstep -1 def}def
/dfc {dup mul x dup mul add sqrt dup dis gt{/dis xd}{p}ife}def
/fdis {URx LLx sub rx mul LLx add /midx xd
URy LLy sub ry mul LLy add /midy xd
/width URx LLx sub def /gcx width rx mul def
/height URy LLy sub def /gcy height ry mul def
gcx gcy dfc width gcx sub gcy dfc
width gcx sub height gcy sub dfc gcx height gcy sub dfc}def
/rgf {/steps gsteps def
fdis /lw dis steps .5 sub div def
/radius lw def lw 2 div w stclr
midx lw 2 div sub midy m midx midy radius 2 div 0 361 arc s lw w
steps 1 sub
dup /curstep xd /curstep curstep 1 add def
{dxcolor midx midy radius 0 361 arc s /radius radius lw add def
}repeat
/curstep -1 def}def
/gf {/gsteps xd/grot xd/gtype xd/ry x 65536 div def/rx x 65536 div def
cml 0 eq
{gtype 2 eq{x}if /botg xd/topg xd}
{gtype 2 eq{6 3 roll}if
3 array astore /bgc xd
3 array astore /tgc xd}ife
sv []0 sd 0 lc eoclip gsteps 1 eq
{stclr eofill}
{grot rotate extents
gsteps 0 eq {csteps}if
ccdx gtype 1 eq
{lgf}{gtype 2 eq{sgf}{rgf}ife}ife}ife rs}d
/csteps {fdis dis 72 div fr mul cs p p dup xres
eq{p p /gsteps xres def}{div /gsteps exch round cvi
dup 1 le{p 2}if def}ife}def
/gfw {/gsteps xd/grot xd/gtype xd/ry x 65536 div def/rx x 65536 div def
cml 0 eq
{gtype 2 eq{x}if /botg xd/topg xd}
{gtype 2 eq{6 3 roll}if
3 array astore /bgc xd
3 array astore /tgc xd}ife
sv []0 sd 0 lc clip gsteps 1 eq
{stclr fill}
{grot rotate extents
gsteps 0 eq {csteps}if
ccdx gtype 1 eq
{lgf}{gtype 2 eq{sgf}{rgf}ife}ife}ife rs}d
/csteps {fdis dis 72 div fr mul cs p p dup xres
eq{p p /gsteps xres def}{div /gsteps exch round cvi
dup 1 le{p 2}if def}ife}def
end
%THIS IS THE END OF THE PROLOG