📄 hilodensity.ps
字号:
%!PS-Adobe-2.0 EPSF-2.0%%Title: /u/user/loos/DemoGNG/tex/eps/HiLoDensity.ps%%Creator: XV Version 3.10a Rev: 12/29/94 - by John Bradley%%BoundingBox: 37 290 558 551%%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 573 string def % space for gray scale line/npixls 0 def/rgbindx 0 def% lower left corner37 290 translate% size of image (on paper, in 1/72inch coords)521.42400 261.14400 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 readhexstringffffff 9e9eff 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 def573 287 8 % dimensions of data[573 0 0 -287 0 287] % mapping matrixrlecmapimage7f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219002a0047017f000f007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f0002007f027f021f0219007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c007f007f007f007f003c00%% Compression made this file 0.80% of the uncompressed size.%showpage% stop using temporary dictionaryend% restore original stateorigstate restore%%Trailer⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -