redemo.ps

算法源代码比较经典

snl{/las{3 mul 3 getinterval putinterval x
3 add x 3 copy}d/8lookup/las l/4lookup{/byte 1 ix def -4 bitshift
las byte 15 and las}d
/2lookup{/byte 1 ix def -6 bitshift las
byte -4 bitshift 3 and las byte -2 bitshift
3 and las byte 3 and las}d/colorexpand{mystringexp 0 rgbclut
3 copy 7 -1 roll/mylookup load forall p p p p p}d
/createexpandstr{/mystringexp x mystring length mul string def}d
/doclutimage{/rgbclut xd p/mylookup bpc 8 eq
{3 createexpandstr/8lookup}{bpc 4 eq{6 createexpandstr/4lookup}{12 createexpandstr
/2lookup}ife}ife l iw ih bpc[1 0 0 -1 0 ih]
[setupimageproc/exec load/colorexpand load/exec load]cvx
false 3 colorimage}d}if not enl
/colorimage where{p true}{false}ife dup{/do24image{iw ih 8[1 0 0 -1 0 ih]
setupimageproc false 3 colorimage}d}if
dup dup snl not{/rgbtogray{/str xd/len str length def/smlen len 3 idiv def
/rstr str def/gstr str 1 len 1 sub getinterval def/bstr str 2 len 2 sub getinterval def
str dup 0 1 smlen 1 sub{dup 3 mul rstr 1 ix get .3 mul
gstr 2 ix get .59 mul add bstr 3 -1 roll get .11 mul add
round cvi put dup}for p 0 smlen getinterval}d/do24image{iw ih 8[1 0 0 -1 0 ih]
[setupimageproc/exec load/rgbtogray load/exec load]cvx bind
image}d}if enl/doimage{iw ih 8[1 0 0 -1 0 ih]setupimageproc image}d
/setup1asciiproc{[currentfile mystring/rh cvx/p cvx]cvx bind}d
/setup1binaryproc{[currentfile mystring/readstring cvx/p cvx]cvx bind}d
/iw 0 def/ih 0 def/im_save 0 def/setupimageproc 0 def/polarity 0 def
/smoothflag 0 def/mystring 0 def/bpc 0 def/beginimage{/im_save sv def dup 0 eq
{p/setup1binaryproc}{1 eq{/setup1asciiproc}
{(error, can't use level2 data acquisition procs for level1)print flush}ife}ife
/setupimageproc x l/polarity xd/smoothflag xd tr sc/mystring x string def/bpc xd/ih xd/iw xd}d
/endimage{im_save rs np}d/1bitbwcopyimage{1 g 0 0 m 0 1 rl 1 0 rl 0 -1 rl cp fill
0 g iw ih polarity[1 0 0 -1 0 ih]setupimageproc imagemask}d/1bitcopyimage{setrgbcolor
0 0 m 0 1 rl 1 0 rl 0 -1 rl cp fill
setrgbcolor iw ih polarity[1 0 0 -1 0 ih]setupimageproc
imagemask}d/1bitmaskimage{setrgbcolor
iw ih polarity[1 0 0 -1 0 ih]setupimageproc
imagemask}d
} if
/BeginEPSF{end
userdict begin/showpage{}def
/b4 sv def/d_cnt countdictstack def/op_cnt count 1 sub def
0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin
10 setmiterlimit[]0 setdash newpath/languagelevel where{p languagelevel 1 ne
{false setstrokeadjust false setoverprint}if}if}d
end
userdict begin/EndEPSF{count op_cnt sub{pop}repeat
countdictstack d_cnt sub{end}repeat b4 end restore wpdict begin}bind def end
%%EndProlog
  /wb {wpdict begin} def
wb
/cml 1 def
/we {icl end} d
we
userdict /SVDoc known {/SVDoc save def matrix astore setmatrix}if
/winmtx matrix currentmatrix def

%%BeginResource: font MSTT31c420
/GreNewFont{10 dict dup 3 1 roll def dup begin 6 1 roll/FontType 3
def/FontMatrix exch def/FontBBox exch def/FontInfo 2 dict def FontInfo
/UnderlinePosition 3 -1 roll put FontInfo/UnderlineThickness 3 -1
roll put/Encoding 256 array def 0 1 255{Encoding exch/.notdef put}for
/CharProcs 256 dict def CharProcs/.notdef{}put/Metrics 256 dict def
Metrics/.notdef 3 -1 roll put/BuildChar{/char exch def/fontdict exch
def/charname fontdict/Encoding get char get def fontdict/Metrics get
charname get aload pop setcachedevice fontdict begin Encoding char
get CharProcs exch get end exec}def end definefont pop}def/AddChar{begin
Encoding 3 1 roll put CharProcs 3 1 roll put Metrics 3 1 roll put end}def
/MSTT31c420 [75.0 0 0 0 0 0] 93 -104 [-75.0 -75.0 75.0 75.0] [1 75 div 0 0 1 75 div 0 0] /MSTT31c420 GreNewFont
%%EndResource

32 0 0 75 75 0 0 1 69 /MSTT31c420 font

%%BeginResource: font MSTT31c420
/G52 [54.0 0.0 1.0 0.0 54.0 50.0]
/G52 {
    53 50 true [1 0 0 -1 -1.0 50.0] {<ffffffff8000000ffffffff8000003fffffffe000001ffe01fff800001ffe003ffc00001ffe001ff
e00001ffe000fff00001ffe0007ff80001ffe0007ff80001ffe0007ff80001ffe0003ffc0001ffe0
003ffc0001ffe0003ffc0001ffe0003ffc0001ffe0003ffc0001ffe0003ffc0001ffe0003ffc0001
ffe0003ff80001ffe0007ff80001ffe0007ff00001ffe000fff00001ffe001ffe00001ffe003ffc0
0001ffe01fff800001fffffffe000001fffffff0000001fffffff0000001ffe1fff8000001ffe1ff
fc000001ffe0fffc000001ffe07ffe000001ffe07fff000001ffe03fff000001ffe01fff800001ff
e01fffc00001ffe00fffc00001ffe007ffe00001ffe007fff00001ffe003fff80001ffe001fff800
01ffe000fffc0001ffe000fffe0001ffe0007ffe0001ffe0003fff0001ffe0003fff8001ffe0001f
ff8003fff0000fffc003fff0000fffe00ffffc0007fff8ffffffc003fff8>} imagemask 
  }
  82 /G52 MSTT31c420 AddChar
/G45 [50.0 0.0 2.0 0.0 47.0 50.0]
/G45 {
    45 50 true [1 0 0 -1 -2.0 50.0] {<ffffffffff800fffffffff8003ffffffff8003ffe003ff8001ffe0007f8001ffe0001f8001ffe000
0f8001ffe000078001ffe000038001ffe000038001ffe000018001ffe004018001ffe004018001ff
e004008001ffe00c008001ffe00c000001ffe00c000001ffe00c000001ffe01c000001ffe01c0000
01ffe03c000001ffe07c000001ffe1fc000001fffffc000001fffffc000001fffffc000001ffe1fc
000001ffe07c000001ffe03c000001ffe01c000001ffe01c000001ffe00c000001ffe00c000001ff
e00c000001ffe00c001801ffe004001801ffe004001801ffe004003801ffe000003001ffe0000070
01ffe000007001ffe00000f001ffe00001f001ffe00003f001ffe00007f001fff0001fe003fff800
ffe003ffffffffe00fffffffffe0ffffffffffe0>} imagemask 
  }
  69 /G45 MSTT31c420 AddChar
/G44 [54.0 0.0 1.0 0.0 51.0 50.0]
/G44 {
    50 50 true [1 0 0 -1 -1.0 50.0] {<fffffff80000000fffffffc0000003fffffff8000003ffe03ffe000001ffe007ff000001ffe003ff
c00001ffe001ffe00001ffe000fff00001ffe0007ff80001ffe0003ff80001ffe0003ffc0001ffe0
001ffe0001ffe0001ffe0001ffe0001fff0001ffe0000fff0001ffe0000fff0001ffe0000fff8001
ffe0000fff8001ffe00007ff8001ffe00007ff8001ffe00007ffc001ffe00007ffc001ffe00007ff
c001ffe00007ffc001ffe00007ffc001ffe00007ffc001ffe00007ffc001ffe00007ffc001ffe000
07ffc001ffe00007ffc001ffe00007ffc001ffe00007ff8001ffe0000fff8001ffe0000fff8001ff
e0000fff0001ffe0000fff0001ffe0000fff0001ffe0001ffe0001ffe0001ffe0001ffe0001ffc00
01ffe0003ff80001ffe0003ff80001ffe0007ff00001ffe000ffe00001ffe001ff800001ffe007ff
000003fff01ffc000003fffffff000000fffffffc00000fffffffc000000>} imagemask 
  }
  68 /G44 MSTT31c420 AddChar
/G4d [72.0 0.0 2.0 0.0 70.0 50.0]
/G4d {
    68 50 true [1 0 0 -1 -2.0 50.0] {<fffff8000000fffff00ffff8000001ffff0003fffc000001fffc0003fffc000003fffc0001fffe00
0003fff80001fffe0000037ff80001dfff0000077ff80001dfff0000077ff80001dfff00000e7ff8
0001cfff80000e7ff80001cfff80000c7ff80001c7ffc0001c7ff80001c7ffc0001c7ff80001c3ff
e000387ff80001c3ffe000387ff80001c3ffe000307ff80001c1fff000707ff80001c1fff000707f
f80001c0fff800e07ff80001c0fff800e07ff80001c07ffc01c07ff80001c07ffc01c07ff80001c0
7ffc01c07ff80001c03ffe03807ff80001c03ffe03807ff80001c01fff07007ff80001c01fff0700
7ff80001c00fff86007ff80001c00fff8e007ff80001c00fff8e007ff80001c007ffdc007ff80001
c007ffdc007ff80001c003fff8007ff80001c003fff8007ff80001c001fff8007ff80001c001fff0
007ff80001c001fff0007ff80001c000ffe0007ff80001c000ffe0007ff80001c0007fe0007ff800
01c0007fc0007ff80001c0003fc0007ff80001c0003f80007ff80001c0003f80007ff80001c0001f
80007ff80003c0001f00007ff80003e0000f0000fffc0007f0000e0000fffc001ffc00060003ffff
00ffff8004003ffffff0>} imagemask 
  }
  77 /G4d MSTT31c420 AddChar
/G4f [58.0 0.0 3.0 -1.0 55.0 51.0]
/G4f {
    52 52 true [1 0 0 -1 -3.0 51.0] {<00001fff0000000000fffff000000003fffffe0000000ffe03ff0000003ff800ffc000007fe0007f
e00000ffc0003ff00001ff80001ff80003ff80000ffc0007ff00000ffe0007ff000007ff000ffe00
0007ff001ffe000007ff801ffc000003ff803ffc000003ffc03ffc000003ffc07ffc000003ffe07f
fc000003ffe07ff8000001ffe07ff8000001ffe0fff8000001fff0fff8000001fff0fff8000001ff
f0fff8000001fff0fff8000001fff0fff8000001fff0fff8000001fff0fff8000001fff0fff80000
01fff0fff8000001fff0fff8000001fff07ff8000001ffe07ff8000001ffe07ff8000001ffe07ffc
000003ffe03ffc000003ffc03ffc000003ffc03ffc000003ff801ffc000003ff801ffe000007ff00
0ffe000007ff0007ff000007fe0007ff00000ffc0003ff80001ffc0001ff80001ff80000ffc0003f
f000007fe0007fe000001ff000ff8000000ffe03ff00000003fffffc000000007ffff0000000000f
ff000000>} imagemask 
  }
  79 /G4f MSTT31c420 AddChar
%%EndResource

0 0 0 fC
1011 243 338 (REDEMO) 338 SB
0 0 0 fC
/fm 256 def
337 2 1011 315 B
1 F
n

%%BeginResource: font MSTT31c420
/G65 [33.0 0.0 3.0 -1.0 31.0 35.0]
/G65 {
    28 36 true [1 0 0 -1 -3.0 35.0] {<000fc000007ff80001fffc0003f8fe0007f07f000fe07f801fe07fc01fe03fc03fc03fc03fc03fe0
7fc03fe07fc03fe07fc03ff0ffc03ff0fffffff0fffffff0fffffff0ffc00000ffc00000ffc00000
ffc00000ffe00000ffe00000ffe000007ff000207ff000307ff800603ffc00e03ffe01c01fff83c0
1fffff800fffff0007fffe0003fffc0000fff000003fc000>} imagemask 
  }
  101 /G65 MSTT31c420 AddChar
/G6d [60.0 0.0 3.0 0.0 57.0 35.0]
/G6d {
    54 35 true [1 0 0 -1 -3.0 35.0] {<00000fc001f800fff83ff007fe003ff8fff81fff001ff9fffc3fff801ffbfffe7fffc01fff8ffef1
ffc01ffe07ffe0ffc01ffe03ffc07fe01ffc03ff807fe01ff803ff007fe01ff803ff007fe01ff803
ff007fe01ff803ff007fe01ff803ff007fe01ff803ff007fe01ff803ff007fe01ff803ff007fe01f
f803ff007fe01ff803ff007fe01ff803ff007fe01ff803ff007fe01ff803ff007fe01ff803ff007f
e01ff803ff007fe01ff803ff007fe01ff803ff007fe01ff803ff007fe01ff803ff007fe01ff803ff
007fe01ff803ff007fe01ff803ff007fe01ff803ff007fe01ffc07ff00ffe03ffc07ff81fff0ffff
1fffe3fffc>} imagemask 
  }
  109 /G6d MSTT31c420 AddChar
/G6f [37.0 0.0 3.0 -1.0 34.0 35.0]
/G6f {
    31 36 true [1 0 0 -1 -3.0 35.0] {<001fe000007ffc0001ffff0003f83f8007f01fc00fe00fe01fe00ff01fe00ff03fe007f83fc007f8
7fc007fc7fc007fc7fc007fcffc007feffc007feffc007feffc007feffc007feffc007feffc007fe
ffc007feffc007feffc007fe7fc007fc7fc007fc7fc007fc3fc007f83fc00ff81fe00ff01fe00ff0
0fe00fe007f01fc003f83f8001ffff00007ffc00001ff000>} imagemask 
  }
  111 /G6f MSTT31c420 AddChar
/G6e [41.0 0.0 3.0 0.0 38.0 35.0]
/G6e {
    35 35 true [1 0 0 -1 -3.0 35.0] {<00000fc000fff83ff0003ff8fff8001ff9fffc001ffbfffe001fff8ffe001fff07fe001ffe03ff00
1ffc03ff001ffc03ff001ff803ff001ff803ff001ff803ff001ff803ff001ff803ff001ff803ff00
1ff803ff001ff803ff001ff803ff001ff803ff001ff803ff001ff803ff001ff803ff001ff803ff00
1ff803ff001ff803ff001ff803ff001ff803ff001ff803ff001ff803ff001ff803ff001ff803ff00
1ffc07ff003ffc0fff80ffff1fffe0>} imagemask 
  }
  110 /G6e MSTT31c420 AddChar
/G73 [29.0 0.0 3.0 -1.0 26.0 35.0]
/G73 {
    23 36 true [1 0 0 -1 -3.0 35.0] {<01fc0807ff181ffff83f87f83f01f87e00f87e0078fe0038ff0038ff8018ffc018fff008fff8007f
fe007fff003fff803fffe01ffff00ffff803fff801fffc00fffc003ffe001ffe8007fec003fec001
fee000fef000fcf000fcfc00f8fe01f8ff83f0ffffe0c7ff8080fe00>} imagemask 
  }
  115 /G73 MSTT31c420 AddChar
/G74 [25.0 0.0 1.0 -1.0 24.0 47.0]
/G74 {
    23 48 true [1 0 0 -1 -1.0 47.0] {<000600000600000e00000e00001e00003e00003e00007e0000fe0001fe0003fe0007fe000ffe001f
fffe3ffffefffffefffffe07fe0007fe0007fe0007fe0007fe0007fe0007fe0007fe0007fe0007fe
0007fe0007fe0007fe0007fe0007fe0007fe0007fe0007fe0007fe0007fe0007fe0007fe0007fe00
07fe0207fe0607ff1c03fffc01fff801fff0007fe0001f80>} imagemask 
  }
  116 /G74 MSTT31c420 AddChar
/G61 [37.0 0.0 3.0 -1.0 35.0 35.0]
/G61 {
    32 36 true [1 0 0 -1 -3.0 35.0] {<000ff80000fffe0003ffff0007e0ffc00f807fc01f803fe03f803fe03fc03ff07fe03ff07fe03ff0
7fe03ff07fe03ff03fe03ff03fc03ff00f807ff00001fff00007fff0001fbff0007e3ff001fc3ff0
03f83ff00ff03ff01fe03ff03fe03ff03fc03ff07fc03ff07fc03ff0ffc03ff0ffc07ff0ffe0fff0
fff1bff0ffff3fff7ffe1ffe7ffc1ffc3ff00ff80fc007e0>} imagemask 
  }
  97 /G61 MSTT31c420 AddChar
/G69 [21.0 0.0 3.0 0.0 19.0 51.0]
/G69 {
    16 51 true [1 0 0 -1 -3.0 51.0] {<03c00ff00ff01ff81ff81ff81ff80ff00ff003c00000000000000000000000000000fff83ff81ff8
1ff81ff81ff81ff81ff81ff81ff81ff81ff81ff81ff81ff81ff81ff81ff81ff81ff81ff81ff81ff8
1ff81ff81ff81ff81ff81ff81ff81ff81ff83ffcffff>} imagemask 
  }
  105 /G69 MSTT31c420 AddChar
/G20 [19.0 0.0 0.0 0.0 0.0 0.0]
/G20 {
} 
  32 /G20 MSTT31c420 AddChar
/G50 [46.0 0.0 1.0 0.0 44.0 50.0]
/G50 {
    43 50 true [1 0 0 -1 -1.0 50.0] {<fffffffc00000fffffffc00003fffffff00001ffe07ffc0001ffe01ffe0001ffe00fff0001ffe007
ff8001ffe003ff8001ffe003ffc001ffe001ffc001ffe001ffe001ffe001ffe001ffe001ffe001ff
e001ffe001ffe001ffe001ffe001ffe001ffe001ffe001ffe001ffc001ffe003ffc001ffe003ff80
01ffe007ff8001ffe00fff0001ffe01ffe0001ffe07ffc0001fffffff00001ffffffc00001fffff8
000001ffe000000001ffe000000001ffe000000001ffe000000001ffe000000001ffe000000001ff
e000000001ffe000000001ffe000000001ffe000000001ffe000000001ffe000000001ffe0000000
01ffe000000001ffe000000001ffe000000001ffe000000001ffe000000001ffe000000003fff000
000003fff00000000ffffc000000ffffffc00000>} imagemask 
  }
  80 /G50 MSTT31c420 AddChar
/G72 [33.0 0.0 3.0 0.0 31.0 35.0]
/G72 {
    28 35 true [1 0 0 -1 -3.0 35.0] {<00000780fff81fe03ff83ff03ff87ff01ff8fff01ff9fff01ffbfff01ffb8fe01fff07e01ffe0380
1ffe00001ffc00001ffc00001ffc00001ff800001ff800001ff800001ff800001ff800001ff80000
1ff800001ff800001ff800001ff800001ff800001ff800001ff800001ff800001ff800001ff80000
1ff800001ff800001ff800003ffc0000ffff0000>} imagemask 
  }
  114 /G72 MSTT31c420 AddChar
/G67 [38.0 0.0 3.0 -16.0 36.0 35.0]
/G67 {
    33 51 true [1 0 0 -1 -3.0 35.0] {<003fe0000001ffffff8003ffffff800ff87fff801ff03fff803fe01fe0003fe01ff0007fc00ff800
7fc00ff800ffc00ff800ffc00ffc00ffc00ffc00ffc00ffc00ffc00ffc00ffc00ffc00ffc00ffc00
7fc00ff8007fc00ff8003fe01ff0003fe01ff0001ff03fe00007f87fc00003ffff000000fffc0000
00fff0000003c000000007800000001f000000001f000000003f000000007f800000007fffff8000
7ffffff8007ffffffc007ffffffe003fffffff003fffffff001fffffff800fffffff800fffffff80
3f00007f807c00001f80f800000f80f800000f00f800000f00fc00001e007e00007c003fc003f800
1ffffff00007ffff8000007ff80000>} imagemask 
  }
  103 /G67 MSTT31c420 AddChar
/G66 [25.0 0.0 3.0 0.0 31.0 51.0]
/G66 {
    28 51 true [1 0 0 -1 -3.0 51.0] {<0001fe00000fff80003fffe0007f1fe000fe1ff001fe1ff001fe1ff003fe1ff003fe0fe007fe07c0
07fe000007fe000007fe000007fe000007fe000007fe000007fe0000fffff000fffff000fffff000
fffff00007fe000007fe000007fe000007fe000007fe000007fe000007fe000007fe000007fe0000