📄 circle.ps
字号:
%!PS-Adobe-2.0 EPSF-2.0%%Title: /u/user/loos/DemoGNG/tex/eps/Circle.ps%%Creator: XV Version 3.10a Rev: 12/29/94 - by John Bradley%%BoundingBox: 36 213 560 629%%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 253 string def % space for gray scale line/npixls 0 def/rgbindx 0 def% lower left corner36 213 translate% size of image (on paper, in 1/72inch coords)523.72800 416.08800 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 6 string def% load up the colormapcurrentfile cmap readhexstringffffff 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 def253 201 8 % dimensions of data[253 0 0 -201 0 201] % mapping matrixrlecmapimage7f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f0002008101007700760018016c007000230167006d002a016300690032015f00660038015c0064003c015a006100420157005f00460155005d004a0153005b004e015100590052014f00580054014e00560058014c0055005a014b0053005e0149005200600148005100620147004f00660145004e00680144004d006a0143004c006c0142004b006e0141004a0070014000490072013f00480074013e00470076013d00460078013c0045007a013b0044007c013a0043007e01390042007f01810100370042007f01810100370041007f010201370040007f01040136003f007f01060135003f007f01060135003e007f01080134003d007f010a0133003d007f010a0133003c007f010c0132003b007f010e0131003b007f010e0131003a007f01100130003a007f011001300039007f0112012f0039007f0112012f0038007f0114012e0038007f0114012e0037007f0116012d0037007f0116012d0037007f0116012d0036007f0118012c0036007f0118012c0035007f011a012b0035007f011a012b0035007f011a012b0034007f011c012a0034007f011c012a0034007f011c012a0034007f011c012a0033007f011e01290033007f011e01290033007f011e01290032007f011f01290032007f012001280032007f012001280032007f012001280032007f012001280032007f012001280031007f012201270031007f012201270031007f012201270031007f012201270031007f012201270031007f012201270031007f012201270031007f012201270031007f012201270031007f012201270031007f012201270031007f012201270030007f012301270031007f012201270031007f012201270031007f012201270031007f012201270031007f012201270031007f012201270031007f012201270031007f012201270031007f012201270031007f012201270031007f012201270031007f012201270032007f012001280032007f012001280032007f012001280032007f012001280032007f012001280032007f011f01290033007f011e01290033007f011e01290033007f011e01290034007f011c012a0034007f011c012a0034007f011c012a0034007f011c012a0035007f011a012b0035007f011a012b0035007f011a012b0036007f0118012c0036007f0118012c0037007f0116012d0037007f0116012d0037007f0116012d0038007f0114012e0038007f0114012e0039007f0112012f0039007f0112012f003a007f01100130003a007f01100130003b007f010e0131003b007f010e0131003c007f010c0132003d007f010a0133003d007f010a0133003e007f01080134003f007f01060135003f007f010601350040007f010401360041007f010201370042007f01810100370042007f01810100370043007e01390044007c013a0045007a013b00460078013c00470076013d00480074013e00490072013f004a00700140004b006e0141004c006c0142004d006a0143004e00680144004f006601450051006201470052006001480053005e01490055005a014b00560058014c00580054014e00590052014f005b004e0151005d004a0153005f004601550061004201570064003c015a00660038015c00690032015f006d002a016300700023016700760018016c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c007f007c00%% Compression made this file 0.88% of the uncompressed size.%showpage% stop using temporary dictionaryend% restore original stateorigstate restore%%Trailer⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -