%!PS-Adobe- %%BoundingBox: 0 0 767 575 % The Human Interface tools program generates a postscript % description of your picture using attributes specified in the % Postscript Printer panel. % These attibutes are: scaling, rotation, whether polygons and % rectangles are described as hollow or filled, and, when the target % printer is black and white, whether objects should be drawn in % black or gray shades % If the device specified in the printer_configuration file is a color % device, the outlines are painted in colors. /q{bind def}bind def /A{setrgbcolor}q /rgb_bg {0 0 0 A}q /rgb_fg {0 0 0 A}q /rgb_bl {0 0 0 A}q /rgb_gr {0 0 0 A}q /rgb_rd { 0 0 0 A}q /rgb_ye {0 0 0 A}q /rgb_pr {0 0 0 A}q /rgb_gy {0 0 0 A}q /definepattern{ 10 dict begin /FontDict 9 dict def FontDict begin /cache exch def /key exch def /proc exch cvx def /mtx exch matrix invertmatrix def /height exch def /width exch def /ctm matrix currentmatrix def /ptm matrix identmatrix def /str (1234567890123456789012345678901234567890123456789) def end /FontBBox [ %def 0 0 FontDict /width get FontDict /height get ] def /FontMatrix FontDict /mtx get def /Encoding StandardEncoding def /FontType 3 def /BuildChar { %def pop begin FontDict begin width 0 cache { %ifelse 0 0 width height setcachedevice }{ %else setcharwidth } ifelse 0 0 moveto width 0 lineto width height lineto 0 height lineto closepath clip newpath gsave proc grestore end end } def FontDict /key get currentdict definefont end } bind def % dict patternpath - % dict matrix patternpath - /patternpath { %def dup type /dicttype eq {%ifelse begin FontDict /ctm get setmatrix }{ %else exch begin FontDict /ctm get setmatrix concat } ifelse currentdict setfont FontDict begin FontMatrix concat width 0 dtransform round width div exch round width div exch 0 height dtransform round height div exch round height div exch 0 0 transform round exch round exch ptm astore setmatrix pathbbox height div ceiling height mul 4 1 roll width div ceiling width mul 4 1 roll height div floor height mul 4 1 roll width div floor width mul 4 1 roll 2 index sub height div ceiling cvi exch 3 index sub width div ceiling cvi exch 4 2 roll moveto FontMatrix ptm invertmatrix pop { %repeat gsave ptm concat dup str length idiv { %repeat str show } repeat dup str length mod str exch 0 exch getinterval show grestore 0 height rmoveto } repeat pop end end } bind def % dict patternfill - %dict matrix patternfill - /patternfill {%def gsave clip patternpath grestore newpath }bind def 15 15 [300 30 div 0 0 300 30 div 0 0] { %definepattern newpath 2 setlinecap 7.5 7.5 1.5 0 360 arc 1.000000 setlinewidth stroke } bind /pattern0 true definepattern pop 15 15 [300 30 div 0 0 300 30 div 0 0] { %definepattern newpath 2 setlinecap 7.5 7.5 1.5 0 360 arc 1 setlinewidth stroke } bind /default_pattern true definepattern pop 15 15 [300 30 div 0 0 300 30 div 0 0] { %definepattern 2 setlinecap 7.5 0 moveto 15 7.5 lineto 0 7.5 moveto 7.5 15 lineto 1.000000 setlinewidth stroke } bind /pattern1 true definepattern pop 15 15 [300 30 div 0 0 300 30 div 0 0] { %definepattern 2 setlinecap 7.5 0 moveto 0 7.5 lineto 15 7.5 moveto 7.5 15 lineto 1.000000 setlinewidth stroke } bind /pattern2 true definepattern pop 15 15 [300 30 div 0 0 300 30 div 0 0] { %definepattern newpath 2 setlinecap 0 15 moveto 12 -7.5 rlineto -12 -7.5 rlineto 1.000000 setlinewidth stroke } bind /pattern3 true definepattern pop 15 15 [300 30 div 0 0 300 30 div 0 0] { %definepattern 2 setlinecap 15 0 moveto 0 0 lineto 1.000000 setlinewidth stroke } bind /pattern4 true definepattern pop 15 15 [300 30 div 0 0 300 30 div 0 0] { %definepattern 2 setlinecap 7.5 15 moveto 7.5 0 lineto 1.000000 setlinewidth stroke } bind /pattern5 true definepattern pop 15 15 [300 30 div 0 0 300 30 div 0 0] { %definepattern 2 setlinecap 7.5 7.5 7.5 0 180 arc 1.000000 setlinewidth stroke } bind /pattern6 true definepattern pop /stipple_B { %def 0 setlinewidth gsave moveto lineto lineto lineto closepath stroke moveto lineto lineto lineto closepath findfont % a pattern font patternfill grestore } bind def /black_B { %def 0 setlinewidth gsave moveto lineto lineto lineto closepath 0 0 0 setrgbcolor fill stroke pop pop pop pop pop pop pop pop pop grestore } bind def /hollow_B { %def 0 setlinewidth gsave moveto lineto lineto lineto closepath 0 0 0 setrgbcolor stroke pop pop pop pop pop pop pop pop pop grestore } bind def /white_B { %def 0 setlinewidth gsave moveto lineto lineto lineto closepath 1 1 1 setrgbcolor fill stroke pop pop pop pop pop pop pop pop pop grestore } bind def /stipple_R { %def 0 setlinewidth gsave moveto lineto lineto lineto closepath stroke moveto lineto lineto lineto closepath findfont % a pattern font patternfill grestore } bind def /black_R { %def 0 setlinewidth gsave moveto lineto lineto lineto closepath 0 0 0 setrgbcolor fill stroke pop pop pop pop pop pop pop pop pop grestore } bind def /white_R { %def 0 setlinewidth gsave moveto lineto lineto lineto closepath 1 1 1 setrgbcolor fill stroke pop pop pop pop pop pop pop pop pop grestore } bind def /D{setdash}q /O {[] 0 D}q /o1 {[2 2] 0 D} q /o2 {[1 5 7 3] 0 D} q /o3 {[1 3 2 3 7 ] 0 D} q /o4 {[1 2 2 2 2 2 5] 0 D} q /o5 {[1 2 13] 0 D} q /o6 {[1 7 ] 0 D} q /_l {lineto} q /_m {moveto} q /c {arc closepath stroke}q /makepath { /ptarr exch def newpath ptarr 0 get ptarr 1 get moveto 2 2 ptarr length 1 sub { /idx exch def ptarr idx get ptarr idx 1 add get lineto } for }def /G {/yarr exch def /xarr exch def 0 1 xarr length 1 sub { xarr exch get /x exch def 0 1 yarr length 1 sub { yarr exch get /y exch def x y P } for }for }q /L { newpath moveto lineto stroke }q /M { makepath stroke }q % % Rectangle and polygon definitions % --------------------------------- % % /trans { 3 -1 roll dup 4 1 roll add 3 1 roll add exch itransform } q /setrect { /Y2 exch def /X2 exch def /Y1 exch def /X1 exch def X1 Y1 X1 Y2 X2 Y2 X2 Y1 }q /T { 3 copy transform trans setrect R pop }q /trans1 { 3 -1 roll add 3 1 roll add exch itransform } q /C { makepath closepath stroke }q /P {moveto 1 1 rlineto stroke} q % 0 0 moveto 0 h _l w h _l w 0 _l closepath clip newpath /clipbox {/y2 exch def /x2 exch def /y1 exch def /x1 exch def newpath x1 y1 moveto x1 y2 _l x2 y2 _l x2 y1 _l closepath clip } q 18 3 translate 0 0 translate 0.9800000 0.9800000 scale 757 -33 translate 90 rotate 0 setlinewidth /bg 40 750 40 93 1132 93 1132 750 40 750 40 93 1132 93 1132 750 white_R rgb_fg 249 395 567 395 L 198 395 223 420 L 223 420 274 420 L 274 420 299 395 L 299 395 274 369 L 274 369 223 369 L 223 369 198 394 L 516 395 541 420 L 541 420 592 420 L 592 420 618 395 L 618 395 592 369 L 592 369 541 369 L 541 369 516 394 L 0 0 0 setrgbcolor /Courier findfont 45 scalefont setfont 662 390 moveto (out1) show 0 0 0 setrgbcolor /Courier findfont 45 scalefont setfont 58 390 moveto (out0) show 0 0 0 setrgbcolor /Courier findfont 45 scalefont setfont 217 518 moveto (Encode2b_tile) show /bg 58 365 58 363 60 363 60 365 58 365 58 363 60 363 60 365 white_B /bg 58 366 58 363 61 363 61 366 58 366 58 363 61 363 61 366 white_B /bg 58 367 58 363 62 363 62 367 58 367 58 363 62 363 62 367 white_B 57 369 57 357 L 58 369 58 357 L 59 369 59 357 L 52 364 64 364 L 52 363 64 363 L 52 362 64 362 L rgb_fg 52 363 64 363 L 58 369 58 357 L /fg 58 366 58 363 61 363 61 366 58 366 58 363 61 363 61 366 black_B showpage