?? redemo.ps
字號:
/l2{bp 7 2 roll co m}d/osh{dup -4 -4 rm gs show grdup 4 0 rm gs show gr dup 4 0 rm gs show gr dup 0 4 rm gs show grdup 0 4 rm gs show gr dup -4 0 rm gs show gr dup -4 0 rm gs show grdup 0 -4 rm gs show gr currentrgbcolor 4 3 roll 1 g 4 0 rm show setrgbcolor}d/mo{dup/OutlineFlag known not{dup dup length 2 add dict begin{1 ix/FID ne{def}{p p}ife}forall/UniqueID known{/UniqueID UniqueID 10000 add def}if/PaintType PaintType 0 eq{2}{PaintType}ife def/StrokeWidth 15 def/OutlineFlag true def/OutlineFont currentdict end definefont}if}d/O{currentfont/PaintType known{currentfont mo setfont}{/S/osh l}ife}d/o{currentfont/PaintType known{bf setfont}{/S/show l}ife}d/R{/rF true def currentrgbcolor 1 .25 .25 setrgbcolor}d/r{/rF false def eq3{1 sub neg gd p p}{setrgbcolor}ife}d/rc{dup FontDirectory x known{findfont}{dup nb cvs dup length 1 sub get 82 eq{dup nb cvs dup length 1 sub 0 x getintervalfindfont begin currentdict dup length dict begin{1 ix/FID ne{def}{p p}ife}forall/FontName xd/Encoding WPen defcurrentdict dup end end/FontName get x definefont}{findfont}ife}ife}d/rmtx mx def/S/show l/A/ashow l/W/widthshow l/AW/awidthshow l/sg{neg 100 add 100 div g}d/SH{bF2{/bF2 false def}if/S/ssh l/A/assh l/W/wssh l/AW/awssh l/sF true def}d/sh{/S/show l/A/ashow l/W/widthshow l/AW/awidthshow l/sF false def bF{B}if}d/sp{gs s gr}d/ssh{sv x gs psz 20 div dup neg rm dup show gr dup sv xcurrentfont/PaintType known{bf setfont}if 1 g show rs currentfont/PaintType known{currentfont mo setfont show}{osh}ifecup 3 -1 roll rs m}d/ST{cup/Sy xd/Sx xd}d/st{gs cup psz 4 div add mp Sx Sy psz 4 div add lp 10 w s gr}d/U{cup/Uy xd/Ux xd}d/u{gs cup -24 add m Ux Uy -24 add li 12 w s gr}d/ul{cup osv plen pwid 7 -2 roll rs rs bp 6 1 roll co m}d/WPen StandardEncoding 256 array copy def 0[127/Aacute/Acircumflex/Adieresis/Agrave/Aring/Atilde/Ccedilla/Delta/Eacute/Ecircumflex/Edieresis/Egrave/Eth/Gamma/Iacute/Icircumflex/Idieresis/Igrave/Lambda/Ntilde/Oacute/Ocircumflex/Odieresis/Ograve/Omega/Otilde/Phi/Pi/Psi/Scaron/Sigma/TeXtext32/Theta/Thorn176/Pts181/dbar190/Hbar192/hbar201/Ldot204/ldot209/Uacute/Ucircumflex/Udieresis/Ugrave/Upsilon/Xi/Yacute/Ydieresis/Zcaron/aacute/acircumflex/adieresis/agrave/aring/atilde/brokenbar226/approxequal228/ccedilla/copyright/degree/divide236/dotlessj/eacute/ecircumflex/edieresis/egrave242/eth/ff/ffi246/ffl/iacute252/icircumflex/idieresis/igrave/logicalnot1/minus/mu/multiply/ntilde/oacute/ocircumflex/odieresis/ograve/onehalf/onequarter/onesuperior/otilde/plusminus/registered/scaron/thorn/threequarters/threesuperior/trademark/twosuperior/uacute/ucircumflex/udieresis/ugrave/yacute/ydieresis/zcaron/IJ/ij/Eng/eng]{dup type/nametype eq{WPen 2 ix 2 ix put p 1 add}{xp}ife}forall p/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 0 def/ry 0 def/rx 0 def/botg 0 def/topg 0 def/bgc 0 def/tgc 0 def/cgc 0 def/extents{fpath 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{p botg gd}{g}ife}ife}{cgc aload p dx3 sub 3 1 roll dx2 sub 3 1 rolldx1 sub 3 1 roll 3 array astore/cgc xdcgc aload p 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 p bgc aload p3 ix 1 ix calcdx/dx3 xd 4 ix 2 ix calcdx/dx2 xd5 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 p c currentrgbcolor 3 array astore/cgc xd}ife}def/lgf{/steps gsteps defry 1 ne{stclr/gf{add}def/top URy LLy sub ry mul LLy add def/lw URy top sub steps .5 sub div def lgfdo}ifstclr/gf{sub}defry 1 ne{/lw top LLy sub steps .5 sub div def}if lgfdo}def/lgfdo{ry 1 ne{/center top def lw 2 div wLLx 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}ifelw w steps 1 sub dup/curstep xd{URx center li s center lw gf/center xdLLx 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 defwidth w stclr/xpos LLx def/ypos URy def/lw width def/lh height defgsteps{xpos lw 2 div add ypos m xpos lw 2 div add yposlh sub li s/lw lw dw sub def/lh lh dl sub def/xpos xpos dx add def/ypos ypos dy sub deflw 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 xdURy 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 defgcx gcy dfc width gcx sub gcy dfcwidth gcx sub height gcy sub dfc gcx height gcy sub dfc}def/rgf{/steps gsteps deffdis/lw dis steps .5 sub div def/radius lw def lw 2 div w stclrmidx lw 2 div sub midy m midx midy radius 2 div 0 361 arc s lw wsteps 1 subdup/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{fpath flattenpath/gsteps xd/grot xd/gtype xd/ry x 100 div def/rx x 100 div defcml 0 eq{gtype 1 eq{x}if/botg xd/topg xd}{gtype 1 eq{6 3 roll}if3 array astore/bgc xd3 array astore/tgc xd}ifesv[]0 sd eoclip gsteps 1 eq{stclr f}{mcm 3 get 0 gt{/grot grot 180 add def}if grot re extentsgsteps 0 eq{csteps}ifccdx gtype 0 eq{lgf}{gtype 1 eq{sgf}{rgf}ife}ife}ife rs}d/csteps{fdis dis 72 div fr mul cs p p dup xreseq{p p/gsteps xres def}{div/gsteps x round cvi dup 1 le{p 2}if def}ife}def/ssf{dup 0 eq{p}{cs 3 ix 3 1 roll ss p p}ife}d/ssa{cs 4 1 roll p 1 ix 4 -1 roll ss p}d/invalidcolortable? true deflevel2 {/PATmp{x dup length 2 add dict copy begin currentdict/Multi known not{/Multi 1 def}ifMulti 1 ne{/UserProc/PaintProc load def/PaintProc{begin 0 1 Multi 1 sub{PaintColors 1 index get PATscPaintData x get gs currentdict UserProc gr}for end}d}if currentdict end x makepattern}d/PATDict 3 dict def/PATsc{mark x aload pcounttomark 1 eq{gd}if counttomark 3 eq{c}ifcleartomark}d/PATsp{PATDict begin/CColor[currentcolor]def/CCSpace currentcolorspace def enddup/PaintType get 2 eq{x dup lengthdup 1 eq{[/Pattern/DeviceGray]setcolorspace}ifdup 3 eq{[/Pattern/DeviceRGB]setcolorspace}if4 eq{[/Pattern/DeviceCMYK]setcolorspace}ifaload length 1 add -1 roll}if setpattern}d/PATusp{PATDict beginCCSpace setcolorspace CColor aload p setcolorend p}d/pdictt 20 dict defpdictt 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 cpPaintColors 0 get aload p null ne{f}if p p}{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 beginx/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/myappcolorspace/DeviceRGB def/rgbclut 0 def/doclutimage{/rgbclut xd p bpc dup 8 eq{p 255}{4 eq{15}{3}ife}ife/hival xd[/Indexed myappcolorspace hival rgbclut]setcolorspacemyimagedict dup begin/Width iw def/Height ih def/Decode[0 hival]def/ImageMatrix[1 0 0 -1 0 ih]def/DataSource setupimageproc def/BitsPerComponent bpc def/Interpolate smoothflag def end image}d/do24image{myappcolorspace setcolorspacemyimagedict dup begin/Width iw def/Height ih def/Decode[0 1 0 1 0 1]def/ImageMatrix[1 0 0 -1 0 ih]def/DataSource setupimageproc def/BitsPerComponent 8 def/Interpolate smoothflag defend image}d/setup1asciiproc{[currentfile mystring/rh cvx/p cvx]cvx bind}d/setup1binaryproc{[currentfile mystring/readstring cvx/p cvx]cvx bind}d/setup2asciiproc{currentfile/ASCII85Decode filter/RunLengthDecode filter}d/setup2binaryproc{currentfile/ASCIIHexDecode filter/RunLengthDecode filter}d/myimagedict 16 dict dup begin/ImageType 1 def/MultipleDataSource false def end def/im_save 0 def/setupimageproc 0 def/polarity 0 def/smoothflag 0 def/mystring 0 def/bpc 0 def/ih 0 def/iw 0 def/beginimage{/im_save sv defdup 2 eq{p/setup2binaryproc}{dup 3 eq{p/setup2asciiproc}{0 eq{/setup1binaryproc}{/setup1asciiproc}ife}ife}ife/setupimageproc x l{[1 0]}{[0 1]}ife/polarity xd/smoothflag xd trsc/mystring x string def/bpc xd/ih xd/iw xd}d/endimage{im_save rs np}d/1bitbwcopyimage{1 g0 0 m 0 1 rl 1 0 rl 0 -1 rl cp fill0 g myimagedict dup begin/Width iw def/Height ih def/Decode polarity def/ImageMatrix[1 0 0 -1 0 ih]def/DataSource setupimageproc def/BitsPerComponent 1 def/Interpolate smoothflag defendimagemask}d/1bitcopyimage{ssc 0 0 m 0 1 rl 1 0 rl 0 -1 rl cp fillssc myimagedict dup begin/Width iw def/Height ih def/Decode polarity def/ImageMatrix[1 0 0 -1 0 ih]def/DataSource setupimageproc def/BitsPerComponent 1 def/Interpolate smoothflag defend imagemask}d/1bitmaskimage{sscmyimagedict dup begin/Width iw def/Height ih def/Decode polarity def/ImageMatrix[1 0 0 -1 0 ih]def/DataSource setupimageproc def/BitsPerComponent 1 def/Interpolate smoothflag defend imagemask}d} iflevel1 {/PATsc{aload length dup 1 eq{p dup null eq{p}{gd}ife}{p c}ife}d/PATtcalc{gs x concat mcm x 2 ne{dup 4 get x dup 5 get xXStep 0 drx XStep div x XStep div x 0 YStep drx YStep div x YStep div x7 -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 def3 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 beginMulti 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 loadend gs false PATredef exec true PATredef grcleartomark}d currentdict end/foo x definefont}d/PATpcalc{PATDict/CurrentPattern get begin gscm sm BBox aload p p p tr pathbboxgr YStep div ceiling 4 1 roll XStep div ceiling 4 1 rollYStep div floor 4 1 roll XStep div floor 4 1 roll2 ix sub cvi abs x 3 ix sub cvi abs x4 2 roll YStep mul x XStep mul x end}d/PATfill{sv 5 1 roll PATDict/CurrentPattern get dup beginsetfont cm sm PaintType 2 eq{PATDict/PColor get PATsc}if3 ix string 0 1 Multi 1 sub{3 ix 3 ix mMulti 1 ne{dup PaintColors x get PATsc}if0 1 7 ix 1 sub{2 ix x 2 ix put}for p3 ix{cup 2 ix show YStep add m}repeat}for5{p}repeat end rs}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}dfalse 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 putfalse charpath/clip load PATdraw cup np m3 ix eq{4 ix 4 ix rm}if 2 copy rm}forallp p p p p cup np m}d/PATDict 3 dict def/PATsp{true PATredef PATDict begin/CurrentPattern xdCurrentPattern/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 defpdictt 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 cpPaintColors 0 get aload p null ne{f}if p p}{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 beginx/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/snl{{/noload sv def}if}d/enl{{noload rs}if}d/nc 1 def/colorimage where{p true}{false}ife{/nc 0statusdict begin/processcolors where{p p processcolors}{/deviceinfo where{p deviceinfo/Colors known{p{deviceinfo/Colors get}}if}if}ife end defnc 0 ne{systemdict/colorimage knownsystemdict/setcolortransfer knownsystemdict/currentcolortransfer knownsystemdict/currentcmykcolor knownand and and not{/nc 0 def}if}if}ifnc dup 1 ne x dup 3 ne x 4 ne and and{/nc 0 def}ifnc 1 eq dup dup not snl{/expandbw{expandfactor mul round cvi bwclut x get 255 div}d/doclutimage{p/bwclut xd bpc dup 8 eq{p 255}{4 eq{15}{3}ife}ife/expandfactor xd[/expandbw load/exec load dup currenttransfer x]cvx bind settransferiw ih bpc[1 0 0 -1 0 ih]setupimageprocimage}d}ifnot enlnc dup 3 eq x 4 eq ordup dup not snl{/nullproc{{}}def/concatutil{/exec load 7 -1 roll/exec load}d/defsubclut{1 add getinterval def}d/spconcattransfer{/Dclut x def/Cclut x def/Bclut x def/Aclut x def/ncompute x lcurrentcolortransfer[{Aclut ncompute}concatutil]cvx[{Bclut ncompute}concatutil]cvx[{Cclut ncompute}concatutil]cvx[{Dclut ncompute}concatutil]cvxsetcolortransfer}d/setuprgbcluts{/bit3x rgbclut length 3 sub def/bit1x bit3x 3 idiv def/rclut rgbclut def/gclut rclut 1 bit3x defsubclut/bclut rclut 2 bit3x defsubclut}d}if not enlnc 3 eq dup dup not snl{/3compute{x bit3x mul round cvi get 255 div}d/doclutimage{/rgbclut xd p setuprgbcluts/3compute rclut gclut bclut dupspconcattransfer iw ih bpc[1 0 0 -1 0 ih][setupimageproc/exec load/dup load dup]cvxnullproc nullproc true 3 colorimage}d}if not enlnc 4 eqdup dup not snl{/stuffclut{cmykindex 3 -1 roll put}d/ftoint{1 x sub 255 mul round cvi}d/4compute{x bit4x mul round cvi get 255 div}d/computecmykclut{setuprgbcluts/bit4x rgbclut length 3 idiv 4 mul 4 sub def/cmykclut bit4x 4 add string def/cclut cmykclut def/mclut cclut 1 bit4x defsubclut/yclut cclut 2 bit4x defsubclut/kclut cclut 3 bit4x defsubclut/cmykindex 0 def0 1 bit1x{dup/cmykindex xbit1x x sub 4 mul def 3 mul dup rclut x get 255 divx dup gclut x get 255 div x bclut x get 255 divsetrgbcolor currentcmykcolor ftoint kclut stuffclutftoint yclut stuffclut ftoint mclut stuffclutftoint cclut stuffclut}for}d/doclutimage{/rgbclut xd p invalidcolortable?{computecmykclut}if/4compute cclut mclut yclut kclut spconcattransferiw ih bpc[1 0 0 -1 0 ih][setupimageproc/exec load/dup load dup dup]cvxnullproc nullproc nullproc true 4 colorimage}d}if not enlnc 0 eq dup dup not
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -