📄 discrete.ps
字号:
%!PS-Adobe-2.0 EPSF-2.0%%Title: /u/user/loos/DemoGNG/tex/eps/Discrete.ps%%Creator: XV Version 3.10a Rev: 12/29/94 - by John Bradley%%BoundingBox: 35 188 560 653%%Pages: 1%%DocumentFonts:%%EndComments%%EndProlog%%Page: 1 1% remember original state/origstate save def% build a temporary dictionary20 dict begin% define space for color conversions/grays 350 string def % space for gray scale line/npixls 0 def/rgbindx 0 def% lower left corner35 188 translate% size of image (on paper, in 1/72inch coords)525.02400 464.97600 scale% define 'colorimage' if it isn't defined% ('colortogray' and 'mergeprocs' come from xwd2ps% via xgrab)/colorimage where % do we know about 'colorimage'? { pop } % yes: pop off the 'dict' returned { % no: define one /colortogray { % define an RGB->I function /rgbdata exch store % call input 'rgbdata' rgbdata length 3 idiv /npixls exch store /rgbindx 0 store 0 1 npixls 1 sub { grays exch rgbdata rgbindx get 20 mul % Red rgbdata rgbindx 1 add get 32 mul % Green rgbdata rgbindx 2 add get 12 mul % Blue add add 64 idiv % I = .5G + .31R + .18B put /rgbindx rgbindx 3 add store } for grays 0 npixls getinterval } bind def % Utility procedure for colorimage operator. % This procedure takes two procedures off the % stack and merges them into a single procedure. /mergeprocs { % def dup length 3 -1 roll dup length dup 5 1 roll 3 -1 roll add array cvx dup 3 -1 roll 0 exch putinterval dup 4 2 roll putinterval } bind def /colorimage { % def pop pop % remove 'false 3' operands {colortogray} mergeprocs image } bind def } ifelse % end of 'false' case% define the colormap/cmap 9 string def% load up the colormapcurrentfile cmap readhexstring000000 ffffff cbcbff pop pop % lose return values from readhexstring% rlecmapimage expects to have 'w h bits matrix' on stack/rlecmapimage { /buffer 1 string def /rgbval 3 string def /block 384 string def % proc to read a block from file, and return RGB data { currentfile buffer readhexstring pop /bcount exch 0 get store bcount 128 ge { % it's a non-run block 0 1 bcount 128 sub { currentfile buffer readhexstring pop pop % look up value in color map /rgbval cmap buffer 0 get 3 mul 3 getinterval store % and put it in position i*3 in block block exch 3 mul rgbval putinterval } for block 0 bcount 127 sub 3 mul getinterval } { % else it's a run block currentfile buffer readhexstring pop pop % look up value in colormap /rgbval cmap buffer 0 get 3 mul 3 getinterval store 0 1 bcount { block exch 3 mul rgbval putinterval } for block 0 bcount 1 add 3 mul getinterval } ifelse } % end of proc false 3 colorimage} bind def350 310 8 % dimensions of data[350 0 0 -310 0 310] % mapping matrixrlecmapimage7f017f015d017f017f015d017f017f015d017f017f015d017f017f015d017f017f015d017f017f015d017f017f015d017f017f015d017f017f010f0102004a017f017f010f01840002000100010046017f017f010f01020084010002000145017f017f011301020046017f017f015d017f017f015d017f017f011001020049017f017b0102001101830002000148017f017b0183000200010f01030049017f017b0102001001830002000149017f017f01060102000501020002010200030102003d017f017f01060183000200010a01830002000102018200020002003a017f017f01060102000b01050081010002008202000139017f017f010e0102008101000100020183000200010201050037017f017f010d010500830200010003000601830002000136017f017f010d010200810200040081020001000601020037017f017f010801020001010400830100020002008202000140017f017f0108018400020001000d0041017f017f01080102008901000200010002000200850002000200010501020038017f017f010c01020081010008000601830002000137017f017f010d010200810100010001010100820200010501020038017f017f010d018600020001000200010081010001004201660102007f011b0102000401060082020001090102003801660183000200017f011a018300020001030103000101020001010200050183000200013701660102007f011b0102008101000100830100020081000103010200820200010401020038017f017f01090182000200030001010400810200010041017f017f01090103008102008100018101000100810200010043015d01020009010200050102007f0115010300010182000200010045015d0183000200010801830002000104018300020001030102007f011301030046015d0102000901020005010300030183000200017f0113010200460174018300020001020102007f015e01740102007f0165017f017f011f0102003a016e010200010102007f012801830002000139015b0102000e010600820200017f01270102003a015b01830002000102010200070182000200010081020001007f0166015b010200030183000200010601060002010200380102007f01260158010200050103000601020084010002000102018300020001370183000200017f01250158018300020001040184000200010001000301840002000100010003010200380102007f0126015801020005010200840100020001010103007f016d016501020002018400020001000200030102007f0162016b010200830100020081000102018300020001080102007f015501690102000201030001010400090183000200017f01540169018300020001020183000200018401000200010a0102007f0155016901020003010700110102000c01020081010001007f013b016901020005018300020001130183000200010901020086020001000200017f013a01600102000501830002000104010400120102000a0182000200010081010001007f013b016001830002000104010200010102000201830002000105010200160103000e0102007f012e015f0103000a018300020001010102000101020001018300020001160183000200010d018300020001150102007f0114015f01820002000100040102000101020005010200820200018101000100170102000e010200020103000f0183000200017f0113015f0102008202000103018300020001090182000200010034010100820200010e0102007f011401610104000201020005010700360103007f01270163018300020001050102000101820002008300020001330102007f012c016301020004010200820200018101000400050102002b018200020002007f0129016401020003018200020001000201840002000100010001010200820200012a010300820200010b0102007f0119016401830002000102010200040102008401000200018301000200010019010200100103000c0183000200017f011801640102000f010200010102000e01020009018200020001000e0102000501020004010200010102007f0114017a0102001001830002000108010200810200010015018300020001080183000200017f011301650102001101830002000109010200020103000a0102008202000114010200090102007f01140165010300100102000a0183000200010201830002000103010200020182000200010001010500130102007f011b0165010100820200011d0102000301020004018300020001010102000301030082020001120183000200017f011a0160010200020102000401020025010200060104008102000100020102000d0102007f011b0160018200020001000801830002000111010200060102000f018400020001000100040183000200017f012b016001020082020001070104001001830002000105018300020001020102000301070008010200060102007f012201620102000a01830002000106010200050102000601020003018300020001020103008402000200011101830002000181010001007f011d01600102000c010200070183000200011001020001010300020182000200040012010200010183000200017f011c0160018300020001160102001101830002000101018300020001010102001701020001010200030102007f01160160010200080102002001020081010003000e0102000b018300020001070183000200017f0115016c0183000200012301830002000105010200060102000b010200080102007f0116014b0102001d010200240102000601830002000105018300020001070102000f010200060102007f0108014b0183000200014e01020006010200080183000200010401020006018300020001050183000200017f0107014b010200520102008101000200820200010401050005018300020001010102008101000100060102007f0108017f0110010200050102000401860002000100020002000501830002000107010200020183000200017f0115017f011001830002000104018200020001000201020081010001000801020081010001000a010200010102007f0111017f01100102000501020082020001150183000200010e0183000200017f0110017f011b0102001601020004010200030102008101000100070102007f010601630102004e0183000200010101090082020001060102008401000200017f01050163018300020001310102001801020002018200020082000200820002000200070106007f010601630102002b0102000301830002000102010200070102000c0108000a010200820200017f0107017f01120183000200010201020003018300020001060183000200010c0102000101830002000102010200040103007f0108017f01120102000501020001010200070102000c010200020102008101000200820200017f0110017f011b018300020001190102008202000105018200020002007f0111017f01080102000f010200050102000d0102008301000200010006010200040102007f010c017f0108018300020001170183000200010c0184000200010001000301020001010200040183000200017f010b017f0108010200180102000d01020081010001008101000200820200018401000200010301⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -