tut/004077500630510000012000000000000573603526000124225ustar00ousterstaff00002300000036tut/README010066400630510000012000000027210572664102400133010ustar00ousterstaff00002300000036This directory contains course materials for a Tcl/Tk tutorial that I gave at the USENIX Winter 1995 Conference. The course consists of five talks: over - An overview to introduce the main ideas of Tcl and Tk and show how all the pieces fit together. tcl - An introduction to writing Tcl scripts. This talk doesn't consider Tk or any specific Tcl applications, just the language syntax and built-in commands. tk - A description of how to create user interfaces by writing Tcl scripts that use Tk's facilities in addition to the built-in Tcl commands. tclc - This talk describes how to write new Tcl-based applications in C, using the C interfaces provided by Tcl to create interpreters, execute scripts, and add new commands. For each talk there are three files in this directory: 1. A Postscript file (extension ".ps"). The file is in color so it will generate particularly nice slides on color printers, but it should also print OK on black-and-white Postscript printers. 2. Another Postscript file, with a name that ends in ".2up.ps". This is the same as the first Postscript file except it's in "2-up" format (2 slides per page, reduced in size) and is mostly monochrome rather than color. 3. The PowerPoint source for the talk, in a file with a name ending in ".ppt". There are no restrictions on usage for any of this material. You're welcome to do anything you like with it: give talks, modify them, send them to your friends (and enemies), and so on. tut/tk.2up010077500630510000012000021527700573603522200135040ustar00ousterstaff00002300000036%!PS-Adobe-3.0 %%Creator: Windows PSCRIPT %%Title: PowerPoint - TK.PPT %%BoundingBox: 14 9 597 784 %%DocumentNeededResources: (atend) %%DocumentSuppliedResources: (atend) %%Pages: (atend) %%BeginResource: procset Win35Dict 3 1 /Win35Dict 290 dict def Win35Dict begin/bd{bind def}bind def/in{72 mul}bd/ed{exch def}bd/ld{load def}bd/tr/translate ld/gs/gsave ld/gr /grestore ld/M/moveto ld/L/lineto ld/rmt/rmoveto ld/rlt/rlineto ld /rct/rcurveto ld/st/stroke ld/n/newpath ld/sm/setmatrix ld/cm/currentmatrix ld/cp/closepath ld/ARC/arcn ld/TR{65536 div}bd/lj/setlinejoin ld/lc /setlinecap ld/ml/setmiterlimit ld/sl/setlinewidth ld/scignore false def/sc{scignore{pop pop pop}{0 index 2 index eq 2 index 4 index eq and{pop pop 255 div setgray}{3{255 div 3 1 roll}repeat setrgbcolor}ifelse}ifelse}bd /FC{bR bG bB sc}bd/fC{/bB ed/bG ed/bR ed}bd/HC{hR hG hB sc}bd/hC{ /hB ed/hG ed/hR ed}bd/PC{pR pG pB sc}bd/pC{/pB ed/pG ed/pR ed}bd/sM matrix def/PenW 1 def/iPen 5 def/mxF matrix def/mxE matrix def/mxUE matrix def/mxUF matrix def/fBE false def/iDevRes 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt def/fPP false def/SS{fPP{ /SV save def}{gs}ifelse}bd/RS{fPP{SV restore}{gr}ifelse}bd/EJ{gsave showpage grestore}bd/#C{userdict begin/#copies ed end}bd/FEbuf 2 string def/FEglyph(G )def/FE{1 exch{dup 16 FEbuf cvrs FEglyph exch 1 exch putinterval 1 index exch FEglyph cvn put}for}bd/SM{/iRes ed/cyP ed /cxPg ed/cyM ed/cxM ed 72 100 div dup scale dup 0 ne{90 eq{cyM exch 0 eq{cxM exch tr -90 rotate -1 1 scale}{cxM cxPg add exch tr +90 rotate}ifelse}{cyP cyM sub exch 0 ne{cxM exch tr -90 rotate}{cxM cxPg add exch tr -90 rotate 1 -1 scale}ifelse}ifelse}{pop cyP cyM sub exch 0 ne{cxM cxPg add exch tr 180 rotate}{cxM exch tr 1 -1 scale}ifelse}ifelse 100 iRes div dup scale 0 0 transform .25 add round .25 sub exch .25 add round .25 sub exch itransform translate}bd/SJ{1 index 0 eq{pop pop/fBE false def}{1 index/Break ed div/dxBreak ed/fBE true def}ifelse}bd/ANSIVec[ 16#0/grave 16#1/acute 16#2/circumflex 16#3/tilde 16#4/macron 16#5/breve 16#6/dotaccent 16#7/dieresis 16#8/ring 16#9/cedilla 16#A/hungarumlaut 16#B/ogonek 16#C/caron 16#D/dotlessi 16#27/quotesingle 16#60/grave 16#7C/bar 16#82/quotesinglbase 16#83/florin 16#84/quotedblbase 16#85 /ellipsis 16#86/dagger 16#87/daggerdbl 16#88/circumflex 16#89/perthousand 16#8A/Scaron 16#8B/guilsinglleft 16#8C/OE 16#91/quoteleft 16#92/quoteright 16#93/quotedblleft 16#94/quotedblright 16#95/bullet 16#96/endash 16#97 /emdash 16#98/tilde 16#99/trademark 16#9A/scaron 16#9B/guilsinglright 16#9C/oe 16#9F/Ydieresis 16#A0/space 16#A1/exclamdown 16#A4/currency 16#A5/yen 16#A6/brokenbar 16#A7/section 16#A8/dieresis 16#A9/copyright 16#AA/ordfeminine 16#AB/guillemotleft 16#AC/logicalnot 16#AD/hyphen 16#AE/registered 16#AF/macron 16#B0/degree 16#B1/plusminus 16#B2/twosuperior 16#B3/threesuperior 16#B4/acute 16#B5/mu 16#B6/paragraph 16#B7/periodcentered 16#B8/cedilla 16#B9/onesuperior 16#BA/ordmasculine 16#BB/guillemotright 16#BC/onequarter 16#BD/onehalf 16#BE/threequarters 16#BF/questiondown 16#C0/Agrave 16#C1/Aacute 16#C2/Acircumflex 16#C3/Atilde 16#C4/Adieresis 16#C5/Aring 16#C6/AE 16#C7/Ccedilla 16#C8/Egrave 16#C9/Eacute 16#CA /Ecircumflex 16#CB/Edieresis 16#CC/Igrave 16#CD/Iacute 16#CE/Icircumflex 16#CF/Idieresis 16#D0/Eth 16#D1/Ntilde 16#D2/Ograve 16#D3/Oacute 16#D4 /Ocircumflex 16#D5/Otilde 16#D6/Odieresis 16#D7/multiply 16#D8/Oslash 16#D9/Ugrave 16#DA/Uacute 16#DB/Ucircumflex 16#DC/Udieresis 16#DD/Yacute 16#DE/Thorn 16#DF/germandbls 16#E0/agrave 16#E1/aacute 16#E2/acircumflex 16#E3/atilde 16#E4/adieresis 16#E5/aring 16#E6/ae 16#E7/ccedilla 16#E8 /egrave 16#E9/eacute 16#EA/ecircumflex 16#EB/edieresis 16#EC/igrave 16#ED/iacute 16#EE/icircumflex 16#EF/idieresis 16#F0/eth 16#F1/ntilde 16#F2/ograve 16#F3/oacute 16#F4/ocircumflex 16#F5/otilde 16#F6/odieresis 16#F7/divide 16#F8/oslash 16#F9/ugrave 16#FA/uacute 16#FB/ucircumflex 16#FC/udieresis 16#FD/yacute 16#FE/thorn 16#FF/ydieresis ] def/reencdict 12 dict def/IsChar{basefontdict/CharStrings get exch known}bd/MapCh{dup IsChar not{pop/bullet}if newfont/Encoding get 3 1 roll put}bd/MapDegree{16#b0 /degree IsChar{/degree}{/ring}ifelse MapCh}bd/MapBB{16#a6/brokenbar IsChar{/brokenbar}{/bar}ifelse MapCh}bd/ANSIFont{reencdict begin/newfontname ed/basefontname ed FontDirectory newfontname known not{/basefontdict basefontname findfont def/newfont basefontdict maxlength dict def basefontdict{exch dup/FID ne{dup/Encoding eq{exch dup length array copy newfont 3 1 roll put}{exch newfont 3 1 roll put}ifelse}{pop pop}ifelse}forall newfont /FontName newfontname put 127 1 159{newfont/Encoding get exch/bullet put}for ANSIVec aload pop ANSIVec length 2 idiv{MapCh}repeat MapDegree MapBB newfontname newfont definefont pop}if newfontname end}bd/SB{FC /ULlen ed/str ed str length fBE not{dup 1 gt{1 sub}if}if/cbStr ed /dxGdi ed/y0 ed/x0 ed str stringwidth dup 0 ne{/y1 ed/x1 ed y1 y1 mul x1 x1 mul add sqrt dxGdi exch div 1 sub dup x1 mul cbStr div exch y1 mul cbStr div}{exch abs neg dxGdi add cbStr div exch}ifelse/dyExtra ed/dxExtra ed x0 y0 M fBE{dxBreak 0 BCh dxExtra dyExtra str awidthshow}{dxExtra dyExtra str ashow}ifelse fUL{x0 y0 M dxUL dyUL rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if fSO{x0 y0 M dxSO dySO rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if n/fBE false def}bd/font{/name ed/Ascent ed 0 ne/fT3 ed 0 ne/fSO ed 0 ne/fUL ed/Sy ed/Sx ed 10.0 div/ori ed -10.0 div/esc ed/BCh ed name findfont/xAscent 0 def/yAscent Ascent def/ULesc esc def ULesc mxUE rotate pop fT3{/esc 0 def xAscent yAscent mxUE transform /yAscent ed/xAscent ed}if [Sx 0 0 Sy neg xAscent yAscent] esc mxE rotate mxF concatmatrix makefont setfont [Sx 0 0 Sy neg 0 Ascent] mxUE mxUF concatmatrix pop fUL{currentfont dup/FontInfo get/UnderlinePosition known not{pop/Courier findfont}if/FontInfo get/UnderlinePosition get 1000 div 0 exch mxUF transform/dyUL ed/dxUL ed}if fSO{0 .3 mxUF transform /dySO ed/dxSO ed}if fUL fSO or{currentfont dup/FontInfo get/UnderlineThickness known not{pop/Courier findfont}if/FontInfo get/UnderlineThickness get 1000 div Sy mul/cyUL ed}if}bd/min{2 copy gt{exch}if pop}bd/max{2 copy lt{exch}if pop}bd/CP{/ft ed{{ft 0 eq{clip}{eoclip}ifelse}stopped{currentflat 1 add setflat}{exit}ifelse}loop}bd/patfont 10 dict def patfont begin /FontType 3 def/FontMatrix [1 0 0 -1 0 0] def/FontBBox [0 0 16 16] def/Encoding StandardEncoding def/BuildChar{pop pop 16 0 0 0 16 16 setcachedevice 16 16 false [1 0 0 1 .25 .25]{pat}imagemask}bd end/p{ /pat 32 string def{}forall 0 1 7{dup 2 mul pat exch 3 index put dup 2 mul 1 add pat exch 3 index put dup 2 mul 16 add pat exch 3 index put 2 mul 17 add pat exch 2 index put pop}for}bd/pfill{/PatFont patfont definefont setfont/ch(AAAA)def X0 64 X1{Y1 -16 Y0{1 index exch M ch show}for pop}for}bd/vert{X0 w X1{dup Y0 M Y1 L st}for}bd/horz{Y0 w Y1{dup X0 exch M X1 exch L st}for}bd/fdiag{X0 w X1{Y0 M X1 X0 sub dup rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup rlt st}for}bd/bdiag{X0 w X1{Y1 M X1 X0 sub dup neg rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup neg rlt st}for}bd/AU{1 add cvi 15 or}bd/AD{1 sub cvi -16 and}bd/SHR{pathbbox AU/Y1 ed AU/X1 ed AD/Y0 ed AD/X0 ed}bd/hfill{/w iRes 37.5 div round def 0.1 sl [] 0 setdash n dup 0 eq{horz}if dup 1 eq{vert}if dup 2 eq{fdiag}if dup 3 eq{bdiag}if dup 4 eq{horz vert}if 5 eq{fdiag bdiag}if}bd/F{/ft ed fm 256 and 0 ne{gs FC ft 0 eq{fill}{eofill}ifelse gr}if fm 1536 and 0 ne{SHR gs HC ft CP fm 1024 and 0 ne{/Tmp save def pfill Tmp restore}{fm 15 and hfill}ifelse gr}if}bd/S{PenW sl PC st}bd/m matrix def/GW{iRes 12 div PenW add cvi}bd/DoW{iRes 50 div PenW add cvi}bd/DW{iRes 8 div PenW add cvi}bd/SP{/PenW ed/iPen ed iPen 0 eq iPen 6 eq or{[] 0 setdash}if iPen 1 eq{[DW GW] 0 setdash}if iPen 2 eq{[DoW GW] 0 setdash}if iPen 3 eq{[DW GW DoW GW] 0 setdash}if iPen 4 eq{[DW GW DoW GW DoW GW] 0 setdash}if}bd/E{m cm pop tr scale 1 0 moveto 0 0 1 0 360 arc cp m sm}bd /AG{/sy ed/sx ed sx div 4 1 roll sy div 4 1 roll sx div 4 1 roll sy div 4 1 roll atan/a2 ed atan/a1 ed sx sy scale a1 a2 ARC}def/A{m cm pop tr AG m sm}def/P{m cm pop tr 0 0 M AG cp m sm}def/RRect{n 4 copy M 3 1 roll exch L 4 2 roll L L cp}bd/RRCC{/r ed/y1 ed/x1 ed/y0 ed/x0 ed x0 x1 add 2 div y0 M x1 y0 x1 y1 r arcto 4{pop}repeat x1 y1 x0 y1 r arcto 4{pop}repeat x0 y1 x0 y0 r arcto 4{pop}repeat x0 y0 x1 y0 r arcto 4{pop}repeat cp}bd/RR{2 copy 0 eq exch 0 eq or{pop pop RRect}{2 copy eq{pop RRCC}{m cm pop/y2 ed/x2 ed/ys y2 x2 div 1 max def/xs x2 y2 div 1 max def/y1 exch ys div def/x1 exch xs div def/y0 exch ys div def/x0 exch xs div def/r2 x2 y2 min def xs ys scale x0 x1 add 2 div y0 M x1 y0 x1 y1 r2 arcto 4{pop}repeat x1 y1 x0 y1 r2 arcto 4{pop}repeat x0 y1 x0 y0 r2 arcto 4{pop}repeat x0 y0 x1 y0 r2 arcto 4{pop}repeat m sm cp}ifelse}ifelse}bd/PP{{rlt}repeat}bd/OB{gs 0 ne{7 3 roll/y ed /x ed x y translate ULesc rotate x neg y neg translate x y 7 -3 roll}if sc B fill gr}bd/B{M/dy ed/dx ed dx 0 rlt 0 dy rlt dx neg 0 rlt cp}bd /CB{B clip n}bd/ErrHandler{errordict dup maxlength exch length gt dup{errordict begin}if/errhelpdict 12 dict def errhelpdict begin/stackunderflow(operand stack underflow)def /undefined(this name is not defined in a dictionary)def/VMerror(you have used up all the printer's memory)def /typecheck(operator was expecting a different type of operand)def /ioerror(input/output error occured)def end{end}if errordict begin /handleerror{$error begin newerror{/newerror false def showpage 72 72 scale/x .25 def/y 9.6 def/Helvetica findfont .2 scalefont setfont x y moveto(Offending Command = )show/command load{dup type/stringtype ne{(max err string)cvs}if show}exec/y y .2 sub def x y moveto(Error = )show errorname{dup type dup( max err string )cvs show( : )show/stringtype ne{( max err string )cvs}if show}exec errordict begin errhelpdict errorname known{x 1 add y .2 sub moveto errhelpdict errorname get show}if end /y y .4 sub def x y moveto(Stack =)show ostack{/y y .2 sub def x 1 add y moveto dup type/stringtype ne{( max err string )cvs}if show}forall showpage}if end}def end}bd end %%EndResource /SVDoc save def %%EndProlog %%BeginSetup Win35Dict begin ErrHandler statusdict begin 0 setjobtimeout end statusdict begin statusdict /jobname (PowerPoint - TK.PPT) put end /oldDictCnt countdictstack def {}stopped { countdictstack oldDictCnt lt { Win35Dict begin } {1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if /oldDictCnt countdictstack def {letter }stopped { countdictstack oldDictCnt lt { Win35Dict begin } {1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if [{ } /exec load currenttransfer /exec load] cvx settransfer %%EndSetup %%Page: 1 1 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 5 3 SJ 731 633 960 (Building User Interfaces With) 960 SB gr gs 1500 1125 463 400 CB 3 2 SJ 1028 723 368 (Tcl And Tk) 368 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1038 906 363 (John Ousterhout) 363 SB gr gs 1500 1125 463 400 CB 3 2 SJ 879 981 677 (Sun Microsystems Laboratories) 677 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 882 1057 675 (john.ousterhout@eng.sun.com) 675 SB gr 32 0 0 38 38 0 0 0 36 /Times-BoldItalic /font30 ANSIFont font gs 1500 1125 463 400 CB -9 3 SJ 1031 1245 387 (Tcl/Tk Tutorial, Part III) 387 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 566 2699 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 1705 CB 1492 2699 306 (December 1, 1994, slide 2) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 566 1793 240 (Outline) 240 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1965 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 4 SJ 622 1949 980 (Basic structures: windows, widgets, processes.) 980 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2054 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 3 SJ 622 2038 745 (Creating widgets: class commands.) 745 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2144 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 6 SJ 622 2128 1085 (Geometry management: the placer and the packer.) 1085 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2234 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2218 411 (Widget commands.) 411 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2324 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2308 34 (B) 33 SB 655 2308 169 (indings.) 169 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2414 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2398 1033 (Other commands: send, focus, selection, window) 1033 SB gr gs 1500 1125 463 1705 CB 2 1 SJ 622 2458 344 (manager, grabs.) 344 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2564 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 2 SJ 622 2548 331 (Two examples: ) 331 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 953 2551 240 (showVars) 240 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1193 2548 26 (, ) 26 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1219 2551 240 (mkDialog) 240 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1459 2548 13 (.) 13 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-BoldItalic %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 2 2 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 566 1394 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 400 CB 1492 1394 306 (December 1, 1994, slide 3) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 7 4 SJ 566 488 981 (Structure Of A Tk Application) 981 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 1 SJ 622 644 388 (Widget hierarchy.) 388 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 743 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 2 SJ 622 727 429 (One Tcl interpreter.) 429 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 827 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 2 SJ 622 811 271 (One process ) 271 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 6 7 SJ 895 812 763 (\(can have > 1 application in a process\)) 763 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1664 811 13 (.) 13 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 911 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 895 173 (Widget:) 173 SB gr gs 1500 1125 463 400 CB 795 895 887 ( a window with a particular look and feel.) 887 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 995 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 4 SJ 622 979 753 (Widget classes implemented by Tk:) 753 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 1040 125 (Frame) 125 SB gr gs 1500 1125 463 400 CB 1016 1040 244 (Menubutton) 244 SB gr gs 1500 1125 463 400 CB 1391 1040 144 (Canvas) 144 SB gr gs 1500 1125 463 400 CB 641 1100 110 (Label) 110 SB gr gs 1500 1125 463 400 CB 1016 1100 115 (Menu) 115 SB gr gs 1500 1125 463 400 CB 1391 1100 180 (Scrollbar) 180 SB gr gs 1500 1125 463 400 CB 641 1160 138 (Button) 138 SB gr gs 1500 1125 463 400 CB 1016 1160 173 (Message) 173 SB gr gs 1500 1125 463 400 CB 1391 1160 106 (Scale) 106 SB gr gs 1500 1125 463 400 CB 641 1220 255 (Checkbutton) 255 SB gr gs 1500 1125 463 400 CB 1016 1220 110 (Entry) 110 SB gr gs 1500 1125 463 400 CB 1391 1220 150 (Listbox) 150 SB gr gs 1500 1125 463 400 CB 641 1280 247 (Radiobutton) 247 SB gr gs 1500 1125 463 400 CB 1016 1280 92 (Text) 92 SB gr gs 1500 1125 463 400 CB 1391 1280 174 (Toplevel) 174 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 566 2699 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 1705 CB 1492 2699 306 (December 1, 1994, slide 4) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 4 2 SJ 566 1793 721 (The Widget Hierarchy) 721 SB gr %MSEPS Preamble 0 0 185 237 0 0 185 237 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 185 def /pp_by2 237 def 0 lc 0 lj 0 1 SP gs 290 372 652 1915 CB 289 371 652 1915 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier1 %%Pages: 1 %%BoundingBox: 0 0 185 237 %%CreationDate: Thu Dec 1 14:08:44 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 185 237 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 21 string def /drawcolormappedimage { 185 237 8 [185 0 0 -237 0 237] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba e2cbae pop pop drawcolormappedimage ce0000018900000115000001010013020001000088020001000013020101 010013020001000088020001000013020101010001021201000089010000 110101020101010001020001af000102010101000102000100000f020001 00007602000100000f02000100000f020001000001020101010001020001 00000f02000100007602000100000f02000100000f020001000001020101 01000102000100000f02000100007602000100000f02000100000f020001 00000102010101000102000100000f020001000028020403020201030902 01033702000100000f020001000002020900020200010000010201010100 0102000100000f0200010000270201030202010301020103090201033702 000100000f02000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010300020303010203030102 030301020303020203032902000100000f02000100000202000007020001 020200010000010201010100010200010000020209000202000100002802 020304020103010201030102010301020103010201030102010300020103 010201032802000100000502030005020001000002020000070200010202 000100000102010101000102000100000202000007020001020200010000 2a0202030202010305020103010201030102010301020103000202032b02 000100000502000001020001050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100002b02 020301020103020204030102010301020503020202032902000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000027020103020201030102 010301020103010201030102010301020103070202032802000100000502 000002010502000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010301020103000202030102 010301020103000202030102010300020103010201032802000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000280204030302010301020203000201030102010301020303 020203032902000100000f02000100000202000007020001020200010000 0102010101000102000100000f02000100007602000100000f0200010000 0202000008010202000100000102010101000102000100000f0200010000 7602000100000f02000100000f0200010000010201010100010200010000 0f02000100007602000100000f02000100000f0200010000010201010100 01020001000010010000770100001001000010010000010201010000b201 0000030104000001b1000001010001020101ab0000040100010201010100 010201010100a80501040100010201010100010201010100a80501040100 010201010100010201010100a80501040100010201010100010201010100 a80501040100010201010100010201010100a80501040100010201010100 010201010100a80501040100010201010100010201010100a80501040100 010201010100010201010100a80501040100010201010100010201010100 07050703000501037505010302050103070501030e050104010001020101 010001020101010007050103060501037505010302050103070501030e05 010401000102010101000102010101000705010303050103000501030105 03036f050103020501030105030301050103000501030005010308050104 010001020101010001020101010007050103030501030005010300050103 010501036e05010302050103000501030105010300050103000502030005 010307050104010001020101010001020101010007050403000501030005 010300050103010501036e05060300050103010501030005010300050103 010501030705010401000102010101000102010101000705010303050103 00050103000505036e050103020501030005050300050103000501030105 010307050104010001020101010001020101010007050103030501030005 010300050103720501030205010300050103040501030005010301050103 070501040100010201010100010201010100070501030305010300050103 00050103010501036e050103020501030005010301050103000501030005 020300050103070501040100010201010100010201010100070501030305 010300050103010503036f05010302050103010503030105010300050103 000501030805010401000102010101000102010101009a0501030b050104 01000102010101000102010101000605060379050803090501030b050104 01000102010101000102010101000605060379050803090501030b050104 0100010201010100010201010100a8050104010001020101010001020101 0100a80501040100010201010100010201010100a8050104010001020101 0100010201010100a80501040100010201010100010201010100a8050104 0100010201010100010201010100a8050104010001020101010001020101 0100aa040100010201010100010201010000ab0401000102010101000102 0101ac05010001020101010001020101ac05010001020101010001020101 010591040305120401050100010201010100010201010105900400000305 110400000105010001020101010001020101010501048d05010003050104 06060004060601000105010001020101010001020101010501048d050100 030501040506000000040606010001050100010201010100010201010105 01048d050100030501040506000001040506010001050100010201010100 010201010105010400050103020501031905010300050103660501000305 010404060100010405060100010501000102010101000102010101050104 000501030205010385050100030501040406010000050104040601000105 010001020101010001020101010501040005010302050103010503030105 010301050103010501030105030301050103000501036605010003050104 030601000105010404060100010501000102010101000102010101050104 000501030205010300050103010501030005010301050103010501030005 010301050103000501030005010366050100030501040306010002050104 030601000105010001020101010001020101010501040005060304050103 010501030005010300050103050501030005010300050103660501000305 010402060100030501040306010001050100010201010100010201010105 010400050103020501030105040301050103000501030005010302050403 000501030005010366050100030501040206010004050104020601000105 010001020101010001020101010501040005010302050103000501030105 010301050103000501030005010301050103010501030005010300050103 660501000305010401060100050501040206010001050100010201010100 010201010105010400050103020501030005010301050103020501030105 010302050103010501030005010300050103660501000305010401060100 060501040106010001050100010201010100010201010105010400050103 020501030105020300050103010501030105010303050203000503030005 010366050100030501040006010007050104010601000105010001020101 010001020101010501048d05010003050104000601000805010400060100 0105010001020101010001020101010501048d0501000305010401000b04 000601000105010001020101010001020101010501048d05010003050104 00000d0401000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e060100010501000102010101000102010101050104000501030405 01030705010379050100030501040e060100010501000102010101000102 01010105010400050103040501030705010379050100030501040e060100 010501000102010101000102010101050104000501030105010300050103 010503030105010300050103020503036f050100030501040e0601000105 010001020101010001020101010501040005010300050103000502030005 010301050103000502030005010300050103010501036e05010003050104 0e0601000105010001020101010001020101010501040005010300050103 0105010304050103000501030105010300050103010501036e0501000305 01040e060100010501000102010101000102010101050104000501030005 01030105010301050403000501030105010300050103010501036e050100 030501040e06010001050100010201010100010201010105010400050103 000501030105010300050103010501030005010301050103000501030105 01036e050100030501040e06010001050100010201010100010201010105 010400050103000501030005020300050103010501030005010301050103 00050103010501036e050100030501040e06010001050100010201010100 010201010105010400050103010501030005010301050203000503030105 0103010503036f050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 010101050104000501030005010300050103000501030e05010370050100 030501040e06010001050100010201010100010201010105010400050103 000501030005010384050100030501040e06010001050100010201010100 010201010105010400050103000501030005010300050103000501030005 01030205030301050103010503036a050100030501040e06010001050100 010201010100010201010105010400050103000501030005010300050103 000502030005010300050103010501030005010300050103010501036905 0100030501040e0601000105010001020101010001020101010501040005 010300050103000501030005010300050103010501030005010301050103 00050103000502036c050100030501040e06010001050100010201010100 010201010105010400050103000501030005010300050103000501030105 0103000501030105010300050103020502036a050100030501040e060100 010501000102010101000102010101050104000501030005010300050103 000501030005010301050103000501030105010300050103030502036905 010003050104100001050100010201010100010201010105010400050103 000501030005010300050103000501030105010300050103010501030005 0103000501030105010369050100030501040d0000040100010501000102 010101000102010101050104000501030005010300050103000501030005 0103010501030105030301050103010503036a0501000305010401000a05 010401000105010001020101010001020101010501048d05010003050104 01000a05010401000105010001020101010001020101010501048d050100 0305010401000a0501040100010501000102010101000102010101050104 8d0501000305010401000a05010401000105010001020101010001020101 010501048d0501000305010401000a050104010001050100010201010100 01020101010501048d0501000305010401000a0501040100010501000102 0101010001020101010501048d0501000305010401000a05010401000105 010001020101010001020101010501048d0501000305010401000a050104 01000105010001020101010001020101010501048d050100030501040100 0a0501040100010501000102010101000102010101050104000501030b05 010300050103790501000305010401000a05010401000105010001020101 01000102010101050104000501030b0501037c0501000305010401000a05 010401000105010001020101010001020101010501040005010300050103 000501030205010300050103000501030105030301050103000501030205 0303650501000305010401000a0501040100010501000102010101000102 010101050104000501030005020300050103000501030005020300050103 000501030105010300050203000501030005010301050103640501000305 010401000a05010401000105010001020101010001020101010501040005 010300050103010501030005010301050103000501030405010300050103 0105010304050103640501000305010401000a0501040100010501000102 010101000102010101050104000501030005010301050103000501030105 010300050103010504030005010301050103010504036405010003050104 01000a050104010001050100010201010100010201010105010400050103 000501030105010300050103010501030005010300050103010501030005 0103010501030005010301050103640501000305010401000a0501040100 010501000102010101000102010101050104000501030005010301050103 000501030005020300050103000501030105010300050103010501030005 010301050103640501000305010401000a05010401000105010001020101 010001020101010501040005010300050103010501030105010300050103 000501030105020300050303010501030105020300050103630501000305 010401000a05010401000105010001020101010001020101010501048d05 01000305010401000a050104010001050100010201010100010201010105 01048d0501000305010401000a0501040100010501000102010101000102 0101010501048d0501000305010401000a05010401000105010001020101 010001020101010501048d0501000305010401000a050104010001050100 01020101010001020101010501048d0501000305010401000a0501040100 0105010001020101010001020101010501048d0501000305010401000a05 010401000105010001020101010001020101010501048d05010003050104 01000c0401000105010001020101010001020101010501048d0501000305 010400000d04010001050100010201010100010201010105010400050103 8a050100030501040e060100010501000102010101000102010101050104 000501038a050100030501040e0601000105010001020101010001020101 010501040005010301050303010501030105010301050103010503037205 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030005010301050103010501030005010301050103 71050100030501040e060100010501000102010101000102010101050104 000501030005010301050103010501030005010300050103050501037105 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030105010300050103000501030205040371050100 030501040e06010001050100010201010100010201010105010400050103 000501030105010301050103000501030005010301050103010501037105 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030205010301050103020501030105010371050100 030501040e06010001050100010201010100010201010105010400050103 010503030305010301050103030502030005010370050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 010001050100010201010100010201010105010400050103020501038505 0100030501040e0601000105010001020101010001020101010501040005 01030105010386050100030501040e060100010501000102010101000102 010101050104000501030005010303050303010501030005010302050303 020503030205030363050100030501040e06010001050100010201010100 010201010105010400050303030501030105010300050203000501030005 010301050103000501030105010300050103010501036205010003050104 0e0601000105010001020101010001020101010501040005030307050103 000501030105010300050203070501030005020365050100030501040e06 010001050100010201010100010201010105010400050103000501030305 040300050103010501030205020302050403020502036305010003050104 0e0601000105010001020101010001020101010501040005010301050103 010501030105010300050103010501030305020300050103010501030305 020362050100030501040e06010001050100010201010100010201010105 010400050103020501030005010301050103000501030105010300050103 010501030005010301050103000501030105010362050100030501040e06 010001050100010201010100010201010105010400050103030501030005 020300050303010501030105030302050203000501030005030363050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e06010001050100010201010100010201010105010400050103 020501030f0501030f05010361050100030501040e060100010501000102 0101010001020101010501040005010301050103100501030f0501036105 0100030501040e0601000105010001020101010001020101010501040005 010300050103030503030105010300050103010503030005010301050103 010503030105010301050103000501030205010355050100030501040e06 010001050100010201010100010201010105010400050303030501030105 010300050203000501030105010301050103010501030005010301050103 0005010300050103010501030205010355050100030501040e0601000105 010001020101010001020101010501040005030303050103010501030005 010301050103010501030105010301050103000501030405030303050103 0005010356050100030501040e0601000105010001020101010001020101 010501040005010300050103020505030005010301050103010501030105 010301050103000501030405030303050103000501035605010003050104 0e0601000105010001020101010001020101010501040005010301050103 010501030405010301050103010501030105010301050103000501030405 0103000501030305020357050100030501040e0601000105010001020101 010001020101010501040005010302050103000501030105010300050103 010501030105010300050203000502030005010301050103000501030105 01030205020357050100030501040e060100010501000102010101000102 010101050104000501030305010300050303010501030105010302050103 010501030005010301050303010501030205010302050103570501000305 01040e060100010501000102010101000102010101050104330500035805 0100030501040e0601000105010001020101010001020101010501043205 010358050100030501040e06010001050100010201010100010201010105 01043105010359050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501040005010311050103070501036c050100030501040e060100 010501000102010101000102010101050104000501038a05010003050104 0e0601000105010001020101010001020101010501040005010304050303 010501030105010300050103010503030105010301050303010501030005 01030205030358050100030501040e060100010501000102010101000102 010101050104000501030305010301050103000501030105010300050103 000501030105010300050103000501030105010300050203000501030005 01030105010357050100030501040e060100010501000102010101000102 010101050104000501030305010301050103000501030105010300050103 000502030305010304050103000501030105010304050103570501000305 01040e060100010501000102010101000102010101050104000501030305 010301050103000501030105010300050103020502030105010301050403 00050103010501030105040357050100030501040e060100010501000102 010101000102010101050104000501030305010301050103000501030105 010300050103030502030005010300050103010501030005010301050103 000501030105010357050100030501040e06010001050100010201010100 010201010105010400050103030501030105010300050103000502030005 010300050103010501030005010300050103010501030005010301050103 000501030105010357050100030501040e06010001050100010201010100 010201010105010400050503000503030205010300050103000501030105 030301050103010502030005030301050103010502030005010356050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e06010001050100010201010100010201010105010400050103 040501030705010379050100030501040e06010001050100010201010100 0102010101050104000501030405010383050100030501040e0601000105 010001020101010001020101010501040005020302050203010503030105 01030005010300050103020503036c050100030501040e06010001050100 010201010100010201010105010400050203020502030005010301050103 00050103000502030005010300050103010501036b050100030501040e06 010001050100010201010100010201010105010400050303000503030405 010300050103000501030105010300050103010501036b05010003050104 0e0601000105010001020101010001020101010501040005010300050003 000500030005010301050403000501030005010301050103000505036b05 0100030501040e0601000105010001020101010001020101010501040005 010300050203000501030005010301050103000501030005010301050103 000501036f050100030501040e0601000105010001020101010001020101 010501040005010301050003010501030005010301050103000501030005 01030105010300050103010501036b050100030501040e06010001050100 010201010100010201010105010400050103010500030105010301050203 000503030005010301050103010503036c050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d05010003050104100001050100 010201010000040101050104000501030405010314050103120501035705 01000305010400060c000004010001050100030104000001010501040005 010304050103140501031205010357050100030501040006010008050104 000601000105040000010100010201010105010400050203020502030105 030301050103000503030205010300050103010503030105010300050103 020501030005010357050100030501040106010007050104000601000105 010001020101010001020101010501040005020302050203000501030105 010300050603020501030005010300050103010501030005020300050103 000501030005020357050100030501040106010006050104010601000105 010001020101010001020101010501040005030300050303040501030005 020302050103000501030105010304050103000501030105010300050103 010501035705010003050104020601000505010401060100010501000102 010101000102010101050104000501030005000300050003000501030105 040300050103030501030005010301050103010504030005010301050103 000501030105010357050100030501040206010004050104020601000105 010001020101010001020101010501040005010300050203000501030005 010301050103000501030405020302050103000501030105010300050103 010501030005010301050103570501000305010403060100030501040206 010001050100010201010100010201010105010400050103010500030105 010300050103010501030005010304050203020501030005010301050103 000501030105010300050103000502035705010003050104030601000205 010403060100010501000102010101000102010101050104000501030105 000301050103010502030005030305050103020501030105020300050303 010501030105010300050103570501000305010404060100010501040306 010001050100010201010100010201010105010419050003720501000305 010404060100000501040406010001050100010201010100010201010105 010418050103720501000305010405060000020404060100010501000102 010101000102010101050104170501037305010003050104050600000104 050601000105010001020101010001020101010501048d05010003050104 06060104050601000105010001020101010001020101010501048d050100 030501040606000406060100010501000102010101000102010101050104 8f0003050104100001050100010201010100010201010105000490000305 000411000105010001020101010001020101ac0501000102010101000102 0101ac05010001020101010001020101ae0001020101010001020001af00 010201010100130200010000880200010000130201010100130200010000 880200010000130201010100140100008901000015010000b701 % % Run-length encoding savings = 75.7% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 173 208 0 0 173 208 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 173 def /pp_by2 208 def gs 271 326 1439 1954 CB 270 325 1439 1954 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier2a %%Pages: 1 %%BoundingBox: 0 0 173 208 %%CreationDate: Thu Dec 1 14:08:40 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 173 208 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 3 string def /drawcolormappedimage { 173 208 8 [173 0 0 -208 0 208] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3d9ba pop pop drawcolormappedimage fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe001c00 % % Run-length encoding savings = 99.2% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 173 30 0 0 173 30 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 173 def /pp_by2 30 def gs 271 48 1439 2330 CB 270 47 1439 2330 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier2b %%Pages: 1 %%BoundingBox: 0 0 173 30 %%CreationDate: Thu Dec 1 14:08:41 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 173 30 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 9 string def /drawcolormappedimage { 173 30 8 [173 0 0 -30 0 30] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 918270 f3d9ba pop pop drawcolormappedimage fe00590000010100a80201010100a80201010100a80201010100a8020101 0100a80201010100a80201010100a80201010100a80201010100a8020101 0100a80201010100a80201010100a80201010100a80201010100a8020101 0100a80201010100a80201010100a80201010100a80201010100a8020101 0100a80201010100a80201010100a80201010100a80201010100a8020101 0100a80201010100a80201010100aa010000ab01 % % Run-length encoding savings = 96.7% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 23 178 0 0 23 178 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 23 def /pp_by2 178 def gs 37 279 1781 2040 CB 36 278 1781 2040 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier2c %%Pages: 1 %%BoundingBox: 0 0 23 178 %%CreationDate: Thu Dec 1 14:08:41 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 23 178 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 12 string def /drawcolormappedimage { 23 178 8 [23 0 0 -178 0 178] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3d9ba 918270 f3f3f3 e2cbae pop pop drawcolormappedimage 2f0012010300110100020300010106030001060301020300010105030002 000106030102030001010503000201010503010203000101040301020101 050301020300010104030102000001010403010203000101030301020100 010104030102030001010303010202000101030301020300010102030102 030001010303010203000101020301020400010102030102030001010103 010205000101020301020300010101030102060001010103010203000101 000301020700010101030102030001010003010208000101000301020300 010101020b01000301020300010100020d010102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001010e030102030001010e030102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001011002030001010d02000101020300010101020a000101 01020300010101020a00010101020300010101020a000101010203000101 01020a00010101020300010101020a00010101020300010101020a000101 01020300010101020a00010101020300010101020a000101010203000101 01020a00010101020300010101020a00010101020300010101020a000101 01020300010101020a00010101020300010101020a000101010203000101 01020a00010101020300010101020a00010101020300010101020a000101 01020300010101020a00010101020300010101020a000101010203000101 01020a00010101020300010101020a00010101020300010101020a000101 01020300010101020a00010101020300010101020a000101010203000101 01020a00010101020300010101020c0101020300010100020d0101020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001010e030102030001010e030102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001010e030102030001010e030102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001010e030102030001010e030102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001010e030102030001010e030102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001010e030102030001010e030102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e0301020300010110020300010100030c02000101020300 010100030102080001010003010203000101010301020700010100030102 030001010103010206000101010301020300010102030102050001010103 010203000101020301020400010102030102030001010303010203000101 020301020300010103030102020001010303010203000101040301020100 010103030102030001010403010200000101040301020300010105030002 020104030102030001010503000201010503010203000101060301010503 01020300010106030001060301020300010110020300000111022f00 % % Run-length encoding savings = 59.0% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 150 178 0 0 150 178 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 150 def /pp_by2 178 def gs 236 279 1132 2040 CB 235 278 1132 2040 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier2d %%Pages: 1 %%BoundingBox: 0 0 150 178 %%CreationDate: Thu Dec 1 14:08:42 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 150 178 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 12 string def /drawcolormappedimage { 150 178 8 [150 0 0 -178 0 178] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3d9ba 918270 f3f3f3 000000 pop pop drawcolormappedimage fe002e009101030090010002030001018d000102030001018d0001020300 01018d000102030001010000010302000103190001030000010366000102 030001010000010302000103850001020300010100000103020001030100 030301000103010001030100010301000303010001030000010366000102 030001010000010302000103000001030100010300000103010001030100 010300000103010001030000010300000103660001020300010100000603 040001030100010300000103000001030500010300000103000001036600 010203000101000001030200010301000403010001030000010300000103 020004030000010300000103660001020300010100000103020001030000 010301000103010001030000010300000103010001030100010300000103 000001036600010203000101000001030200010300000103010001030200 010301000103020001030100010300000103000001036600010203000101 000001030200010301000203000001030100010301000103030002030000 03030000010366000102030001018d000102030001018d00010203000101 8d000102030001018d000102030001018d000102030001018d0001020300 01018d000102030001018d00010203000101000001030400010307000103 790001020300010100000103040001030700010379000102030001010000 01030100010300000103010003030100010300000103020003036f000102 030001010000010300000103000002030000010301000103000002030000 010300000103010001036e00010203000101000001030000010301000103 04000103000001030100010300000103010001036e000102030001010000 010300000103010001030100040300000103010001030000010301000103 6e0001020300010100000103000001030100010300000103010001030000 01030100010300000103010001036e000102030001010000010300000103 000002030000010301000103000001030100010300000103010001036e00 010203000101000001030100010300000103010002030000030301000103 010003036f000102030001018d000102030001018d000102030001018d00 0102030001018d000102030001018d000102030001018d00010203000101 8d000102030001018d000102030001010000010300000103000001030000 01030e000103700001020300010100000103000001030000010384000102 030001010000010300000103000001030000010300000103000001030200 030301000103010003036a00010203000101000001030000010300000103 000001030000020300000103000001030100010300000103000001030100 010369000102030001010000010300000103000001030000010300000103 01000103000001030100010300000103000002036c000102030001010000 010300000103000001030000010300000103010001030000010301000103 00000103020002036a000102030001010000010300000103000001030000 010300000103010001030000010301000103000001030300020369000102 030001010000010300000103000001030000010300000103010001030000 010301000103000001030000010301000103690001020300010100000103 000001030000010300000103000001030100010301000303010001030100 03036a000102030001018d000102030001018d000102030001018d000102 030001018d000102030001018d000102030001018d000102030001018d00 0102030001018d00010203000101000001030b0001030000010379000102 03000101000001030b0001037c0001020300010100000103000001030000 010302000103000001030000010301000303010001030000010302000303 650001020300010100000103000002030000010300000103000002030000 010300000103010001030000020300000103000001030100010364000102 030001010000010300000103010001030000010301000103000001030400 010300000103010001030400010364000102030001010000010300000103 010001030000010301000103000001030100040300000103010001030100 040364000102030001010000010300000103010001030000010301000103 000001030000010301000103000001030100010300000103010001036400 010203000101000001030000010301000103000001030000020300000103 000001030100010300000103010001030000010301000103640001020300 010100000103000001030100010301000103000001030000010301000203 0000030301000103010002030000010363000102030001018d0001020300 01018d000102030001018d000102030001018d000102030001018d000102 030001018d000102030001018d000102030001018d000102030001010000 01038a00010203000101000001038a000102030001010000010301000303 010001030100010301000103010003037200010203000101000001030000 010301000103000001030100010301000103000001030100010371000102 030001010000010300000103010001030100010300000103000001030500 010371000102030001010000010300000103010001030100010300000103 000001030200040371000102030001010000010300000103010001030100 010300000103000001030100010301000103710001020300010100000103 000001030100010302000103010001030200010301000103710001020300 010100000103010003030300010301000103030002030000010370000102 030001018d000102030001018d000102030001018d000102030001018d00 0102030001018d000102030001018d000102030001018d00010203000101 8d0001020300010100000103020001038500010203000101000001030100 010386000102030001010000010300000103030003030100010300000103 020003030200030302000303630001020300010100000303030001030100 010300000203000001030000010301000103000001030100010300000103 010001036200010203000101000003030700010300000103010001030000 020307000103000002036500010203000101000001030000010303000403 000001030100010302000203020004030200020363000102030001010000 010301000103010001030100010300000103010001030300020300000103 010001030300020362000102030001010000010302000103000001030100 010300000103010001030000010301000103000001030100010300000103 010001036200010203000101000001030300010300000203000003030100 01030100030302000203000001030000030363000102030001018d000102 030001018d000102030001018d000102030001018d000102030001018d00 0102030001018d000102030001018d000102030001018d00010203000101 00000103020001030f0001030f0001036100010203000101000001030100 0103100001030f0001036100010203000101000001030000010303000303 010001030000010301000303000001030100010301000303010001030100 010300000103020001035500010203000101000003030300010301000103 000002030000010301000103010001030100010300000103010001030000 010300000103010001030200010355000102030001010000030303000103 010001030000010301000103010001030100010301000103000001030400 030303000103000001035600010203000101000001030000010302000503 000001030100010301000103010001030100010300000103040003030300 010300000103560001020300010100000103010001030100010304000103 010001030100010301000103010001030000010304000103000001030300 020357000102030001010000010302000103000001030100010300000103 010001030100010300000203000002030000010301000103000001030100 010302000203570001020300010100000103030001030000030301000103 010001030200010301000103000001030100030301000103020001030200 010357000102030001013300000358000102030001013200010358000102 030001013100010359000102030001018d000102030001018d0001020300 01018d000102030001018d000102030001018d0001020300010100000103 11000103070001036c00010203000101000001038a000102030001010000 010304000303010001030100010300000103010003030100010301000303 010001030000010302000303580001020300010100000103030001030100 010300000103010001030000010300000103010001030000010300000103 010001030000020300000103000001030100010357000102030001010000 010303000103010001030000010301000103000001030000020303000103 040001030000010301000103040001035700010203000101000001030300 010301000103000001030100010300000103020002030100010301000403 000001030100010301000403570001020300010100000103030001030100 010300000103010001030000010303000203000001030000010301000103 000001030100010300000103010001035700010203000101000001030300 010301000103000001030000020300000103000001030100010300000103 000001030100010300000103010001030000010301000103570001020300 010100000503000003030200010300000103000001030100030301000103 010002030000030301000103010002030000010356000102030001018d00 0102030001018d000102030001018d000102030001018d00010203000101 8d000102030001018d000102030001018d000102030001018d0001020300 010100000103040001030700010379000102030001010000010304000103 830001020300010100000203020002030100030301000103000001030000 0103020003036c0001020300010100000203020002030000010301000103 00000103000002030000010300000103010001036b000102030001010000 030300000303040001030000010300000103010001030000010301000103 6b0001020300010100000103000000030000000300000103010004030000 01030000010301000103000005036b000102030001010000010300000203 000001030000010301000103000001030000010301000103000001036f00 010203000101000001030100000301000103000001030100010300000103 000001030100010300000103010001036b00010203000101000001030100 00030100010301000203000003030000010301000103010003036c000102 030001018d000102030001018d000102030001018d000102030001018d00 0102030001018d000102030001018d000102030001018d00010203000101 8d0001020300010100000103040001031400010312000103570001020300 010100000103040001031400010312000103570001020300010100000203 020002030100030301000103000003030200010300000103010003030100 010300000103020001030000010357000102030001010000020302000203 000001030100010300000603020001030000010300000103010001030000 020300000103000001030000020357000102030001010000030300000303 040001030000020302000103000001030100010304000103000001030100 010300000103010001035700010203000101000001030000000300000003 000001030100040300000103030001030000010301000103010004030000 010301000103000001030100010357000102030001010000010300000203 000001030000010301000103000001030400020302000103000001030100 010300000103010001030000010301000103570001020300010100000103 010000030100010300000103010001030000010304000203020001030000 010301000103000001030100010300000103000002035700010203000101 000001030100000301000103010002030000030305000103020001030100 020300000303010001030100010300000103570001020300010119000003 720001020300010118000103720001020300010117000103730001020300 01018d000102030001018d000102030001018f02030000019002fe002e00 % % Run-length encoding savings = 83.1% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 34 26 0 0 34 26 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 34 def /pp_by2 26 def gs 54 42 1348 2395 CB 53 41 1348 2395 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier2e %%Pages: 1 %%BoundingBox: 0 0 34 26 %%CreationDate: Thu Dec 1 14:08:42 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 34 26 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 6 string def /drawcolormappedimage { 34 26 8 [34 0 0 -26 0 26] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3d9ba 000000 pop pop drawcolormappedimage fe0018000701000001011600010106000101160001010300010100000101 0100030110000101030001010000010100000101010001010f0004010000 01010000010100000101010001010f000101030001010000010100000501 0f0001010300010100000101000001011300010103000101000001010000 0101010001010f000101030001010000010101000301310006011a000601 df00 % % Run-length encoding savings = 82.8% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 40 26 0 0 40 26 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 40 def /pp_by2 26 def gs 64 42 1755 2395 CB 63 41 1755 2395 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier2f %%Pages: 1 %%BoundingBox: 0 0 40 26 %%CreationDate: Thu Dec 1 14:08:43 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 40 26 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 6 string def /drawcolormappedimage { 40 26 8 [40 0 0 -26 0 26] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3d9ba 000000 pop pop drawcolormappedimage fe0048000101020001010700010116000101020001010700010116000101 020001010100030101000101000001010000010110000101020001010000 0101010001010000010100000201000001010f0006010000010101000101 0000010100000101010001010f0001010200010100000501000001010000 0101010001010f0001010200010100000101040001010000010101000101 0f0001010200010100000101010001010000010100000201000001010f00 010102000101010003010100010100000101000001012200010112000801 090001011200080109000101fb00 % % Run-length encoding savings = 78.5% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 1 lc 1 lj 6 4 SP gs 60 47 1406 2355 CB 1536 2293 M -222 186 1 PP S n gr 0 0 0 fC /fm 256 def 1389 2418 M -21 32 -14 -16 35 -16 3 PP 1 F n 6 4 SP gs 57 48 1687 2355 CB 1612 2293 M 225 186 1 PP S n gr /fm 256 def 1762 2418 M 35 16 -14 16 -21 -32 3 PP 1 F n 6 4 SP gs 1500 344 463 1980 CB 1575 1618 M 0 1086 1 PP S n gr /fm 256 def 1575 2343 M 11 37 -22 0 11 -37 3 PP 1 F n 6 4 SP gs 94 1125 1687 1705 CB 1575 2105 M 336 111 1 PP S n gr /fm 256 def 1799 2179 M 39 2 -8 20 -31 -22 3 PP 1 F n 6 4 SP gs 97 1125 1369 1705 CB 1573 2105 M -333 111 1 PP S n gr /fm 256 def 1352 2179 M -31 22 -8 -20 39 -2 3 PP 1 F n 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 789 2314 23 (.) 23 SB gr gs 1500 1125 463 1705 CB 551 2601 230 (.menu.file) 230 SB gr gs 1500 1125 463 1705 CB 909 2451 161 (.scroll) 161 SB gr gs 1500 1125 463 1705 CB 851 2601 230 (.menu.help) 230 SB gr gs 1500 1125 463 1705 CB 745 2451 115 (.menu) 115 SB gr gs 1500 1125 463 1705 CB 523 2451 184 (.listbox) 184 SB gr 6 4 SP gs 154 104 664 2504 CB 964 2404 M -450 300 1 PP S n gr gs 154 104 814 2504 CB 664 2404 M 450 300 1 PP S n gr gs 192 1125 801 1705 CB 613 2280 M 564 261 1 PP S n gr gs 1500 91 463 2367 CB 801 2280 M 0 261 1 PP S n gr gs 191 1125 614 1705 CB 988 2280 M -561 261 1 PP S n gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 3 3 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 566 1394 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 400 CB 1492 1394 306 (December 1, 1994, slide 5) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 2 SJ 566 488 611 (Types Of Windows) 611 SB gr %MSEPS Preamble 0 0 185 237 0 0 185 237 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 185 def /pp_by2 237 def 0 lc 0 lj 0 1 SP gs 270 347 777 611 CB 269 346 777 611 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier1 %%Pages: 1 %%BoundingBox: 0 0 185 237 %%CreationDate: Thu Dec 1 14:08:44 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 185 237 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 21 string def /drawcolormappedimage { 185 237 8 [185 0 0 -237 0 237] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba e2cbae pop pop drawcolormappedimage ce0000018900000115000001010013020001000088020001000013020101 010013020001000088020001000013020101010001021201000089010000 110101020101010001020001af000102010101000102000100000f020001 00007602000100000f02000100000f020001000001020101010001020001 00000f02000100007602000100000f02000100000f020001000001020101 01000102000100000f02000100007602000100000f02000100000f020001 00000102010101000102000100000f020001000028020403020201030902 01033702000100000f020001000002020900020200010000010201010100 0102000100000f0200010000270201030202010301020103090201033702 000100000f02000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010300020303010203030102 030301020303020203032902000100000f02000100000202000007020001 020200010000010201010100010200010000020209000202000100002802 020304020103010201030102010301020103010201030102010300020103 010201032802000100000502030005020001000002020000070200010202 000100000102010101000102000100000202000007020001020200010000 2a0202030202010305020103010201030102010301020103000202032b02 000100000502000001020001050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100002b02 020301020103020204030102010301020503020202032902000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000027020103020201030102 010301020103010201030102010301020103070202032802000100000502 000002010502000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010301020103000202030102 010301020103000202030102010300020103010201032802000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000280204030302010301020203000201030102010301020303 020203032902000100000f02000100000202000007020001020200010000 0102010101000102000100000f02000100007602000100000f0200010000 0202000008010202000100000102010101000102000100000f0200010000 7602000100000f02000100000f0200010000010201010100010200010000 0f02000100007602000100000f02000100000f0200010000010201010100 01020001000010010000770100001001000010010000010201010000b201 0000030104000001b1000001010001020101ab0000040100010201010100 010201010100a80501040100010201010100010201010100a80501040100 010201010100010201010100a80501040100010201010100010201010100 a80501040100010201010100010201010100a80501040100010201010100 010201010100a80501040100010201010100010201010100a80501040100 010201010100010201010100a80501040100010201010100010201010100 07050703000501037505010302050103070501030e050104010001020101 010001020101010007050103060501037505010302050103070501030e05 010401000102010101000102010101000705010303050103000501030105 03036f050103020501030105030301050103000501030005010308050104 010001020101010001020101010007050103030501030005010300050103 010501036e05010302050103000501030105010300050103000502030005 010307050104010001020101010001020101010007050403000501030005 010300050103010501036e05060300050103010501030005010300050103 010501030705010401000102010101000102010101000705010303050103 00050103000505036e050103020501030005050300050103000501030105 010307050104010001020101010001020101010007050103030501030005 010300050103720501030205010300050103040501030005010301050103 070501040100010201010100010201010100070501030305010300050103 00050103010501036e050103020501030005010301050103000501030005 020300050103070501040100010201010100010201010100070501030305 010300050103010503036f05010302050103010503030105010300050103 000501030805010401000102010101000102010101009a0501030b050104 01000102010101000102010101000605060379050803090501030b050104 01000102010101000102010101000605060379050803090501030b050104 0100010201010100010201010100a8050104010001020101010001020101 0100a80501040100010201010100010201010100a8050104010001020101 0100010201010100a80501040100010201010100010201010100a8050104 0100010201010100010201010100a8050104010001020101010001020101 0100aa040100010201010100010201010000ab0401000102010101000102 0101ac05010001020101010001020101ac05010001020101010001020101 010591040305120401050100010201010100010201010105900400000305 110400000105010001020101010001020101010501048d05010003050104 06060004060601000105010001020101010001020101010501048d050100 030501040506000000040606010001050100010201010100010201010105 01048d050100030501040506000001040506010001050100010201010100 010201010105010400050103020501031905010300050103660501000305 010404060100010405060100010501000102010101000102010101050104 000501030205010385050100030501040406010000050104040601000105 010001020101010001020101010501040005010302050103010503030105 010301050103010501030105030301050103000501036605010003050104 030601000105010404060100010501000102010101000102010101050104 000501030205010300050103010501030005010301050103010501030005 010301050103000501030005010366050100030501040306010002050104 030601000105010001020101010001020101010501040005060304050103 010501030005010300050103050501030005010300050103660501000305 010402060100030501040306010001050100010201010100010201010105 010400050103020501030105040301050103000501030005010302050403 000501030005010366050100030501040206010004050104020601000105 010001020101010001020101010501040005010302050103000501030105 010301050103000501030005010301050103010501030005010300050103 660501000305010401060100050501040206010001050100010201010100 010201010105010400050103020501030005010301050103020501030105 010302050103010501030005010300050103660501000305010401060100 060501040106010001050100010201010100010201010105010400050103 020501030105020300050103010501030105010303050203000503030005 010366050100030501040006010007050104010601000105010001020101 010001020101010501048d05010003050104000601000805010400060100 0105010001020101010001020101010501048d0501000305010401000b04 000601000105010001020101010001020101010501048d05010003050104 00000d0401000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e060100010501000102010101000102010101050104000501030405 01030705010379050100030501040e060100010501000102010101000102 01010105010400050103040501030705010379050100030501040e060100 010501000102010101000102010101050104000501030105010300050103 010503030105010300050103020503036f050100030501040e0601000105 010001020101010001020101010501040005010300050103000502030005 010301050103000502030005010300050103010501036e05010003050104 0e0601000105010001020101010001020101010501040005010300050103 0105010304050103000501030105010300050103010501036e0501000305 01040e060100010501000102010101000102010101050104000501030005 01030105010301050403000501030105010300050103010501036e050100 030501040e06010001050100010201010100010201010105010400050103 000501030105010300050103010501030005010301050103000501030105 01036e050100030501040e06010001050100010201010100010201010105 010400050103000501030005020300050103010501030005010301050103 00050103010501036e050100030501040e06010001050100010201010100 010201010105010400050103010501030005010301050203000503030105 0103010503036f050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 010101050104000501030005010300050103000501030e05010370050100 030501040e06010001050100010201010100010201010105010400050103 000501030005010384050100030501040e06010001050100010201010100 010201010105010400050103000501030005010300050103000501030005 01030205030301050103010503036a050100030501040e06010001050100 010201010100010201010105010400050103000501030005010300050103 000502030005010300050103010501030005010300050103010501036905 0100030501040e0601000105010001020101010001020101010501040005 010300050103000501030005010300050103010501030005010301050103 00050103000502036c050100030501040e06010001050100010201010100 010201010105010400050103000501030005010300050103000501030105 0103000501030105010300050103020502036a050100030501040e060100 010501000102010101000102010101050104000501030005010300050103 000501030005010301050103000501030105010300050103030502036905 010003050104100001050100010201010100010201010105010400050103 000501030005010300050103000501030105010300050103010501030005 0103000501030105010369050100030501040d0000040100010501000102 010101000102010101050104000501030005010300050103000501030005 0103010501030105030301050103010503036a0501000305010401000a05 010401000105010001020101010001020101010501048d05010003050104 01000a05010401000105010001020101010001020101010501048d050100 0305010401000a0501040100010501000102010101000102010101050104 8d0501000305010401000a05010401000105010001020101010001020101 010501048d0501000305010401000a050104010001050100010201010100 01020101010501048d0501000305010401000a0501040100010501000102 0101010001020101010501048d0501000305010401000a05010401000105 010001020101010001020101010501048d0501000305010401000a050104 01000105010001020101010001020101010501048d050100030501040100 0a0501040100010501000102010101000102010101050104000501030b05 010300050103790501000305010401000a05010401000105010001020101 01000102010101050104000501030b0501037c0501000305010401000a05 010401000105010001020101010001020101010501040005010300050103 000501030205010300050103000501030105030301050103000501030205 0303650501000305010401000a0501040100010501000102010101000102 010101050104000501030005020300050103000501030005020300050103 000501030105010300050203000501030005010301050103640501000305 010401000a05010401000105010001020101010001020101010501040005 010300050103010501030005010301050103000501030405010300050103 0105010304050103640501000305010401000a0501040100010501000102 010101000102010101050104000501030005010301050103000501030105 010300050103010504030005010301050103010504036405010003050104 01000a050104010001050100010201010100010201010105010400050103 000501030105010300050103010501030005010300050103010501030005 0103010501030005010301050103640501000305010401000a0501040100 010501000102010101000102010101050104000501030005010301050103 000501030005020300050103000501030105010300050103010501030005 010301050103640501000305010401000a05010401000105010001020101 010001020101010501040005010300050103010501030105010300050103 000501030105020300050303010501030105020300050103630501000305 010401000a05010401000105010001020101010001020101010501048d05 01000305010401000a050104010001050100010201010100010201010105 01048d0501000305010401000a0501040100010501000102010101000102 0101010501048d0501000305010401000a05010401000105010001020101 010001020101010501048d0501000305010401000a050104010001050100 01020101010001020101010501048d0501000305010401000a0501040100 0105010001020101010001020101010501048d0501000305010401000a05 010401000105010001020101010001020101010501048d05010003050104 01000c0401000105010001020101010001020101010501048d0501000305 010400000d04010001050100010201010100010201010105010400050103 8a050100030501040e060100010501000102010101000102010101050104 000501038a050100030501040e0601000105010001020101010001020101 010501040005010301050303010501030105010301050103010503037205 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030005010301050103010501030005010301050103 71050100030501040e060100010501000102010101000102010101050104 000501030005010301050103010501030005010300050103050501037105 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030105010300050103000501030205040371050100 030501040e06010001050100010201010100010201010105010400050103 000501030105010301050103000501030005010301050103010501037105 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030205010301050103020501030105010371050100 030501040e06010001050100010201010100010201010105010400050103 010503030305010301050103030502030005010370050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 010001050100010201010100010201010105010400050103020501038505 0100030501040e0601000105010001020101010001020101010501040005 01030105010386050100030501040e060100010501000102010101000102 010101050104000501030005010303050303010501030005010302050303 020503030205030363050100030501040e06010001050100010201010100 010201010105010400050303030501030105010300050203000501030005 010301050103000501030105010300050103010501036205010003050104 0e0601000105010001020101010001020101010501040005030307050103 000501030105010300050203070501030005020365050100030501040e06 010001050100010201010100010201010105010400050103000501030305 040300050103010501030205020302050403020502036305010003050104 0e0601000105010001020101010001020101010501040005010301050103 010501030105010300050103010501030305020300050103010501030305 020362050100030501040e06010001050100010201010100010201010105 010400050103020501030005010301050103000501030105010300050103 010501030005010301050103000501030105010362050100030501040e06 010001050100010201010100010201010105010400050103030501030005 020300050303010501030105030302050203000501030005030363050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e06010001050100010201010100010201010105010400050103 020501030f0501030f05010361050100030501040e060100010501000102 0101010001020101010501040005010301050103100501030f0501036105 0100030501040e0601000105010001020101010001020101010501040005 010300050103030503030105010300050103010503030005010301050103 010503030105010301050103000501030205010355050100030501040e06 010001050100010201010100010201010105010400050303030501030105 010300050203000501030105010301050103010501030005010301050103 0005010300050103010501030205010355050100030501040e0601000105 010001020101010001020101010501040005030303050103010501030005 010301050103010501030105010301050103000501030405030303050103 0005010356050100030501040e0601000105010001020101010001020101 010501040005010300050103020505030005010301050103010501030105 010301050103000501030405030303050103000501035605010003050104 0e0601000105010001020101010001020101010501040005010301050103 010501030405010301050103010501030105010301050103000501030405 0103000501030305020357050100030501040e0601000105010001020101 010001020101010501040005010302050103000501030105010300050103 010501030105010300050203000502030005010301050103000501030105 01030205020357050100030501040e060100010501000102010101000102 010101050104000501030305010300050303010501030105010302050103 010501030005010301050303010501030205010302050103570501000305 01040e060100010501000102010101000102010101050104330500035805 0100030501040e0601000105010001020101010001020101010501043205 010358050100030501040e06010001050100010201010100010201010105 01043105010359050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501040005010311050103070501036c050100030501040e060100 010501000102010101000102010101050104000501038a05010003050104 0e0601000105010001020101010001020101010501040005010304050303 010501030105010300050103010503030105010301050303010501030005 01030205030358050100030501040e060100010501000102010101000102 010101050104000501030305010301050103000501030105010300050103 000501030105010300050103000501030105010300050203000501030005 01030105010357050100030501040e060100010501000102010101000102 010101050104000501030305010301050103000501030105010300050103 000502030305010304050103000501030105010304050103570501000305 01040e060100010501000102010101000102010101050104000501030305 010301050103000501030105010300050103020502030105010301050403 00050103010501030105040357050100030501040e060100010501000102 010101000102010101050104000501030305010301050103000501030105 010300050103030502030005010300050103010501030005010301050103 000501030105010357050100030501040e06010001050100010201010100 010201010105010400050103030501030105010300050103000502030005 010300050103010501030005010300050103010501030005010301050103 000501030105010357050100030501040e06010001050100010201010100 010201010105010400050503000503030205010300050103000501030105 030301050103010502030005030301050103010502030005010356050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e06010001050100010201010100010201010105010400050103 040501030705010379050100030501040e06010001050100010201010100 0102010101050104000501030405010383050100030501040e0601000105 010001020101010001020101010501040005020302050203010503030105 01030005010300050103020503036c050100030501040e06010001050100 010201010100010201010105010400050203020502030005010301050103 00050103000502030005010300050103010501036b050100030501040e06 010001050100010201010100010201010105010400050303000503030405 010300050103000501030105010300050103010501036b05010003050104 0e0601000105010001020101010001020101010501040005010300050003 000500030005010301050403000501030005010301050103000505036b05 0100030501040e0601000105010001020101010001020101010501040005 010300050203000501030005010301050103000501030005010301050103 000501036f050100030501040e0601000105010001020101010001020101 010501040005010301050003010501030005010301050103000501030005 01030105010300050103010501036b050100030501040e06010001050100 010201010100010201010105010400050103010500030105010301050203 000503030005010301050103010503036c050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d05010003050104100001050100 010201010000040101050104000501030405010314050103120501035705 01000305010400060c000004010001050100030104000001010501040005 010304050103140501031205010357050100030501040006010008050104 000601000105040000010100010201010105010400050203020502030105 030301050103000503030205010300050103010503030105010300050103 020501030005010357050100030501040106010007050104000601000105 010001020101010001020101010501040005020302050203000501030105 010300050603020501030005010300050103010501030005020300050103 000501030005020357050100030501040106010006050104010601000105 010001020101010001020101010501040005030300050303040501030005 020302050103000501030105010304050103000501030105010300050103 010501035705010003050104020601000505010401060100010501000102 010101000102010101050104000501030005000300050003000501030105 040300050103030501030005010301050103010504030005010301050103 000501030105010357050100030501040206010004050104020601000105 010001020101010001020101010501040005010300050203000501030005 010301050103000501030405020302050103000501030105010300050103 010501030005010301050103570501000305010403060100030501040206 010001050100010201010100010201010105010400050103010500030105 010300050103010501030005010304050203020501030005010301050103 000501030105010300050103000502035705010003050104030601000205 010403060100010501000102010101000102010101050104000501030105 000301050103010502030005030305050103020501030105020300050303 010501030105010300050103570501000305010404060100010501040306 010001050100010201010100010201010105010419050003720501000305 010404060100000501040406010001050100010201010100010201010105 010418050103720501000305010405060000020404060100010501000102 010101000102010101050104170501037305010003050104050600000104 050601000105010001020101010001020101010501048d05010003050104 06060104050601000105010001020101010001020101010501048d050100 030501040606000406060100010501000102010101000102010101050104 8f0003050104100001050100010201010100010201010105000490000305 000411000105010001020101010001020101ac0501000102010101000102 0101ac05010001020101010001020101ae0001020101010001020001af00 010201010100130200010000880200010000130201010100130200010000 880200010000130201010100140100008901000015010000b701 % % Run-length encoding savings = 75.7% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 188 155 0 0 188 155 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 188 def /pp_by2 155 def gs 276 228 1372 659 CB 275 227 1372 659 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkToplev %%Pages: 1 %%BoundingBox: 0 0 188 155 %%CreationDate: Thu Dec 1 14:11:55 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 188 155 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 188 155 8 [188 0 0 -155 0 155] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba pop pop drawcolormappedimage d10000018c0000011500000101001302000100008b020001000013020101 01001302000100008b02000100001302010101000102120100008c010000 110101020101010001020001b2000102010101000102000100000f020001 00007902000100000f02000100000f020001000001020101010001020001 00000f02000100007902000100000f02000100000f020001000001020101 01000102000100000f02000100007902000100000f02000100000f020001 00000102010101000102000100000f02000100002b020403020201030702 01033902000100000f020001000002020900020200010000010201010100 0102000100000f02000100002b020103010201030b020103390200010000 0f0200010000020200000702000102020001000001020101010001020001 00000f02000100002b020103020201030002010301020303010201030102 030302020103000201032b02000100000f02000100000202000007020001 020200010000010201010100010200010000020209000202000100002b02 010302020103000201030002010301020103000201030002010301020103 00020103000202032b020001000005020300050200010000020200000702 000102020001000001020101010001020001000002020000070200010202 000100002b02010302020103000201030402010300020103000201030102 010300020103010201032b02000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100002b02010302020103000201030102040300020103 000201030102010300020103010201032b02000100000502000001020001 050200010000020200000702000102020001000001020101010001020001 00000202000008010202000100002b020103020201030002010300020103 0102010300020103000201030102010300020103010201032b0200010000 050200000201050200010000020200000702000102020001000001020101 01000102000100000f02000100002b020103010201030102010300020103 0102010300020103000201030102010300020103000202032b0200010000 0f0200010000020200000702000102020001000001020101010001020001 00000f02000100002b020403020201030102020300020303010203030202 0103000201032b02000100000f0200010000020200000702000102020001 00000102010101000102000100000f02000100004b0201032b0200010000 0f0200010000020200000801020200010000010201010100010200010000 0f020001000047020103010201032b02000100000f02000100000f020001 00000102010101000102000100000f0200010000480203032c0200010000 0f02000100000f0200010000010201010100010200010000100100007a01 00001001000010010000010201010000b5010000030104000001b4000001 010001020101ae0000040100010201010100010201010100ab0501040100 010201010100010201010100ab0501040100010201010100010201010100 ab0501040100010201010100010201010100ab0501040100010201010100 010201010100ab0501040100010201010100010201010100ab0501040100 010201010100010201010100ab0501040100010201010100010201010100 ab0501040100010201010100010201010100ab0501040100010201010100 010201010100ab05010401000102010101000102010101000e0501035c05 01033b05010401000102010101000102010101000e050103570501030205 01030e0501032a05010401000102010101000102010101000d0503035605 0103020501030e0501032a05010401000102010101000102010101000d05 000301050003030501030005010301050303050501030305010302050203 030501030205010306050303020501030205010301050103000501030105 030305050403000501030005020303050303010504030305010303050103 0205020303050103020501030b0501040100010201010100010201010100 0c0501030105010302050403000501030105010304050103030501030105 010300050103020501030205010305050203000501030105010302050103 010504030005010301050103050501030205020300050203010501030105 010301050103050501030305010301050103000501030205010302050103 0b05010401000102010101000102010101000c0501030105010302050103 030501030105010305050103010501030105010302050103010501030205 010305050103050501030205010301050103030501030105010305050103 020501030205010305050103010501030605010301050103010501030205 010301050103020501030b05010401000102010101000102010101000b05 010303050103010501030305050305050103010501030105010302050103 010501030205010306050303020501030205010301050103030505030505 010302050103020501030205040301050103060501030105010301050103 0205010301050103020501030b0501040100010201010100010201010100 0b05070301050103030501030a0500030105000302050103020501030105 010302050103080502030105010302050103010501030305010309050103 020501030205010301050103010501030105010307050003010500030205 01030205010301050103020501030b050104010001020101010001020101 01000b0501030305010301050103030501030a0503030205010302050103 010501030205010309050103010501030205010301050103030501030905 010302050103020501030105010301050103010501030705030302050103 0205010301050103020501030b0501040100010201010100010201010100 0a0501030505010300050103030502030005010307050103040501030005 010302050203000502030505020300050103010502030005020301050103 030502030005010305050103000500030005010302050103010505030105 01030005000306050103040501030005010302050203000502030b050104 01000102010101000102010101000a050103050501030005010304050303 080501030505020304050203000501030605030303050203000501030105 010304050303070501030105010302050103020502030005010301050103 070501030505020304050203000501030b05010401000102010101000102 01010100290501035d0501031f0501040100010201010100010201010100 280501035d05010320050104010001020101010001020101010027050203 5c050203200501040100010201010100010201010100ab05010401000102 01010100010201010100ab05010401000102010101000102010101002105 01030105010348050103090501032c050104010001020101010001020101 010021050103010501032805010306050103140501030905010309050103 200501040100010201010100010201010100210501030105010328050103 060501031405010309050103090501032005010401000102010101000102 010101000b05010300050103010503030305030302050103010501030005 010303050103030501030105010301050103010503030205010300050203 010504030305040302050203090504030205030302050103020503030105 0403010503031805010401000102010101000102010101000b0504030005 010301050103010501030105010301050103010501030005010303050103 030501030105010301050103000501030105010301050203000502030105 010306050103030501030005010307050103000502030105010301050103 010501030105010301050103010501030205010301050103170501040100 0102010101000102010101000b0501030305010301050103050501030105 010301050103010501030105010304050103010501030105010304050103 010501030205010301050103060501030205010302050103050501030205 010301050103010501030105010301050103010501030105010302050103 010501031705010401000102010101000102010101000b05010303050503 020504030105010301050103010501030105010305050103000501030005 010302050403010501030205010301050103060501030205010302050103 050501030205010301050503010501030105050301050103020505031705 010401000102010101000102010101000b05010303050103050501030105 010301050103010501030205000301050003060501030005010300050103 010501030105010301050103020501030105010306050103020501030205 010305050103020501030105010305050103010501030505010302050103 1b05010401000102010101000102010101000b0501030305010305050103 010501030105010301050103020503030705010301050103020501030105 010301050103020501030105010306050103020501030205010305050103 0205010301050103050501030105010305050103020501031b0501040100 0102010101000102010101000b0501030305020300050103010505030105 010301050103030501030805010301050103020505030105010302050103 010501030005000304050103000500030105010300050103070501030005 020301050203000501030105010301050203000501030105010300050003 00050203000501031705010401000102010101000102010101000b050103 040503030305020300050103000501030105010303050103080501030105 010303050203000501030005010302050103020501030605010303050203 090501030005010302050303020501030205030303050103020503031805 010401000102010101000102010101002b0501037d050104010001020101 01000102010101002a0501037e0501040100010201010100010201010100 290502037e0501040100010201010100010201010100ab05010401000102 01010100010201010100ab05010401000102010101000102010101000b05 01030005010301050103030501032a050103000501030605020323050103 3005010401000102010101000102010101000b0501030005010301050103 020501032b05010300050103050501032005010302050103300501040100 0102010101000102010101000b0500030105000302050103010501032c05 000301050003060501032005010302050103300501040100010201010100 010201010100120501030005010305050303020501030005020303050303 03050303030503030c050303000501030005010302050203030501030005 010300050203050504030005010300050203030503032405010401000102 010101000102010101001205030305050103010501030105020300050203 0105020300050103010501030105010301050203000501030c0501030105 040301050103000501030205020300050203000501030505010302050203 000502030105010301050103230501040100010201010100010201010100 120503030905010301050103020501030105010309050103010501031005 010301050103030501030205010301050103010501030105010305050103 020501030205010301050103010501032305010401000102010101000102 010101001205010300050103050504030105010302050103020503030305 0403020503030d0501030105010303050103020501030105010301050103 010501030505010302050103020501030105050323050104010001020101 010001020101010012050103010501030305010301050103010501030205 0103040502030105010301050103040502030c0501030105010303050103 020501030105010301050103010501030505010302050103020501030105 010327050104010001020101010001020101010012050103020501030205 010301050103010501030205010305050103010501030105010305050103 0c0501030105010303050103020501030105010301050103010501030505 010302050103020501030105010327050104010001020101010001020101 010012050103030501030105050301050103020501030105020300050103 0105050301050203000501030c0501030105010304050103000501030205 010301050103010501030505010300050003000501030205010301050203 000501032305010401000102010101000102010101001205010304050103 010502030005010300050103020501030205030303050203000501030105 03030d050103010501030505020303050103010501030105010306050103 010501030205010302050303240501040100010201010100010201010100 ab0501040100010201010100010201010100ab0501040100010201010100 010201010100ab0501040100010201010100010201010100ab0501040100 010201010100010201010100ab0501040100010201010100010201010100 10050103160501031f0504035a0501040100010201010100010201010100 10050103090501030a0501031e0501030205010359050104010001020101 010001020101010010050103090501030a0501031e050103020501035905 010401000102010101000102010101000d05040302050303010504030105 030302050403040503030305030303050303070501035905010401000102 010101000102010101000c05010300050203010501030105010301050103 020501030105010301050203000501030205010301050103010502030005 01030105010301050103050501035a050104010001020101010001020101 01000b050103020501030505010301050103060501030105010302050103 05050103010501030505010301050103040501035b050104010001020101 01000102010101000b050103020501030205040301050103030504030105 010302050103020504030205030302050503030501035c05010401000102 010101000102010101000b05010302050103010501030105010301050103 020501030105010301050103020501030105010301050103040502030105 0103070501035c05010401000102010101000102010101000b0501030205 010301050103010501030105010302050103010501030105010302050103 010501030105010305050103010501036605010401000102010101000102 010101000c05010300050203010505030105010300050003000505030105 020300050103020505030105020300050103010502030005010303050103 5c05010401000102010101000102010101000d0501030005010302050203 000501030105010302050203000501030005010300050103040502030005 01030105030303050303040501035c050104010001020101010001020101 0100ab0501040100010201010100010201010100ab050104010001020101 0100010201010100ab0501040100010201010100010201010100ab050104 0100010201010100010201010100ab050104010001020101010001020101 0100ab0501040100010201010100010201010100ab050104010001020101 0100010201010100ab0501040100010201010100010201010100ab050104 0100010201010100010201010100ab050104010001020101010001020101 0100ab0501040100010201010100010201010100ad040100010201010100 010201010000ae04010001020101010001020101af050100010201010100 01020101af05010001020101010001020101af0501000102010101000102 0101af05010001020101010001020101af05010001020101010001020101 af05010001020101010001020101af050100010201010100010201011305 310028052b00140501000102010101000102010113053000000428052a00 00041405010001020101010001020101130501002d050104280501002705 01041405010001020101010001020101130501002d050104280501002705 01041405010001020101010001020101130501002d050104280501002705 01041405010001020101010001020101130501002d050104280501002705 01041405010001020101010001020101130501002d050104280501002705 01041405010001020101010001020101130501002d050104280501002705 01041405010001020101010001020101130501000a050103030501031a05 0104280501000b0501030205010314050104140501000102010101000102 0101130501000a050103030501031a050104280501000b05020301050103 140501041405010001020101010001020101130501000b05010301050103 01050303020503030e050104280501000b05020301050103010503030e05 01041405010001020101010001020101130501000b050103010501030005 01030105010300050103010501030d050104280501000b05010300050003 0005010300050103010501030d0501041405010001020101010001020101 130501000c05030301050103010501030005020310050104280501000b05 0103000500030005010300050103010501030d0501041405010001020101 010001020101130501000d05010302050503020502030e05010428050100 0b0501030105020300050103010501030d05010414050100010201010100 01020101130501000d05010302050103070502030d050104280501000b05 01030105020300050103010501030d050104140501000102010101000102 0101130501000d050103020501030105010300050103010501030d050104 280501000b0501030205010300050103010501030d050104140501000102 0101010001020101130501000d05010303050303020503030e0501042805 01000b05010302050103010503030e050104140501000102010100000401 130501002d05010428050100270501041405010003010400000113050100 2d0501042805010027050104140504000001010001020101130501002d05 010428050100270501041405010001020101010001020101130501002d05 010428050100270501041405010001020101010001020101130501002d05 010428050100270501041405010001020101010001020101130501002d05 010428050100270501041405010001020101010001020101130501002d05 010428050100270501041405010001020101010001020101130501002d05 010428050100270501041405010001020101010001020101130501002d05 010428050100270501041405010001020101010001020101130501002f04 280501002904140501000102010101000102010113050000300428050000 2a041405010001020101010001020101af05010001020101010001020101 af05010001020101010001020101af05010001020101010001020101af05 010001020101010001020101af05010001020101010001020101af050100 01020101010001020101af05010001020101010001020101b10001020101 010001020001b2000102010101001302000100008b020001000013020101 01001302000100008b0200010000130201010100140100008c0100001501 0000ba01 % % Run-length encoding savings = 76.1% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 663 1234 230 (.menu.file) 230 SB gr gs 1500 1125 463 400 CB 1022 1109 161 (.scroll) 161 SB gr gs 1500 1125 463 400 CB 963 1234 230 (.menu.help) 230 SB gr gs 1500 1125 463 400 CB 857 1109 115 (.menu) 115 SB gr gs 1500 1125 463 400 CB 623 1109 184 (.listbox) 184 SB gr 1 lc 1 lj 6 4 SP gs 154 79 776 1161 CB 1076 1086 M -450 225 1 PP S n gr gs 153 79 926 1161 CB 777 1086 M 447 225 1 PP S n gr gs 190 1125 914 400 CB 728 938 M 558 261 1 PP S n gr gs 1500 91 463 1025 CB 914 938 M 0 261 1 PP S n gr gs 203 1125 715 400 CB 1113 938 M -597 261 1 PP S n gr gs 1500 1125 463 400 CB 1609 1234 161 (.dlg.no) 161 SB gr gs 1500 1125 463 400 CB 1435 1284 184 (.dlg.yes) 184 SB gr gs 1500 1125 463 400 CB 1273 1234 184 (.dlg.msg) 184 SB gr gs 1500 1125 463 400 CB 1481 1109 92 (.dlg) 92 SB gr gs 615 1125 914 400 CB 303 938 M 1833 261 1 PP S n gr gs 166 1125 1363 400 CB 1687 1086 M -486 225 1 PP S n gr gs 166 1125 1525 400 CB 1363 1086 M 486 225 1 PP S n gr gs 1500 129 463 1161 CB 1525 1036 M 0 375 1 PP S n gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 578 940 56 (Ma) 55 SB 633 940 34 (in) 33 SB gr gs 1500 1125 463 400 CB 578 985 133 (window) 133 SB gr gs 1500 1125 463 400 CB 1712 965 161 (Top-level) 161 SB gr gs 1500 1125 463 400 CB 1740 1010 133 (window) 133 SB gr gs 1500 1125 463 400 CB 1236 928 36 (In) 35 SB 1271 928 12 (t) 11 SB 1282 928 18 (e) 19 SB 1301 928 15 (r) 14 SB 1315 928 22 (n) 20 SB 1335 928 31 (al) 31 SB gr gs 1500 1125 463 400 CB 1226 973 149 (windows) 149 SB gr 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 902 971 23 (.) 23 SB gr gs 161 1125 1568 400 CB 1900 938 M -525 261 1 PP S n gr 0 0 0 fC /fm 256 def 1551 1112 M -28 26 -10 -20 38 -6 3 PP 1 F n 6 4 SP gs 169 1125 689 400 CB 502 974 M 561 39 1 PP S n gr /fm 256 def 876 1000 M 38 -8 -2 22 -36 -14 3 PP 1 F n 6 4 SP gs 99 64 1168 1025 CB 1376 950 M -339 225 1 PP S n gr /fm 256 def 1151 1101 M -24 30 -12 -18 36 -12 3 PP 1 F n 6 4 SP gs 140 169 1152 1037 CB 1438 850 M -450 561 1 PP S n gr /fm 256 def 1139 1225 M -14 36 -18 -14 32 -22 3 PP 1 F n 6 4 SP gs 1500 169 463 1037 CB 1300 850 M 39 561 1 PP S n gr /fm 256 def 1326 1225 M 14 36 -22 2 8 -38 3 PP 1 F n 6 4 SP gs 162 231 1338 1025 CB 1164 776 M 522 747 1 PP S n gr /fm 256 def 1512 1275 M 30 24 -18 12 -12 -36 3 PP 1 F n 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 566 2699 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 1705 CB 1492 2699 306 (December 1, 1994, slide 6) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 1 SJ 566 1793 562 (Creating Widgets) 562 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1965 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 1949 399 (Each widget has a ) 399 SB gr gs 1500 1125 463 1705 CB 1022 1949 98 (class) 98 SB gr gs 1500 1125 463 1705 CB 1 4 SJ 1120 1949 652 (: button, listbox, scrollbar, etc.) 652 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2084 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2068 102 (One ) 102 SB gr gs 1500 1125 463 1705 CB 1 1 SJ 725 2068 321 (class command) 321 SB gr gs 1500 1125 463 1705 CB 3 6 SJ 1046 2068 616 ( for each class, used to create) 616 SB gr gs 1500 1125 463 1705 CB 622 2128 211 (instances:) 211 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2206 1080 (button .a.b -text Quit -command exit) 1080 SB gr gs 1500 1125 463 1705 CB 641 2281 930 (scrollbar .x -orient horizontal) 930 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB -2 1 SJ 673 2449 184 (class name) 184 SB gr gs 1500 1125 463 1705 CB -1 1 SJ 833 2537 236 (window name) 236 SB gr gs 1500 1125 463 1705 CB -3 1 SJ 1184 2449 361 (configuration options) 361 SB gr 6 4 SP gs 1500 48 463 2398 CB 764 2504 M 0 -186 1 PP S n gr /fm 256 def 764 2379 M -11 -37 22 0 -11 37 3 PP 1 F n 6 4 SP gs 1500 135 463 2398 CB 951 2678 M 0 -447 1 PP S n gr /fm 256 def 951 2379 M -11 -37 22 0 -11 37 3 PP 1 F n 6 4 SP gs 1500 48 463 2398 CB 1363 2504 M 0 -186 1 PP S n gr /fm 256 def 1363 2379 M -11 -37 22 0 -11 37 3 PP 1 F n 6 4 SP 0 0 1 0 14 -14 0 12 12 753 2369 A S n 0 0 1 14 0 0 14 12 12 878 2344 A S n 0 0 1 0 -14 14 0 12 12 653 2344 A S n 0 0 1 -14 0 0 -14 12 12 778 2369 A S n 0 0 1 0 14 -14 0 12 12 940 2369 A S n 0 0 1 14 0 0 14 12 12 990 2344 A S n 0 0 1 0 -14 14 0 12 12 915 2344 A S n 0 0 1 -14 0 0 -14 12 12 965 2369 A S n 0 0 1 0 14 -14 0 12 12 1352 2369 A S n 0 0 1 14 0 0 14 12 12 1701 2344 A S n 0 0 1 0 -13 14 1 12 12 1027 2344 A S n 0 0 1 -14 0 0 -14 12 12 1377 2369 A S n gs 103 1125 652 1705 CB 553 2355 M 297 0 1 PP S n gr gs 104 1125 776 1705 CB 676 2355 M 300 0 1 PP S n gr gs 29 1125 914 1705 CB 889 2355 M 75 0 1 PP S n gr gs 29 1125 964 1705 CB 939 2355 M 75 0 1 PP S n gr gs 328 1125 1376 1705 CB 1052 2355 M 972 0 1 PP S n gr gs 329 1125 1026 1705 CB 701 2355 M 975 0 1 PP S n gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 4 4 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 566 1394 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 400 CB 1492 1394 306 (December 1, 1994, slide 7) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 5 1 SJ 566 488 722 (Configuration Options) 722 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 635 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 619 650 (Defined by class. For buttons:) 650 SB gr 32 0 0 33 33 0 0 0 28 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 661 682 340 (-activebackground) 340 SB gr gs 1500 1125 463 400 CB 1036 682 140 (-cursor) 140 SB gr gs 1500 1125 463 400 CB 1438 682 120 (-image) 120 SB gr gs 1500 1125 463 400 CB 1616 682 260 (-textvariable) 260 SB gr gs 1500 1125 463 400 CB 661 722 340 (-activeforeground) 340 SB gr gs 1500 1125 463 400 CB 1036 722 380 (-disabledforeground) 380 SB gr gs 1500 1125 463 400 CB 1438 722 160 (-justify) 160 SB gr gs 1500 1125 463 400 CB 1616 722 200 (-underline) 200 SB gr gs 1500 1125 463 400 CB 661 762 140 (-anchor) 140 SB gr gs 1500 1125 463 400 CB 1036 762 100 (-font) 100 SB gr gs 1500 1125 463 400 CB 1438 762 100 (-padx) 100 SB gr gs 1500 1125 463 400 CB 1616 762 120 (-width) 120 SB gr gs 1500 1125 463 400 CB 661 802 220 (-background) 220 SB gr gs 1500 1125 463 400 CB 1036 802 220 (-foreground) 220 SB gr gs 1500 1125 463 400 CB 1438 802 100 (-pady) 100 SB gr gs 1500 1125 463 400 CB 1616 802 220 (-wraplength) 220 SB gr gs 1500 1125 463 400 CB 661 842 140 (-bitmap) 140 SB gr gs 1500 1125 463 400 CB 1036 842 140 (-height) 140 SB gr gs 1500 1125 463 400 CB 1438 842 140 (-relief) 140 SB gr gs 1500 1125 463 400 CB 661 882 240 (-borderwidth) 240 SB gr gs 1500 1125 463 400 CB 1036 882 300 (-highlightcolor) 300 SB gr gs 1500 1125 463 400 CB 1438 882 120 (-state) 120 SB gr gs 1500 1125 463 400 CB 661 922 160 (-command) 160 SB gr gs 1500 1125 463 400 CB 1036 922 380 (-highlightthickness) 380 SB gr gs 1500 1125 463 400 CB 1438 922 100 (-text) 100 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 999 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 983 1224 (If not specified in command, taken from option database:) 1224 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 1059 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 666 1059 271 (Loaded from ) 271 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 937 1061 510 (RESOURCE_MANAGER ) 510 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 1447 1059 226 (property or) 226 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 5 1 SJ 661 1121 330 (.Xdefaults ) 330 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 996 1119 74 (file.) 74 SB gr gs 1500 1125 463 400 CB 641 1194 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 6 5 SJ 666 1194 504 (May be set, queried with ) 504 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1176 1196 180 (option) 180 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 1 1 SJ 1356 1194 219 ( command.) 219 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1293 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 1277 1094 (If not in option database, default provided by class.) 1094 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 566 2699 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 1705 CB 1492 2699 306 (December 1, 1994, slide 8) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 7 1 SJ 566 1793 753 (Geometry Management) 753 SB gr 32 0 0 35 35 0 0 0 28 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1963 28 (u) 28 SB gr 32 0 0 46 46 0 0 0 43 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 8 3 SJ 622 1948 523 (Widgets don't control their) 523 SB gr gs 1500 1125 463 1705 CB 8 3 SJ 622 2003 459 (own positions and sizes:) 459 SB gr gs 1500 1125 463 1705 CB 8 2 SJ 622 2058 389 (geometry managers ) 389 SB gr gs 1500 1125 463 1705 CB 1019 2058 60 (do.) 60 SB gr 32 0 0 35 35 0 0 0 28 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2161 28 (u) 28 SB gr 32 0 0 46 46 0 0 0 43 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 7 3 SJ 622 2146 516 (Widgets don't even appear) 516 SB gr gs 1500 1125 463 1705 CB 9 3 SJ 622 2201 351 (on the screen until) 351 SB gr gs 1500 1125 463 1705 CB 9 3 SJ 622 2256 458 (managed by a geometry) 458 SB gr gs 1500 1125 463 1705 CB 622 2310 179 (manager.) 179 SB gr 32 0 0 35 35 0 0 0 28 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2413 28 (u) 28 SB gr 32 0 0 46 46 0 0 0 43 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 8 2 SJ 622 2398 410 (Geometry manager =) 410 SB gr gs 1500 1125 463 1705 CB 13 2 SJ 622 2453 458 (algorithm for arranging) 458 SB gr gs 1500 1125 463 1705 CB 3 2 SJ 622 2508 287 (slave windows ) 287 SB gr gs 1500 1125 463 1705 CB 4 2 SJ 913 2508 228 (relative to a) 228 SB gr gs 1500 1125 463 1705 CB 6 1 SJ 622 2563 293 (master window) 293 SB gr gs 1500 1125 463 1705 CB 921 2563 12 (.) 12 SB gr 6 4 SP 252 254 185 fC /fm 256 def 1439 2282 1688 2406 15 15 RR 1 F S n 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 1480 2292 165 (Geometry) 165 SB gr gs 1500 1125 463 1705 CB 1489 2342 56 (Ma) 55 SB 1544 2342 22 (n) 21 SB 1565 2342 73 (ager) 72 SB gr gs 1500 1125 463 1705 CB 1 1 SJ 1226 2083 248 (Requested size) 248 SB gr gs 1500 1125 463 1705 CB 1262 2128 177 (from slave) 177 SB gr gs 1500 1125 463 1705 CB -3 1 SJ 1425 1958 280 (Parameters from) 280 SB gr gs 1500 1125 463 1705 CB -5 1 SJ 1395 2003 342 (application designer) 342 SB gr gs 1500 1125 463 1705 CB 3 1 SJ 1669 2083 209 (Geometry of) 209 SB gr gs 1500 1125 463 1705 CB 1720 2128 33 (m) 32 SB 1752 2128 80 (aster) 79 SB gr gs 1500 1125 463 1705 CB -4 2 SJ 1207 2508 291 (Size and location) 291 SB gr gs 1500 1125 463 1705 CB 2 1 SJ 1285 2553 129 (of slave) 129 SB gr gs 1500 1125 463 1705 CB 1 1 SJ 1651 2508 248 (Requested size) 248 SB gr gs 1500 1125 463 1705 CB -2 1 SJ 1691 2553 172 (for master) 172 SB gr gs 1500 194 463 2055 CB 1562 1843 M 0 636 1 PP S n gr /fm 256 def 1562 2268 M 11 37 -22 0 11 -37 3 PP 1 F n 6 4 SP 1774 2179 M -42 22 0 63 2 PP S n /fm 256 def 1704 2281 M -27 28 -10 -20 37 -8 3 PP 1 F n 6 4 SP 1354 2179 M 42 22 0 63 2 PP S n /fm 256 def 1425 2281 M 38 8 -10 20 -28 -28 3 PP 1 F n 6 4 SP 1354 2471 M 71 -37 0 -29 2 PP S n /fm 256 def 1354 2505 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1774 2471 M -71 -37 0 -29 2 PP S n /fm 256 def 1774 2505 M 11 38 -22 0 11 -38 3 PP 1 F n 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 5 5 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 566 1394 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 400 CB 1492 1394 306 (December 1, 1994, slide 9) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 1 SJ 566 488 346 (The Placer) 346 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 635 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 4 SJ 622 619 636 (Simple but not very powerful.) 636 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 710 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 7 SJ 622 694 1105 (Each slave placed individually relative to its master.) 1105 SB gr %MSEPS Preamble 0 0 189 135 0 0 189 135 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 189 def /pp_by2 135 def 0 lc 0 lj 0 1 SP gs 395 282 1450 769 CB 394 281 1450 769 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPlace1 %%Pages: 1 %%BoundingBox: 0 0 189 135 %%CreationDate: Thu Dec 1 14:12:40 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 189 135 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 24 string def /drawcolormappedimage { 189 135 8 [189 0 0 -135 0 135] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 dbf3f3 f3d9ba 5d7988 9cc9e2 pop pop drawcolormappedimage d20000018d0000011500000101001302000100008c020001000013020101 01001302000100008c02000100001302010101000102120100008d010000 110101020101010001020001b3000102010101000102000100000f020001 00007a02000100000f02000100000f020001000001020101010001020001 00000f02000100007a02000100000f02000100000f020001000001020101 01000102000100000f02000100007a02000100000f02000100000f020001 00000102010101000102000100000f020001000039020103070201033402 000100000f02000100000202090002020001000001020101010001020001 00000f0200010000430201033402000100000f0200010000020200000702 00010202000100000102010101000102000100000f02000100002e020103 010201030102010300020103010203030102010300020103310200010000 0f0200010000020200000702000102020001000001020101010001020001 0000020209000202000100002e0201030102010301020103000201030002 010301020103000202030002010330020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100002f02010300020103000201030102010300020203 030201030102010330020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 00010202000100002f020103000201030002010301020103020202030102 010301020103300200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100002f02010300020103000201030102010303020203000201030102 010330020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100003002010301020103 02020103000201030102010300020103010201033002000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100003002010301020103020201030102030301020103010201033002 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100007a02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100007a0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 7a02000100000f02000100000f0200010000010201010100010200010000 100100007b0100001001000010010000010201010000b601000003010400 000134047b0504000001010001020101330400067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010432067b05 010001020101010001020101000433067b05010001020101010001020101 b005010001020101010001020101b005010001020101010001020101b005 010001020101010001020101b005010001020101010001020101b0050100 01020101010001020101b005010001020101010001020101b00501000102 0101010001020101b005010001020101010001020101b005010001020101 010001020101b005010001020101010001020101b0050100010201010100 01020101b005010001020101010001020101b00501000102010101000102 0101b005010001020101010001020101b005010001020101010001020101 b005010001020101010001020101b005010001020101010001020101b005 010001020101010001020101b005010001020101010001020101b0050100 01020101010001020101b005010001020101010001020101b00501000102 0101010001020101b005010001020101010001020101b005010001020101 010001020101b005010001020101010001020101b0050100010201010100 01020101b005010001020101010001020101b00501000102010101000102 0101b005010001020101010001020101b005010001020101010001020101 b005010001020101010001020101b005010001020101010001020101b005 010001020101010001020101b005010001020101010001020101b0050100 01020101010001020101b005010001020101010001020101b00501000102 0101010001020101b005010001020101010001020101b005010001020101 010001020101b005010001020101010001020101b0050100010201010100 01020101b005010001020101010001020101b00501000102010101000102 0101b005010001020101010001020101b005010001020101010001020101 b005010001020101010001020101b005010001020101010001020101b005 010001020101010001020101b005010001020101010001020101b0050100 01020101010001020101b005010001020101010001020101b00501000102 0101010001020101b00501000102010100000401b0050100030104000001 b00504000001010001020101b005010001020101010001020101b0050100 01020101010001020101b005010001020101010001020101b00501000102 0101010001020101b005010001020101010001020101b005010001020101 010001020101b005010001020101010001020101b0050100010201010100 01020101b005010001020101010001020101b00501000102010101000102 0101b005010001020101010001020101b005010001020101010001020101 b005010001020101010001020101b005010001020101010001020101b005 010001020101010001020101b005010001020101010001020101b2000102 0101010001020001b3000102010101001302000100008c02000100001302 010101001302000100008c0200010000130201010100140100008d010000 15010000bb01 % % Run-length encoding savings = 89.3% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 189 135 0 0 189 135 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 189 def /pp_by2 135 def gs 395 282 1450 1081 CB 394 281 1450 1081 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPlace2 %%Pages: 1 %%BoundingBox: 0 0 189 135 %%CreationDate: Thu Dec 1 14:12:41 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 189 135 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 24 string def /drawcolormappedimage { 189 135 8 [189 0 0 -135 0 135] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba dbf3f3 5d7988 9cc9e2 pop pop drawcolormappedimage d20000018d0000011500000101001302000100008c020001000013020101 01001302000100008c02000100001302010101000102120100008d010000 110101020101010001020001b3000102010101000102000100000f020001 00007a02000100000f02000100000f020001000001020101010001020001 00000f02000100007a02000100000f02000100000f020001000001020101 01000102000100000f02000100007a02000100000f02000100000f020001 00000102010101000102000100000f020001000039020103070201033402 000100000f02000100000202090002020001000001020101010001020001 00000f0200010000430201033402000100000f0200010000020200000702 00010202000100000102010101000102000100000f02000100002e020103 010201030102010300020103010203030102010300020103310200010000 0f0200010000020200000702000102020001000001020101010001020001 0000020209000202000100002e0201030102010301020103000201030002 010301020103000202030002010330020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100002f02010300020103000201030102010300020203 030201030102010330020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 00010202000100002f020103000201030002010301020103020202030102 010301020103300200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100002f02010300020103000201030102010303020203000201030102 010330020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100003002010301020103 02020103000201030102010300020103010201033002000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100003002010301020103020201030102030301020103010201033002 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100007a02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100007a0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 7a02000100000f02000100000f0200010000010201010100010200010000 100100007b0100001001000010010000010201010000b601000003010400 0001b00404000001010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101220434055804 010001020101010001020101220433050006580401000102010101000102 010122040105300701065804010001020101010001020101220401053007 010658040100010201010100010201012204010530070106580401000102 010101000102010122040105300701065804010001020101010001020101 220401053007010658040100010201010100010201012204010530070106 580401000102010101000102010122040105300701065804010001020101 010001020101220401053007010658040100010201010100010201012204 010530070106580401000102010101000102010122040105300701065804 010001020101010001020101220401053007010658040100010201010100 010201012204010530070106580401000102010101000102010122040105 300701065804010001020101010001020101220401053007010658040100 010201010100010201012204010530070106580401000102010101000102 010122040105300701065804010001020101010001020101220401053007 010658040100010201010100010201012204010530070106580401000102 010101000102010122040105300701065804010001020101010001020101 220401053007010658040100010201010100010201012204010530070106 580401000102010101000102010122040105300701065804010001020101 010001020101220401053007010658040100010201010100010201012204 010530070106580401000102010101000102010122040105300701065804 010001020101010001020101220401053007010658040100010201010100 010201012204010530070106580401000102010101000102010122040105 300701065804010001020101010001020101220401053007010658040100 010201010100010201012204010530070106580401000102010101000102 010122040105300701065804010001020101010001020101220401053206 580401000102010101000102010122040005330658040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010100000401 b0040100030104000001b00404000001010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b20001020101010001020001b30001020101010013020001 00008c02000100001302010101001302000100008c020001000013020101 0100140100008d01000015010000bb01 % % Run-length encoding savings = 89.0% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 591 884 414 (place .x -x 0 -y 0) 414 SB gr gs 1500 1125 463 400 CB 591 1184 828 (place .x -x 1.0c -rely 0.5 -anchor w) 828 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 1 lc 1 lj 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 566 2699 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 10) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 2 SJ 566 1793 582 (The Placer, cont'd) 582 SB gr %MSEPS Preamble 0 0 189 135 0 0 189 135 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 189 def /pp_by2 135 def 0 lc 0 lj 0 1 SP gs 395 282 1412 2298 CB 394 281 1412 2298 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPlace4 %%Pages: 1 %%BoundingBox: 0 0 189 135 %%CreationDate: Thu Dec 1 14:12:42 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 189 135 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 24 string def /drawcolormappedimage { 189 135 8 [189 0 0 -135 0 135] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba dbf3f3 5d7988 9cc9e2 pop pop drawcolormappedimage d20000018d0000011500000101001302000100008c020001000013020101 01001302000100008c02000100001302010101000102120100008d010000 110101020101010001020001b3000102010101000102000100000f020001 00007a02000100000f02000100000f020001000001020101010001020001 00000f02000100007a02000100000f02000100000f020001000001020101 01000102000100000f02000100007a02000100000f02000100000f020001 00000102010101000102000100000f020001000039020103070201033402 000100000f02000100000202090002020001000001020101010001020001 00000f0200010000430201033402000100000f0200010000020200000702 00010202000100000102010101000102000100000f02000100002e020103 010201030102010300020103010203030102010300020103310200010000 0f0200010000020200000702000102020001000001020101010001020001 0000020209000202000100002e0201030102010301020103000201030002 010301020103000202030002010330020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100002f02010300020103000201030102010300020203 030201030102010330020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 00010202000100002f020103000201030002010301020103020202030102 010301020103300200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100002f02010300020103000201030102010303020203000201030102 010330020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100003002010301020103 02020103000201030102010300020103010201033002000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100003002010301020103020201030102030301020103010201033002 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100007a02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100007a0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 7a02000100000f02000100000f0200010000010201010100010200010000 100100007b0100001001000010010000010201010000b601000003010400 0001b00404000001010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b0040100010201010100010201015805570401000102 010101000102010157050006570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010100000401010554070106 570401000301040000010105540701065704040000010100010201010105 540701065704010001020101010001020101010554070106570401000102 010101000102010101055407010657040100010201010100010201010105 540701065704010001020101010001020101010554070106570401000102 010101000102010101055407010657040100010201010100010201010105 540701065704010001020101010001020101010554070106570401000102 010101000102010101055407010657040100010201010100010201010105 540701065704010001020101010001020101010554070106570401000102 010101000102010101055407010657040100010201010100010201010105 540701065704010001020101010001020101010554070106570401000102 010101000102010101055606570401000102010101000102010100055706 5704010001020101010001020101b20001020101010001020001b3000102 010101001302000100008c02000100001302010101001302000100008c02 00010000130201010100140100008d01000015010000bb01 % % Run-length encoding savings = 88.9% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 189 135 0 0 189 135 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 189 def /pp_by2 135 def gs 395 282 1412 1949 CB 394 281 1412 1949 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPlace3 %%Pages: 1 %%BoundingBox: 0 0 189 135 %%CreationDate: Thu Dec 1 14:12:42 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 189 135 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 24 string def /drawcolormappedimage { 189 135 8 [189 0 0 -135 0 135] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba dbf3f3 5d7988 9cc9e2 pop pop drawcolormappedimage d20000018d0000011500000101001302000100008c020001000013020101 01001302000100008c02000100001302010101000102120100008d010000 110101020101010001020001b3000102010101000102000100000f020001 00007a02000100000f02000100000f020001000001020101010001020001 00000f02000100007a02000100000f02000100000f020001000001020101 01000102000100000f02000100007a02000100000f02000100000f020001 00000102010101000102000100000f020001000039020103070201033402 000100000f02000100000202090002020001000001020101010001020001 00000f0200010000430201033402000100000f0200010000020200000702 00010202000100000102010101000102000100000f02000100002e020103 010201030102010300020103010203030102010300020103310200010000 0f0200010000020200000702000102020001000001020101010001020001 0000020209000202000100002e0201030102010301020103000201030002 010301020103000202030002010330020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100002f02010300020103000201030102010300020203 030201030102010330020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 00010202000100002f020103000201030002010301020103020202030102 010301020103300200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100002f02010300020103000201030102010303020203000201030102 010330020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100003002010301020103 02020103000201030102010300020103010201033002000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100003002010301020103020201030102030301020103010201033002 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100007a02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100007a0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 7a02000100000f02000100000f0200010000010201010100010200010000 100100007b0100001001000010010000010201010000b601000003010400 0001b00404000001010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 0100010201010100010201013e0434053c04010001020101010001020101 3e04330500063c040100010201010100010201013e040105300701063c04 0100010201010100010201013e040105300701063c040100010201010100 010201013e040105300701063c040100010201010100010201013e040105 300701063c040100010201010100010201013e040105300701063c040100 010201010100010201013e040105300701063c0401000102010101000102 01013e040105300701063c040100010201010100010201013e0401053007 01063c040100010201010100010201013e040105300701063c0401000102 01010100010201013e040105300701063c04010001020101010001020101 3e040105300701063c040100010201010100010201013e04010530070106 3c040100010201010100010201013e040105300701063c04010001020101 0100010201013e040105300701063c040100010201010100010201013e04 0105300701063c040100010201010100010201013e040105300701063c04 0100010201010100010201013e040105300701063c040100010201010100 010201013e040105300701063c040100010201010100010201013e040105 300701063c040100010201010100010201013e040105300701063c040100 010201010100010201013e040105300701063c0401000102010101000102 01013e040105300701063c040100010201010100010201013e0401053007 01063c040100010201010100010201013e040105300701063c0401000102 01010100010201013e040105300701063c04010001020101010001020101 3e040105300701063c040100010201010100010201013e04010530070106 3c040100010201010100010201013e040105300701063c04010001020101 0100010201013e040105300701063c040100010201010100010201013e04 0105300701063c040100010201010100010201013e040105300701063c04 0100010201010100010201013e040105300701063c040100010201010100 010201013e040105300701063c040100010201010100010201013e040105 300701063c040100010201010100010201013e040105300701063c040100 010201010100010201013e040105300701063c0401000102010101000102 01013e040105300701063c040100010201010100010201013e0401053007 01063c040100010201010100010201013e040105300701063c0401000102 01010100010201013e040105300701063c04010001020101010001020101 3e040105300701063c040100010201010100010201013e04010530070106 3c040100010201010100010201013e040105300701063c04010001020101 0100010201013e040105300701063c040100010201010100010201013e04 0105300701063c040100010201010100010201013e040105300701063c04 0100010201010100010201013e040105300701063c040100010201010100 010201013e040105300701063c040100010201010100010201013e040105 300701063c040100010201010100010201013e040105300701063c040100 010201010100010201013e040105300701063c0401000102010101000102 01013e040105300701063c040100010201010100010201013e0401053007 01063c040100010201010100010201013e040105300701063c0401000102 01010100010201013e040105300701063c04010001020101010001020101 3e040105300701063c040100010201010100010201013e04010530070106 3c040100010201010100010201013e040105300701063c04010001020101 0100010201013e040105300701063c040100010201010100010201013e04 0105300701063c040100010201010100010201013e040105300701063c04 0100010201010100010201013e040105300701063c040100010201010100 010201013e040105300701063c040100010201010100010201013e040105 300701063c040100010201010100010201013e040105300701063c040100 010201010100010201013e040105300701063c0401000102010101000102 01013e040105300701063c040100010201010100010201013e0401053206 3c04010001020101000004013e04000533063c040100030104000001b004 04000001010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b20001020101 010001020001b3000102010101001302000100008c020001000013020101 01001302000100008c0200010000130201010100140100008d0100001501 0000bb01 % % Run-length encoding savings = 87.9% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 603 2039 690 (place .x -relx 0.5 -rely 0.5 \\) 690 SB gr gs 1500 1125 463 1705 CB 603 2084 575 (-height 2c -anchor center) 575 SB gr gs 1500 1125 463 1705 CB 603 2389 575 (place .x -relheight 0.5 \\) 575 SB gr gs 1500 1125 463 1705 CB 603 2434 713 (-relwidth 0.5 -relx 0 -rely 0.5) 713 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 6 6 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 566 1394 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 11) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 4 1 SJ 566 488 365 (The Packer) 365 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 4 SJ 622 644 666 (More powerful than the placer.) 666 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 735 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 4 5 SJ 622 719 766 (Arranges groups of slaves together \() 766 SB gr gs 1500 1125 463 400 CB 1 1 SJ 1392 719 245 (packing list) 245 SB gr gs 1500 1125 463 400 CB 1638 719 30 (\).) 30 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 810 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 5 6 SJ 622 794 955 (Packs slaves around edges of master's cavity.) 955 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 885 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 4 SJ 622 869 518 (For each slave, in order:) 518 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 566 1024 361 (1. Pick side of cavity.) 361 SB gr gs 1500 1125 463 400 CB 566 1225 32 (2.) 32 SB gr gs 1500 1125 463 400 CB 1 2 SJ 613 1225 254 (Slice off parcel) 254 SB gr gs 1500 1125 463 400 CB 613 1270 155 (for slave.) 155 SB gr gs 1500 1125 463 400 CB 1253 1225 32 (4.) 32 SB gr gs 1500 1125 463 400 CB 1300 1225 233 (Position slave) 233 SB gr gs 1500 1125 463 400 CB -4 1 SJ 1300 1270 159 (in parcel.) 159 SB gr gs 1500 1125 463 400 CB 1253 1003 32 (3.) 32 SB gr gs 1500 1125 463 400 CB 1300 1003 371 (Optionally grow slave) 371 SB gr gs 1500 1125 463 400 CB -2 2 SJ 1300 1048 217 (to fill parcel.) 217 SB gr 0 lc 0 lj 6 4 SP 0 150 136 fC /fm 256 def 37 61 1177 864 B 1 F S n 252 254 185 fC /fm 256 def 223 174 953 964 B 1 F S n 255 255 255 fC /fm 256 def 148 124 978 1014 B 1 F S n 252 1 40 fC /fm 256 def 1102 1050 M -27 -27 27 -27 0 14 27 0 0 27 -27 0 0 13 7 PP 1 F n 0 0 0 fC /fm 256 def 1102 1050 M -4 -10 0 -7 27 0 0 -19 -27 0 0 -8 -17 17 17 17 4 10 -27 -27 27 -27 0 14 27 0 0 27 -27 0 0 13 16 PP 1 F n 6 4 SP 252 254 185 fC /fm 256 def 223 174 953 1188 B 1 F S n 255 255 255 fC /fm 256 def 148 124 978 1238 B 1 F S n 162 193 254 fC /fm 256 def 66 129 1063 1236 B 1 F n 6 4 SP 148 124 978 1238 B S n 0 150 136 fC /fm 256 def 36 124 1739 989 B 1 F S n 252 254 185 fC /fm 256 def 224 174 1664 1188 B 1 F S n 255 255 255 fC /fm 256 def 86 124 1689 1238 B 1 F S n 0 150 136 fC /fm 256 def 37 124 1801 1238 B 1 F S n 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 1 lc 1 lj 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 566 2699 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 12) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 6 3 SJ 566 1793 892 (The Packer: Choosing Sides) 892 SB gr 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 553 1976 437 (button .ok -text OK) 437 SB gr gs 1500 1125 463 1705 CB 553 2021 621 (button .cancel -text Cancel) 621 SB gr gs 1500 1125 463 1705 CB 553 2067 529 (button .help -text Help) 529 SB gr gs 1500 1125 463 1705 CB 553 2112 529 (pack .ok .cancel .help ) 529 SB gr gs 1500 1125 463 1705 CB 1082 2112 230 (-side left) 230 SB gr %MSEPS Preamble 0 0 192 61 0 0 192 61 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 192 def /pp_by2 61 def 0 lc 0 lj 0 1 SP gs 301 96 1487 2019 CB 300 95 1487 2019 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkSd1 %%Pages: 1 %%BoundingBox: 0 0 192 61 %%CreationDate: Thu Dec 1 14:21:10 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 192 61 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 192 61 8 [192 0 0 -61 0 61] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage d5000001900000011500000101001302000100008f020001000013020101 01001302000100008f020001000013020101010001021201000090010000 110101020101010001020001b6000102010101000102000100000f020001 00007d02000100000f02000100000f020001000001020101010001020001 00000f02000100007d02000100000f02000100000f020001000001020101 01000102000100000f02000100007d02000100000f02000100000f020001 00000102010101000102000100000f02000100003b020103070201033502 000100000f02000100000202090002020001000001020101010001020001 00000f0200010000450201033502000100000f0200010000020200000702 00010202000100000102010101000102000100000f020001000030020103 010201030102010300020103010203030102010300020103320200010000 0f0200010000020200000702000102020001000001020101010001020001 000002020900020200010000300201030102010301020103000201030002 010301020103000202030002010331020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100003102010300020103000201030102010300020203 030201030102010331020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 000102020001000031020103000201030002010301020103020202030102 010301020103310200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100003102010300020103000201030102010303020203000201030102 010331020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100003202010301020103 02020103000201030102010300020103010201033102000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100003202010301020103020201030102030301020103010201033102 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100007d02000100000f0200010000020200000801 020200010000010201010000030100000f02000100007d02000100000f02 000100000f0200010000030105000f02000100007d02000100000f020001 00000f020001030000010100010200010000100100007e01000010010000 100100000102010101000102b601000001020101010001020101b3040100 01020101010001020101b30401000102010101000102010101042e000304 420003043500010401000102010101000102010101042d00000503044100 00050304340000050104010001020101010001020101010401002a040105 030401003e04010503040100310401050104010001020101010001020101 010401002a040105030401003e0401050304010031040105010401000102 0101010001020101010401002a040105030401003e040105030401003104 01050104010001020101010001020101010401002a040105030401003e04 010503040100310401050104010001020101010001020101010401002a04 0105030401003e0401050304010031040105010401000102010101000102 0101010401002a040105030401003e040105030401003104010501040100 01020101010001020101010401000d04030303040103020401030d040105 030401000d0403031c0401030d040105030401000b040103020401030704 0103140401050104010001020101010001020101010401000c0401030104 010302040103010401030e040105030401000c040103010401031b040103 0d040105030401000b040103020401030704010314040105010401000102 0101010001020101010401000b0401030304010301040103000401030f04 0105030401000b0401030504030301040103000401030204030302040303 010401030d040105030401000b0401030204010301040303010401030004 0103000401030e0401050104010001020101010001020101010401000b04 0103030401030104030310040105030401000b0401030404010301040103 000402030004010300040103010401030004010301040103000401030d04 0105030401000b0401030204010300040103010401030004010300040203 000401030d0401050104010001020101010001020101010401000b040103 030401030104030310040105030401000b04010308040103000401030104 0103000401030404010301040103000401030d040105030401000b040603 00040103010401030004010300040103010401030d040105010401000102 0101010001020101010401000b0401030304010301040103000401030f04 0105030401000b0401030504040300040103010401030004010304040503 000401030d040105030401000b0401030204010300040503000401030004 0103010401030d0401050104010001020101010001020101010401000b04 01030304010301040103010401030e040105030401000b04010304040103 0104010300040103010401030004010304040103040401030d0401050304 01000b04010302040103000401030404010300040103010401030d040105 010401000102010100000401010401000c04010301040103020401030204 01030d040105030401000c04010301040303010401030004010301040103 00040103010401030004010301040103000401030d040105030401000b04 01030204010300040103010401030004010300040203000401030d040105 01040100030104000001010401000d04030303040103030401030c040105 030401000d04030301040203000403030104010301040303020403030104 01030d040105030401000b04010302040103010403030104010300040103 000401030e040105010404000001010001020101010401002a0401050304 01003e040105030401001d04010311040105010401000102010101000102 0101010401002a040105030401003e040105030401001d04010311040105 0104010001020101010001020101010401002a040105030401003e040105 030401001d04010311040105010401000102010101000102010101040100 2a040105030401003e040105030401003104010501040100010201010100 01020101010401002a040105030401003e04010503040100310401050104 010001020101010001020101010401002a040105030401003e0401050304 0100310401050104010001020101010001020101010401002a0401050304 01003e040105030401003104010501040100010201010100010201010104 01002a040105030401003e04010503040100310401050104010001020101 010001020101010401002a040105030401003e0401050304010031040105 0104010001020101010001020101010401002c0503040100400503040100 33050104010001020101010001020101010400002d050304000041050304 000034050104010001020101010001020101b30401000102010101000102 0101b304010001020101010001020101b50001020101010001020001b600 0102010101001302000100008f0200010000130201010100130200010000 8f0200010000130201010100140100009001000015010000be01 % % Run-length encoding savings = 76.7% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 254 61 0 0 254 61 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 254 def /pp_by2 61 def gs 398 96 1487 2256 CB 397 95 1487 2256 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkSd2 %%Pages: 1 %%BoundingBox: 0 0 254 61 %%CreationDate: Thu Dec 1 14:21:10 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 254 61 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 254 61 8 [254 0 0 -61 0 61] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe0014000001ce000001150000010100130200010000cd02000100001302 01010100130200010000cd0200010000130201010100010212010000ce01 0000110101020101010001020001f4000102010101000102000100000f02 00010000bb02000100000f02000100000f02000100000102010101000102 000100000f0200010000bb02000100000f02000100000f02000100000102 010101000102000100000f0200010000bb02000100000f02000100000f02 000100000102010101000102000100000f02000100005a02010307020103 5402000100000f0200010000020209000202000100000102010101000102 000100000f0200010000640201035402000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100004f02 010301020103010201030002010301020303010201030002010351020001 00000f020001000002020000070200010202000100000102010101000102 00010000020209000202000100004f020103010201030102010300020103 000201030102010300020203000201035002000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000500201030002010300020103010201030002 020303020103010201035002000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100005002010300020103000201030102010302020203 010201030102010350020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000500201030002010300020103010201030302020300020103 010201035002000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000510201030102 010302020103000201030102010300020103010201035002000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000510201030102010302020103010203030102010301020103 5002000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000bb02000100000f020001000002020000 0801020200010000010201010000030100000f0200010000bb0200010000 0f02000100000f0200010000030105000f0200010000bb02000100000f02 000100000f02000103000001010001020001000010010000bc0100001001 0000100100000102010101000102f401000001020101010001020101f104 010001020101010001020101f10401000102010101000102010101042e00 0304800003043500010401000102010101000102010101042d0000050304 7f0000050304340000050104010001020101010001020101010401002a04 0105030401007c0401050304010031040105010401000102010101000102 0101010401002a040105030401007c040105030401003104010501040100 01020101010001020101010401002a040105030401007c04010503040100 310401050104010001020101010001020101010401002a04010503040100 7c0401050304010031040105010401000102010101000102010101040100 2a040105030401007c040105030401003104010501040100010201010100 01020101010401002a040105030401007c04010503040100310401050104 010001020101010001020101010401000d04030303040103020401030d04 0105030401000d0403031c040103070403032f0401030d04010503040100 0b0401030204010307040103140401050104010001020101010001020101 010401000c0401030104010302040103010401030e040105030401000c04 0103010401031b04010306040103010401032e0401030d04010503040100 0b0401030204010307040103140401050104010001020101010001020101 010401000b0401030304010301040103000401030f040105030401000b04 010305040303010401030004010302040303020403030104010305040103 050403030104000300040203000402030104000300040203000402030204 0303010401030004010302040103000401030d040105030401000b040103 02040103010403030104010300040103000401030e040105010401000102 0101010001020101010401000b0401030304010301040303100401050304 01000b040103040401030104010300040203000401030004010301040103 000401030104010300040103050401030404010301040103000401030104 010301040103000401030104010301040103000401030104010300040203 0004010300040103000402030d040105030401000b040103020401030004 0103010401030004010300040203000401030d0401050104010001020101 010001020101010401000b04010303040103010403031004010503040100 0b0401030804010300040103010401030004010304040103010401030004 010305040103040401030104010300040103010401030104010300040103 010401030104010304040103000401030104010300040103010401030d04 0105030401000b0406030004010301040103000401030004010301040103 0d0401050104010001020101010001020101010401000b04010303040103 01040103000401030f040105030401000b04010305040403000401030104 010300040103040405030004010305040103040401030104010300040103 010401030104010300040103010401030104010301040403000401030104 010300040103010401030d040105030401000b0401030204010300040503 0004010300040103010401030d0401050104010001020101010001020101 010401000b0401030304010301040103010401030e040105030401000b04 010304040103010401030004010301040103000401030404010304040103 050401030404010301040103000401030104010301040103000401030104 010301040103000401030104010300040103010401030004010301040103 0d040105030401000b040103020401030004010304040103000401030104 01030d040105010401000102010100000401010401000c04010301040103 02040103020401030d040105030401000c04010301040303010401030004 010301040103000401030104010300040103010401030004010306040103 010403030104010300040103010401030104010300040103010401030104 01030004010301040103000401030104010300040103000402030d040105 030401000b04010302040103000401030104010300040103000402030004 01030d04010501040100030104000001010401000d040303030401030304 01030c040105030401000d04030301040203000403030104010301040303 020403030104010307040303010403030104010301040103010401030004 010301040103010401030104020300040303010401030104010300040103 0d040105030401000b040103020401030104030301040103000401030004 01030e040105010404000001010001020101010401002a04010503040100 7c040105030401001d040103110401050104010001020101010001020101 010401002a040105030401007c040105030401001d040103110401050104 010001020101010001020101010401002a040105030401007c0401050304 01001d040103110401050104010001020101010001020101010401002a04 0105030401007c0401050304010031040105010401000102010101000102 0101010401002a040105030401007c040105030401003104010501040100 01020101010001020101010401002a040105030401007c04010503040100 310401050104010001020101010001020101010401002a04010503040100 7c0401050304010031040105010401000102010101000102010101040100 2a040105030401007c040105030401003104010501040100010201010100 01020101010401002a040105030401007c04010503040100310401050104 010001020101010001020101010401002c05030401007e05030401003305 0104010001020101010001020101010400002d05030400007f0503040000 34050104010001020101010001020101f104010001020101010001020101 f104010001020101010001020101f30001020101010001020001f4000102 01010100130200010000cd0200010000130201010100130200010000cd02 0001000013020101010014010000ce01000015010000fc01 % % Run-length encoding savings = 79.7% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 145 125 0 0 145 125 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 145 def /pp_by2 125 def gs 228 197 1487 2443 CB 227 196 1487 2443 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkSd3 %%Pages: 1 %%BoundingBox: 0 0 145 125 %%CreationDate: Thu Dec 1 14:21:11 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 145 125 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 145 125 8 [145 0 0 -125 0 125] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage a60000016100000115000001010013020001000060020001000013020101 010013020001000060020001000013020101010001021201000061010000 11010102010101000102000187000102010101000102000100000f020001 00004e02000100000f02000100000f020001000001020101010001020001 00000f02000100004e02000100000f02000100000f020001000001020101 01000102000100000f02000100004e02000100000f02000100000f020001 00000102010101000102000100000f020001000023020103070201031e02 000100000f02000100000202090002020001000001020101010001020001 00000f02000100002d0201031e02000100000f0200010000020200000702 00010202000100000102010101000102000100000f020001000018020103 0102010301020103000201030102030301020103000201031b0200010000 0f0200010000020200000702000102020001000001020101010001020001 000002020900020200010000180201030102010301020103000201030002 01030102010300020203000201031a020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100001902010300020103000201030102010300020203 03020103010201031a020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 000102020001000019020103000201030002010301020103020202030102 0103010201031a0200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100001902010300020103000201030102010303020203000201030102 01031a020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100001a02010301020103 02020103000201030102010300020103010201031a02000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100001a02010301020103020201030102030301020103010201031a02 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100004e02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100004e0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 4e02000100000f02000100000f0200010000010201010100010200010000 100100004f01000010010000100100000102010100008a01000003010400 000184040400000101000102010184040100010201010100010201012a04 2e002a040100010201010100010201012a042d0000052a04010001020101 0100010201012a0401002a0401052a040100010201010100010201012a04 01002a0401052a040100010201010100010201012a0401002a0401052a04 0100010201010100010201012a0401002a0401052a040100010201010100 010201012a0401002a0401052a040100010201010100010201012a040100 2a0401052a040100010201010100010201012a0401000d04030303040103 020401030d0401052a040100010201010100010201012a0401000c040103 0104010302040103010401030e0401052a04010001020101010001020101 2a0401000b0401030304010301040103000401030f0401052a0401000102 01010100010201012a0401000b0401030304010301040303100401052a04 0100010201010100010201012a0401000b04010303040103010403031004 01052a040100010201010100010201012a0401000b040103030401030104 0103000401030f0401052a040100010201010100010201012a0401000b04 01030304010301040103010401030e0401052a0401000102010101000102 01012a0401000c0401030104010302040103020401030d0401052a040100 010201010100010201012a0401000d04030303040103030401030c040105 2a040100010201010100010201012a0401002a0401052a04010001020101 0100010201012a0401002a0401052a040100010201010100010201012a04 01002a0401052a040100010201010100010201012a0401002a0401052a04 0100010201010100010201012a0401002a0401052a040100010201010100 010201012a0401002a0401052a040100010201010100010201012a040100 2a0401052a040100010201010100010201012a0401002a0401052a040100 010201010100010201012a0401002a0401052a0401000102010101000102 01012a0401002c052a040100010201010100010201012a0400002d052a04 010001020101010001020101840401000102010101000102010184040100 010201010100010201018404010001020101010001020101840401000102 010101000102010101048000010401000102010101000102010101047f00 00050104010001020101010001020101010401007c040105010401000102 0101010001020101010401007c0401050104010001020101010001020101 010401007c0401050104010001020101010001020101010401007c040105 0104010001020101010001020101010401007c0401050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01000d0403031c040103070403032f0401030d0401050104010001020101 010001020101010401000c040103010401031b0401030604010301040103 2e0401030d0401050104010001020101010001020101010401000b040103 050403030104010300040103020403030204030301040103050401030504 030301040003000402030004020301040003000402030004020302040303 010401030004010302040103000401030d04010501040100010201010100 01020101010401000b040103040401030104010300040203000401030004 010301040103000401030104010300040103050401030404010301040103 000401030104010301040103000401030104010301040103000401030104 0103000402030004010300040103000402030d0401050104010001020101 010001020101010401000b04010308040103000401030104010300040103 040401030104010300040103050401030404010301040103000401030104 010301040103000401030104010301040103040401030004010301040103 00040103010401030d040105010401000102010101000102010101040100 0b0401030504040300040103010401030004010304040503000401030504 010304040103010401030004010301040103010401030004010301040103 0104010301040403000401030104010300040103010401030d0401050104 010001020101010001020101010401000b04010304040103010401030004 010301040103000401030404010304040103050401030404010301040103 000401030104010301040103000401030104010301040103000401030104 0103000401030104010300040103010401030d0401050104010001020101 010001020101010401000c04010301040303010401030004010301040103 000401030104010300040103010401030004010306040103010403030104 010300040103010401030104010300040103010401030104010300040103 01040103000401030104010300040103000402030d040105010401000102 0101010001020101010401000d0403030104020300040303010401030104 030302040303010401030704030301040303010401030104010301040103 000401030104010301040103010402030004030301040103010401030004 01030d0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401007c040105010401000102010101000102010101040100 7c0401050104010001020101010001020101010401007c04010501040100 01020101010001020101010401007c040105010401000102010101000102 0101010401007c0401050104010001020101010001020101010401007c04 01050104010001020101010001020101010401007c040105010401000102 0101010001020101010401007e0501040100010201010100010201010104 00007f050104010001020101010001020101840401000102010101000102 010184040100010201010100010201018404010001020101010001020101 840401000102010101000102010126043500270401000102010101000102 010126043400000527040100010201010100010201012604010031040105 270401000102010101000102010126040100310401052704010001020101 010001020101260401003104010527040100010201010100010201012604 010031040105270401000102010101000102010126040100310401052704 010001020101010001020101260401003104010527040100010201010100 01020101260401000b040103020401030704010314040105270401000102 0101010001020101260401000b0401030204010307040103140401052704 010001020101010001020101260401000b04010302040103010403030104 010300040103000401030e04010527040100010201010100010201012604 01000b040103020401030004010301040103000401030004020300040103 0d040105270401000102010100000401260401000b040603000401030104 01030004010300040103010401030d040105270401000301040000012604 01000b04010302040103000405030004010300040103010401030d040105 270404000001010001020101260401000b04010302040103000401030404 010300040103010401030d04010527040100010201010100010201012604 01000b040103020401030004010301040103000401030004020300040103 0d0401052704010001020101010001020101260401000b04010302040103 010403030104010300040103000401030e04010527040100010201010100 01020101260401001d040103110401052704010001020101010001020101 260401001d04010311040105270401000102010101000102010126040100 1d0401031104010527040100010201010100010201012604010031040105 270401000102010101000102010126040100310401052704010001020101 010001020101260401003104010527040100010201010100010201012604 010031040105270401000102010101000102010126040100310401052704 010001020101010001020101260401003104010527040100010201010100 010201012604010033052704010001020101010001020101260400003405 270401000102010101000102010184040100010201010100010201018404 010001020101010001020101860001020101010001020001870001020101 010013020001000060020001000013020101010013020001000060020001 00001302010101001401000061010000150100008f01 % % Run-length encoding savings = 77.7% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore gs 1500 1125 463 1705 CB 553 2281 920 (.cancel configure -text "Cancel Command") 920 SB gr gs 1500 1125 463 1705 CB 553 2519 529 (pack .ok .cancel .help ) 529 SB gr gs 1500 1125 463 1705 CB 1082 2519 207 (-side top) 207 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 7 7 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 566 1394 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 13) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 5 2 SJ 566 488 674 (The Packer: Padding) 674 SB gr 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 516 700 805 (pack .ok .cancel .help -side left \\) 805 SB gr gs 1500 1125 463 400 CB 516 745 391 (-padx 2m -pady 1m) 391 SB gr gs 1500 1125 463 400 CB 516 937 805 (pack .ok .cancel .help -side left \\) 805 SB gr gs 1500 1125 463 400 CB 516 982 437 (-ipadx 2m -ipady 1m) 437 SB gr gs 1500 1125 463 400 CB 516 1178 805 (pack .ok .cancel .help -side left \\) 805 SB gr gs 1500 1125 463 400 CB 516 1223 851 (-padx 2m -pady 1m -ipadx 2m -ipady 1m) 851 SB gr %MSEPS Preamble 0 0 234 69 0 0 234 69 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 234 def /pp_by2 69 def 0 lc 0 lj 0 1 SP gs 367 109 1461 691 CB 366 108 1461 691 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkPad1 %%Pages: 1 %%BoundingBox: 0 0 234 69 %%CreationDate: Thu Dec 1 14:21:11 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 234 69 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 234 69 8 [234 0 0 -69 0 69] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe0000000001ba000001150000010100130200010000b902000100001302 01010100130200010000b90200010000130201010100010212010000ba01 0000110101020101010001020001e0000102010101000102000100000f02 00010000a702000100000f02000100000f02000100000102010101000102 000100000f0200010000a702000100000f02000100000f02000100000102 010101000102000100000f0200010000a702000100000f02000100000f02 000100000102010101000102000100000f02000100005002010307020103 4a02000100000f0200010000020209000202000100000102010101000102 000100000f02000100005a0201034a02000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100004502 010301020103010201030002010301020303010201030002010347020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000045020103010201030102010300020103 000201030102010300020203000201034602000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000460201030002010300020103010201030002 020303020103010201034602000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100004602010300020103000201030102010302020203 010201030102010346020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000460201030002010300020103010201030302020300020103 010201034602000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000470201030102 010302020103000201030102010300020103010201034602000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000470201030102010302020103010203030102010301020103 4602000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000a702000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000a7020001 00000f02000100000f02000100000102010101000102000100000f020001 0000a702000100000f02000100000f020001000001020101010001020001 000010010000a80100001001000010010000010201010000e30100000301 04000001dd0404000001010001020101dd04010001020101010001020101 dd04010001020101010001020101dd04010001020101010001020101dd04 010001020101010001020101dd0401000102010101000102010108042e00 1104420011043500080401000102010101000102010108042d0000051104 410000051104340000050804010001020101010001020101080401002a04 0105110401003e0401051104010031040105080401000102010101000102 0101080401002a040105110401003e040105110401003104010508040100 01020101010001020101080401002a040105110401003e04010511040100 310401050804010001020101010001020101080401002a04010511040100 3e0401051104010031040105080401000102010101000102010108040100 2a040105110401003e040105110401003104010508040100010201010100 01020101080401002a040105110401003e04010511040100310401050804 010001020101010001020101080401000d04030303040103020401030d04 0105110401000d0403031c0401030d040105110401000b04010302040103 07040103140401050804010001020101010001020101080401000c040103 0104010302040103010401030e040105110401000c040103010401031b04 01030d040105110401000b04010302040103070401031404010508040100 01020101010001020101080401000b040103030401030104010300040103 0f040105110401000b040103050403030104010300040103020403030204 0303010401030d040105110401000b040103020401030104030301040103 00040103000401030e040105080401000102010101000102010108040100 0b040103030401030104030310040105110401000b040103040401030104 010300040203000401030004010301040103000401030104010300040103 0d040105110401000b040103020401030004010301040103000401030004 0203000401030d0401050804010001020101010001020101080401000b04 0103030401030104030310040105110401000b0401030804010300040103 01040103000401030404010301040103000401030d040105110401000b04 060300040103010401030004010300040103010401030d04010508040100 01020101010001020101080401000b040103030401030104010300040103 0f040105110401000b040103050404030004010301040103000401030404 0503000401030d040105110401000b040103020401030004050300040103 00040103010401030d040105080401000102010101000102010108040100 0b0401030304010301040103010401030e040105110401000b0401030404 01030104010300040103010401030004010304040103040401030d040105 110401000b04010302040103000401030404010300040103010401030d04 01050804010001020101010001020101080401000c040103010401030204 0103020401030d040105110401000c040103010403030104010300040103 0104010300040103010401030004010301040103000401030d0401051104 01000b040103020401030004010301040103000401030004020300040103 0d040105080401000102010100000401080401000d040303030401030304 01030c040105110401000d04030301040203000403030104010301040303 02040303010401030d040105110401000b04010302040103010403030104 010300040103000401030e04010508040100030104000001080401002a04 0105110401003e040105110401001d040103110401050804040000010100 01020101080401002a040105110401003e040105110401001d0401031104 01050804010001020101010001020101080401002a040105110401003e04 0105110401001d0401031104010508040100010201010100010201010804 01002a040105110401003e04010511040100310401050804010001020101 010001020101080401002a040105110401003e0401051104010031040105 0804010001020101010001020101080401002a040105110401003e040105 11040100310401050804010001020101010001020101080401002a040105 110401003e04010511040100310401050804010001020101010001020101 080401002a040105110401003e0401051104010031040105080401000102 0101010001020101080401002a040105110401003e040105110401003104 01050804010001020101010001020101080401002c051104010040051104 010033050804010001020101010001020101080400002d05110400004105 1104000034050804010001020101010001020101dd040100010201010100 01020101dd04010001020101010001020101dd0401000102010101000102 0101dd04010001020101010001020101dd04010001020101010001020101 dd04010001020101010001020101df0001020101010001020001e0000102 01010100130200010000b90200010000130201010100130200010000b902 0001000013020101010014010000ba01000015010000e801 % % Run-length encoding savings = 82.4% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 234 69 0 0 234 69 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 234 def /pp_by2 69 def gs 367 109 1461 928 CB 366 108 1461 928 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkPad2 %%Pages: 1 %%BoundingBox: 0 0 234 69 %%CreationDate: Thu Dec 1 14:21:12 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 234 69 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 234 69 8 [234 0 0 -69 0 69] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe0000000001ba000001150000010100130200010000b902000100001302 01010100130200010000b90200010000130201010100010212010000ba01 0000110101020101010001020001e0000102010101000102000100000f02 00010000a702000100000f02000100000f02000100000102010101000102 000100000f0200010000a702000100000f02000100000f02000100000102 010101000102000100000f0200010000a702000100000f02000100000f02 000100000102010101000102000100000f02000100005002010307020103 4a02000100000f0200010000020209000202000100000102010101000102 000100000f02000100005a0201034a02000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100004502 010301020103010201030002010301020303010201030002010347020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000045020103010201030102010300020103 000201030102010300020203000201034602000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000460201030002010300020103010201030002 020303020103010201034602000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100004602010300020103000201030102010302020203 010201030102010346020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000460201030002010300020103010201030302020300020103 010201034602000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000470201030102 010302020103000201030102010300020103010201034602000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000470201030102010302020103010203030102010301020103 4602000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000a702000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000a7020001 00000f02000100000f02000100000102010101000102000100000f020001 0000a702000100000f02000100000f020001000001020101010001020001 000010010000a80100001001000010010000010201010000e30100000301 04000001dd0404000001010001020101dd04010001020101010001020101 01043c000304500003044300010401000102010101000102010101043b00 000503044f00000503044200000501040100010201010100010201010104 010038040105030401004c040105030401003f0401050104010001020101 0100010201010104010038040105030401004c040105030401003f040105 01040100010201010100010201010104010038040105030401004c040105 030401003f04010501040100010201010100010201010104010038040105 030401004c040105030401003f0401050104010001020101010001020101 0104010038040105030401004c040105030401003f040105010401000102 01010100010201010104010038040105030401004c040105030401003f04 010501040100010201010100010201010104010038040105030401004c04 0105030401003f0401050104010001020101010001020101010401003804 0105030401004c040105030401003f040105010401000102010101000102 01010104010038040105030401004c040105030401003f04010501040100 010201010100010201010104010038040105030401004c04010503040100 3f0401050104010001020101010001020101010401001404030303040103 020401031404010503040100140403031c04010314040105030401001204 010302040103070401031b04010501040100010201010100010201010104 010013040103010401030204010301040103150401050304010013040103 010401031b04010314040105030401001204010302040103070401031b04 010501040100010201010100010201010104010012040103030401030104 010300040103160401050304010012040103050403030104010300040103 020403030204030301040103140401050304010012040103020401030104 030301040103000401030004010315040105010401000102010101000102 010101040100120401030304010301040303170401050304010012040103 040401030104010300040203000401030004010301040103000401030104 010300040103140401050304010012040103020401030004010301040103 000401030004020300040103140401050104010001020101010001020101 010401001204010303040103010403031704010503040100120401030804 010300040103010401030004010304040103010401030004010314040105 030401001204060300040103010401030004010300040103010401031404 010501040100010201010100010201010104010012040103030401030104 010300040103160401050304010012040103050404030004010301040103 000401030404050300040103140401050304010012040103020401030004 050300040103000401030104010314040105010401000102010101000102 010101040100120401030304010301040103010401031504010503040100 120401030404010301040103000401030104010300040103040401030404 010314040105030401001204010302040103000401030404010300040103 010401031404010501040100010201010100010201010104010013040103 010401030204010302040103140401050304010013040103010403030104 010300040103010401030004010301040103000401030104010300040103 140401050304010012040103020401030004010301040103000401030004 020300040103140401050104010001020101000004010104010014040303 030401030304010313040105030401001404030301040203000403030104 010301040303020403030104010314040105030401001204010302040103 010403030104010300040103000401031504010501040100030104000001 0104010038040105030401004c0401050304010024040103180401050104 040000010100010201010104010038040105030401004c04010503040100 240401031804010501040100010201010100010201010104010038040105 030401004c04010503040100240401031804010501040100010201010100 010201010104010038040105030401004c040105030401003f0401050104 0100010201010100010201010104010038040105030401004c0401050304 01003f040105010401000102010101000102010101040100380401050304 01004c040105030401003f04010501040100010201010100010201010104 010038040105030401004c040105030401003f0401050104010001020101 0100010201010104010038040105030401004c040105030401003f040105 01040100010201010100010201010104010038040105030401004c040105 030401003f04010501040100010201010100010201010104010038040105 030401004c040105030401003f0401050104010001020101010001020101 0104010038040105030401004c040105030401003f040105010401000102 01010100010201010104010038040105030401004c040105030401003f04 010501040100010201010100010201010104010038040105030401004c04 0105030401003f0401050104010001020101010001020101010401003a05 030401004e05030401004105010401000102010101000102010101040000 3b05030400004f050304000042050104010001020101010001020101dd04 010001020101010001020101dd04010001020101010001020101df000102 0101010001020001e000010201010100130200010000b902000100001302 01010100130200010000b9020001000013020101010014010000ba010000 15010000e801 % % Run-length encoding savings = 81.2% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 276 77 0 0 276 77 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 276 def /pp_by2 77 def gs 432 122 1429 1162 CB 431 121 1429 1162 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkPad3 %%Pages: 1 %%BoundingBox: 0 0 276 77 %%CreationDate: Thu Dec 1 14:21:13 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 276 77 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 276 77 8 [276 0 0 -77 0 77] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe002a000001e4000001150000010100130200010000e302000100001302 01010100130200010000e30200010000130201010100010212010000e401 0000110101020101010001020001fe000b00010201010100010200010000 0f0200010000d102000100000f02000100000f0200010000010201010100 0102000100000f0200010000d102000100000f02000100000f0200010000 0102010101000102000100000f0200010000d102000100000f0200010000 0f02000100000102010101000102000100000f0200010000650201030702 01035f02000100000f020001000002020900020200010000010201010100 0102000100000f02000100006f0201035f02000100000f02000100000202 0000070200010202000100000102010101000102000100000f0200010000 5a0201030102010301020103000201030102030301020103000201035c02 000100000f02000100000202000007020001020200010000010201010100 010200010000020209000202000100005a02010301020103010201030002 0103000201030102010300020203000201035b0200010000050203000502 000100000202000007020001020200010000010201010100010200010000 02020000070200010202000100005b020103000201030002010301020103 0002020303020103010201035b0200010000050200000102000105020001 000002020000070200010202000100000102010101000102000100000202 0000070200010202000100005b0201030002010300020103010201030202 020301020103010201035b02000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 08010202000100005b020103000201030002010301020103030202030002 0103010201035b0200010000050200000201050200010000020200000702 00010202000100000102010101000102000100000f02000100005c020103 0102010302020103000201030102010300020103010201035b0200010000 0f0200010000020200000702000102020001000001020101010001020001 00000f02000100005c020103010201030202010301020303010201030102 01035b02000100000f020001000002020000070200010202000100000102 010101000102000100000f0200010000d102000100000f02000100000202 000008010202000100000102010101000102000100000f0200010000d102 000100000f02000100000f02000100000102010101000102000100000f02 00010000d102000100000f02000100000f02000100000102010101000102 0001000010010000d20100001001000010010000010201010000fe010e01 0000030104000001fe04080404000001010001020101fe04080401000102 0101010001020101fe040804010001020101010001020101fe0408040100 01020101010001020101fe040804010001020101010001020101fe040804 01000102010101000102010108043c001104500011044300080401000102 010101000102010108043b00000511044f00000511044200000508040100 010201010100010201010804010038040105110401004c04010511040100 3f0401050804010001020101010001020101080401003804010511040100 4c040105110401003f040105080401000102010101000102010108040100 38040105110401004c040105110401003f04010508040100010201010100 010201010804010038040105110401004c040105110401003f0401050804 0100010201010100010201010804010038040105110401004c0401051104 01003f040105080401000102010101000102010108040100380401051104 01004c040105110401003f04010508040100010201010100010201010804 010038040105110401004c040105110401003f0401050804010001020101 0100010201010804010038040105110401004c040105110401003f040105 08040100010201010100010201010804010038040105110401004c040105 110401003f04010508040100010201010100010201010804010038040105 110401004c040105110401003f0401050804010001020101010001020101 080401001404030303040103020401031404010511040100140403031c04 010314040105110401001204010302040103070401031b04010508040100 010201010100010201010804010013040103010401030204010301040103 150401051104010013040103010401031b04010314040105110401001204 010302040103070401031b04010508040100010201010100010201010804 010012040103030401030104010300040103160401051104010012040103 050403030104010300040103020403030204030301040103140401051104 010012040103020401030104030301040103000401030004010315040105 080401000102010101000102010108040100120401030304010301040303 170401051104010012040103040401030104010300040203000401030004 010301040103000401030104010300040103140401051104010012040103 020401030004010301040103000401030004020300040103140401050804 010001020101010001020101080401001204010303040103010403031704 010511040100120401030804010300040103010401030004010304040103 010401030004010314040105110401001204060300040103010401030004 010300040103010401031404010508040100010201010100010201010804 010012040103030401030104010300040103160401051104010012040103 050404030004010301040103000401030404050300040103140401051104 010012040103020401030004050300040103000401030104010314040105 080401000102010101000102010108040100120401030304010301040103 010401031504010511040100120401030404010301040103000401030104 010300040103040401030404010314040105110401001204010302040103 000401030404010300040103010401031404010508040100010201010100 010201010804010013040103010401030204010302040103140401051104 010013040103010403030104010300040103010401030004010301040103 000401030104010300040103140401051104010012040103020401030004 010301040103000401030004020300040103140401050804010001020101 010001020101080401001404030303040103030401031304010511040100 140403030104020300040303010401030104030302040303010401031404 010511040100120401030204010301040303010401030004010300040103 150401050804010001020101010001020101080401003804010511040100 4c0401051104010024040103180401050804010001020101010001020101 0804010038040105110401004c0401051104010024040103180401050804 0100010201010100010201010804010038040105110401004c0401051104 010024040103180401050804010001020101000004010804010038040105 110401004c040105110401003f0401050804010003010400000108040100 38040105110401004c040105110401003f04010508040400000101000102 01010804010038040105110401004c040105110401003f04010508040100 010201010100010201010804010038040105110401004c04010511040100 3f0401050804010001020101010001020101080401003804010511040100 4c040105110401003f040105080401000102010101000102010108040100 38040105110401004c040105110401003f04010508040100010201010100 010201010804010038040105110401004c040105110401003f0401050804 0100010201010100010201010804010038040105110401004c0401051104 01003f040105080401000102010101000102010108040100380401051104 01004c040105110401003f04010508040100010201010100010201010804 010038040105110401004c040105110401003f0401050804010001020101 010001020101080401003a05110401004e05110401004105080401000102 0101010001020101080400003b05110400004f0511040000420508040100 01020101010001020101fe040804010001020101010001020101fe040804 010001020101010001020101fe040804010001020101010001020101fe04 0804010001020101010001020101fe040804010001020101010001020101 fe040804010001020101010001020101fe000a0001020101010001020001 fe000b00010201010100130200010000e302000100001302010101001302 00010000e3020001000013020101010014010000e401000015010000fe01 1301 % % Run-length encoding savings = 85.0% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 1 lc 1 lj 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 566 2699 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 14) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 2 SJ 566 1793 618 (The Packer: Filling) 618 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 4 SJ 566 1949 633 (Stretch widgets to fill parcels:) 633 SB gr %MSEPS Preamble 0 0 145 125 0 0 145 125 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 145 def /pp_by2 125 def 0 lc 0 lj 0 1 SP gs 227 196 1523 2069 CB 226 195 1523 2069 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkFil1 %%Pages: 1 %%BoundingBox: 0 0 145 125 %%CreationDate: Thu Dec 1 14:22:48 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 145 125 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 145 125 8 [145 0 0 -125 0 125] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage a60000016100000115000001010013020001000060020001000013020101 010013020001000060020001000013020101010001021201000061010000 11010102010101000102000187000102010101000102000100000f020001 00004e02000100000f02000100000f020001000001020101010001020001 00000f02000100004e02000100000f02000100000f020001000001020101 01000102000100000f02000100004e02000100000f02000100000f020001 00000102010101000102000100000f020001000023020103070201031e02 000100000f02000100000202090002020001000001020101010001020001 00000f02000100002d0201031e02000100000f0200010000020200000702 00010202000100000102010101000102000100000f020001000018020103 0102010301020103000201030102030301020103000201031b0200010000 0f0200010000020200000702000102020001000001020101010001020001 000002020900020200010000180201030102010301020103000201030002 01030102010300020203000201031a020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100001902010300020103000201030102010300020203 03020103010201031a020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 000102020001000019020103000201030002010301020103020202030102 0103010201031a0200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100001902010300020103000201030102010303020203000201030102 01031a020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100001a02010301020103 02020103000201030102010300020103010201031a02000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100001a02010301020103020201030102030301020103010201031a02 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100004e02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100004e0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 4e02000100000f02000100000f0200010000010201010100010200010000 100100004f01000010010000100100000102010100008a01000003010400 000184040400000101000102010184040100010201010100010201012a04 2e002a040100010201010100010201012a042d0000052a04010001020101 0100010201012a0401002a0401052a040100010201010100010201012a04 01002a0401052a040100010201010100010201012a0401002a0401052a04 0100010201010100010201012a0401002a0401052a040100010201010100 010201012a0401002a0401052a040100010201010100010201012a040100 2a0401052a040100010201010100010201012a0401000d04030303040103 020401030d0401052a040100010201010100010201012a0401000c040103 0104010302040103010401030e0401052a04010001020101010001020101 2a0401000b0401030304010301040103000401030f0401052a0401000102 01010100010201012a0401000b0401030304010301040303100401052a04 0100010201010100010201012a0401000b04010303040103010403031004 01052a040100010201010100010201012a0401000b040103030401030104 0103000401030f0401052a040100010201010100010201012a0401000b04 01030304010301040103010401030e0401052a0401000102010101000102 01012a0401000c0401030104010302040103020401030d0401052a040100 010201010100010201012a0401000d04030303040103030401030c040105 2a040100010201010100010201012a0401002a0401052a04010001020101 0100010201012a0401002a0401052a040100010201010100010201012a04 01002a0401052a040100010201010100010201012a0401002a0401052a04 0100010201010100010201012a0401002a0401052a040100010201010100 010201012a0401002a0401052a040100010201010100010201012a040100 2a0401052a040100010201010100010201012a0401002a0401052a040100 010201010100010201012a0401002a0401052a0401000102010101000102 01012a0401002c052a040100010201010100010201012a0400002d052a04 010001020101010001020101840401000102010101000102010184040100 010201010100010201018404010001020101010001020101840401000102 010101000102010101048000010401000102010101000102010101047f00 00050104010001020101010001020101010401007c040105010401000102 0101010001020101010401007c0401050104010001020101010001020101 010401007c0401050104010001020101010001020101010401007c040105 0104010001020101010001020101010401007c0401050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01000d0403031c040103070403032f0401030d0401050104010001020101 010001020101010401000c040103010401031b0401030604010301040103 2e0401030d0401050104010001020101010001020101010401000b040103 050403030104010300040103020403030204030301040103050401030504 030301040003000402030004020301040003000402030004020302040303 010401030004010302040103000401030d04010501040100010201010100 01020101010401000b040103040401030104010300040203000401030004 010301040103000401030104010300040103050401030404010301040103 000401030104010301040103000401030104010301040103000401030104 0103000402030004010300040103000402030d0401050104010001020101 010001020101010401000b04010308040103000401030104010300040103 040401030104010300040103050401030404010301040103000401030104 010301040103000401030104010301040103040401030004010301040103 00040103010401030d040105010401000102010101000102010101040100 0b0401030504040300040103010401030004010304040503000401030504 010304040103010401030004010301040103010401030004010301040103 0104010301040403000401030104010300040103010401030d0401050104 010001020101010001020101010401000b04010304040103010401030004 010301040103000401030404010304040103050401030404010301040103 000401030104010301040103000401030104010301040103000401030104 0103000401030104010300040103010401030d0401050104010001020101 010001020101010401000c04010301040303010401030004010301040103 000401030104010300040103010401030004010306040103010403030104 010300040103010401030104010300040103010401030104010300040103 01040103000401030104010300040103000402030d040105010401000102 0101010001020101010401000d0403030104020300040303010401030104 030302040303010401030704030301040303010401030104010301040103 000401030104010301040103010402030004030301040103010401030004 01030d0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401007c040105010401000102010101000102010101040100 7c0401050104010001020101010001020101010401007c04010501040100 01020101010001020101010401007c040105010401000102010101000102 0101010401007c0401050104010001020101010001020101010401007c04 01050104010001020101010001020101010401007c040105010401000102 0101010001020101010401007e0501040100010201010100010201010104 00007f050104010001020101010001020101840401000102010101000102 010184040100010201010100010201018404010001020101010001020101 840401000102010101000102010126043500270401000102010101000102 010126043400000527040100010201010100010201012604010031040105 270401000102010101000102010126040100310401052704010001020101 010001020101260401003104010527040100010201010100010201012604 010031040105270401000102010101000102010126040100310401052704 010001020101010001020101260401003104010527040100010201010100 01020101260401000b040103020401030704010314040105270401000102 0101010001020101260401000b0401030204010307040103140401052704 010001020101010001020101260401000b04010302040103010403030104 010300040103000401030e04010527040100010201010100010201012604 01000b040103020401030004010301040103000401030004020300040103 0d040105270401000102010100000401260401000b040603000401030104 01030004010300040103010401030d040105270401000301040000012604 01000b04010302040103000405030004010300040103010401030d040105 270404000001010001020101260401000b04010302040103000401030404 010300040103010401030d04010527040100010201010100010201012604 01000b040103020401030004010301040103000401030004020300040103 0d0401052704010001020101010001020101260401000b04010302040103 010403030104010300040103000401030e04010527040100010201010100 01020101260401001d040103110401052704010001020101010001020101 260401001d04010311040105270401000102010101000102010126040100 1d0401031104010527040100010201010100010201012604010031040105 270401000102010101000102010126040100310401052704010001020101 010001020101260401003104010527040100010201010100010201012604 010031040105270401000102010101000102010126040100310401052704 010001020101010001020101260401003104010527040100010201010100 010201012604010033052704010001020101010001020101260400003405 270401000102010101000102010184040100010201010100010201018404 010001020101010001020101860001020101010001020001870001020101 010013020001000060020001000013020101010013020001000060020001 00001302010101001401000061010000150100008f01 % % Run-length encoding savings = 77.7% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 145 125 0 0 145 125 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 145 def /pp_by2 125 def gs 227 196 1523 2331 CB 226 195 1523 2331 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPFil2 %%Pages: 1 %%BoundingBox: 0 0 145 125 %%CreationDate: Thu Dec 1 14:22:48 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 145 125 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 145 125 8 [145 0 0 -125 0 125] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage a60000016100000115000001010013020001000060020001000013020101 010013020001000060020001000013020101010001021201000061010000 11010102010101000102000187000102010101000102000100000f020001 00004e02000100000f02000100000f020001000001020101010001020001 00000f02000100004e02000100000f02000100000f020001000001020101 01000102000100000f02000100004e02000100000f02000100000f020001 00000102010101000102000100000f020001000023020103070201031e02 000100000f02000100000202090002020001000001020101010001020001 00000f02000100002d0201031e02000100000f0200010000020200000702 00010202000100000102010101000102000100000f020001000018020103 0102010301020103000201030102030301020103000201031b0200010000 0f0200010000020200000702000102020001000001020101010001020001 000002020900020200010000180201030102010301020103000201030002 01030102010300020203000201031a020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100001902010300020103000201030102010300020203 03020103010201031a020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 000102020001000019020103000201030002010301020103020202030102 0103010201031a0200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100001902010300020103000201030102010303020203000201030102 01031a020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100001a02010301020103 02020103000201030102010300020103010201031a02000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100001a02010301020103020201030102030301020103010201031a02 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100004e02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100004e0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 4e02000100000f02000100000f0200010000010201010100010200010000 100100004f01000010010000100100000102010100008a01000003010400 000184040400000101000102010184040100010201010100010201010104 8000010401000102010101000102010101047f0000050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01007c0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401007c040105010401000102010101000102010101040100 7c0401050104010001020101010001020101010401003604030303040103 020401033604010501040100010201010100010201010104010035040103 010401030204010301040103370401050104010001020101010001020101 010401003404010303040103010401030004010338040105010401000102 010101000102010101040100340401030304010301040303390401050104 010001020101010001020101010401003404010303040103010403033904 010501040100010201010100010201010104010034040103030401030104 010300040103380401050104010001020101010001020101010401003404 010303040103010401030104010337040105010401000102010101000102 010101040100350401030104010302040103020401033604010501040100 010201010100010201010104010036040303030401030304010335040105 0104010001020101010001020101010401007c0401050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01007c0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401007c040105010401000102010101000102010101040100 7c0401050104010001020101010001020101010401007c04010501040100 01020101010001020101010401007c040105010401000102010101000102 0101010401007e050104010001020101010001020101010400007f050104 010001020101010001020101840401000102010101000102010184040100 010201010100010201018404010001020101010001020101840401000102 010101000102010101048000010401000102010101000102010101047f00 00050104010001020101010001020101010401007c040105010401000102 0101010001020101010401007c0401050104010001020101010001020101 010401007c0401050104010001020101010001020101010401007c040105 0104010001020101010001020101010401007c0401050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01000d0403031c040103070403032f0401030d0401050104010001020101 010001020101010401000c040103010401031b0401030604010301040103 2e0401030d0401050104010001020101010001020101010401000b040103 050403030104010300040103020403030204030301040103050401030504 030301040003000402030004020301040003000402030004020302040303 010401030004010302040103000401030d04010501040100010201010100 01020101010401000b040103040401030104010300040203000401030004 010301040103000401030104010300040103050401030404010301040103 000401030104010301040103000401030104010301040103000401030104 0103000402030004010300040103000402030d0401050104010001020101 010001020101010401000b04010308040103000401030104010300040103 040401030104010300040103050401030404010301040103000401030104 010301040103000401030104010301040103040401030004010301040103 00040103010401030d040105010401000102010101000102010101040100 0b0401030504040300040103010401030004010304040503000401030504 010304040103010401030004010301040103010401030004010301040103 0104010301040403000401030104010300040103010401030d0401050104 010001020101010001020101010401000b04010304040103010401030004 010301040103000401030404010304040103050401030404010301040103 000401030104010301040103000401030104010301040103000401030104 0103000401030104010300040103010401030d0401050104010001020101 010001020101010401000c04010301040303010401030004010301040103 000401030104010300040103010401030004010306040103010403030104 010300040103010401030104010300040103010401030104010300040103 01040103000401030104010300040103000402030d040105010401000102 0101010001020101010401000d0403030104020300040303010401030104 030302040303010401030704030301040303010401030104010301040103 000401030104010301040103010402030004030301040103010401030004 01030d0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401007c040105010401000102010101000102010101040100 7c0401050104010001020101010001020101010401007c04010501040100 01020101010001020101010401007c040105010401000102010101000102 0101010401007c0401050104010001020101010001020101010401007c04 01050104010001020101010001020101010401007c040105010401000102 0101010001020101010401007e0501040100010201010100010201010104 00007f050104010001020101010001020101840401000102010101000102 010184040100010201010100010201018404010001020101010001020101 840401000102010101000102010101048000010401000102010101000102 010101047f0000050104010001020101010001020101010401007c040105 0104010001020101010001020101010401007c0401050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01007c0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401003004010302040103070401033a040105010401000102 0101010001020101010401003004010302040103070401033a0401050104 010001020101010001020101010401003004010302040103010403030104 010300040103000401033404010501040100010201010100010201010104 010030040103020401030004010301040103000401030004020300040103 330401050104010001020101000004010104010030040603000401030104 010300040103000401030104010333040105010401000301040000010104 010030040103020401030004050300040103000401030104010333040105 010404000001010001020101010401003004010302040103000401030404 010300040103010401033304010501040100010201010100010201010104 010030040103020401030004010301040103000401030004020300040103 330401050104010001020101010001020101010401003004010302040103 010403030104010300040103000401033404010501040100010201010100 010201010104010042040103370401050104010001020101010001020101 010401004204010337040105010401000102010101000102010101040100 42040103370401050104010001020101010001020101010401007c040105 0104010001020101010001020101010401007c0401050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01007c0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401007e050104010001020101010001020101010400007f05 010401000102010101000102010184040100010201010100010201018404 010001020101010001020101860001020101010001020001870001020101 010013020001000060020001000013020101010013020001000060020001 00001302010101001401000061010000150100008f01 % % Run-length encoding savings = 77.7% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 566 2139 736 (pack .ok .cancel .help -side top) 736 SB gr gs 1500 1125 463 1705 CB 566 2401 759 (pack .ok .cancel .help -side top ) 759 SB gr gs 1500 1125 463 1705 CB 1325 2401 161 (-fill x) 161 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 8 8 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 566 1394 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 15) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 4 3 SJ 566 488 854 (The Packer: Filling, cont'd) 854 SB gr %MSEPS Preamble 0 0 185 237 0 0 185 237 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 185 def /pp_by2 237 def 0 lc 0 lj 0 1 SP gs 290 371 1455 613 CB 289 370 1455 613 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkFil3 %%Pages: 1 %%BoundingBox: 0 0 185 237 %%CreationDate: Thu Dec 1 14:22:49 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 185 237 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 21 string def /drawcolormappedimage { 185 237 8 [185 0 0 -237 0 237] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 e2cbae pop pop drawcolormappedimage ce0000018900000115000001010013020001000088020001000013020101 010013020001000088020001000013020101010001021201000089010000 110101020101010001020001af000102010101000102000100000f020001 00007602000100000f02000100000f020001000001020101010001020001 00000f02000100007602000100000f02000100000f020001000001020101 01000102000100000f02000100007602000100000f02000100000f020001 00000102010101000102000100000f020001000028020403020201030902 01033702000100000f020001000002020900020200010000010201010100 0102000100000f0200010000270201030202010301020103090201033702 000100000f02000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010300020303010203030102 030301020303020203032902000100000f02000100000202000007020001 020200010000010201010100010200010000020209000202000100002802 020304020103010201030102010301020103010201030102010300020103 010201032802000100000502030005020001000002020000070200010202 000100000102010101000102000100000202000007020001020200010000 2a0202030202010305020103010201030102010301020103000202032b02 000100000502000001020001050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100002b02 020301020103020204030102010301020503020202032902000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000027020103020201030102 010301020103010201030102010301020103070202032802000100000502 000002010502000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010301020103000202030102 010301020103000202030102010300020103010201032802000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000280204030302010301020203000201030102010301020303 020203032902000100000f02000100000202000007020001020200010000 0102010101000102000100000f02000100007602000100000f0200010000 0202000008010202000100000102010101000102000100000f0200010000 7602000100000f02000100000f0200010000010201010100010200010000 0f02000100007602000100000f02000100000f0200010000010201010100 01020001000010010000770100001001000010010000010201010000b201 00000301040000012e044d002f04040000010100010201012e044c000005 2f040100010201010100010201012e040100490401052f04010001020101 0100010201012e040100490401052f040100010201010100010201012e04 0100490401052f040100010201010100010201012e040100490401052f04 0100010201010100010201012e040100490401052f040100010201010100 010201012e040100490401052f040100010201010100010201012e040100 490401052f040100010201010100010201012e040100490401052f040100 010201010100010201012e04010007040703000401031604010302040103 070401030e0401052f040100010201010100010201012e04010007040103 060401031604010302040103070401030e0401052f040100010201010100 010201012e04010007040103030401030004010301040303100401030204 010301040303010401030004010300040103080401052f04010001020101 0100010201012e0401000704010303040103000401030004010301040103 0f0401030204010300040103010401030004010300040203000401030704 01052f040100010201010100010201012e04010007040403000401030004 010300040103010401030f04060300040103010401030004010300040103 01040103070401052f040100010201010100010201012e04010007040103 0304010300040103000405030f0401030204010300040503000401030004 010301040103070401052f040100010201010100010201012e0401000704 010303040103000401030004010313040103020401030004010304040103 0004010301040103070401052f040100010201010100010201012e040100 07040103030401030004010300040103010401030f040103020401030004 010301040103000401030004020300040103070401052f04010001020101 0100010201012e0401000704010303040103000401030104030310040103 0204010301040303010401030004010300040103080401052f0401000102 01010100010201012e0401003b0401030b0401052f040100010201010100 010201012e040100060406031a040803090401030b0401052f0401000102 01010100010201012e040100060406031a040803090401030b0401052f04 0100010201010100010201012e040100490401052f040100010201010100 010201012e040100490401052f040100010201010100010201012e040100 490401052f040100010201010100010201012e040100490401052f040100 010201010100010201012e040100490401052f0401000102010101000102 01012e040100490401052f040100010201010100010201012e0401004b05 2f040100010201010100010201012e0400004c052f040100010201010100 01020101ac04010001020101010001020101ac0401000102010101000102 010101049105180401000102010101000102010101049005000018040100 01020101010001020101010401058d040100180401000102010101000102 0101010401058d0401001804010001020101010001020101010401058d04 010018040100010201010100010201010104010500040103020401031904 010300040103660401001804010001020101010001020101010401050004 010302040103850401001804010001020101010001020101010401050004 010302040103010403030104010301040103010401030104030301040103 000401036604010018040100010201010100010201010104010500040103 020401030004010301040103000401030104010301040103000401030104 010300040103000401036604010018040100010201010100010201010104 010500040603040401030104010300040103000401030504010300040103 000401036604010018040100010201010100010201010104010500040103 020401030104040301040103000401030004010302040403000401030004 010366040100180401000102010101000102010101040105000401030204 010300040103010401030104010300040103000401030104010301040103 000401030004010366040100180401000102010101000102010101040105 000401030204010300040103010401030204010301040103020401030104 010300040103000401036604010018040100010201010100010201010104 010500040103020401030104020300040103010401030104010303040203 000403030004010366040100180401000102010101000102010101040105 8d0401001804010001020101010001020101010401058d04010018040100 01020101010001020101010401058d040100180401000102010101000102 0101010401058d0401001804010001020101010001020101010401058d04 01001804010001020101010001020101010401058d040100180401000102 0101010001020101010401058d0401001804010001020101010001020101 010401058d04010018040100010201010100010201010104010500040103 040401030704010379040100180401000102010101000102010101040105 000401030404010307040103790401001804010001020101010001020101 010401050004010301040103000401030104030301040103000401030204 03036f040100180401000102010101000102010101040105000401030004 010300040203000401030104010300040203000401030004010301040103 6e0401001804010001020101010001020101010401050004010300040103 0104010304040103000401030104010300040103010401036e0401001804 010001020101010001020101010401050004010300040103010401030104 0403000401030104010300040103010401036e0401001804010001020101 010001020101010401050004010300040103010401030004010301040103 000401030104010300040103010401036e04010018040100010201010100 010201010104010500040103000401030004020300040103010401030004 01030104010300040103010401036e040100180401000102010101000102 010101040105000401030104010300040103010402030004030301040103 010403036f0401001804010001020101010001020101010401058d040100 1804010001020101010001020101010401058d0401001804010001020101 010001020101010401058d04010018040100010201010100010201010104 01058d0401001804010001020101010001020101010401058d0401001804 010001020101010001020101010401058d04010018040100010201010100 01020101010401058d040100180401000102010101000102010101040105 8d0401001804010001020101010001020101010401050004010300040103 00040103000401030e040103700401001804010001020101010001020101 010401050004010300040103000401038404010018040100010201010100 010201010104010500040103000401030004010300040103000401030004 01030204030301040103010403036a040100180401000102010101000102 010101040105000401030004010300040103000401030004020300040103 000401030104010300040103000401030104010369040100180401000102 010101000102010101040105000401030004010300040103000401030004 010301040103000401030104010300040103000402036c04010018040100 010201010100010201010104010500040103000401030004010300040103 0004010301040103000401030104010300040103020402036a0401001804 010001020101010001020101010401050004010300040103000401030004 010300040103010401030004010301040103000401030304020369040100 180401000102010101000102010101040105000401030004010300040103 000401030004010301040103000401030104010300040103000401030104 010369040100180401000102010101000102010101040105000401030004 010300040103000401030004010301040103010403030104010301040303 6a0401001804010001020101010001020101010401058d04010018040100 01020101010001020101010401058d040100180401000102010101000102 0101010401058d0401001804010001020101010001020101010401058d04 01001804010001020101010001020101010401058d040100180401000102 0101010001020101010401058d0401001804010001020101010001020101 010401058d0401001804010001020101010001020101010401058d040100 180401000102010101000102010101040105000401030b04010300040103 79040100180401000102010101000102010101040105000401030b040103 7c0401001804010001020101010001020101010401050004010300040103 000401030204010300040103000401030104030301040103000401030204 030365040100180401000102010101000102010101040105000401030004 020300040103000401030004020300040103000401030104010300040203 000401030004010301040103640401001804010001020101010001020101 010401050004010300040103010401030004010301040103000401030404 010300040103010401030404010364040100180401000102010101000102 010101040105000401030004010301040103000401030104010300040103 010404030004010301040103010404036404010018040100010201010100 010201010104010500040103000401030104010300040103010401030004 010300040103010401030004010301040103000401030104010364040100 180401000102010101000102010101040105000401030004010301040103 000401030004020300040103000401030104010300040103010401030004 010301040103640401001804010001020101010001020101010401050004 010300040103010401030104010300040103000401030104020300040303 010401030104020300040103630401001804010001020101010001020101 010401058d0401001804010001020101010001020101010401058d040100 1804010001020101010001020101010401058d0401000304120501040100 01020101010001020101010401058d040100030411050000010401000102 0101010001020101010401058d0401000304010506060005060601000104 010001020101010001020101010401058d04010003040105050600000005 060601000104010001020101010001020101010401058d04010003040105 050600000105050601000104010001020101010001020101010401058d04 010003040105040601000105050601000104010001020101010001020101 01040105000401038a040100030401050406010000040105040601000104 01000102010101000102010101040105000401038a040100030401050306 010001040105040601000104010001020101010001020101010401050004 010301040303010401030104010301040103010403037204010003040105 030601000204010503060100010401000102010101000102010101040105 000401030004010301040103000401030104010301040103000401030104 010371040100030401050206010003040105030601000104010001020101 010001020101010401050004010300040103010401030104010300040103 000401030504010371040100030401050206010004040105020601000104 010001020101010001020101010401050004010300040103010401030104 010300040103000401030204040371040100030401050106010005040105 020601000104010001020101010001020101010401050004010300040103 010401030104010300040103000401030104010301040103710401000304 010501060100060401050106010001040100010201010100010201010104 010500040103000401030104010302040103010401030204010301040103 710401000304010500060100070401050106010001040100010201010100 010201010104010500040103010403030304010301040103030402030004 010370040100030401050006010008040105000601000104010001020101 010001020101010401058d0401000304010501000b050006010001040100 01020101010001020101010401058d0401000304010500000d0501000104 010001020101010001020101010401058d040100030401050e0601000104 010001020101010001020101010401058d04010003040105100001040100 01020101010001020101010401058d040100030401050d00000501000104 010001020101010001020101010401058d0401000304010501000c050100 0104010001020101010001020101010401058d0401000304010500000d05 01000104010001020101010001020101010401058d040100030401050e06 010001040100010201010100010201010104010500040103020401038504 010003040105100001040100010201010100010201010104010500040103 01040103860401000304010500060c000005010001040100010201010100 010201010104010500040103000401030304030301040103000401030204 030302040303020403036304010003040105000601000804010500060100 010401000102010101000102010101040105000403030304010301040103 000402030004010300040103010401030004010301040103000401030104 010362040100030401050106010007040105000601000104010001020101 010001020101010401050004030307040103000401030104010300040203 070401030004020365040100030401050106010006040105010601000104 010001020101010001020101010401050004010300040103030404030004 010301040103020402030204040302040203630401000304010502060100 050401050106010001040100010201010100010201010104010500040103 010401030104010301040103000401030104010303040203000401030104 010303040203620401000304010502060100040401050206010001040100 010201010100010201010104010500040103020401030004010301040103 000401030104010300040103010401030004010301040103000401030104 010362040100030401050306010003040105020601000104010001020101 010001020101010401050004010303040103000402030004030301040103 010403030204020300040103000403036304010003040105030601000204 0105030601000104010001020101010001020101010401058d0401000304 010504060100010401050306010001040100010201010100010201010104 01058d040100030401050406010000040105040601000104010001020101 010001020101010401058d04010003040105050600000205040601000104 010001020101010001020101010401058d04010003040105050600000105 050601000104010001020101010001020101010401058d04010003040105 06060105050601000104010001020101010001020101010401058d040100 030401050606000506060100010401000102010101000102010101040105 8d0401000304010510000104010001020101010001020101010401058d04 010003040005110001040100010201010100010201010104010500040103 020401030f0401030f040103610401001804010001020101010001020101 010401050004010301040103100401030f04010361040100180401000102 010101000102010101040105000401030004010303040303010401030004 010301040303000401030104010301040303010401030104010300040103 020401035504010018040100010201010100010201010104010500040303 030401030104010300040203000401030104010301040103010401030004 010301040103000401030004010301040103020401035504010018040100 010201010100010201010104010500040303030401030104010300040103 010401030104010301040103010401030004010304040303030401030004 010356040100180401000102010101000102010101040105000401030004 010302040503000401030104010301040103010401030104010300040103 040403030304010300040103560401001804010001020101010001020101 010401050004010301040103010401030404010301040103010401030104 010301040103000401030404010300040103030402035704010018040100 010201010100010201010104010500040103020401030004010301040103 000401030104010301040103000402030004020300040103010401030004 010301040103020402035704010018040100010201010100010201010104 010500040103030401030004030301040103010401030204010301040103 000401030104030301040103020401030204010357040100180401000102 010101000102010101040105330400035804010018040100010201010100 010201010104010532040103580401001804010001020101010001020101 010401053104010359040100180401000102010101000102010101040105 8d0401001804010001020101010001020101010401058d04010018040100 01020101010001020101010401058d040100180401000102010101000102 0101010401058d0401001804010001020101010001020101010401058d04 010018040100010201010100010201010104010500040103110401030704 01036c040100180401000102010101000102010101040105000401038a04 010018040100010201010100010201010104010500040103040403030104 010301040103000401030104030301040103010403030104010300040103 020403035804010018040100010201010100010201010104010500040103 030401030104010300040103010401030004010300040103010401030004 010300040103010401030004020300040103000401030104010357040100 180401000102010101000102010101040105000401030304010301040103 000401030104010300040103000402030304010304040103000401030104 010304040103570401001804010001020101010001020101010401050004 010303040103010401030004010301040103000401030204020301040103 010404030004010301040103010404035704010018040100010201010100 010201010104010500040103030401030104010300040103010401030004 010303040203000401030004010301040103000401030104010300040103 010401035704010018040100010201010100010201010104010500040103 030401030104010300040103000402030004010300040103010401030004 010300040103010401030004010301040103000401030104010357040100 180401000102010101000102010101040105000405030004030302040103 000401030004010301040303010401030104020300040303010401030104 020300040103560401001804010001020101010001020101010401058d04 01001804010001020101010001020101010401058d040100180401000102 0101010001020101010401058d0401001804010001020101010001020101 010401058d0401001804010001020101010001020101010401058d040100 1804010001020101010001020101010401058d0401001804010001020101 010001020101010401058d04010018040100010201010100010201010104 01058d040100180401000102010101000102010101040105000401030404 010307040103790401001804010001020101010001020101010401050004 010304040103830401001804010001020101010001020101010401050004 02030204020301040303010401030004010300040103020403036c040100 180401000102010101000102010101040105000402030204020300040103 0104010300040103000402030004010300040103010401036b0401001804 010001020101010001020101010401050004030300040303040401030004 0103000401030104010300040103010401036b0401001804010001020101 010001020101010401050004010300040003000400030004010301040403 000401030004010301040103000405036b04010018040100010201010100 010201010104010500040103000402030004010300040103010401030004 01030004010301040103000401036f040100180401000102010101000102 010101040105000401030104000301040103000401030104010300040103 000401030104010300040103010401036b04010018040100010201010100 010201010104010500040103010400030104010301040203000403030004 010301040103010403036c04010018040100010201010100010201010104 01058d0401001804010001020101010001020101010401058d0401001804 010001020101010001020101010401058d04010018040100010201010100 01020101010401058d040100180401000102010101000102010101040105 8d0401001804010001020101010001020101010401058d04010018040100 01020101010001020101010401058d040100180401000102010101000102 0101010401058d0401001804010001020101000004010104010500040103 040401031404010312040103570401001804010003010400000101040105 000401030404010314040103120401035704010018040400000101000102 010101040105000402030204020301040303010401030004030302040103 000401030104030301040103000401030204010300040103570401001804 010001020101010001020101010401050004020302040203000401030104 010300040603020401030004010300040103010401030004020300040103 000401030004020357040100180401000102010101000102010101040105 000403030004030304040103000402030204010300040103010401030404 010300040103010401030004010301040103570401001804010001020101 010001020101010401050004010300040003000400030004010301040403 000401030304010300040103010401030104040300040103010401030004 010301040103570401001804010001020101010001020101010401050004 010300040203000401030004010301040103000401030404020302040103 000401030104010300040103010401030004010301040103570401001804 010001020101010001020101010401050004010301040003010401030004 010301040103000401030404020302040103000401030104010300040103 010401030004010300040203570401001804010001020101010001020101 010401050004010301040003010401030104020300040303050401030204 010301040203000403030104010301040103000401035704010018040100 010201010100010201010104010519040003720401001804010001020101 010001020101010401051804010372040100180401000102010101000102 010101040105170401037304010018040100010201010100010201010104 01058d0401001804010001020101010001020101010401058d0401001804 010001020101010001020101010401058f00180401000102010101000102 01010104000590001804010001020101010001020101ac04010001020101 010001020101ac04010001020101010001020101ae000102010101000102 0001af000102010101001302000100008802000100001302010101001302 00010000880200010000130201010100140100008901000015010000b701 % % Run-length encoding savings = 78.1% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 185 237 0 0 185 237 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 185 def /pp_by2 237 def gs 290 371 1455 1000 CB 289 370 1455 1000 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkFil4 %%Pages: 1 %%BoundingBox: 0 0 185 237 %%CreationDate: Thu Dec 1 14:22:49 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 185 237 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 21 string def /drawcolormappedimage { 185 237 8 [185 0 0 -237 0 237] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba e2cbae pop pop drawcolormappedimage ce0000018900000115000001010013020001000088020001000013020101 010013020001000088020001000013020101010001021201000089010000 110101020101010001020001af000102010101000102000100000f020001 00007602000100000f02000100000f020001000001020101010001020001 00000f02000100007602000100000f02000100000f020001000001020101 01000102000100000f02000100007602000100000f02000100000f020001 00000102010101000102000100000f020001000028020403020201030902 01033702000100000f020001000002020900020200010000010201010100 0102000100000f0200010000270201030202010301020103090201033702 000100000f02000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010300020303010203030102 030301020303020203032902000100000f02000100000202000007020001 020200010000010201010100010200010000020209000202000100002802 020304020103010201030102010301020103010201030102010300020103 010201032802000100000502030005020001000002020000070200010202 000100000102010101000102000100000202000007020001020200010000 2a0202030202010305020103010201030102010301020103000202032b02 000100000502000001020001050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100002b02 020301020103020204030102010301020503020202032902000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000027020103020201030102 010301020103010201030102010301020103070202032802000100000502 000002010502000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010301020103000202030102 010301020103000202030102010300020103010201032802000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000280204030302010301020203000201030102010301020303 020203032902000100000f02000100000202000007020001020200010000 0102010101000102000100000f02000100007602000100000f0200010000 0202000008010202000100000102010101000102000100000f0200010000 7602000100000f02000100000f0200010000010201010100010200010000 0f02000100007602000100000f02000100000f0200010000010201010100 01020001000010010000770100001001000010010000010201010000b201 0000030104000001b1000001010001020101ab0000040100010201010100 010201010100a80501040100010201010100010201010100a80501040100 010201010100010201010100a80501040100010201010100010201010100 a80501040100010201010100010201010100a80501040100010201010100 010201010100a80501040100010201010100010201010100a80501040100 010201010100010201010100a80501040100010201010100010201010100 07050703000501037505010302050103070501030e050104010001020101 010001020101010007050103060501037505010302050103070501030e05 010401000102010101000102010101000705010303050103000501030105 03036f050103020501030105030301050103000501030005010308050104 010001020101010001020101010007050103030501030005010300050103 010501036e05010302050103000501030105010300050103000502030005 010307050104010001020101010001020101010007050403000501030005 010300050103010501036e05060300050103010501030005010300050103 010501030705010401000102010101000102010101000705010303050103 00050103000505036e050103020501030005050300050103000501030105 010307050104010001020101010001020101010007050103030501030005 010300050103720501030205010300050103040501030005010301050103 070501040100010201010100010201010100070501030305010300050103 00050103010501036e050103020501030005010301050103000501030005 020300050103070501040100010201010100010201010100070501030305 010300050103010503036f05010302050103010503030105010300050103 000501030805010401000102010101000102010101009a0501030b050104 01000102010101000102010101000605060379050803090501030b050104 01000102010101000102010101000605060379050803090501030b050104 0100010201010100010201010100a8050104010001020101010001020101 0100a80501040100010201010100010201010100a8050104010001020101 0100010201010100a80501040100010201010100010201010100a8050104 0100010201010100010201010100a8050104010001020101010001020101 0100aa040100010201010100010201010000ab0401000102010101000102 0101ac05010001020101010001020101ac05010001020101010001020101 010591040305120401050100010201010100010201010105900400000305 110400000105010001020101010001020101010501048d05010003050104 06060004060601000105010001020101010001020101010501048d050100 030501040506000000040606010001050100010201010100010201010105 01048d050100030501040506000001040506010001050100010201010100 010201010105010400050103020501031905010300050103660501000305 010404060100010405060100010501000102010101000102010101050104 000501030205010385050100030501040406010000050104040601000105 010001020101010001020101010501040005010302050103010503030105 010301050103010501030105030301050103000501036605010003050104 030601000105010404060100010501000102010101000102010101050104 000501030205010300050103010501030005010301050103010501030005 010301050103000501030005010366050100030501040306010002050104 030601000105010001020101010001020101010501040005060304050103 010501030005010300050103050501030005010300050103660501000305 010402060100030501040306010001050100010201010100010201010105 010400050103020501030105040301050103000501030005010302050403 000501030005010366050100030501040206010004050104020601000105 010001020101010001020101010501040005010302050103000501030105 010301050103000501030005010301050103010501030005010300050103 660501000305010401060100050501040206010001050100010201010100 010201010105010400050103020501030005010301050103020501030105 010302050103010501030005010300050103660501000305010401060100 060501040106010001050100010201010100010201010105010400050103 020501030105020300050103010501030105010303050203000503030005 010366050100030501040006010007050104010601000105010001020101 010001020101010501048d05010003050104000601000805010400060100 0105010001020101010001020101010501048d0501000305010401000b04 000601000105010001020101010001020101010501048d05010003050104 00000d0401000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e060100010501000102010101000102010101050104000501030405 01030705010379050100030501040e060100010501000102010101000102 01010105010400050103040501030705010379050100030501040e060100 010501000102010101000102010101050104000501030105010300050103 010503030105010300050103020503036f050100030501040e0601000105 010001020101010001020101010501040005010300050103000502030005 010301050103000502030005010300050103010501036e05010003050104 0e0601000105010001020101010001020101010501040005010300050103 0105010304050103000501030105010300050103010501036e0501000305 01040e060100010501000102010101000102010101050104000501030005 01030105010301050403000501030105010300050103010501036e050100 030501040e06010001050100010201010100010201010105010400050103 000501030105010300050103010501030005010301050103000501030105 01036e050100030501040e06010001050100010201010100010201010105 010400050103000501030005020300050103010501030005010301050103 00050103010501036e050100030501040e06010001050100010201010100 010201010105010400050103010501030005010301050203000503030105 0103010503036f050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 010101050104000501030005010300050103000501030e05010370050100 030501040e06010001050100010201010100010201010105010400050103 000501030005010384050100030501040e06010001050100010201010100 010201010105010400050103000501030005010300050103000501030005 01030205030301050103010503036a050100030501040e06010001050100 010201010100010201010105010400050103000501030005010300050103 000502030005010300050103010501030005010300050103010501036905 0100030501040e0601000105010001020101010001020101010501040005 010300050103000501030005010300050103010501030005010301050103 00050103000502036c050100030501040e06010001050100010201010100 010201010105010400050103000501030005010300050103000501030105 0103000501030105010300050103020502036a050100030501040e060100 010501000102010101000102010101050104000501030005010300050103 000501030005010301050103000501030105010300050103030502036905 010003050104100001050100010201010100010201010105010400050103 000501030005010300050103000501030105010300050103010501030005 0103000501030105010369050100030501040d0000040100010501000102 010101000102010101050104000501030005010300050103000501030005 0103010501030105030301050103010503036a0501000305010401000a05 010401000105010001020101010001020101010501048d05010003050104 01000a05010401000105010001020101010001020101010501048d050100 0305010401000a0501040100010501000102010101000102010101050104 8d0501000305010401000a05010401000105010001020101010001020101 010501048d0501000305010401000a050104010001050100010201010100 01020101010501048d0501000305010401000a0501040100010501000102 0101010001020101010501048d0501000305010401000a05010401000105 010001020101010001020101010501048d0501000305010401000a050104 01000105010001020101010001020101010501048d050100030501040100 0a0501040100010501000102010101000102010101050104000501030b05 010300050103790501000305010401000a05010401000105010001020101 01000102010101050104000501030b0501037c0501000305010401000a05 010401000105010001020101010001020101010501040005010300050103 000501030205010300050103000501030105030301050103000501030205 0303650501000305010401000a0501040100010501000102010101000102 010101050104000501030005020300050103000501030005020300050103 000501030105010300050203000501030005010301050103640501000305 010401000a05010401000105010001020101010001020101010501040005 010300050103010501030005010301050103000501030405010300050103 0105010304050103640501000305010401000a0501040100010501000102 010101000102010101050104000501030005010301050103000501030105 010300050103010504030005010301050103010504036405010003050104 01000a050104010001050100010201010100010201010105010400050103 000501030105010300050103010501030005010300050103010501030005 0103010501030005010301050103640501000305010401000a0501040100 010501000102010101000102010101050104000501030005010301050103 000501030005020300050103000501030105010300050103010501030005 010301050103640501000305010401000a05010401000105010001020101 010001020101010501040005010300050103010501030105010300050103 000501030105020300050303010501030105020300050103630501000305 010401000a05010401000105010001020101010001020101010501048d05 01000305010401000a050104010001050100010201010100010201010105 01048d0501000305010401000a0501040100010501000102010101000102 0101010501048d0501000305010401000a05010401000105010001020101 010001020101010501048d0501000305010401000a050104010001050100 01020101010001020101010501048d0501000305010401000a0501040100 0105010001020101010001020101010501048d0501000305010401000a05 010401000105010001020101010001020101010501048d05010003050104 01000c0401000105010001020101010001020101010501048d0501000305 010400000d04010001050100010201010100010201010105010400050103 8a050100030501040e060100010501000102010101000102010101050104 000501038a050100030501040e0601000105010001020101010001020101 010501040005010301050303010501030105010301050103010503037205 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030005010301050103010501030005010301050103 71050100030501040e060100010501000102010101000102010101050104 000501030005010301050103010501030005010300050103050501037105 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030105010300050103000501030205040371050100 030501040e06010001050100010201010100010201010105010400050103 000501030105010301050103000501030005010301050103010501037105 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030205010301050103020501030105010371050100 030501040e06010001050100010201010100010201010105010400050103 010503030305010301050103030502030005010370050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 010001050100010201010100010201010105010400050103020501038505 0100030501040e0601000105010001020101010001020101010501040005 01030105010386050100030501040e060100010501000102010101000102 010101050104000501030005010303050303010501030005010302050303 020503030205030363050100030501040e06010001050100010201010100 010201010105010400050303030501030105010300050203000501030005 010301050103000501030105010300050103010501036205010003050104 0e0601000105010001020101010001020101010501040005030307050103 000501030105010300050203070501030005020365050100030501040e06 010001050100010201010100010201010105010400050103000501030305 040300050103010501030205020302050403020502036305010003050104 0e0601000105010001020101010001020101010501040005010301050103 010501030105010300050103010501030305020300050103010501030305 020362050100030501040e06010001050100010201010100010201010105 010400050103020501030005010301050103000501030105010300050103 010501030005010301050103000501030105010362050100030501040e06 010001050100010201010100010201010105010400050103030501030005 020300050303010501030105030302050203000501030005030363050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e06010001050100010201010100010201010105010400050103 020501030f0501030f05010361050100030501040e060100010501000102 0101010001020101010501040005010301050103100501030f0501036105 0100030501040e0601000105010001020101010001020101010501040005 010300050103030503030105010300050103010503030005010301050103 010503030105010301050103000501030205010355050100030501040e06 010001050100010201010100010201010105010400050303030501030105 010300050203000501030105010301050103010501030005010301050103 0005010300050103010501030205010355050100030501040e0601000105 010001020101010001020101010501040005030303050103010501030005 010301050103010501030105010301050103000501030405030303050103 0005010356050100030501040e0601000105010001020101010001020101 010501040005010300050103020505030005010301050103010501030105 010301050103000501030405030303050103000501035605010003050104 0e0601000105010001020101010001020101010501040005010301050103 010501030405010301050103010501030105010301050103000501030405 0103000501030305020357050100030501040e0601000105010001020101 010001020101010501040005010302050103000501030105010300050103 010501030105010300050203000502030005010301050103000501030105 01030205020357050100030501040e060100010501000102010101000102 010101050104000501030305010300050303010501030105010302050103 010501030005010301050303010501030205010302050103570501000305 01040e060100010501000102010101000102010101050104330500035805 0100030501040e0601000105010001020101010001020101010501043205 010358050100030501040e06010001050100010201010100010201010105 01043105010359050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501040005010311050103070501036c050100030501040e060100 010501000102010101000102010101050104000501038a05010003050104 0e0601000105010001020101010001020101010501040005010304050303 010501030105010300050103010503030105010301050303010501030005 01030205030358050100030501040e060100010501000102010101000102 010101050104000501030305010301050103000501030105010300050103 000501030105010300050103000501030105010300050203000501030005 01030105010357050100030501040e060100010501000102010101000102 010101050104000501030305010301050103000501030105010300050103 000502030305010304050103000501030105010304050103570501000305 01040e060100010501000102010101000102010101050104000501030305 010301050103000501030105010300050103020502030105010301050403 00050103010501030105040357050100030501040e060100010501000102 010101000102010101050104000501030305010301050103000501030105 010300050103030502030005010300050103010501030005010301050103 000501030105010357050100030501040e06010001050100010201010100 010201010105010400050103030501030105010300050103000502030005 010300050103010501030005010300050103010501030005010301050103 000501030105010357050100030501040e06010001050100010201010100 010201010105010400050503000503030205010300050103000501030105 030301050103010502030005030301050103010502030005010356050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e06010001050100010201010100010201010105010400050103 040501030705010379050100030501040e06010001050100010201010100 0102010101050104000501030405010383050100030501040e0601000105 010001020101010001020101010501040005020302050203010503030105 01030005010300050103020503036c050100030501040e06010001050100 010201010100010201010105010400050203020502030005010301050103 00050103000502030005010300050103010501036b050100030501040e06 010001050100010201010100010201010105010400050303000503030405 010300050103000501030105010300050103010501036b05010003050104 0e0601000105010001020101010001020101010501040005010300050003 000500030005010301050403000501030005010301050103000505036b05 0100030501040e0601000105010001020101010001020101010501040005 010300050203000501030005010301050103000501030005010301050103 000501036f050100030501040e0601000105010001020101010001020101 010501040005010301050003010501030005010301050103000501030005 01030105010300050103010501036b050100030501040e06010001050100 010201010100010201010105010400050103010500030105010301050203 000503030005010301050103010503036c050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d05010003050104100001050100 010201010000040101050104000501030405010314050103120501035705 01000305010400060c000004010001050100030104000001010501040005 010304050103140501031205010357050100030501040006010008050104 000601000105040000010100010201010105010400050203020502030105 030301050103000503030205010300050103010503030105010300050103 020501030005010357050100030501040106010007050104000601000105 010001020101010001020101010501040005020302050203000501030105 010300050603020501030005010300050103010501030005020300050103 000501030005020357050100030501040106010006050104010601000105 010001020101010001020101010501040005030300050303040501030005 020302050103000501030105010304050103000501030105010300050103 010501035705010003050104020601000505010401060100010501000102 010101000102010101050104000501030005000300050003000501030105 040300050103030501030005010301050103010504030005010301050103 000501030105010357050100030501040206010004050104020601000105 010001020101010001020101010501040005010300050203000501030005 010301050103000501030405020302050103000501030105010300050103 010501030005010301050103570501000305010403060100030501040206 010001050100010201010100010201010105010400050103010500030105 010300050103010501030005010304050203020501030005010301050103 000501030105010300050103000502035705010003050104030601000205 010403060100010501000102010101000102010101050104000501030105 000301050103010502030005030305050103020501030105020300050303 010501030105010300050103570501000305010404060100010501040306 010001050100010201010100010201010105010419050003720501000305 010404060100000501040406010001050100010201010100010201010105 010418050103720501000305010405060000020404060100010501000102 010101000102010101050104170501037305010003050104050600000104 050601000105010001020101010001020101010501048d05010003050104 06060104050601000105010001020101010001020101010501048d050100 030501040606000406060100010501000102010101000102010101050104 8f0003050104100001050100010201010100010201010105000490000305 000411000105010001020101010001020101ac0501000102010101000102 0101ac05010001020101010001020101ae0001020101010001020001af00 010201010100130200010000880200010000130201010100130200010000 880200010000130201010100140100008901000015010000b701 % % Run-length encoding savings = 75.7% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 578 721 460 (pack .menu -side top) 460 SB gr gs 1500 1125 463 400 CB 578 766 621 (pack .scrollbar -side right) 621 SB gr gs 1500 1125 463 400 CB 578 812 299 (pack .listbox) 299 SB gr gs 1500 1125 463 400 CB 578 1109 483 (pack .menu -side top ) 483 SB gr gs 1500 1125 463 400 CB 1061 1109 161 (-fill x) 161 SB gr gs 1500 1125 463 400 CB 578 1154 644 (pack .scrollbar -side right ) 644 SB gr gs 1500 1125 463 400 CB 1222 1154 161 (-fill y) 161 SB gr gs 1500 1125 463 400 CB 578 1199 299 (pack .listbox) 299 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 1 lc 1 lj 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 566 2699 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 16) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 5 2 SJ 566 1793 745 (The Packer: Expansion) 745 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 8 8 SJ 566 1924 1106 (Increase parcel size to absorb extra space in master:) 1106 SB gr %MSEPS Preamble 0 0 260 100 0 0 260 100 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 260 def /pp_by2 100 def 0 lc 0 lj 0 1 SP gs 407 158 1370 2038 CB 406 157 1370 2038 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkExp1 %%Pages: 1 %%BoundingBox: 0 0 260 100 %%CreationDate: Thu Dec 1 15:18:00 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 260 100 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 260 100 8 [260 0 0 -100 0 100] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe001a000001d4000001150000010100130200010000d302000100001302 01010100130200010000d30200010000130201010100010212010000d401 0000110101020101010001020001fa000102010101000102000100000f02 00010000c102000100000f02000100000f02000100000102010101000102 000100000f0200010000c102000100000f02000100000f02000100000102 010101000102000100000f0200010000c102000100000f02000100000f02 000100000102010101000102000100000f02000100005d02010307020103 5702000100000f0200010000020209000202000100000102010101000102 000100000f0200010000670201035702000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100005202 010301020103010201030002010301020303010201030002010354020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000052020103010201030102010300020103 000201030102010300020203000201035302000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000530201030002010300020103010201030002 020303020103010201035302000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100005302010300020103000201030102010302020203 010201030102010353020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000530201030002010300020103010201030302020300020103 010201035302000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000540201030102 010302020103000201030102010300020103010201035302000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000540201030102010302020103010203030102010301020103 5302000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000c102000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000c1020001 00000f02000100000f02000100000102010101000102000100000f020001 0000c102000100000f02000100000f020001000001020101010001020001 000010010000c20100001001000010010000010201010000fd0100000301 04000001f70404000001010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f70401000102010101000102010101042e00 0304420003043500450401000102010101000102010101042d0000050304 410000050304340000054504010001020101010001020101010401002a04 0105030401003e0401050304010031040105450401000102010101000102 0101010401002a040105030401003e040105030401003104010545040100 01020101010001020101010401002a040105030401003e04010503040100 310401054504010001020101010001020101010401002a04010503040100 3e0401050304010031040105450401000102010101000102010101040100 2a040105030401003e040105030401003104010545040100010201010100 01020101010401002a040105030401003e04010503040100310401054504 010001020101010001020101010401000d04030303040103020401030d04 0105030401000d0403031c0401030d040105030401000b04010302040103 07040103140401054504010001020101010001020101010401000c040103 0104010302040103010401030e040105030401000c040103010401031b04 01030d040105030401000b04010302040103070401031404010545040100 01020101010001020101010401000b040103030401030104010300040103 0f040105030401000b040103050403030104010300040103020403030204 0303010401030d040105030401000b040103020401030104030301040103 00040103000401030e040105450401000102010101000102010101040100 0b040103030401030104030310040105030401000b040103040401030104 010300040203000401030004010301040103000401030104010300040103 0d040105030401000b040103020401030004010301040103000401030004 0203000401030d0401054504010001020101010001020101010401000b04 0103030401030104030310040105030401000b0401030804010300040103 01040103000401030404010301040103000401030d040105030401000b04 060300040103010401030004010300040103010401030d04010545040100 01020101010001020101010401000b040103030401030104010300040103 0f040105030401000b040103050404030004010301040103000401030404 0503000401030d040105030401000b040103020401030004050300040103 00040103010401030d040105450401000102010101000102010101040100 0b0401030304010301040103010401030e040105030401000b0401030404 01030104010300040103010401030004010304040103040401030d040105 030401000b04010302040103000401030404010300040103010401030d04 01054504010001020101010001020101010401000c040103010401030204 0103020401030d040105030401000c040103010403030104010300040103 0104010300040103010401030004010301040103000401030d0401050304 01000b040103020401030004010301040103000401030004020300040103 0d0401054504010001020101010001020101010401000d04030303040103 030401030c040105030401000d0403030104020300040303010401030104 030302040303010401030d040105030401000b0401030204010301040303 0104010300040103000401030e0401054504010001020101010001020101 010401002a040105030401003e040105030401001d040103110401054504 010001020101010001020101010401002a040105030401003e0401050304 01001d040103110401054504010001020101010001020101010401002a04 0105030401003e040105030401001d040103110401054504010001020101 010001020101010401002a040105030401003e0401050304010031040105 4504010001020101010001020101010401002a040105030401003e040105 03040100310401054504010001020101010001020101010401002a040105 030401003e04010503040100310401054504010001020101010001020101 010401002a040105030401003e0401050304010031040105450401000102 0101010001020101010401002a040105030401003e040105030401003104 01054504010001020101010001020101010401002a040105030401003e04 010503040100310401054504010001020101010001020101010401002c05 030401004005030401003305450401000102010101000102010101040000 2d050304000041050304000034054504010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f70401000102010100000401f704010003010400 0001f70404000001010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f900 01020101010001020001fa00010201010100130200010000d30200010000 130201010100130200010000d3020001000013020101010014010000d401 000015010000fe010301 % % Run-length encoding savings = 87.4% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 260 100 0 0 260 100 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 260 def /pp_by2 100 def gs 407 157 1370 2513 CB 406 156 1370 2513 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkExp2 %%Pages: 1 %%BoundingBox: 0 0 260 100 %%CreationDate: Thu Dec 1 15:18:00 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 260 100 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 260 100 8 [260 0 0 -100 0 100] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe001a000001d4000001150000010100130200010000d302000100001302 01010100130200010000d30200010000130201010100010212010000d401 0000110101020101010001020001fa000102010101000102000100000f02 00010000c102000100000f02000100000f02000100000102010101000102 000100000f0200010000c102000100000f02000100000f02000100000102 010101000102000100000f0200010000c102000100000f02000100000f02 000100000102010101000102000100000f02000100005d02010307020103 5702000100000f0200010000020209000202000100000102010101000102 000100000f0200010000670201035702000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100005202 010301020103010201030002010301020303010201030002010354020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000052020103010201030102010300020103 000201030102010300020203000201035302000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000530201030002010300020103010201030002 020303020103010201035302000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100005302010300020103000201030102010302020203 010201030102010353020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000530201030002010300020103010201030302020300020103 010201035302000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000540201030102 010302020103000201030102010300020103010201035302000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000540201030102010302020103010203030102010301020103 5302000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000c102000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000c1020001 00000f02000100000f02000100000102010101000102000100000f020001 0000c102000100000f02000100000f020001000001020101010001020001 000010010000c20100001001000010010000010201010000fd0100000301 04000001f70404000001010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f70401000102010101000102010101042e00 0304420003047900010401000102010101000102010101042d0000050304 410000050304780000050104010001020101010001020101010401002a04 0105030401003e0401050304010075040105010401000102010101000102 0101010401002a040105030401003e040105030401007504010501040100 01020101010001020101010401002a040105030401003e04010503040100 750401050104010001020101010001020101010401002a04010503040100 3e0401050304010075040105010401000102010101000102010101040100 2a040105030401003e040105030401007504010501040100010201010100 01020101010401002a040105030401003e04010503040100750401050104 010001020101010001020101010401000d04030303040103020401030d04 0105030401000d0403031c0401030d040105030401002d04010302040103 07040103360401050104010001020101010001020101010401000c040103 0104010302040103010401030e040105030401000c040103010401031b04 01030d040105030401002d04010302040103070401033604010501040100 01020101010001020101010401000b040103030401030104010300040103 0f040105030401000b040103050403030104010300040103020403030204 0303010401030d040105030401002d040103020401030104030301040103 000401030004010330040105010401000102010101000102010101040100 0b040103030401030104030310040105030401000b040103040401030104 010300040203000401030004010301040103000401030104010300040103 0d040105030401002d040103020401030004010301040103000401030004 0203000401032f0401050104010001020101010001020101010401000b04 0103030401030104030310040105030401000b0401030804010300040103 01040103000401030404010301040103000401030d040105030401002d04 060300040103010401030004010300040103010401032f04010501040100 01020101010001020101010401000b040103030401030104010300040103 0f040105030401000b040103050404030004010301040103000401030404 0503000401030d040105030401002d040103020401030004050300040103 00040103010401032f040105010401000102010101000102010101040100 0b0401030304010301040103010401030e040105030401000b0401030404 01030104010300040103010401030004010304040103040401030d040105 030401002d04010302040103000401030404010300040103010401032f04 01050104010001020101010001020101010401000c040103010401030204 0103020401030d040105030401000c040103010403030104010300040103 0104010300040103010401030004010301040103000401030d0401050304 01002d040103020401030004010301040103000401030004020300040103 2f0401050104010001020101010001020101010401000d04030303040103 030401030c040105030401000d0403030104020300040303010401030104 030302040303010401030d040105030401002d0401030204010301040303 010401030004010300040103300401050104010001020101010001020101 010401002a040105030401003e040105030401003f040103330401050104 010001020101010001020101010401002a040105030401003e0401050304 01003f040103330401050104010001020101010001020101010401002a04 0105030401003e040105030401003f040103330401050104010001020101 010001020101010401002a040105030401003e0401050304010075040105 0104010001020101010001020101010401002a040105030401003e040105 03040100750401050104010001020101010001020101010401002a040105 030401003e04010503040100750401050104010001020101010001020101 010401002a040105030401003e0401050304010075040105010401000102 0101010001020101010401002a040105030401003e040105030401007504 01050104010001020101010001020101010401002a040105030401003e04 010503040100750401050104010001020101010001020101010401002c05 030401004005030401007705010401000102010101000102010101040000 2d050304000041050304000078050104010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f70401000102010100000401f704010003010400 0001f70404000001010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f900 01020101010001020001fa00010201010100130200010000d30200010000 130201010100130200010000d3020001000013020101010014010000d401 000015010000fe010301 % % Run-length encoding savings = 87.4% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 260 100 0 0 260 100 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 260 def /pp_by2 100 def gs 407 158 1370 2275 CB 406 157 1370 2275 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkExp3 %%Pages: 1 %%BoundingBox: 0 0 260 100 %%CreationDate: Thu Dec 1 15:18:01 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 260 100 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 260 100 8 [260 0 0 -100 0 100] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe001a000001d4000001150000010100130200010000d302000100001302 01010100130200010000d30200010000130201010100010212010000d401 0000110101020101010001020001fa000102010101000102000100000f02 00010000c102000100000f02000100000f02000100000102010101000102 000100000f0200010000c102000100000f02000100000f02000100000102 010101000102000100000f0200010000c102000100000f02000100000f02 000100000102010101000102000100000f02000100005d02010307020103 5702000100000f0200010000020209000202000100000102010101000102 000100000f0200010000670201035702000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100005202 010301020103010201030002010301020303010201030002010354020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000052020103010201030102010300020103 000201030102010300020203000201035302000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000530201030002010300020103010201030002 020303020103010201035302000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100005302010300020103000201030102010302020203 010201030102010353020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000530201030002010300020103010201030302020300020103 010201035302000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000540201030102 010302020103000201030102010300020103010201035302000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000540201030102010302020103010203030102010301020103 5302000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000c102000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000c1020001 00000f02000100000f02000100000102010101000102000100000f020001 0000c102000100000f02000100000f020001000001020101010001020001 000010010000c20100001001000010010000010201010000fd0100000301 04000001f70404000001010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f70401000102010101000102010101042e00 0304420025043500230401000102010101000102010101042d0000050304 410000052504340000052304010001020101010001020101010401002a04 0105030401003e0401052504010031040105230401000102010101000102 0101010401002a040105030401003e040105250401003104010523040100 01020101010001020101010401002a040105030401003e04010525040100 310401052304010001020101010001020101010401002a04010503040100 3e0401052504010031040105230401000102010101000102010101040100 2a040105030401003e040105250401003104010523040100010201010100 01020101010401002a040105030401003e04010525040100310401052304 010001020101010001020101010401000d04030303040103020401030d04 0105030401000d0403031c0401030d040105250401000b04010302040103 07040103140401052304010001020101010001020101010401000c040103 0104010302040103010401030e040105030401000c040103010401031b04 01030d040105250401000b04010302040103070401031404010523040100 01020101010001020101010401000b040103030401030104010300040103 0f040105030401000b040103050403030104010300040103020403030204 0303010401030d040105250401000b040103020401030104030301040103 00040103000401030e040105230401000102010101000102010101040100 0b040103030401030104030310040105030401000b040103040401030104 010300040203000401030004010301040103000401030104010300040103 0d040105250401000b040103020401030004010301040103000401030004 0203000401030d0401052304010001020101010001020101010401000b04 0103030401030104030310040105030401000b0401030804010300040103 01040103000401030404010301040103000401030d040105250401000b04 060300040103010401030004010300040103010401030d04010523040100 01020101010001020101010401000b040103030401030104010300040103 0f040105030401000b040103050404030004010301040103000401030404 0503000401030d040105250401000b040103020401030004050300040103 00040103010401030d040105230401000102010101000102010101040100 0b0401030304010301040103010401030e040105030401000b0401030404 01030104010300040103010401030004010304040103040401030d040105 250401000b04010302040103000401030404010300040103010401030d04 01052304010001020101010001020101010401000c040103010401030204 0103020401030d040105030401000c040103010403030104010300040103 0104010300040103010401030004010301040103000401030d0401052504 01000b040103020401030004010301040103000401030004020300040103 0d0401052304010001020101010001020101010401000d04030303040103 030401030c040105030401000d0403030104020300040303010401030104 030302040303010401030d040105250401000b0401030204010301040303 0104010300040103000401030e0401052304010001020101010001020101 010401002a040105030401003e040105250401001d040103110401052304 010001020101010001020101010401002a040105030401003e0401052504 01001d040103110401052304010001020101010001020101010401002a04 0105030401003e040105250401001d040103110401052304010001020101 010001020101010401002a040105030401003e0401052504010031040105 2304010001020101010001020101010401002a040105030401003e040105 25040100310401052304010001020101010001020101010401002a040105 030401003e04010525040100310401052304010001020101010001020101 010401002a040105030401003e0401052504010031040105230401000102 0101010001020101010401002a040105030401003e040105250401003104 01052304010001020101010001020101010401002a040105030401003e04 010525040100310401052304010001020101010001020101010401002c05 030401004005250401003305230401000102010101000102010101040000 2d050304000041052504000034052304010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f70401000102010100000401f704010003010400 0001f70404000001010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f900 01020101010001020001fa00010201010100130200010000d30200010000 130201010100130200010000d3020001000013020101010014010000d401 000015010000fe010301 % % Run-length encoding savings = 87.4% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 566 2094 759 (pack .ok .cancel .help -side left) 759 SB gr gs 1500 1125 463 1705 CB 566 2525 621 (pack .ok .cancel -side left) 621 SB gr gs 1500 1125 463 1705 CB 566 2570 529 (pack .help -side left \\) 529 SB gr gs 1500 1125 463 1705 CB 566 2615 69 ( ) 69 SB gr gs 1500 1125 463 1705 CB 635 2615 460 (-expand true -fill x) 460 SB gr gs 1500 1125 463 1705 CB 566 2309 621 (pack .ok .cancel -side left) 621 SB gr gs 1500 1125 463 1705 CB 566 2354 506 (pack .help -side left ) 506 SB gr gs 1500 1125 463 1705 CB 1072 2354 276 (-expand true) 276 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 9 9 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 566 1394 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 17) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 7 3 SJ 566 488 981 (The Packer: Expansion, cont'd) 981 SB gr %MSEPS Preamble 0 0 260 100 0 0 260 100 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 260 def /pp_by2 100 def 0 lc 0 lj 0 1 SP gs 407 158 1433 708 CB 406 157 1433 708 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkExp4 %%Pages: 1 %%BoundingBox: 0 0 260 100 %%CreationDate: Thu Dec 1 15:18:02 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 260 100 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 260 100 8 [260 0 0 -100 0 100] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe001a000001d4000001150000010100130200010000d302000100001302 01010100130200010000d30200010000130201010100010212010000d401 0000110101020101010001020001fa000102010101000102000100000f02 00010000c102000100000f02000100000f02000100000102010101000102 000100000f0200010000c102000100000f02000100000f02000100000102 010101000102000100000f0200010000c102000100000f02000100000f02 000100000102010101000102000100000f02000100005d02010307020103 5702000100000f0200010000020209000202000100000102010101000102 000100000f0200010000670201035702000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100005202 010301020103010201030002010301020303010201030002010354020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000052020103010201030102010300020103 000201030102010300020203000201035302000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000530201030002010300020103010201030002 020303020103010201035302000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100005302010300020103000201030102010302020203 010201030102010353020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000530201030002010300020103010201030302020300020103 010201035302000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000540201030102 010302020103000201030102010300020103010201035302000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000540201030102010302020103010203030102010301020103 5302000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000c102000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000c1020001 00000f02000100000f02000100000102010101000102000100000f020001 0000c102000100000f02000100000f020001000001020101010001020001 000010010000c20100001001000010010000010201010000fd0100000301 04000001f70404000001010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f7040100010201010100010201010c042e00 190442001a0435000d040100010201010100010201010c042d0000051904 410000051a04340000050d040100010201010100010201010c0401002a04 0105190401003e0401051a040100310401050d0401000102010101000102 01010c0401002a040105190401003e0401051a040100310401050d040100 010201010100010201010c0401002a040105190401003e0401051a040100 310401050d040100010201010100010201010c0401002a04010519040100 3e0401051a040100310401050d040100010201010100010201010c040100 2a040105190401003e0401051a040100310401050d040100010201010100 010201010c0401002a040105190401003e0401051a040100310401050d04 0100010201010100010201010c0401000d04030303040103020401030d04 0105190401000d0403031c0401030d0401051a0401000b04010302040103 07040103140401050d040100010201010100010201010c0401000c040103 0104010302040103010401030e040105190401000c040103010401031b04 01030d0401051a0401000b0401030204010307040103140401050d040100 010201010100010201010c0401000b040103030401030104010300040103 0f040105190401000b040103050403030104010300040103020403030204 0303010401030d0401051a0401000b040103020401030104030301040103 00040103000401030e0401050d040100010201010100010201010c040100 0b040103030401030104030310040105190401000b040103040401030104 010300040203000401030004010301040103000401030104010300040103 0d0401051a0401000b040103020401030004010301040103000401030004 0203000401030d0401050d040100010201010100010201010c0401000b04 0103030401030104030310040105190401000b0401030804010300040103 01040103000401030404010301040103000401030d0401051a0401000b04 060300040103010401030004010300040103010401030d0401050d040100 010201010100010201010c0401000b040103030401030104010300040103 0f040105190401000b040103050404030004010301040103000401030404 0503000401030d0401051a0401000b040103020401030004050300040103 00040103010401030d0401050d040100010201010100010201010c040100 0b0401030304010301040103010401030e040105190401000b0401030404 01030104010300040103010401030004010304040103040401030d040105 1a0401000b04010302040103000401030404010300040103010401030d04 01050d040100010201010100010201010c0401000c040103010401030204 0103020401030d040105190401000c040103010403030104010300040103 0104010300040103010401030004010301040103000401030d0401051a04 01000b040103020401030004010301040103000401030004020300040103 0d0401050d040100010201010100010201010c0401000d04030303040103 030401030c040105190401000d0403030104020300040303010401030104 030302040303010401030d0401051a0401000b0401030204010301040303 0104010300040103000401030e0401050d04010001020101010001020101 0c0401002a040105190401003e0401051a0401001d040103110401050d04 0100010201010100010201010c0401002a040105190401003e0401051a04 01001d040103110401050d040100010201010100010201010c0401002a04 0105190401003e0401051a0401001d040103110401050d04010001020101 0100010201010c0401002a040105190401003e0401051a04010031040105 0d040100010201010100010201010c0401002a040105190401003e040105 1a040100310401050d040100010201010100010201010c0401002a040105 190401003e0401051a040100310401050d04010001020101010001020101 0c0401002a040105190401003e0401051a040100310401050d0401000102 01010100010201010c0401002a040105190401003e0401051a0401003104 01050d040100010201010100010201010c0401002a040105190401003e04 01051a040100310401050d040100010201010100010201010c0401002c05 1904010040051a04010033050d040100010201010100010201010c040000 2d051904000041051a04000034050d04010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f70401000102010100000401f704010003010400 0001f70404000001010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f900 01020101010001020001fa00010201010100130200010000d30200010000 130201010100130200010000d3020001000013020101010014010000d401 000015010000fe010301 % % Run-length encoding savings = 87.4% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 260 100 0 0 260 100 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 260 def /pp_by2 100 def gs 407 157 1433 1035 CB 406 156 1433 1035 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkExp5 %%Pages: 1 %%BoundingBox: 0 0 260 100 %%CreationDate: Thu Dec 1 15:18:02 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 260 100 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 260 100 8 [260 0 0 -100 0 100] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe001a000001d4000001150000010100130200010000d302000100001302 01010100130200010000d30200010000130201010100010212010000d401 0000110101020101010001020001fa000102010101000102000100000f02 00010000c102000100000f02000100000f02000100000102010101000102 000100000f0200010000c102000100000f02000100000f02000100000102 010101000102000100000f0200010000c102000100000f02000100000f02 000100000102010101000102000100000f02000100005d02010307020103 5702000100000f0200010000020209000202000100000102010101000102 000100000f0200010000670201035702000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100005202 010301020103010201030002010301020303010201030002010354020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000052020103010201030102010300020103 000201030102010300020203000201035302000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000530201030002010300020103010201030002 020303020103010201035302000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100005302010300020103000201030102010302020203 010201030102010353020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000530201030002010300020103010201030302020300020103 010201035302000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000540201030102 010302020103000201030102010300020103010201035302000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000540201030102010302020103010203030102010301020103 5302000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000c102000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000c1020001 00000f02000100000f02000100000102010101000102000100000f020001 0000c102000100000f02000100000f020001000001020101010001020001 000010010000c20100001001000010010000010201010000fd0100000301 04000001f70404000001010001020101f704010001020101010001020101 010444000304590003044c00010401000102010101000102010101044300 000503045800000503044b00000501040100010201010100010201010104 010040040105030401005504010503040100480401050104010001020101 010001020101010401004004010503040100550401050304010048040105 010401000102010101000102010101040100400401050304010055040105 030401004804010501040100010201010100010201010104010040040105 030401005504010503040100480401050104010001020101010001020101 010401004004010503040100550401050304010048040105010401000102 010101000102010101040100400401050304010055040105030401004804 010501040100010201010100010201010104010040040105030401005504 010503040100480401050104010001020101010001020101010401004004 010503040100550401050304010048040105010401000102010101000102 010101040100400401050304010055040105030401004804010501040100 010201010100010201010104010040040105030401005504010503040100 480401050104010001020101010001020101010401004004010503040100 550401050304010048040105010401000102010101000102010101040100 400401050304010055040105030401004804010501040100010201010100 010201010104010040040105030401005504010503040100480401050104 010001020101010001020101010401004004010503040100550401050304 010048040105010401000102010101000102010101040100400401050304 010055040105030401004804010501040100010201010100010201010104 010040040105030401005504010503040100480401050104010001020101 010001020101010401004004010503040100550401050304010048040105 010401000102010101000102010101040100400401050304010055040105 030401004804010501040100010201010100010201010104010040040105 030401005504010503040100480401050104010001020101010001020101 010401004004010503040100550401050304010048040105010401000102 010101000102010101040100400401050304010055040105030401004804 010501040100010201010100010201010104010040040105030401005504 010503040100480401050104010001020101010001020101010401004004 010503040100550401050304010048040105010401000102010101000102 010101040100400401050304010055040105030401004804010501040100 010201010100010201010104010040040105030401005504010503040100 480401050104010001020101010001020101010401001804030303040103 020401031804010503040100180403031c04010319040105030401001604 010302040103070401032004010501040100010201010100010201010104 010017040103010401030204010301040103190401050304010017040103 010401031b04010319040105030401001604010302040103070401032004 010501040100010201010100010201010104010016040103030401030104 0103000401031a0401050304010016040103050403030104010300040103 020403030204030301040103190401050304010016040103020401030104 03030104010300040103000401031a040105010401000102010101000102 0101010401001604010303040103010403031b0401050304010016040103 040401030104010300040203000401030004010301040103000401030104 010300040103190401050304010016040103020401030004010301040103 000401030004020300040103190401050104010001020101010001020101 010401001604010303040103010403031b04010503040100160401030804 010300040103010401030004010304040103010401030004010319040105 030401001604060300040103010401030004010300040103010401031904 010501040100010201010100010201010104010016040103030401030104 0103000401031a0401050304010016040103050404030004010301040103 000401030404050300040103190401050304010016040103020401030004 050300040103000401030104010319040105010401000102010101000102 010101040100160401030304010301040103010401031904010503040100 160401030404010301040103000401030104010300040103040401030404 010319040105030401001604010302040103000401030404010300040103 010401031904010501040100010201010100010201010104010017040103 010401030204010302040103180401050304010017040103010403030104 010300040103010401030004010301040103000401030104010300040103 190401050304010016040103020401030004010301040103000401030004 020300040103190401050104010001020101010001020101010401001804 030303040103030401031704010503040100180403030104020300040303 010401030104030302040303010401031904010503040100160401030204 0103010403030104010300040103000401031a0401050104010001020101 010001020101010401004004010503040100550401050304010028040103 1d0401050104010001020101010001020101010401004004010503040100 5504010503040100280401031d0401050104010001020101010001020101 0104010040040105030401005504010503040100280401031d0401050104 010001020101010001020101010401004004010503040100550401050304 010048040105010401000102010101000102010101040100400401050304 010055040105030401004804010501040100010201010100010201010104 010040040105030401005504010503040100480401050104010001020101 010001020101010401004004010503040100550401050304010048040105 010401000102010101000102010101040100400401050304010055040105 030401004804010501040100010201010100010201010104010040040105 030401005504010503040100480401050104010001020101010001020101 010401004004010503040100550401050304010048040105010401000102 010101000102010101040100400401050304010055040105030401004804 010501040100010201010100010201010104010040040105030401005504 010503040100480401050104010001020101010001020101010401004004 010503040100550401050304010048040105010401000102010101000102 010101040100400401050304010055040105030401004804010501040100 010201010100010201010104010040040105030401005504010503040100 480401050104010001020101000004010104010040040105030401005504 010503040100480401050104010003010400000101040100400401050304 010055040105030401004804010501040400000101000102010101040100 400401050304010055040105030401004804010501040100010201010100 010201010104010040040105030401005504010503040100480401050104 010001020101010001020101010401004004010503040100550401050304 010048040105010401000102010101000102010101040100400401050304 010055040105030401004804010501040100010201010100010201010104 010040040105030401005504010503040100480401050104010001020101 010001020101010401004004010503040100550401050304010048040105 010401000102010101000102010101040100400401050304010055040105 030401004804010501040100010201010100010201010104010040040105 030401005504010503040100480401050104010001020101010001020101 010401004004010503040100550401050304010048040105010401000102 010101000102010101040100400401050304010055040105030401004804 010501040100010201010100010201010104010040040105030401005504 010503040100480401050104010001020101010001020101010401004004 010503040100550401050304010048040105010401000102010101000102 0101010401004205030401005705030401004a0501040100010201010100 01020101010400004305030400005805030400004b050104010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f90001020101010001020001fa00010201010100130200010000 d30200010000130201010100130200010000d30200010000130201010100 14010000d401000015010000fe010301 % % Run-length encoding savings = 83.8% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 578 742 805 (pack .ok .cancel .help -side left \\) 805 SB gr gs 1500 1125 463 400 CB 578 787 92 ( ) 92 SB gr gs 1500 1125 463 400 CB 670 787 276 (-expand true) 276 SB gr gs 1500 1125 463 400 CB 578 1069 805 (pack .ok .cancel .help -side left \\) 805 SB gr gs 1500 1125 463 400 CB 578 1114 92 ( ) 92 SB gr gs 1500 1125 463 400 CB 670 1114 460 (-expand 1 -fill both) 460 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 1 lc 1 lj 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 566 2699 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 18) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 5 1 SJ 566 1793 676 (Hierarchical Packing) 676 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 9 7 SJ 566 1924 1295 (Use additional frames to create more complex arrangements:) 1295 SB gr 32 0 0 33 33 0 0 0 28 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 578 2011 220 (frame .left) 220 SB gr gs 1500 1125 463 1705 CB 578 2047 780 (pack .left -side left -padx 3m -pady 3m) 780 SB gr gs 1500 1125 463 1705 CB 578 2084 240 (frame .right) 240 SB gr gs 1500 1125 463 1705 CB 578 2120 820 (pack .right -side right -padx 3m -pady 3m) 820 SB gr gs 1500 1125 463 1705 CB 578 2156 600 (foreach size {8 10 12 18 24} {) 600 SB gr gs 1500 1125 463 1705 CB 578 2192 820 ( radiobutton .pts$size -variable pts \\) 820 SB gr gs 1500 1125 463 1705 CB 578 2228 820 ( -value $size -text "$size points") 820 SB gr gs 1500 1125 463 1705 CB 578 2265 20 (}) 20 SB gr gs 1500 1125 463 1705 CB 578 2301 800 (pack .pts8 .pts10 .pts12 .pts18 .pts24 \\) 800 SB gr gs 1500 1125 463 1705 CB 578 2337 660 ( -in .left -side top -anchor w) 660 SB gr gs 1500 1125 463 1705 CB 578 2373 600 (checkbutton .bold -text Bold \\) 600 SB gr gs 1500 1125 463 1705 CB 578 2409 360 ( -variable bold) 360 SB gr gs 1500 1125 463 1705 CB 578 2446 680 (checkbutton .italic -text Italic \\) 680 SB gr gs 1500 1125 463 1705 CB 578 2482 400 ( -variable italic) 400 SB gr gs 1500 1125 463 1705 CB 578 2518 800 (checkbutton .underline -text Underline \\) 800 SB gr gs 1500 1125 463 1705 CB 578 2554 460 ( -variable underline) 460 SB gr gs 1500 1125 463 1705 CB 578 2590 620 (pack .bold .italic .underline \\) 620 SB gr gs 1500 1125 463 1705 CB 578 2627 680 ( -in .right -side top -anchor w) 680 SB gr %MSEPS Preamble 0 0 224 171 0 0 224 171 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 224 def /pp_by2 171 def 0 lc 0 lj 0 1 SP gs 351 268 1486 2207 CB 350 267 1486 2207 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkHr %%Pages: 1 %%BoundingBox: 0 0 224 171 %%CreationDate: Thu Dec 1 15:51:53 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 224 171 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 21 string def /drawcolormappedimage { 224 171 8 [224 0 0 -171 0 171] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 a72d5b pop pop drawcolormappedimage f5000001b0000001150000010100130200010000af020001000013020101 0100130200010000af0200010000130201010100010212010000b0010000 110101020101010001020001d6000102010101000102000100000f020001 00009d02000100000f02000100000f020001000001020101010001020001 00000f02000100009d02000100000f02000100000f020001000001020101 01000102000100000f02000100009d02000100000f02000100000f020001 00000102010101000102000100000f02000100004b020103070201034502 000100000f02000100000202090002020001000001020101010001020001 00000f0200010000550201034502000100000f0200010000020200000702 00010202000100000102010101000102000100000f020001000040020103 010201030102010300020103010203030102010300020103420200010000 0f0200010000020200000702000102020001000001020101010001020001 000002020900020200010000400201030102010301020103000201030002 010301020103000202030002010341020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100004102010300020103000201030102010300020203 030201030102010341020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 000102020001000041020103000201030002010301020103020202030102 010301020103410200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100004102010300020103000201030102010303020203000201030102 010341020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100004202010301020103 02020103000201030102010300020103010201034102000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100004202010301020103020201030102030301020103010201034102 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100009d02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100009d0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 9d02000100000f02000100000f0200010000010201010100010200010000 100100009e0100001001000010010000010201010000d901000003010400 0001d30404000001010001020101d304010001020101010001020101d304 010001020101010001020101d304010001020101010001020101d3040100 01020101010001020101d304010001020101010001020101d30401000102 0101010001020101d304010001020101010001020101d304010001020101 010001020101d304010001020101010001020101d3040100010201010100 01020101d304010001020101010001020101d30401000102010101000102 0101d304010001020101010001020101d304010001020101010001020101 d304010001020101010001020101d3040100010201010100010201011504 0100bb04010001020101010001020101140403000c040303130401030804 01038804010001020101010001020101130405000a040103010401031d04 010388040100010201010100010201011204020001040200090401030104 010304040103000401030204030301040103000401030004010301040303 010403038104010001020101010001020101110402000304020009040303 050402030004010300040103010401030004010300040203000401030104 010301040103010401038004010001020101010001020101100402000504 020007040103010401030404010301040103000401030104010300040103 000401030104010301040103010402038304010001020101010001020101 0f0402050704020506040103010401030404010301040103000401030104 010300040103000401030104010301040103030402038104010001020101 010001020101100402050504020507040103010401030404010301040103 000401030104010300040103000401030104010301040103040402038004 010001020101010001020101110402050304020508040103010401030404 020300040103000401030104010300040103000401030104010301040103 000402030104010380040100010201010100010201011204020501040205 0a0403030504010300040103020403030104010300040103010401030204 01030104030381040100010201010100010201011304050515040103a104 0100010201010100010201011404030516040103a1040100010201010100 010201011504010517040103a104010001020101010001020101d3040100 01020101010001020101d304010001020101010001020101d30401000102 0101010001020101d304010001020101010001020101d304010001020101 010001020101d304010001020101010001020101d3040100010201010100 01020101d304010001020101010001020101d30401000102010101000102 0101d304010001020101010001020101d304010001020101010001020101 15040105bb04010001020101010001020101140403050d04010303040303 130401030804010328040a000704050308040103040401032d0401000102 0101010001020101130405050a04030302040103010401031d0401032804 09000005070401030204010307040103040401032d040100010201010100 0102010112040205010602050b0401030204010301040103040401030004 010302040303010401030004010300040103010403030104030321040100 060401050704010302040103010403030104010301040103000401032d04 01000102010101000102010111040205030602050a040103020401030104 010304040203000401030004010301040103000401030004020300040103 010401030104010301040103200401000604010507040103020401030004 0103010401030004010300040103000402032d0401000102010101000102 010110040205050602050904010302040103010401030404010301040103 000401030104010300040103000401030104010301040103010402032304 010006040105070405030104010301040103000401030004010301040103 2d040100010201010100010201010f040200070602000804010302040103 010401030404010301040103000401030104010300040103000401030104 010301040103030402032104010006040105070401030204010300040103 010401030004010300040103010401032d04010001020101010001020101 100402000506020009040103020401030104010304040103010401030004 010301040103000401030004010301040103010401030404020320040100 060401050704010302040103000401030104010300040103000401030104 01032d0401000102010101000102010111040200030602000a0401030204 010301040103040402030004010300040103010401030004010300040103 010401030104010300040203010401032004010006040105070401030204 010300040103010401030004010300040103000402032d04010001020101 01000102010112040200010602000b040103030403030504010300040103 020403030104010300040103010401030204010301040303210401000604 010507040503020403030104010301040103000401032d04010001020101 010001020101130405001c0401034104010008054d040100010201010100 01020101140403001d0401034104000009054d0401000102010101000102 0101150401001e0401039a04010001020101010001020101d30401000102 0101010001020101d304010001020101010001020101d304010001020101 010001020101d304010001020101010001020101d3040100010201010100 01020101d304010001020101010001020101d30401000102010101000102 0101d304010001020101010001020101d304010001020101010001020101 d304010001020101010001020101d3040100010201010100010201011504 0100bb04010001020101010001020101140403000d040103030403031304 01030804010328040a050704010301040103080401030004010331040100 01020101010001020101130405000a04030302040103010401031d040103 280409050000070401030104010308040103340401000102010101000102 010112040200010402000b04010306040103040401030004010302040303 010401030004010300040103010403030104030321040105060601000704 010300040303010403030104010300040103010403032b04010001020101 01000102010111040200030402000a040103050401030504020300040103 000401030104010300040103000402030004010301040103010401030104 010320040105060601000704010301040103010401030104010300040103 0004010300040103010401032a0401000102010101000102010110040200 050402000904010304040103060401030104010300040103010401030004 010300040103010401030104010301040203230401050606010007040103 01040103050401030004010300040103000401032e040100010201010100 010201010f04020507040205080401030304010307040103010401030004 010301040103000401030004010301040103010401030304020321040105 060601000704010301040103020404030004010300040103000401032e04 010001020101010001020101100402050504020509040103020401030804 010301040103000401030104010300040103000401030104010301040103 040402032004010506060100070401030104010301040103010401030004 010300040103000401032e04010001020101010001020101110402050304 02050a040103020401030804020300040103000401030104010300040103 000401030104010301040103000402030104010320040105060601000704 010301040103000402030104010300040103000401030004010301040103 2a0401000102010101000102010112040205010402050b04010302040503 040401030004010302040303010401030004010301040103020401030104 030321040105060601000704010302040103010402030004030300040103 010403032b04010001020101010001020101130405051c04010341040105 08004d04010001020101010001020101140403051d040103410400050900 4d04010001020101010001020101150401051e0401039a04010001020101 010001020101d304010001020101010001020101d3040100010201010100 01020101d304010001020101010001020101d30401000102010101000102 0101d304010001020101010001020101d304010001020101010001020101 d304010001020101010001020101d304010001020101010001020101d304 010001020101010001020101d304010001020101010001020101d3040100 0102010101000102010115040100bb040100010201010100010201011404 03000d04010303040303130401030804010328040a050704010302040103 0b0401030c040103000401031e0401000102010101000102010113040500 0a04030302040103010401031d0401032804090500000704010302040103 0b0401030c04010321040100010201010100010201011204020001040200 0b0401030204010301040103040401030004010302040303010401030004 010300040103010403030104030321040105060601000704010302040103 000401030004010302040103000401030104030301040103000403030004 010300040103000401030204030311040100010201010100010201011104 0200030402000a0401030304030305040203000401030004010301040103 000401030004020300040103010401030104010301040103200401050606 010007040103020401030004020300040103000401030004020300040103 010401030004060300040103000402030004010300040103010401031004 010001020101010001020101100402000504020009040103020401030104 010304040103010401030004010301040103000401030004010301040103 010401030104020323040105060601000704010302040103000401030104 010300040103010401030004010301040103000402030104010300040103 000401030104010300040103010401031004010001020101010001020101 0f0402050704020508040103020401030104010304040103010401030004 010301040103000401030004010301040103010401030304020321040105 060601000704010302040103000401030104010300040103010401030004 050300040103020401030004010300040103010401030004050310040100 010201010100010201011004020505040205090401030204010301040103 040401030104010300040103010401030004010300040103010401030104 010304040203200401050606010007040103020401030004010301040103 000401030104010300040103040401030204010300040103000401030104 010300040103140401000102010101000102010111040205030402050a04 010302040103010401030404020300040103000401030104010300040103 000401030104010301040103000402030104010320040105060601000804 010300040103010401030104010300040103000402030004010301040103 000401030204010300040103000401030104010300040103010401031004 01000102010101000102010112040205010402050b040103030403030504 010300040103020403030104010300040103010401030204010301040303 210401050606010008040403010401030104010301040103000401030104 030301040103020401030004010300040103010401030104030311040100 01020101010001020101130405051c0401034104010508004d0401000102 0101010001020101140403051d0401034104000509004d04010001020101 010001020101150401051e0401039a04010001020101010001020101d304 010001020101010001020101d304010001020101010001020101d3040100 01020101010001020101d304010001020101010001020101d30401000102 0101010001020101d304010001020101010001020101d304010001020101 010001020101d304010001020101010001020101d3040100010201010100 01020101d304010001020101010001020101d30401000102010101000102 010115040100bb04010001020101010001020101140403000c0403030504 010312040103080401038104010001020101010001020101130405000a04 010301040103030402031d04010381040100010201010100010201011204 0200010402000d0401030204000300040103040401030004010302040303 01040103000401030004010301040303010403037a040100010201010100 0102010111040200030402000b0401030304000300040103040402030004 010300040103010401030004010300040203000401030104010301040103 010401037904010001020101010001020101100402000504020009040103 030400030104010304040103010401030004010301040103000401030004 01030104010301040103010402037c040100010201010100010201010f04 020507040205070401030304000302040103040401030104010300040103 0104010300040103000401030104010301040103030402037a0401000102 010101000102010110040205050402050704010304040603030401030104 010300040103010401030004010300040103010401030104010304040203 790401000102010101000102010111040205030402050804010308040103 040402030004010300040103010401030004010300040103010401030104 010300040203010401037904010001020101010001020101120402050104 020509040503040401030404010300040103020403030104010300040103 0104010302040103010403037a0401000102010101000102010113040505 1c0401039a0401000102010100000401140403051d0401039a0401000301 04000001150401051e0401039a0404000001010001020101d30401000102 0101010001020101d304010001020101010001020101d304010001020101 010001020101d304010001020101010001020101d3040100010201010100 01020101d304010001020101010001020101d30401000102010101000102 0101d304010001020101010001020101d304010001020101010001020101 d304010001020101010001020101d304010001020101010001020101d304 010001020101010001020101d304010001020101010001020101d3040100 01020101010001020101d304010001020101010001020101d30401000102 0101010001020101d50001020101010001020001d6000102010101001302 00010000af0200010000130201010100130200010000af02000100001302 0101010014010000b001000015010000de01 % % Run-length encoding savings = 83.5% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 10 10 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 566 1394 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 19) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 9 1 SJ 566 488 610 (Widget Commands) 610 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 7 SJ 622 644 1083 (Tcl command for each widget, named after widget.) 1083 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 749 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 4 SJ 622 733 856 (Used to reconfigure, manipulate widget:) 856 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 807 275 (button .a.b) 275 SB gr gs 1500 1125 463 400 CB 641 855 725 (.a.b configure -relief sunken) 725 SB gr gs 1500 1125 463 400 CB 641 902 250 (.a.b flash) 250 SB gr gs 1500 1125 463 400 CB 641 962 300 (scrollbar .x) 300 SB gr gs 1500 1125 463 400 CB 641 1010 350 (.x set 0.2 0.7) 350 SB gr gs 1500 1125 463 400 CB 641 1057 150 (.x get) 150 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1149 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 1133 1151 (Widget command is deleted when widget is destroyed.) 1151 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1239 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 5 6 SJ 622 1223 1065 (Principle: all state should be readable, modifiable,) 1065 SB gr gs 1500 1125 463 400 CB 622 1282 185 (anytime.) 185 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 566 2699 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 20) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 566 1793 392 (Connections) 392 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1927 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 1911 1142 (How to make widgets work together with application,) 1142 SB gr gs 1500 1125 463 1705 CB 1 3 SJ 622 1971 338 (other widgets? ) 338 SB gr gs 1500 1125 463 1705 CB 1 1 SJ 962 1971 234 (Tcl scripts.) 234 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2062 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 4 SJ 622 2046 740 (Widget actions are Tcl commands:) 740 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2120 625 (button .a.b -command exit) 625 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2287 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2271 1151 (Widgets use Tcl commands to communicate with each) 1151 SB gr gs 1500 1125 463 1705 CB 622 2331 130 (other:) 130 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2405 875 (scrollbar .s -command ".text yview") 875 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2571 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2555 1101 (Application uses widget commands to communicate) 1101 SB gr gs 1500 1125 463 1705 CB -2 1 SJ 622 2615 282 (with widgets.) 282 SB gr 145 145 145 fC /fm 256 def 1052 2186 M -40 -27 40 -27 0 14 38 0 0 27 -38 0 0 13 7 PP 1 F n 0 0 0 fC /fm 256 def 1052 2186 M -4 -8 0 -9 38 0 0 -19 -38 0 0 -10 -29 19 29 19 4 8 -40 -27 40 -27 0 14 38 0 0 27 -38 0 0 13 16 PP 1 F n 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1128 2190 92 (exit) 92 SB gr 6 4 SP 252 254 185 fC /fm 256 def 641 2181 965 2243 8 8 RR 1 F S n 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB -1 1 SJ 684 2185 234 (button release) 234 SB gr 145 145 145 fC /fm 256 def 1052 2473 M -40 -27 40 -27 0 14 38 0 0 27 -38 0 0 13 7 PP 1 F n 0 0 0 fC /fm 256 def 1052 2473 M -4 -8 0 -9 38 0 0 -19 -38 0 0 -10 -29 19 29 19 4 8 -40 -27 40 -27 0 14 38 0 0 27 -38 0 0 13 16 PP 1 F n 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1128 2478 575 (.text yview scroll 1 unit) 575 SB gr 6 4 SP 252 254 185 fC /fm 256 def 641 2468 965 2530 8 8 RR 1 F S n 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB -2 2 SJ 680 2473 243 (click on arrow) 243 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 11 11 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 566 1394 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 21) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 566 488 283 (Bindings) 283 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 5 SJ 622 644 753 (Associate Tcl scripts with X events:) 753 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 722 1020 (bind .b {backspace .t}) 1020 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 944 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 928 90 (Use ) 90 SB gr gs 1500 1125 463 400 CB 713 928 86 (tags) 86 SB gr gs 1500 1125 463 400 CB 2 6 SJ 799 928 668 ( to select one or more windows:) 668 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 995 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 3 3 SJ 688 995 370 (Name of window: ) 370 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1061 997 60 (.b) 60 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 1061 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 4 2 SJ 688 1061 279 (Widget class: ) 279 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 971 1063 120 (Text) 120 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 1127 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 6 2 SJ 688 1127 277 (All windows: ) 277 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 971 1129 90 (all) 90 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 1193 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 1 2 SJ 688 1193 334 (Arbitrary string: ) 334 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1023 1195 90 (foo) 90 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 1113 1193 26 (, ) 26 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1140 1195 90 (bar) 90 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 1 1 SJ 1230 1193 65 (, ...) 65 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 732 832 187 (Window\(s\)) 187 SB gr gs 1500 1125 463 400 CB 990 832 64 (Eve) 65 SB 1055 832 22 (n) 21 SB 1076 832 12 (t) 11 SB gr gs 1500 1125 463 400 CB 1401 832 41 (Sc) 42 SB 1443 832 15 (r) 13 SB 1456 832 45 (ipt) 44 SB gr 6 4 SP gs 1500 48 463 793 CB 826 899 M 0 -186 1 PP S n gr /fm 256 def 826 774 M -11 -37 22 0 -11 37 3 PP 1 F n 6 4 SP gs 1500 48 463 793 CB 1038 899 M 0 -186 1 PP S n gr /fm 256 def 1038 774 M -11 -37 22 0 -11 37 3 PP 1 F n 6 4 SP gs 1500 48 463 793 CB 1450 899 M 0 -186 1 PP S n gr /fm 256 def 1450 774 M -11 -37 22 0 -11 37 3 PP 1 F n 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 566 2699 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 22) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 2 SJ 566 1793 894 (Bindings: Specifying Events) 894 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1965 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 1949 385 (Specifying events:) 385 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2027 900 () 900 SB gr gs 1500 1125 463 1705 CB 641 2266 90 (<3>) 90 SB gr gs 1500 1125 463 1705 CB 641 2341 420 () 420 SB gr gs 1500 1125 463 1705 CB 641 2416 30 (a) 30 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 781 2174 164 (Modifiers) 164 SB gr gs 1500 1125 463 1705 CB 1240 2170 64 (Eve) 65 SB 1305 2170 22 (n) 21 SB 1326 2170 12 (t) 11 SB gr gs 1500 1125 463 1705 CB 1245 2215 84 (Type) 84 SB gr gs 1500 1125 463 1705 CB -1 1 SJ 1421 2170 160 (Button or) 160 SB gr gs 1500 1125 463 1705 CB 1431 2215 135 (Keysym) 135 SB gr 6 4 SP gs 1500 73 463 2098 CB 1288 2254 M 0 -261 1 PP S n gr /fm 256 def 1288 2079 M -11 -37 22 0 -11 37 3 PP 1 F n 6 4 SP gs 1500 73 463 2098 CB 1500 2254 M 0 -261 1 PP S n gr /fm 256 def 1500 2079 M -11 -37 22 0 -11 37 3 PP 1 F n 6 4 SP 839 2167 M 0 -29 -88 0 0 -25 3 PP S n /fm 256 def 751 2079 M -11 -38 22 0 -11 38 3 PP 1 F n 6 4 SP 889 2167 M 0 -29 87 0 0 -25 3 PP S n /fm 256 def 976 2079 M -11 -38 22 0 -11 38 3 PP 1 F n 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 12 12 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 566 1394 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 23) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 1 SJ 566 488 745 (Bindings: Substitutions) 745 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 644 738 (% substitutions in binding scripts:) 738 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 720 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 2 3 SJ 688 720 496 (Coordinates from event: ) 496 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1186 722 90 (%x ) 90 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 1 1 SJ 1277 720 84 (and ) 84 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1362 722 60 (%y) 60 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 1422 720 13 (.) 13 SB gr gs 1500 1125 463 400 CB 641 795 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 2 1 SJ 688 795 196 (Window: ) 196 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 886 797 60 (%W) 60 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 946 795 13 (.) 13 SB gr gs 1500 1125 463 400 CB 641 870 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 2 3 SJ 688 870 449 (Character from event: ) 449 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1139 872 60 (%A) 60 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 1199 870 13 (.) 13 SB gr gs 1500 1125 463 400 CB 641 945 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 2 1 SJ 688 945 267 (Many more...) 267 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1035 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 1019 222 (Examples:) 222 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 1097 960 (bind .c {move %x %y}) 960 SB gr gs 1500 1125 463 400 CB 641 1172 900 (bind .t {insert %A}) 900 SB gr gs 1500 1125 463 400 CB 641 1247 750 (bind all {help %W}) 750 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 566 2699 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 24) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 1 SJ 566 1793 471 (Binding Order) 471 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1965 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 1949 913 (What if multiple bindings match an event?) 913 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2011 390 (bind .t a ...) 390 SB gr gs 1500 1125 463 1705 CB 641 2071 690 (bind all ...) 690 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2174 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2158 923 (One binding triggers per tag: most specific.) 923 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2264 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 7 SJ 622 2248 953 (Default order of tags: class, widget, toplevel, ) 953 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1577 2251 90 (all) 90 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1667 2248 13 (.) 13 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2354 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2338 472 (Can change tags with ) 472 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1094 2341 240 (bindtags) 240 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1334 2338 240 ( command:) 240 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2401 990 (bindtags .b {MyButton .b foo all}) 990 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2504 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2488 184 (Can use ) 184 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 806 2491 150 (break) 150 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 956 2488 13 ( ) 13 SB gr gs 1500 1125 463 1705 CB 969 2488 366 (to skip later tags.) 366 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2594 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2578 807 (Note: these rules apply only to Tk 4.0.) 807 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 13 13 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 566 1394 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 25) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 2 SJ 566 488 595 (More On Bindings) 595 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 6 SJ 622 644 1133 (Text and canvas widgets support bindings internally:) 1133 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 720 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 2 5 SJ 688 720 724 (Associate tags with text or graphics:) 724 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 688 781 660 (.t tag add foo 1.0 2.0) 660 SB gr gs 1500 1125 463 400 CB 688 841 1080 (.c create rect 1c 1c 2c 2c -tags foo) 1080 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 914 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 10 3 SJ 688 914 578 (Associate bindings with tags:) 578 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 688 976 630 (.t bind foo <1> {...}) 630 SB gr gs 1500 1125 463 400 CB 688 1036 750 (.c bind foo {...}) 750 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1169 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 5 SJ 622 1153 838 (Bindings always execute at global level:) 838 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 1229 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 9 6 SJ 688 1229 973 (If binding created in procedure, procedure's local) 973 SB gr gs 1500 1125 463 400 CB 16 4 SJ 688 1289 766 (variables aren't available at event-time.) 766 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 566 2699 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 26) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 1 SJ 566 1793 414 (Quoting Hell) 414 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1940 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 1924 1077 (Often want binding script to use some information) 1077 SB gr gs 1500 1125 463 1705 CB 2 4 SJ 622 1983 892 (from binding-time, some from event-time.) 892 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2074 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 5 SJ 622 2058 811 (Use list commands to generate scripts.) 811 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2149 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 4 5 SJ 622 2133 1078 (Use procedures to separate event-time information) 1078 SB gr gs 1500 1125 463 1705 CB 2 2 SJ 622 2193 605 (from bind-time information.) 605 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2253 850 (bind .x <1> {set y [expr $a + $b]}) 850 SB gr gs 1500 1125 463 1705 CB 641 2383 850 (bind .x <1> "set y [expr $a + $b]") 850 SB gr gs 1500 1125 463 1705 CB 641 2453 325 (proc sety a {) 325 SB gr gs 1500 1125 463 1705 CB 641 2498 350 ( global b y) 350 SB gr gs 1500 1125 463 1705 CB 641 2543 600 ( set y [expr $a + $b]) 600 SB gr gs 1500 1125 463 1705 CB 641 2588 25 (}) 25 SB gr gs 1500 1125 463 1705 CB 641 2633 650 (bind .x <1> [list sety $a]) 650 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 798 2324 339 (Use bind-time value) 339 SB gr gs 1500 1125 463 1705 CB 1566 2324 354 (Use event-time value) 354 SB gr 6 4 SP 1150 2355 M 0 -30 138 0 2 PP S n /fm 256 def 1288 2291 M -11 -38 22 0 -11 38 3 PP 1 F n 6 4 SP 1550 2355 M 0 -30 -138 0 2 PP S n /fm 256 def 1412 2291 M -11 -38 22 0 -11 38 3 PP 1 F n gs 1500 1125 463 1705 CB 493 2324 54 (Wr) 53 SB 546 2324 20 (o) 21 SB 567 2324 22 (n) 21 SB 588 2324 21 (g) 21 SB gr 6 4 SP gs 44 31 627 2315 CB 565 2379 M 186 -111 1 PP S n gr /fm 256 def 689 2304 M 25 -28 12 18 -37 10 3 PP 1 F n 6 4 SP gs 44 27 627 2355 CB 565 2318 M 186 111 1 PP S n gr /fm 256 def 689 2393 M 37 10 -12 18 -25 -28 3 PP 1 F n gs 1500 1125 463 1705 CB 505 2537 27 (R) 28 SB 533 2537 12 (i) 11 SB 544 2537 43 (gh) 42 SB 586 2537 12 (t) 12 SB gr 6 4 SP 0 0 1 -20 0 0 -14 12 18 641 2474 A S n 0 0 1 1 -14 22 0 12 19 641 2661 A S n 0 0 1 1 14 -20 0 12 19 616 2586 A S n gs 1500 79 463 2585 CB 627 2510 M 0 225 1 PP S n gr gs 1500 79 463 2473 CB 627 2398 M 0 225 1 PP S n gr 0 0 1 20 0 0 14 12 18 616 2549 A S n 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 14 14 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 566 1394 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 27) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 11 2 SJ 566 488 677 (Other Tk Commands) 677 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 635 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 1 SJ 622 619 295 (The selection:) 295 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 681 390 (selection get) 390 SB gr gs 1500 1125 463 400 CB 641 741 690 (selection get FILE_NAME) 690 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 844 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 5 SJ 622 828 936 (Issuing commands to other Tk applications:) 936 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 891 900 (send tgdb "break tkEval.c:200") 900 SB gr gs 1500 1125 463 400 CB 641 951 390 (winfo interps) 390 SB gr 32 0 0 50 50 0 0 0 40 /ZapfDingbats font gs 1500 1125 463 400 CB 641 1014 35 (\355) 35 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 676 1011 30 ( ) 30 SB gr gs 1500 1125 463 400 CB 706 1011 450 (wish tgdb ppres) 450 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1114 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 1098 465 (Window information:) 465 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 1161 420 (winfo width .x) 420 SB gr gs 1500 1125 463 400 CB 641 1221 480 (winfo children .) 480 SB gr gs 1500 1125 463 400 CB 641 1280 660 (winfo containing $x $y) 660 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 566 2699 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 28) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 4 4 SJ 566 1793 904 (Access To Other X Facilities) 904 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1965 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 1949 354 (Keyboard focus:) 354 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2011 300 (focus .x.y) 300 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2099 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2083 849 (Communication with window manager:) 849 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2146 810 (wm title . "Editing main.c") 810 SB gr gs 1500 1125 463 1705 CB 641 2206 630 (wm geometry . 300x200) 630 SB gr gs 1500 1125 463 1705 CB 641 2266 360 (wm iconify .) 360 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2354 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2338 393 (Deleting windows:) 393 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2401 300 (destroy .x) 300 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2489 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2473 149 (Grabs:) 149 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2536 210 (grab .x) 210 SB gr gs 1500 1125 463 1705 CB 641 2596 450 (grab release .x) 450 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 15 15 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 566 1394 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 29) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 566 488 420 (Example #1: ) 420 SB gr 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 986 493 360 (showVars) 360 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 4 7 SJ 622 644 985 (Displays values of one or more values, updates) 985 SB gr gs 1500 1125 463 400 CB 622 703 307 (automatically:) 307 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 796 990 (showVars .vars name age ssn phone) 990 SB gr %MSEPS Preamble 0 0 222 176 0 0 222 176 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 222 def /pp_by2 176 def 0 lc 0 lj 0 1 SP gs 464 367 907 941 CB 463 366 907 941 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkShow3 %%Pages: 1 %%BoundingBox: 0 0 222 176 %%CreationDate: Wed Mar 15 09:46:09 1995 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 222 176 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 24 string def /drawcolormappedimage { 222 176 8 [222 0 0 -176 0 176] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba 887a68 e2cbae pop pop drawcolormappedimage f4000001ac000001160000010100140200010000ab020001000014020101 0100140200010000ab0200010000140201010100010213010000ac010000 120101020101010001020001d40001020101010001020001000010020001 000098020001000010020001000010020001000001020101010001020001 000010020001000098020001000010020001000010020001000001020101 010001020001000010020001000098020001000010020001000010020001 000001020101010001020001000010020001000098020001000010020001 000002020a00020200010000010201010100010200010000100200010000 1f020103030201030c020103070201030402010318020103350200010000 100200010000020200000802000102020001000001020101010001020001 000010020001000020020103020200031702010304020103180201033502 000100001002000100000202000008020001020200010000010201010100 01020001000002020a000202000100002002010301020103010203030202 030300020103000203030202040301020103000203030402010301020103 010203030202010300020103010201030002030302020303220200010000 050203000602000100000202000008020001020200010000010201010100 010200010000020200000802000102020001000020020103010201030002 000302020103010203030002020302020103010201030102010300020103 000200030102000305020003010200030102000302020103010201030002 010301020103000200030102000301020103010201032102000100000502 000001020001060200010000020200000802000102020001000001020101 010001020001000002020000080200010202000100002102000301020003 030203030102010302020103010203030102010301020103000203030102 010304020003010200030302030301020103000201030102030301020103 000201032502000100000502000001020001060200010000020200000802 000102020001000001020101010001020001000002020000090102020001 000021020303020204030102010302020103000204030102010301020103 000207030402000301020003020204030102010300020103010207030102 030322020001000005020000020106020001000002020000080200010202 000100000102010101000102000100001002000100002102030301020103 010201030102010302020303010201030102010301020103000203030802 010300020003010201030102010301020103000201030102030308020103 210200010000100200010000020200000802000102020001000001020101 010001020001000010020001000022020103020201030102010301020103 020203030102010301020103010200030102010300020003010201030502 010302020103010201030102010300020103010201030002000301020103 000201030102010321020001000010020001000002020000080200010202 000100000102010101000102000100001002000100002202010303020403 010201030202010300020403010204030102010300020303060201030302 040301020103010204030002030302020303220200010000100200010000 020200000802000102020001000001020101010001020001000010020001 000098020001000010020001000002020000090102020001000001020101 010001020001000010020001000098020001000010020001000010020001 000001020101010001020001000010020001000098020001000010020001 000010020001000001020101010001020001000011010000990100001101 000011010000010201010000d7010000030104000001d600000101000102 0101d00000040100010201010100010201012300ab050104010001020101 01000102010122000006ab05010401000102010101000102010103001d07 0106ab05010401000102010101000102010103001d070106ab0501040100 0102010101000102010103001d070106ab05010401000102010101000102 010103001d070106ab05010401000102010101000102010103001d070106 ab05010401000102010101000102010103001d070106ab05010401000102 010101000102010103001d070106ab050104010001020101010001020101 03000507050300070103000701030b070106ab0501040100010201010100 01020101030005070103070701030b070106ab0501040100010201010100 0102010103000507010304070103000701030007030306070106ab050104 010001020101010001020101030005070103040701030007010300070003 0107000306070106ab050104010001020101010001020101030005070503 00070103000703030107010305070106ab05010401000102010101000102 0101030005070103040701030007070305070106ab050104010001020101 010001020101030005070103040701030007030309070106ab0501040100 010201010100010201010300050701030407010300070103000700030107 010305070106ab0501040100010201010100010201010300050701030407 0103000701030007030306070106ab050104010001020101010001020101 03001d070106ab0501040100010201010100010201010300040706031107 0106ab05010401000102010101000102010103000407060311070106ab05 010401000102010101000102010103001d070106ab050104010001020101 01000102010103001d070106ab0501040100010201010100010201010300 1d070106ab05010401000102010101000102010103001d070106ab050104 01000102010101000102010103001f06ab05010401000102010101000102 010102002006ab0501040100010201010100010201012400ac0401000102 0101010001020101000000042100ad040100010201010100010201010300 1e050104ae000102010101000102010103001e050104ab00000401000102 010101000102010103001e050104aa050104010001020101010001020101 03001e050104aa05010401000102010101000102010103001e050104aa05 010401000102010101000102010103000304050505040505050402050104 aa0501040100010201010100010201010800030507000305070001050104 aa05010401000102010101000102010103001e050104aa05010401000102 010101000102010103001e050104aa050104010001020101010001020101 03001e0501040405010306050103100501030b0501030705010323050103 4905010401000102010101000102010103001e0501040505000306050003 110501030b05010307050103230501034905010401000102010101000102 010103001e05010405050103040501031f05010307050103230501034905 010401000102010101000102010103001e05010405050103040501030305 030303050103000501030005010303050303030501030005020303050103 030503030705010304050103020503030305010301050103030501030305 0303050502032e05010401000102010101000102010103001e0501040605 000304050003030501030205010301050203020501030205010302050103 010502030105010302050103020501030105010307050003040500030205 010302050103010501030105010303050103020501030105010303050003 02050003030501032705010401000102010101000102010103001e050104 060501030205010302050103030501030105010303050103010501030305 010301050103030500030205010302050003030500030705010302050103 010501030305010301050103010501030305010302050003030500030205 010302050103020501032705010401000102010101000102010103001e05 010406050103020501030805010301050103030501030705010301050103 030501030105010301050103030501030605010302050103070501030105 010301050103030501030105010303050103010501033105010401000102 010101000102010103001e05010407050003020500030505050301050103 030501030305050301050103030501030105010301050103030501030705 000302050003040505030105010301050103030501030105010303050103 020503032e05010401000102010101000102010103001e05010407050103 000501030305030301050103010501030305010301050303010501030105 010303050103010501030105070307050103000501030205030301050103 01050103010501030305010301050703040503032c050104010001020101 010001020101030004050303090501030005010306050104070501030005 010302050103040501030105010303050103000501030405010301050103 0305010301050103010501030d0501030005010301050103040501030105 01030105010303050103010501030d0501032b0501040100010201010100 01020101030002050103020501030b050103060501040805000300050003 030501030405010301050103030501030005010304050103010501030305 000302050103010501030305010308050003000500030205010304050103 010501030105010303050103010501030305010300050103040501032b05 010401000102010101000102010103000205000304050003010501030105 010300050503050501040805020304050003030502030105010303050103 010500030305020301050203010501030205010302050103010501030905 020303050003030502030105010301050103020502030205010301050103 020501030205010302050103270501040100010201010100010201010300 010501030405010300050103010501030005010300050103060501040805 020305050303010501030005010303050103020503030105010300050503 03050103030503030a050103050503030105010300050103020503030005 010303050303040504030305010327050104010001020101010001020101 030001050103040501030005010301050103000501030005010306050104 aa0501040100010201010100010201010300010501030405010300050103 01050103000501030005010306050104aa05010401000102010101000102 010103000205000302050003000501030005010301050103000501030005 010306050104aa0501040100010201010100010201010300020501030105 02030105010301050103000501030005010306050104aa05010401000102 010101000102010103000305060301050403000501030005020305050104 aa05010401000102010101000102010103001e050104aa05010401000102 010101000102010103000105080313050104aa0501040100010201010100 0102010103000105080313050104aa050104010001020101010001020101 03001e050104aa05010401000102010101000102010103001e050104aa05 010401000102010101000102010103001e050104aa050104010001020101 01000102010103002004aa05010401000102010101000102010102002104 aa0501040100010201010100010201010100300502030105020317050403 0d0501030005010301050103600501040100010201010100010201010100 300502030105020316050103020500031005010301050103600501040100 010201010100010201010100030504030105030302050403000502030105 03030f050203010502030105030302050503010501030305010303050003 010504030005020301050503000504035d05010401000102010101000102 010101000305010301050203020501030105010301050103010501030005 000301050003020501030a05020301050203000500030205010301050303 000500030105010303050303040501030105010301050103000501030005 010301050103010501035c05010401000102010101000102010101000305 01030105010301050303010501030105010301050303010501030e050103 000500030005020302050303010501030205000301050003050505030105 01030105010301050103000501030005010301050103010501035c050104 010001020101010001020101010003050103010501030005040301050103 01050103010507030e050103000501030005010301050403010501030205 010300050003080502030105010301050103010501030005010300050103 01050103010501035c050104010001020101010001020101010003050103 010503030105010301050103010501030105030312050103000501030005 010300050103010501030105010302050303040501030305010300050103 0105010301050103000501030005010301050103010501035c0501040100 010201010100010201010100030501030105030301050103010501030105 01030105010300050003010501030e050103000501030005010300050103 010501030105010303050103060500030305010300050103010501030105 0103000501030005010301050103010501035c0501040100010201010100 010201010100030501030105010300050403010501030105010301050103 00050303020501030a050103000501030005010301050403010501030305 010307050303020501030105010301050103000501030005020300050103 010501035c05010401000102010101000102010101004705010383050104 010001020101010001020101010046050103840501040100010201010100 010201010100cd0501040100010201010100010201010100cd0501040100 010201010100010201010100cd0501040100010201010100010201010100 cd0501040100010201010100010201010100cd0501040100010201010100 010201010100cd0501040100010201010100010201010100cd0501040100 010201010100010201010100cd0501040100010201010100010201010100 cd0501040100010201010100010201010100cd0501040100010201010100 01020101010026050203010505039b050104010001020101010001020101 01002405010301050103040500039c050104010001020101010001020101 01000305030303050403000503030e05010301050103030501039c050104 010001020101010001020101010002050003020501030105000301050203 0005000301050003020501030d050103030500039d050104010001020101 010001020101010004050303000501030205030301050103100501030305 01039d050104010001020101010001020101010003050403000501030205 070311050103020500039e05010401000102010101000102010101000205 01030105010300050103020503031105010301050103020500039e050104 010001020101010001020101010002050103010501030105010300050203 00050003010501030d05010301050003020501039e050104010001020101 0100010201010100030504030105050300050303020501030a0503030205 01039e05010401000102010101000102010101000e050103bc0501040100 01020101010001020101010009050503bd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 0101010028050103010503030405010309050303020503030a0502030405 010305050103030501035d05010401000102010101000102010101002705 020300050103010501030305010309050003010501030105000301050103 07050103010501030305010304050203030501035d050104010001020101 01000102010101000305030302050303020504030f050003000501030005 010301050103010503030805010301050103000501030105010307050103 01050103010503030305000300050103010503035d050104010001020101 010001020101010002050103010501030005010301050103010501030105 0103000501030b0500030005010304050103030501030805010301050103 00050103010501030b050103030501030305000300050103030501035d05 010401000102010101000102010101000205010304050103050501030105 01030e05000300050103030501030405010309050303020503030b050103 040501030305000300050103030501035d05010401000102010101000102 01010100030503030205030302050103010501030d050003010501030205 020304050103020507030105010300050103010501030105050303050103 030501030205000301050103030501035d05010401000102010101000102 01010100060501030405010301050103010501030d050503000502030505 010308050103010501030005010301050103070501030105010303050103 02050503020501035d050104010001020101010001020101010002050103 010501030005010301050103010501030105010310050103010501030605 010308050103010500030105010301050003080501030105000304050103 05050103030501035d050104010001020101010001020101010003050303 020503030205010301050103000501030d05010300050503030501030905 030302050303090503030405010305050103030501035d05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 0101000004010100cd05010401000301040000010100cd05010404000001 01000102010101000a050103290501030305010302050403080504030105 0403010504030a0501030205030304050103020503034805010401000102 010101000102010101000a0501032805020303050103020500030c050003 05050003050500030e050103010501030105010303050103010501030105 010347050104010001020101010001020101010003050403010504030205 02030205040301050303100500030005010301050303020500030c050003 05050003050500030c050303010501030105010301050303010501030105 010347050104010001020101010001020101010003050103010501030005 010301050103000501030105000301050103010501030005000301050003 020501030b0500030005010303050103020500030c050003050500030505 00030e050103050501030305010305050103470501040100010201010100 010201010100030501030105010300050103010503030205010300050103 01050303010501030f050003000501030305010302050303090503030205 0303020503030b0501030405010304050103040501034805010401000102 010101000102010101000305010301050103000501030105030302050103 00050103010507030e050003010501030305010301050103010501030105 070301050103000501030105010300050103010501030105050302050103 030502030405010303050203480501040100010201010100010201010100 030501030105010300050103010503030205010300050103010503031205 050302050103050501030b05010304050103040501030a05010302050203 050501030205020349050104010001020101010001020101010003050103 010500030105010301050103000500030105010301050103010501030005 000301050103110501030305010301050103010500030805010301050003 010501030105000301050103010500030b05010302050103060501030205 01034a050104010001020101010001020101010003050403010501030105 010301050203020501030105010300050303020501030d05010303050103 020503030905030302050303020503030b05010301050503030501030105 050347050104010001020101010001020101010003050103c70501040100 01020101010001020101010003050103c705010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cf04010001020101010001020101 0000d004010001020101010001020101d30001020101010001020001d400 010201010100140200010000ab0200010000140201010100140200010000 ab020001000014020101010015010000ac01000016010000dc01 % % Run-length encoding savings = 80.4% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 1 lc 1 lj 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 566 2699 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 30) 321 SB gr 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 566 1798 360 (showVars) 360 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 1 SJ 926 1793 236 (, cont'd) 236 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 566 1952 600 (proc showVars {w args} {) 600 SB gr gs 1500 1125 463 1705 CB 566 2002 375 ( toplevel $w) 375 SB gr gs 1500 1125 463 1705 CB 566 2052 825 ( wm title $w "Variable values") 825 SB gr gs 1500 1125 463 1705 CB 566 2102 950 ( frame $w.menu -relief raised -bd 2) 950 SB gr gs 1500 1125 463 1705 CB 566 2152 850 ( pack $w.menu -side top -fill x) 850 SB gr gs 1500 1125 463 1705 CB 566 2202 1000 ( menubutton $w.menu.file -text File \\) 1000 SB gr gs 1500 1125 463 1705 CB 566 2252 1025 ( -menu $w.menu.file.m -underline 0) 1025 SB gr gs 1500 1125 463 1705 CB 566 2302 800 ( pack $w.menu.file -side left) 800 SB gr gs 1500 1125 463 1705 CB 566 2352 575 ( menu $w.menu.file.m) 575 SB gr gs 1500 1125 463 1705 CB 566 2402 1100 ( $w.menu.file.m add command -label Quit \\) 1100 SB gr gs 1500 1125 463 1705 CB 566 2452 1050 ( -command "destroy $w" -underline 0) 1050 SB gr gs 1500 1125 463 1705 CB 566 2502 175 ( ...) 175 SB gr gs 1500 1125 463 1705 CB 566 2552 25 (}) 25 SB gr %MSEPS Preamble 0 0 88 61 0 0 88 61 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 88 def /pp_by2 61 def 0 lc 0 lj 0 1 SP gs 185 128 1097 2553 CB 184 127 1097 2553 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkShow1 %%Pages: 1 %%BoundingBox: 0 0 88 61 %%CreationDate: Wed Mar 15 09:46:07 1995 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 88 61 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 88 61 8 [88 0 0 -61 0 61] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba pop pop drawcolormappedimage 6e0000012600000116000001010014020001000025020001000014020101 010014020001000025020001000014020101010001021301000026010000 1201010201010100010200014e0001020101010001020001000010020001 000012020001000010020001000010020001000001020101010001020001 000010020001000012020001000010020001000010020001000001020101 010001020001000010020001000012020001000010020001000010020001 000001020101010001020001000010020001000012020001000010020001 000002020a00020200010000010201010100010200010000100200010000 000201030302010309020001000010020001000002020000080200010202 000100000102010101000102000100001002000100000102010302020003 0a0200010000100200010000020200000802000102020001000001020101 010001020001000002020a00020200010000010201030102010301020303 020200030002000100000502030006020001000002020000080200010202 000100000102010101000102000100000202000008020001020200010000 010201030102010300020003020201030102000300020001000005020000 010200010602000100000202000008020001020200010000010201010100 010200010000020200000802000102020001000002020003010200030302 030301020003000200010000050200000102000106020001000002020000 080200010202000100000102010101000102000100000202000009010202 000100000202030302020403010200030002000100000502000002010602 000100000202000008020001020200010000010201010100010200010000 100200010000020203030102010301020103010200030002000100001002 000100000202000008020001020200010000010201010100010200010000 100200010000030201030202010301020103010200030002000100001002 000100000202000008020001020200010000010201010100010200010000 100200010000030201030302040301020003000200010000100200010000 020200000802000102020001000001020101000003010000100200010000 120200010000100200010000020200000901020200010000030105001002 000100001202000100001002000100001002000103000001010001020001 000010020001000012020001000010020001000010020001000001020101 010001020001000011010000130100001101000011010000010201010100 01024e010000010201010100010201014d00010201010100010201014a00 000401000102010101000102010101004705010401000102010101000102 010101004705010401000102010101000102010101004705010401000102 010101000102010101004705010401000102010101000102010101004705 010401000102010101000102010101004705010401000102010101000102 010101004705010401000102010101000102010101004705010401000102 010101000102010101004705010401000102010101000102010101000705 050300050103000501033305010401000102010101000102010101000705 010307050103330501040100010201010100010201010100070501030405 010300050103000503032e05010401000102010101000102010101000705 0103040501030005010300050003010500032e0501040100010201010100 010201010100070505030005010300050303010501032d05010401000102 01010000040101000705010304050103000507032d050104010003010400 000101000705010304050103000503033105010404000001010001020101 010007050103040501030005010300050003010501032d05010401000102 01010100010201010100070501030405010300050103000503032e050104 010001020101010001020101010047050104010001020101010001020101 010006050603390501040100010201010100010201010100060506033905 010401000102010101000102010101004705010401000102010101000102 010101004705010401000102010101000102010101004705010401000102 010101000102010101004705010401000102010101000102010101004705 010401000102010101000102010101004705010401000102010101000102 01010100490401000102010101000102010100004a040100010201010100 010201014d00010201010100010200014e00010201010100140200010000 250200010000140201010100140200010000250200010000140201010100 1501000026010000160100005601 % % Run-length encoding savings = 68.4% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 16 16 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 566 1394 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 31) 321 SB gr 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 566 493 360 (showVars) 360 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 1 SJ 926 488 236 (, cont'd) 236 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 566 647 600 (proc showVars {w args} {) 600 SB gr gs 1500 1125 463 400 CB 566 697 175 ( ...) 175 SB gr gs 1500 1125 463 400 CB 566 747 925 ( frame $w.bot -relief raised -bd 2) 925 SB gr gs 1500 1125 463 400 CB 566 797 975 ( pack $w.bot -side bottom -fill both) 975 SB gr gs 1500 1125 463 400 CB 566 847 1225 ( label $w.bot.title -width 20 -anchor center \\) 1225 SB gr gs 1500 1125 463 400 CB 566 897 1000 ( -text "Variable values:" -font \\) 1000 SB gr gs 1500 1125 463 400 CB 566 947 200 ( ) 200 SB gr 32 0 0 33 33 0 0 0 28 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 766 954 1040 (-Adobe-Helvetica-Medium-r-normal--*-180-*-*-*-*-*-*-) 1040 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1806 947 50 ( \\) 50 SB gr gs 1500 1125 463 400 CB 566 997 550 ( -anchor center) 550 SB gr gs 1500 1125 463 400 CB 566 1047 975 ( pack $w.bot.title -side top -fill x) 975 SB gr gs 1500 1125 463 400 CB 566 1097 175 ( ...) 175 SB gr gs 1500 1125 463 400 CB 566 1147 25 (}) 25 SB gr %MSEPS Preamble 0 0 222 92 0 0 222 92 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 222 def /pp_by2 92 def 0 lc 0 lj 0 1 SP gs 463 193 982 1178 CB 462 192 982 1178 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkShow2 %%Pages: 1 %%BoundingBox: 0 0 222 92 %%CreationDate: Wed Mar 15 09:46:08 1995 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 222 92 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 222 92 8 [222 0 0 -92 0 92] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba pop pop drawcolormappedimage f4000001ac000001160000010100140200010000ab020001000014020101 0100140200010000ab0200010000140201010100010213010000ac010000 120101020101010001020001d40001020101010001020001000010020001 000098020001000010020001000010020001000001020101010001020001 000010020001000098020001000010020001000010020001000001020101 010001020001000010020001000098020001000010020001000010020001 000001020101010001020001000010020001000098020001000010020001 000002020a00020200010000010201010100010200010000100200010000 1f020103030201030c020103070201030402010318020103350200010000 100200010000020200000802000102020001000001020101010001020001 000010020001000020020103020200031702010304020103180201033502 000100001002000100000202000008020001020200010000010201010100 01020001000002020a000202000100002002010301020103010203030202 030300020103000203030202040301020103000203030402010301020103 010203030202010300020103010201030002030302020303220200010000 050203000602000100000202000008020001020200010000010201010100 010200010000020200000802000102020001000020020103010201030002 000302020103010203030002020302020103010201030102010300020103 000200030102000305020003010200030102000302020103010201030002 010301020103000200030102000301020103010201032102000100000502 000001020001060200010000020200000802000102020001000001020101 010001020001000002020000080200010202000100002102000301020003 030203030102010302020103010203030102010301020103000203030102 010304020003010200030302030301020103000201030102030301020103 000201032502000100000502000001020001060200010000020200000802 000102020001000001020101010001020001000002020000090102020001 000021020303020204030102010302020103000204030102010301020103 000207030402000301020003020204030102010300020103010207030102 030322020001000005020000020106020001000002020000080200010202 000100000102010101000102000100001002000100002102030301020103 010201030102010302020303010201030102010301020103000203030802 010300020003010201030102010301020103000201030102030308020103 210200010000100200010000020200000802000102020001000001020101 010001020001000010020001000022020103020201030102010301020103 020203030102010301020103010200030102010300020003010201030502 010302020103010201030102010300020103010201030002000301020103 000201030102010321020001000010020001000002020000080200010202 000100000102010101000102000100001002000100002202010303020403 010201030202010300020403010204030102010300020303060201030302 040301020103010204030002030302020303220200010000100200010000 020200000802000102020001000001020101010001020001000010020001 000098020001000010020001000002020000090102020001000001020101 010001020001000010020001000098020001000010020001000010020001 000001020101010001020001000010020001000098020001000010020001 000010020001000001020101010001020001000011010000990100001101 000011010000010201010000d7010000030104000001d600000101000102 0101d00000040100010201010100010201010100cd050104010001020101 0100010201010100cd0501040100010201010100010201010100cd050104 0100010201010100010201010100cd050104010001020101010001020101 0100cd0501040100010201010100010201010100cd050104010001020101 0100010201010100cd0501040100010201010100010201010100cd050104 0100010201010100010201010100cd050104010001020101010001020101 0100070505030005010300050103b9050104010001020101010001020101 01000705010307050103b905010401000102010101000102010101000705 0103040501030005010300050303b4050104010001020101010001020101 01000705010304050103000501030005000301050003b405010401000102 0101010001020101010007050503000501030005030301050103b3050104 0100010201010100010201010100070501030405010300050703b3050104 0100010201010100010201010100070501030405010300050303b7050104 010001020101010001020101010007050103040501030005010300050003 01050103b305010401000102010101000102010101000705010304050103 0005010300050303b40501040100010201010100010201010100cd050104 010001020101010001020101010006050603bf0501040100010201010100 01020101010006050603bf0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cf04010001020101010001020101 0000d004010001020101010001020101d30001020101010001020101d000 00040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd05010401000102010101000102010101002705010306050103 100501030b05010307050103230501034905010401000102010101000102 010101002805000306050003110501030b05010307050103230501034905 0104010001020101010001020101010028050103040501031f0501030705 010323050103490501040100010201010000040101002805010304050103 030503030305010300050103000501030305030303050103000502030305 010303050303070501030405010302050303030501030105010303050103 03050303050502032e050104010003010400000101002905000304050003 030501030205010301050203020501030205010302050103010502030105 010302050103020501030105010307050003040500030205010302050103 010501030105010303050103020501030105010303050003020500030305 010327050104040000010100010201010100290501030205010302050103 030501030105010303050103010501030305010301050103030500030205 010302050003030500030705010302050103010501030305010301050103 010501030305010302050003030500030205010302050103020501032705 010401000102010101000102010101002905010302050103080501030105 010303050103070501030105010303050103010501030105010303050103 060501030205010307050103010501030105010303050103010501030305 0103010501033105010401000102010101000102010101002a0500030205 000305050503010501030305010303050503010501030305010301050103 010501030305010307050003020500030405050301050103010501030305 01030105010303050103020503032e050104010001020101010001020101 01002a050103000501030305030301050103010501030305010301050303 010501030105010303050103010501030105070307050103000501030205 03030105010301050103010501030305010301050703040503032c050104 01000102010101000102010101002a050103000501030205010304050103 010501030305010300050103040501030105010303050103010501030105 01030d050103000501030105010304050103010501030105010303050103 010501030d0501032b05010401000102010101000102010101002b050003 000500030305010304050103010501030305010300050103040501030105 010303050003020501030105010303050103080500030005000302050103 040501030105010301050103030501030105010303050103000501030405 01032b05010401000102010101000102010101002b050203040500030305 020301050103030501030105000303050203010502030105010302050103 020501030105010309050203030500030305020301050103010501030205 020302050103010501030205010302050103020501032705010401000102 010101000102010101002b05020305050303010501030005010303050103 02050303010501030005050303050103030503030a050103050503030105 010300050103020503030005010303050303040504030305010327050104 0100010201010100010201010100cd050104010001020101010001020101 0100cd0501040100010201010100010201010100cd050104010001020101 0100010201010100cd0501040100010201010100010201010100cd050104 0100010201010100010201010100cd050104010001020101010001020101 0100cd0501040100010201010100010201010100cf040100010201010100 010201010000d004010001020101010001020101d3000102010101000102 0001d400010201010100140200010000ab02000100001402010101001402 00010000ab020001000014020101010015010000ac01000016010000dc01 % % Run-length encoding savings = 82.4% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 1 lc 1 lj 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 566 2699 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 32) 321 SB gr 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 566 1798 360 (showVars) 360 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 1 SJ 926 1793 236 (, cont'd) 236 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 566 1923 600 (proc showVars {w args} {) 600 SB gr gs 1500 1125 463 1705 CB 566 1968 175 ( ...) 175 SB gr gs 1500 1125 463 1705 CB 566 2014 525 ( foreach i $args {) 525 SB gr gs 1500 1125 463 1705 CB 566 2059 575 ( frame $w.bot.$i) 575 SB gr gs 1500 1125 463 1705 CB 566 2104 1050 ( pack $w.bot.$i -side top -anchor w) 1050 SB gr gs 1500 1125 463 1705 CB 566 2149 1025 ( label $w.bot.$i.name -text "$i: ") 1025 SB gr gs 1500 1125 463 1705 CB 566 2194 1150 ( label $w.bot.$i.value -textvariable $i) 1150 SB gr gs 1500 1125 463 1705 CB 566 2239 950 ( pack $w.bot.$i.name -side left) 950 SB gr gs 1500 1125 463 1705 CB 566 2284 975 ( pack $w.bot.$i.value -side left) 975 SB gr gs 1500 1125 463 1705 CB 566 2341 125 ( }) 125 SB gr gs 1500 1125 463 1705 CB 566 2399 25 (}) 25 SB gr gs 1500 1125 463 1705 CB 566 2456 825 (showVars .vars name age ssn phone) 825 SB gr %MSEPS Preamble 0 0 222 176 0 0 222 176 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 222 def /pp_by2 176 def 0 lc 0 lj 0 1 SP gs 346 274 1494 2371 CB 345 273 1494 2371 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkShow3 %%Pages: 1 %%BoundingBox: 0 0 222 176 %%CreationDate: Wed Mar 15 09:46:09 1995 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 222 176 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 24 string def /drawcolormappedimage { 222 176 8 [222 0 0 -176 0 176] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba 887a68 e2cbae pop pop drawcolormappedimage f4000001ac000001160000010100140200010000ab020001000014020101 0100140200010000ab0200010000140201010100010213010000ac010000 120101020101010001020001d40001020101010001020001000010020001 000098020001000010020001000010020001000001020101010001020001 000010020001000098020001000010020001000010020001000001020101 010001020001000010020001000098020001000010020001000010020001 000001020101010001020001000010020001000098020001000010020001 000002020a00020200010000010201010100010200010000100200010000 1f020103030201030c020103070201030402010318020103350200010000 100200010000020200000802000102020001000001020101010001020001 000010020001000020020103020200031702010304020103180201033502 000100001002000100000202000008020001020200010000010201010100 01020001000002020a000202000100002002010301020103010203030202 030300020103000203030202040301020103000203030402010301020103 010203030202010300020103010201030002030302020303220200010000 050203000602000100000202000008020001020200010000010201010100 010200010000020200000802000102020001000020020103010201030002 000302020103010203030002020302020103010201030102010300020103 000200030102000305020003010200030102000302020103010201030002 010301020103000200030102000301020103010201032102000100000502 000001020001060200010000020200000802000102020001000001020101 010001020001000002020000080200010202000100002102000301020003 030203030102010302020103010203030102010301020103000203030102 010304020003010200030302030301020103000201030102030301020103 000201032502000100000502000001020001060200010000020200000802 000102020001000001020101010001020001000002020000090102020001 000021020303020204030102010302020103000204030102010301020103 000207030402000301020003020204030102010300020103010207030102 030322020001000005020000020106020001000002020000080200010202 000100000102010101000102000100001002000100002102030301020103 010201030102010302020303010201030102010301020103000203030802 010300020003010201030102010301020103000201030102030308020103 210200010000100200010000020200000802000102020001000001020101 010001020001000010020001000022020103020201030102010301020103 020203030102010301020103010200030102010300020003010201030502 010302020103010201030102010300020103010201030002000301020103 000201030102010321020001000010020001000002020000080200010202 000100000102010101000102000100001002000100002202010303020403 010201030202010300020403010204030102010300020303060201030302 040301020103010204030002030302020303220200010000100200010000 020200000802000102020001000001020101010001020001000010020001 000098020001000010020001000002020000090102020001000001020101 010001020001000010020001000098020001000010020001000010020001 000001020101010001020001000010020001000098020001000010020001 000010020001000001020101010001020001000011010000990100001101 000011010000010201010000d7010000030104000001d600000101000102 0101d00000040100010201010100010201012300ab050104010001020101 01000102010122000006ab05010401000102010101000102010103001d07 0106ab05010401000102010101000102010103001d070106ab0501040100 0102010101000102010103001d070106ab05010401000102010101000102 010103001d070106ab05010401000102010101000102010103001d070106 ab05010401000102010101000102010103001d070106ab05010401000102 010101000102010103001d070106ab050104010001020101010001020101 03000507050300070103000701030b070106ab0501040100010201010100 01020101030005070103070701030b070106ab0501040100010201010100 0102010103000507010304070103000701030007030306070106ab050104 010001020101010001020101030005070103040701030007010300070003 0107000306070106ab050104010001020101010001020101030005070503 00070103000703030107010305070106ab05010401000102010101000102 0101030005070103040701030007070305070106ab050104010001020101 010001020101030005070103040701030007030309070106ab0501040100 010201010100010201010300050701030407010300070103000700030107 010305070106ab0501040100010201010100010201010300050701030407 0103000701030007030306070106ab050104010001020101010001020101 03001d070106ab0501040100010201010100010201010300040706031107 0106ab05010401000102010101000102010103000407060311070106ab05 010401000102010101000102010103001d070106ab050104010001020101 01000102010103001d070106ab0501040100010201010100010201010300 1d070106ab05010401000102010101000102010103001d070106ab050104 01000102010101000102010103001f06ab05010401000102010101000102 010102002006ab0501040100010201010100010201012400ac0401000102 0101010001020101000000042100ad040100010201010100010201010300 1e050104ae000102010101000102010103001e050104ab00000401000102 010101000102010103001e050104aa050104010001020101010001020101 03001e050104aa05010401000102010101000102010103001e050104aa05 010401000102010101000102010103000304050505040505050402050104 aa0501040100010201010100010201010800030507000305070001050104 aa05010401000102010101000102010103001e050104aa05010401000102 010101000102010103001e050104aa050104010001020101010001020101 03001e0501040405010306050103100501030b0501030705010323050103 4905010401000102010101000102010103001e0501040505000306050003 110501030b05010307050103230501034905010401000102010101000102 010103001e05010405050103040501031f05010307050103230501034905 010401000102010101000102010103001e05010405050103040501030305 030303050103000501030005010303050303030501030005020303050103 030503030705010304050103020503030305010301050103030501030305 0303050502032e05010401000102010101000102010103001e0501040605 000304050003030501030205010301050203020501030205010302050103 010502030105010302050103020501030105010307050003040500030205 010302050103010501030105010303050103020501030105010303050003 02050003030501032705010401000102010101000102010103001e050104 060501030205010302050103030501030105010303050103010501030305 010301050103030500030205010302050003030500030705010302050103 010501030305010301050103010501030305010302050003030500030205 010302050103020501032705010401000102010101000102010103001e05 010406050103020501030805010301050103030501030705010301050103 030501030105010301050103030501030605010302050103070501030105 010301050103030501030105010303050103010501033105010401000102 010101000102010103001e05010407050003020500030505050301050103 030501030305050301050103030501030105010301050103030501030705 000302050003040505030105010301050103030501030105010303050103 020503032e05010401000102010101000102010103001e05010407050103 000501030305030301050103010501030305010301050303010501030105 010303050103010501030105070307050103000501030205030301050103 01050103010501030305010301050703040503032c050104010001020101 010001020101030004050303090501030005010306050104070501030005 010302050103040501030105010303050103000501030405010301050103 0305010301050103010501030d0501030005010301050103040501030105 01030105010303050103010501030d0501032b0501040100010201010100 01020101030002050103020501030b050103060501040805000300050003 030501030405010301050103030501030005010304050103010501030305 000302050103010501030305010308050003000500030205010304050103 010501030105010303050103010501030305010300050103040501032b05 010401000102010101000102010103000205000304050003010501030105 010300050503050501040805020304050003030502030105010303050103 010500030305020301050203010501030205010302050103010501030905 020303050003030502030105010301050103020502030205010301050103 020501030205010302050103270501040100010201010100010201010300 010501030405010300050103010501030005010300050103060501040805 020305050303010501030005010303050103020503030105010300050503 03050103030503030a050103050503030105010300050103020503030005 010303050303040504030305010327050104010001020101010001020101 030001050103040501030005010301050103000501030005010306050104 aa0501040100010201010100010201010300010501030405010300050103 01050103000501030005010306050104aa05010401000102010101000102 010103000205000302050003000501030005010301050103000501030005 010306050104aa0501040100010201010100010201010300020501030105 02030105010301050103000501030005010306050104aa05010401000102 010101000102010103000305060301050403000501030005020305050104 aa05010401000102010101000102010103001e050104aa05010401000102 010101000102010103000105080313050104aa0501040100010201010100 0102010103000105080313050104aa050104010001020101010001020101 03001e050104aa05010401000102010101000102010103001e050104aa05 010401000102010101000102010103001e050104aa050104010001020101 01000102010103002004aa05010401000102010101000102010102002104 aa0501040100010201010100010201010100300502030105020317050403 0d0501030005010301050103600501040100010201010100010201010100 300502030105020316050103020500031005010301050103600501040100 010201010100010201010100030504030105030302050403000502030105 03030f050203010502030105030302050503010501030305010303050003 010504030005020301050503000504035d05010401000102010101000102 010101000305010301050203020501030105010301050103010501030005 000301050003020501030a05020301050203000500030205010301050303 000500030105010303050303040501030105010301050103000501030005 010301050103010501035c05010401000102010101000102010101000305 01030105010301050303010501030105010301050303010501030e050103 000500030005020302050303010501030205000301050003050505030105 01030105010301050103000501030005010301050103010501035c050104 010001020101010001020101010003050103010501030005040301050103 01050103010507030e050103000501030005010301050403010501030205 010300050003080502030105010301050103010501030005010300050103 01050103010501035c050104010001020101010001020101010003050103 010503030105010301050103010501030105030312050103000501030005 010300050103010501030105010302050303040501030305010300050103 0105010301050103000501030005010301050103010501035c0501040100 010201010100010201010100030501030105030301050103010501030105 01030105010300050003010501030e050103000501030005010300050103 010501030105010303050103060500030305010300050103010501030105 0103000501030005010301050103010501035c0501040100010201010100 010201010100030501030105010300050403010501030105010301050103 00050303020501030a050103000501030005010301050403010501030305 010307050303020501030105010301050103000501030005020300050103 010501035c05010401000102010101000102010101004705010383050104 010001020101010001020101010046050103840501040100010201010100 010201010100cd0501040100010201010100010201010100cd0501040100 010201010100010201010100cd0501040100010201010100010201010100 cd0501040100010201010100010201010100cd0501040100010201010100 010201010100cd0501040100010201010100010201010100cd0501040100 010201010100010201010100cd0501040100010201010100010201010100 cd0501040100010201010100010201010100cd0501040100010201010100 01020101010026050203010505039b050104010001020101010001020101 01002405010301050103040500039c050104010001020101010001020101 01000305030303050403000503030e05010301050103030501039c050104 010001020101010001020101010002050003020501030105000301050203 0005000301050003020501030d050103030500039d050104010001020101 010001020101010004050303000501030205030301050103100501030305 01039d050104010001020101010001020101010003050403000501030205 070311050103020500039e05010401000102010101000102010101000205 01030105010300050103020503031105010301050103020500039e050104 010001020101010001020101010002050103010501030105010300050203 00050003010501030d05010301050003020501039e050104010001020101 0100010201010100030504030105050300050303020501030a0503030205 01039e05010401000102010101000102010101000e050103bc0501040100 01020101010001020101010009050503bd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 0101010028050103010503030405010309050303020503030a0502030405 010305050103030501035d05010401000102010101000102010101002705 020300050103010501030305010309050003010501030105000301050103 07050103010501030305010304050203030501035d050104010001020101 01000102010101000305030302050303020504030f050003000501030005 010301050103010503030805010301050103000501030105010307050103 01050103010503030305000300050103010503035d050104010001020101 010001020101010002050103010501030005010301050103010501030105 0103000501030b0500030005010304050103030501030805010301050103 00050103010501030b050103030501030305000300050103030501035d05 010401000102010101000102010101000205010304050103050501030105 01030e05000300050103030501030405010309050303020503030b050103 040501030305000300050103030501035d05010401000102010101000102 01010100030503030205030302050103010501030d050003010501030205 020304050103020507030105010300050103010501030105050303050103 030501030205000301050103030501035d05010401000102010101000102 01010100060501030405010301050103010501030d050503000502030505 010308050103010501030005010301050103070501030105010303050103 02050503020501035d050104010001020101010001020101010002050103 010501030005010301050103010501030105010310050103010501030605 010308050103010500030105010301050003080501030105000304050103 05050103030501035d050104010001020101010001020101010003050303 020503030205010301050103000501030d05010300050503030501030905 030302050303090503030405010305050103030501035d05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 0101000004010100cd05010401000301040000010100cd05010404000001 01000102010101000a050103290501030305010302050403080504030105 0403010504030a0501030205030304050103020503034805010401000102 010101000102010101000a0501032805020303050103020500030c050003 05050003050500030e050103010501030105010303050103010501030105 010347050104010001020101010001020101010003050403010504030205 02030205040301050303100500030005010301050303020500030c050003 05050003050500030c050303010501030105010301050303010501030105 010347050104010001020101010001020101010003050103010501030005 010301050103000501030105000301050103010501030005000301050003 020501030b0500030005010303050103020500030c050003050500030505 00030e050103050501030305010305050103470501040100010201010100 010201010100030501030105010300050103010503030205010300050103 01050303010501030f050003000501030305010302050303090503030205 0303020503030b0501030405010304050103040501034805010401000102 010101000102010101000305010301050103000501030105030302050103 00050103010507030e050003010501030305010301050103010501030105 070301050103000501030105010300050103010501030105050302050103 030502030405010303050203480501040100010201010100010201010100 030501030105010300050103010503030205010300050103010503031205 050302050103050501030b05010304050103040501030a05010302050203 050501030205020349050104010001020101010001020101010003050103 010500030105010301050103000500030105010301050103010501030005 000301050103110501030305010301050103010500030805010301050003 010501030105000301050103010500030b05010302050103060501030205 01034a050104010001020101010001020101010003050403010501030105 010301050203020501030105010300050303020501030d05010303050103 020503030905030302050303020503030b05010301050503030501030105 050347050104010001020101010001020101010003050103c70501040100 01020101010001020101010003050103c705010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cf04010001020101010001020101 0000d004010001020101010001020101d30001020101010001020001d400 010201010100140200010000ab0200010000140201010100140200010000 ab020001000014020101010015010000ac01000016010000dc01 % % Run-length encoding savings = 80.4% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 17 17 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 566 1394 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 33) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 566 488 420 (Example #2: ) 420 SB gr 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 986 493 360 (mkDialog) 360 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 8 SJ 566 644 1297 (Creates dialog box, waits until button pressed, returns index.) 1297 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 832 1050 (mkdialog .d "File Modified" $msg warning \\) 1050 SB gr gs 1500 1125 463 400 CB 641 882 1200 ("Save File" "Discard Changes" "Return To Editor") 1200 SB gr %MSEPS Preamble 0 0 428 187 0 0 428 187 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 428 def /pp_by2 187 def 0 lc 0 lj 0 1 SP gs 669 293 890 1052 CB 668 292 890 1052 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkDlg3 %%Pages: 1 %%BoundingBox: 0 0 428 187 %%CreationDate: Thu Dec 1 15:58:04 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 428 187 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 428 187 8 [428 0 0 -187 0 187] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe00c2000001fe007d000001150000010100130200010000fe027c020001 0000130201010100130200010000fe027c02000100001302010101000102 12010000fe017d010000110101020101010001020001fe00a30001020101 01000102000100000f0200010000fe026a02000100000f02000100000f02 000100000102010101000102000100000f0200010000fe026a0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 fe026a02000100000f02000100000f020001000001020101010001020001 00000f020001000090020703000201030c020103040201030b0201030002 0103020204030b0201039002000100000f02000100000202090002020001 00000102010101000102000100000f020001000090020103060201030c02 0103040201030b020103040201030f0201039002000100000f0200010000 02020000070200010202000100000102010101000102000100000f020001 000090020103030201030002010301020303060202030202020301020303 020201030002010300020103000203030002010301020303020201030002 01039002000100000f020001000002020000070200010202000100000102 010101000102000100000202090002020001000090020103030201030002 010300020103010201030502020302020203000201030102010300020103 000202030002010301020103010201030002010301020103000201030002 020390020001000005020300050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100009002 040300020103000201030002010301020103050203030002030300020103 010201030002010301020103000201030102010301020103000201030102 010300020103010201039002000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100009002010303020103000201030002050305020103 000200030002000300020103000201030102010300020103010201030002 010301020103010201030002050300020103010201039002000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000090020103030201030002 010300020103090201030002020300020103000201030102010300020103 010201030002010301020103010201030002010304020103010201039002 000100000502000002010502000100000202000007020001020200010000 0102010101000102000100000f0200010000900201030302010300020103 000201030102010305020103010200030102010300020103010201030002 010300020203000201030102010301020103000201030102010300020103 000202039002000100000f02000100000202000007020001020200010000 0102010101000102000100000f0200010000900201030302010300020103 010203030602010301020003010201030102030302020103000201030002 010301020103010201030102030302020103000201039002000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000fe026a02000100000f020001000002020000080102020001 00000102010101000102000100000f0200010000fe026a02000100000f02 000100000f02000100000102010101000102000100000f0200010000fe02 6a02000100000f02000100000f0200010000010201010100010200010000 10010000fe016b0100001001000010010000010201010000fe01a6010000 030104000001fe00a50000010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e04000501000102010101000102010100005c040803010401030104 02030e040103010401030e04020305040203070401030104010304040203 190402033f0402030204010304040203000401030d0402030c0401035804 000501000102010101000102010100005d04010303040103010401030204 01030e040103010401030f04010306040103070401030104010305040103 1a04010340040103020401030304010300040003000401030e0401030c04 01035804000501000102010101000102010100005d040103040400030604 01030e04010301040103020400030b040103060401030704010301040103 050401031a04010340040103080400031404010367040005010001020101 01000102010100005d0401030c0401030e04000302040003020401030b04 0103060401030704000302040003060401031a0401034004010307040103 140401036704000501000102010101000102010100005d04010306040203 02040103030403030d040403020403030204010306040103010401030f04 010301040103040403030304010300040003050401030004020303040303 030403030104020301040103060402030104010302040103040403030404 040301040203010404030004020303040303030404030604010300040003 00040203010402030104010304040303030403033e040005010001020101 01000102010100005d040103030400030204010302040103020401030104 01030d04010303040103010401030104010306040103000403030e040103 000403030204010301040103010401030004010305040203000402030104 010301040103010401030104010301040103000403030604010300040303 000403030204010301040103020401030104010302040103020401030304 010302040103010401030104010301040103050401030004010301040103 0204010300040303020401030104010301040103010401033d0400050100 0102010101000102010100005d0406030204010302040103010401030304 01030c04010302040103020401030104010306040203010401030e040203 010401030204010301040103010401030104000305040103020401030004 010303040303030401030004020301040103060402030104020301040103 010401030304010300040103020401030204010302040103030401030104 010303040303020401030504010301040003010401030204020301040103 010401030204010300040103030401033c04000501000102010101000102 010100005d040103030400030204010302040103010407030c0401030204 01030604010306040103020401030e040103020401030504020301040203 070401030204010300040f03000401030204010306040103020401030204 010301040103030401030004010302040103020401030204010303040103 010409030204010305040203030401030204010302040103010401030504 07033c04000501000102010101000102010100005d040103070401030204 01030104010312040103020401030604010306040103020401030e040103 020401030304010300040103020402030604010302040103000401030504 010306040103020401030604010302040103020401030104010303040103 000401030204010302040103020401030304010301040103050401030204 010306040203020401030204010302040103010401030504010342040005 01000102010101000102010100005d040103070401030204010301040103 12040103020401030604010306040103020401030e040103020401030204 010301040103030402030504010302040103000401030504010306040103 020401030604010302040103020401030104010303040103000401030204 010302040103020401030304010301040103050401030204010307040203 010401030204010302040103010401030504010342040005010001020101 01000102010100005d040103070401030204010301040203030400030c04 0103020401030604010306040103020401030e0401030204010302040103 010401030104000301040103050401030204010300040203030403030304 000300040103020401030604010302040103020401030104010303040103 000401030204010302040103020401030304010301040203030402030204 010305040003010401030104010302040103020401030104010305040203 030400033c04000501000102010101000102010100005d04010307040103 0204010302040203000401030d0402030004000300040103020400030104 01030204010301040103020401030e040103020401030204050301040103 000401030504020300040103020402030004010301040203000401030104 010302040103060401030204010302040103020401030104010302040103 010401030204010302040103030401030204020300040103010401030104 010305040103000401030104010302040103020401030204010302040003 01040203000401033d04000501000102010101000102010100005c040303 0504030300040303020403030f0402030204030301040303010401030004 0303010402030c0403030104020302040103010401030004000300040103 070403030404030303040303010403030104020304040303000403030004 030302040303040405030004030300040303010403030204030303040503 040400030004010301040303000403030104020302040303030403033e04 00050100010201010100010201010000fe049e0400050100010201010100 010201010000fe049e0400050100010201010100010201010000fe049e04 00050100010201010100010201010000fe049e0400050100010201010100 010201010000fe049e0400050100010201010100010201010000fe049e04 000501000102010101000102010100006104020312040203210401031d04 01034e0402030e0407037504000501000102010101000102010100006204 010313040103210401031d0401034f0401030f0401030204020374040005 01000102010101000102010100005d040003030401031304010312040003 08040003290400034a0401030f0401030404010373040005010001020101 01000102010100005c040103030401031304010311040103070401032804 01034a0401030f0401030404010373040005010001020101010001020101 00005b040403010401030104010304040303060401030304030303040103 000400030004040304040403000402030104020301040103020401030404 030305040203010404030304020301040203010402030104030303040103 000400030504010300040003020403030104030301040203020403030304 04030f040103050401030204030305040303010402030104030301040203 010402034c04000501000102010101000102010100005c04010303040103 000403030204010301040103050401030204010301040103010401030004 010301040103070401030304010302040103000403030004030302040103 010401030504010302040103060401030104010302040103010401030104 010301040103000401030404010300040103010401030104010301040103 02040103020401030104010301040103010401030f040103050401030104 010301040103050401030304000301040103010401030104010302040103 4c04000501000102010101000102010100005c0401030304020301040103 010401030304010304040103020401030104010301040103010400030104 010307040103030401030204020301040203010401030104010303040103 040401030204010306040103020400030104010302040103010401030104 010301040003040401030104000301040103010401030104010302040003 0204010303040303020401030f0401030504010300040103030401030404 020301040103000401030304010300040103020401034c04000501000102 010101000102010100000e0401034b040103030401030204010301040703 040401030504020301040203030401030704010303040103020401030204 010302040103010407030404010302040103070401030004010301040103 050402030104020306040203060402030204010301040003020409030204 01030f040103050401030004010303040103050401030104000301040103 0304010300040103020401034c0400050100010201010100010201010000 0d040103000400034a0401030304010302040103010401030a0401030304 010300040103020402030204010307040103030401030204010302040103 02040103010401030a040103020401030704010300040203000401030304 010300040103020402030604020303040103000401030204010300040103 0204010305040103020401030f0401030504010300040103030401030504 010300040103010401030304010300040103020401034c04000501000102 010101000102010100000c04010300040003000400034904010303040103 02040103010401030a040103020401030104010303040203010401030704 010303040103020401030204010302040103010401030a04010302040103 080402030004000300040003030401030104010303040203060402030104 01030104010303040003000400030304010305040103020401030f040103 040401030104010303040103060402030204010303040103000401030204 01034c04000501000102010101000102010100000c040003000400030004 00034a040103030401030204010301040203030400030404010302040103 010401030104000301040103010401030704010303040103020401030204 010302040103010402030304000304040103020401030804020300040203 030401030104010301040003010401030404000301040103010401030104 0103030402030304020303040203020401030f0401030404010301040103 0304010306040203020401030304010300040103020401034c0400050100 0102010101000102010100000c0401030004000300040003490402030004 000300040103020401030204020300040103050401030204050301040103 000401030104020300040003040402030004000300040103020401030204 010302040103020402030004010305040103020402030004000306040003 020400030404050301040103000401030404010300040103010405030404 000305040203000401030104010301040103020401030a04010302040203 030401030104010308040103030401030104010301040203000402034c04 000501000102010101000102010100000c04000300040003000400034b04 020300040303010402030204030305040303020401030104010300040003 000401030304020306040203000403030004030300040303000403030204 030305040303020402030704000302040003050401030104010300040003 000401030504000300040103030401030104010303040003060403030304 050301040103090407030504030308040103050403030304020300040203 4b04000501000102010101000102010100000c0401030004000300040003 fe04280401036004000501000102010101000102010100000d0401030004 0003fe04290400036104000501000102010101000102010100000d040003 00040003fe04270403036104000501000102010101000102010100000d04 010300040003fe0426040203620400050100010201010100010201010000 0d04000300040003fe048d04000501000102010101000102010100000d04 010300040003fe048c04000501000102010101000102010100000d040003 00040003ab0401030b040203100402032d040103080401031d0402035f04 00050100010201010100010201010000bc0401030c0401030f0401030004 00032d040103080401031e0401035f040005010001020101010001020101 00007c040003080400033a040003070401030f040003360400031f040003 030401035f04000501000102010101000102010100000d04030369040103 0704010339040103070401030e040103350401031e040103030401035f04 000501000102010101000102010100000d04000300040003490402030104 020301040203010403030204020301040103020404030404040302040303 070401030004000302040303010403030104020302040303050402030104 040305040103000402030304030301040403020403030204020300040103 020403030704030300040203020402030004020301040403000402030104 020301040103040404030404040301040103010401030404030352040005 01000102010101000102010100000d040103000400034904010301040103 020401030104010301040103020401030004030302040103070401030304 010301040103050401030004010301040103010401030104010302040103 020401030104010305040103020401030704020300040203010401030104 010301040103030401030104010302040103000401030104010301040103 050401030104010300040103020401030204010302040103030401030204 010300040303010401030104010306040103030401030004030302040103 010401035104000501000102010101000102010100000d04000300040003 4a0401030204000301040103020401030104010302040203010401030204 010307040103020401030304010304040103010400030104010301040103 010401030204000302040103030401030404010302040103070401030204 010300040103030401030004010302040103030401030104020302040103 030401030304010303040103000401030004010303040103020401030304 010302040203010401030104010302040003060401030304020301040103 01040103030401035004000501000102010101000102010100005c040103 000401030104010305040203020401030204010302040103070401030204 010303040103040402030604020302040103010400030204070304040103 020401030704010302040103000407030004010302040103030401030104 010303040703030407030104020304040103020401030304010302040103 020401030104010302040003060401030304010302040103010407035004 000501000102010101000102010100005c04010300040203000401030304 010300040103020401030204010302040103070401030204010303040103 0504020303040103000401030204010300040103020401030a0401030204 010307040103020401030004010306040103020401030304010301040103 030401030904010308040103040401030204010303040103020401030204 010301040103010401030604010303040103020401030104010356040005 01000102010101000102010100005d040203000400030004000303040103 010401030204010302040103020401030704010302040103030401030604 020301040103010401030304000300040003030401030a04010302040103 070401030204010300040103060401030204010303040103010401030304 010309040103070402030404010302040103030401030204010302040103 020403030704010303040103020401030104010356040005010001020101 01000102010100005d040203000402030304010301040103020401030204 010302040103070401030204010303040103040400030104010301040103 010401030304020303040203030400030404010302040103070401030204 010300040203030400030004010302040103030401030104010303040203 030400030304020303040003000401030004010303040103020401030304 01030204010302040103020400030a040103030401030204010301040203 030400035004000501000102010101000102010100005e04000302040003 040405030204010302040103020402030004000304040203000400030004 010301040103050401030004010301040503040400030504020300040103 050401030204020300040003040402030004010302040203000401030104 010303040103010401030204010304040203000401030504020300040103 000401030204010302040103020402030004000300040103020401030204 010302040403060402030004000300040103020401030204020300040103 5104000501000102010101000102010100005e0400030204000305040103 010401030004030301040203020402030604020302040303060400030004 010303040103010401030304000306040303050403030204020306040303 040403030104030303040303020403030404030307040303000402030204 020300040303020402030004030300040303010402030104060305040203 000403030104020302040303520400050100010201010100010201010000 fe0429040003040401036c0400050100010201010100010201010000fe04 29040103040400036c0400050100010201010100010201010000fe042904 0203020400036d0400050100010201010100010201010000fe042a040403 6e0400050100010201010100010201010000fe049e040005010001020101 0100010201010000fe049e04000501000102010101000102010100007604 0203020401031904010316040303e7040005010001020101010001020101 00007704010302040103190401031504000302040103e604000501000102 0101010001020101000077040103190400031b04010302040003e6040005 010001020101010001020101000077040103180401031b04010301040103 e604000501000102010101000102010100005d0403030204020300040203 010402030004020302040103010402030304030303040303020404030004 020303040303020402030104010307040103e60400050100010201010100 0102010100005c0401030104010302040203000402030104020300040203 010401030204010302040103010401030104010301040103020401030304 01030204010301040103020401030004030305040103e704000501000102 010101000102010100005c04010301040103020401030204010301040103 020401030104010302040103010401030204010301040103010401030204 0103030401030104010303040103010402030104010305040103e7040005 01000102010101000102010100005f040203020401030204010301040103 020401030104010302040103010401030904020302040103030401030104 010303040103010401030204010304040103e80400050100010201010100 0102010100005d0401030004010302040103020401030104010302040103 010401030204010301040103070401030004010302040103030401030104 010303040103010401030204010304040003e90400050100010201010100 0102010100005c0401030104010302040103020401030104010302040103 010401030204010301040103060401030104010302040103030401030104 010303040103010401030204010304040003e90400050100010201010100 0102010100005c0401030104010302040103020401030104010302040103 010401030204010301040103060401030104010302040103030401030104 0103030401030104010302040103ef040005010001020101010001020101 00005c040503020402030004010302040203000401030204010302040103 020401030204000301040503020402030004000300040103020401030104 0103020401030204010304040103e8040005010001020101010001020101 00005d040103010401030104010300040103030401030004010302040303 000403030204030303040103010401030204020300040303020403030204 03030104020303040103e804000501000102010101000102010100006504 010306040103fe042d040005010001020101010001020101000065040103 06040103fe042d0400050100010201010100010201010000650401030604 0103fe042d04000501000102010101000102010100006404030304040303 fe042c0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe059f05010001020101010001020101fe00a200 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 0102010101000102010100000c04520019047e0019047d000c0400050100 0102010101000102010100000c045100000519047d00000519047c000005 0c04000501000102010101000102010100000c0401004e04010519040100 7a04010519040100790401050c0400050100010201010100010201010000 0c0401004e040105190401007a04010519040100790401050c0400050100 0102010101000102010100000c0401004e040105190401007a0401051904 0100790401050c04000501000102010101000102010100000c0401004e04 0105190401007a04010519040100790401050c0400050100010201010100 0102010100000c0401004e040105190401007a0401051904010079040105 0c04000501000102010101000102010100000c0401004e04010519040100 7a04010519040100790401050c0400050100010201010100010201010000 0c0401000c0404031c0407030004010314040105190401000b0404030204 01031e040103070403030004010334040105190401000b04050309040103 180407030b0405030404010300040103010401031a0401050c0400050100 0102010101000102010100000c0401000b040103020401031b0401030604 010314040105190401000b04010301040103220401030604010301040303 34040105190401000b04010302040103080401031b0401030e0401030804 0103040401031a0401050c04000501000102010101000102010100000c04 01000b040103020401030104030301040103020401030104030306040103 0304010300040103010403030e040105190401000b040103020401030004 010301040303020403030204030301040103000401030004010300040103 050401030404010300040103020403030104010300040103020401030004 010301040303020403030e040105190401000b0401030204010301040303 010403030004010301040103000401030004030300040103080401030304 030306040103050401030004010300040103000403030104030301040103 000401030c0401050c04000501000102010101000102010100000c040100 0c0402030304010301040103000401030204010300040103010401030504 0103030401030004010300040103010401030d040105190401000b040103 020401030004010300040103010401030004010301040103000401030104 010300040603000402030504010304040203000401030004010301040103 000402030004010300040103000402030004010301040103000401030104 01030d040105190401000b04010302040103000401030104010301040103 010401030104010300040703000401030704010302040103010401030504 010304040103000402030004010301040103010401030104010300040403 0c0401050c04000501000102010101000102010100000c0401000e040203 050401030104010300040103010401030104010305040403000401030004 010300040103010401030d040105190401000b0401030204010300040103 000402030304010308040103000402030104010301040103050401030404 010301040103040401030004010301040103000401030104010300040103 010401030004020310040105190401000b04050301040103010401030104 010301040103010401030004020301040103010401030704010302040103 010401030504050300040103010401030004010301040103010401030104 0103000402030e0401050c04000501000102010101000102010100000c04 01000f040203010404030104010300040103010405030504010303040103 00040103000405030d040105190401000b04010302040103000401030204 020301040103050404030004010302040103010401030504010304040103 010401030104040300040103010401030004010301040103000405030204 02030e040105190401000b04010301040103010405030104010301040103 010401030004010302040103010401030704010302040103010401030504 010304040103010401030004010301040103010401030104010300040103 0f0401050c04000501000102010101000102010100000c0401000b040103 020401030004010301040103020402030204010309040103030401030004 01030004010311040105190401000b040103020401030004010303040203 000401030404010301040103000401030204010301040103050401030404 010301040103000401030104010300040103010401030004010301040103 00040103070402030d040105190401000b04010302040103000401030504 010301040103010401030004010302040103010401030704010302040103 010401030504010304040103010401030004010301040103010401030104 0103000401030f0401050c04000501000102010101000102010100000c04 01000b040103020401030004010301040103020402030204010301040103 05040103030401030004010300040103010401030d040105190401000b04 010301040103010401030004010301040103000401030104010300040103 010401030004010302040103000402030604010301040303010401030004 010301040103000401030104010300040103000402030004010301040103 00040103010401030d040105190401000b04010302040103000401030104 010301040103000402030004020300040103020401030104010307040103 020401030104010305040103040401030004020300040103010401030004 020301040103000401030f0401050c040005010001020101010001020101 00000c0401000c0404030204020300040103020400030404030306040103 0304010300040103010403030e040105190401000b040403020401030104 030302040303020402030004030303040103000401030704030300040103 010401030104020300040303010401030104010300040103010403030204 03030e040105190401000b04010302040103010403030304010301040103 000401030004010302040103010401030704010303040303060405030104 010300040103000401030204010301040303010401030f0401050c040005 01000102010101000102010100000c0401004e040105190401005c040103 1b04010519040100790401050c0400050100010201010100010201010000 0c0401004e0401051904010058040103010401031b040105190401007904 01050c04000501000102010101000102010100000c0401004e0401051904 0100590403031c04010519040100790401050c0400050100010201010000 040100000c0401004e040105190401007a04010519040100790401050c04 0005010003010400000100000c0401004e040105190401007a0401051904 0100790401050c0400050400000101000102010100000c0401004e040105 190401007a04010519040100790401050c04000501000102010101000102 010100000c0401004e040105190401007a04010519040100790401050c04 000501000102010101000102010100000c0401004e040105190401007a04 010519040100790401050c04000501000102010101000102010100000c04 01004e040105190401007a04010519040100790401050c04000501000102 010101000102010100000c0401005005190401007c05190401007b050c04 000501000102010101000102010100000c0400005105190400007d051904 00007c050c0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe059f0501000102 0101010001020101fe00a20001020101010001020001fe00a30001020101 0100130200010000fe027c0200010000130201010100130200010000fe02 7c020001000013020101010014010000fe017d01000015010000fe01ab01 % % Run-length encoding savings = 84.3% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 32 0 0 33 33 0 0 0 29 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 6 1 SJ 793 721 197 (Window Name) 197 SB gr gs 1500 1125 463 400 CB 1088 721 62 (Title) 62 SB gr gs 1500 1125 463 400 CB 1341 721 112 (Message) 112 SB gr gs 1500 1125 463 400 CB 1495 721 96 (Bitmap) 96 SB gr 1 lc 1 lj 6 4 SP gs 1500 56 463 763 CB 1119 689 M 0 222 1 PP S n gr 0 0 0 fC /fm 256 def 1119 838 M 11 37 -22 0 11 -37 3 PP 1 F n 6 4 SP gs 1500 56 463 763 CB 1400 689 M 0 222 1 PP S n gr /fm 256 def 1400 838 M 11 37 -22 0 11 -37 3 PP 1 F n 6 4 SP gs 1500 56 463 763 CB 895 689 M 0 222 1 PP S n gr /fm 256 def 895 838 M 11 37 -22 0 11 -37 3 PP 1 F n 6 4 SP gs 1500 56 463 763 CB 1544 689 M 0 222 1 PP S n gr /fm 256 def 1544 838 M 11 37 -22 0 11 -37 3 PP 1 F n 6 4 SP gs 260 1125 869 400 CB 1399 1050 M -822 -189 1 PP S n gr /fm 256 def 852 924 M -38 3 4 -22 34 19 3 PP 1 F n gs 1500 1125 463 400 CB 5 1 SJ 1138 983 183 (Button Labels) 183 SB gr 6 4 SP gs 1500 37 463 942 CB 1226 1026 M -39 -153 1 PP S n gr /fm 256 def 1200 923 M -20 -33 22 -6 -2 39 3 PP 1 F n 6 4 SP gs 219 1125 1338 400 CB 1101 1050 M 711 -189 1 PP S n gr /fm 256 def 1575 924 M 33 -20 6 22 -39 -2 3 PP 1 F n 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 566 2699 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 34) 321 SB gr 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 566 1798 360 (mkDialog) 360 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 1 SJ 926 1793 236 (, cont'd) 236 SB gr 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 566 1923 966 (proc mkDialog {w title text bitmap args} {) 966 SB gr gs 1500 1125 463 1705 CB 566 1964 345 ( toplevel $w) 345 SB gr gs 1500 1125 463 1705 CB 566 2004 506 ( wm title $w $title) 506 SB gr gs 1500 1125 463 1705 CB 566 2045 897 ( wm protocol $w WM_DELETE_WINDOW { }) 897 SB gr gs 1500 1125 463 1705 CB 566 2086 851 ( frame $w.top -relief raised -bd 1) 851 SB gr gs 1500 1125 463 1705 CB 566 2126 828 ( pack $w.top -side top -fill both) 828 SB gr gs 1500 1125 463 1705 CB 566 2167 851 ( frame $w.bot -relief raised -bd 1) 851 SB gr gs 1500 1125 463 1705 CB 566 2207 897 ( pack $w.bot -side bottom -fill both) 897 SB gr gs 1500 1125 463 1705 CB 566 2248 1035 ( label $w.msg -wraplength 3i -text $text \\) 1035 SB gr gs 1500 1125 463 1705 CB 566 2289 667 ( -justify left -font \\) 667 SB gr gs 1500 1125 463 1705 CB 566 2329 184 ( ) 184 SB gr 32 0 0 33 33 0 0 0 28 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 750 2333 940 (-Adobe-Times-Medium-R-Normal--*-180-*-*-*-*-*-*) 940 SB gr 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 566 2370 920 ( pack $w.msg -in $w.top -side right \\) 920 SB gr gs 1500 1125 463 1705 CB 566 2411 1058 ( -expand 1 -fill both -padx 3m -pady 3m) 1058 SB gr gs 1500 1125 463 1705 CB 566 2451 161 ( ...) 161 SB gr gs 1500 1125 463 1705 CB 566 2492 23 (}) 23 SB gr %MSEPS Preamble 0 0 315 140 0 0 315 140 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 315 def /pp_by2 140 def 0 lc 0 lj 0 1 SP gs 493 220 978 2468 CB 492 219 978 2468 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkDlg1 %%Pages: 1 %%BoundingBox: 0 0 315 140 %%CreationDate: Thu Dec 1 15:58:02 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 315 140 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 315 140 8 [315 0 0 -140 0 140] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe0051000001fe000c000001150000010100130200010000fe020b020001 0000130201010100130200010000fe020b02000100001302010101000102 12010000fe010c010000110101020101010001020001fe00320001020101 01000102000100000f0200010000f802000100000f02000100000f020001 00000102010101000102000100000f0200010000f802000100000f020001 00000f02000100000102010101000102000100000f0200010000f8020001 00000f02000100000f02000100000102010101000102000100000f020001 000057020703000201030c020103040201030b0201030002010302020403 0b0201035802000100000f02000100000202090002020001000001020101 01000102000100000f020001000057020103060201030c02010304020103 0b020103040201030f0201035802000100000f0200010000020200000702 00010202000100000102010101000102000100000f020001000057020103 030201030002010301020303060202030202020301020303020201030002 010300020103000203030002010301020303020201030002010358020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000057020103030201030002010300020103 010201030502020302020203000201030102010300020103000202030002 010301020103010201030002010301020103000201030002020358020001 000005020300050200010000020200000702000102020001000001020101 010001020001000002020000070200010202000100005702040300020103 000201030002010301020103050203030002030300020103010201030002 010301020103000201030102010301020103000201030102010300020103 010201035802000100000502000001020001050200010000020200000702 000102020001000001020101010001020001000002020000070200010202 000100005702010303020103000201030002050305020103000200030002 000300020103000201030102010300020103010201030002010301020103 010201030002050300020103010201035802000100000502000001020001 050200010000020200000702000102020001000001020101010001020001 000002020000080102020001000057020103030201030002010300020103 090201030002020300020103000201030102010300020103010201030002 010301020103010201030002010304020103010201035802000100000502 000002010502000100000202000007020001020200010000010201010100 0102000100000f0200010000570201030302010300020103000201030102 010305020103010200030102010300020103010201030002010300020203 000201030102010301020103000201030102010300020103000202035802 000100000f02000100000202000007020001020200010000010201010100 0102000100000f0200010000570201030302010300020103010203030602 010301020003010201030102030302020103000201030002010301020103 010201030102030302020103000201035802000100000f02000100000202 0000070200010202000100000102010101000102000100000f0200010000 f802000100000f0200010000020200000801020200010000010201010100 0102000100000f0200010000f802000100000f02000100000f0200010000 0102010101000102000100000f0200010000f802000100000f0200010000 0f020001000001020101010001020001000010010000f901000010010000 10010000010201010000fe0135010000030104000001fe00340000010100 010201010000fe042d0400050100010201010100010201010000fe042d04 00050100010201010100010201010000fe042d0400050100010201010100 010201010000fe042d0400050100010201010100010201010000fe042d04 00050100010201010100010201010000fe042d0400050100010201010100 010201010000fe042d0400050100010201010100010201010000fe042d04 00050100010201010100010201010000fe042d0400050100010201010100 010201010000fe042d0400050100010201010100010201010000fe042d04 00050100010201010100010201010000fe042d0400050100010201010100 010201010000fe042d0400050100010201010100010201010000fe042d04 00050100010201010100010201010000fe042d0400050100010201010100 010201010000fe042d0400050100010201010100010201010000fe042d04 00050100010201010100010201010000fe042d0400050100010201010100 0102010100001404080301040103010402030e040103010401030e040203 05040203070401030104010304040203190402033f040203020401030404 0203000401030d0402030c0401032f040005010001020101010001020101 0000150401030304010301040103020401030e040103010401030f040103 060401030704010301040103050401031a04010340040103020401030304 010300040003000401030e0401030c0401032f0400050100010201010100 0102010100001504010304040003060401030e0401030104010302040003 0b040103060401030704010301040103050401031a040103400401030804 0003140401033e0400050100010201010100010201010000150401030c04 01030e04000302040003020401030b040103060401030704000302040003 060401031a0401034004010307040103140401033e040005010001020101 0100010201010000150401030604020302040103030403030d0404030204 03030204010306040103010401030f040103010401030404030303040103 000400030504010300040203030403030304030301040203010401030604 020301040103020401030404030304040403010402030104040300040203 030403030304040306040103000400030004020301040203010401030404 030303040303150400050100010201010100010201010000150401030304 0003020401030204010302040103010401030d0401030304010301040103 0104010306040103000403030e0401030004030302040103010401030104 010300040103050402030004020301040103010401030104010301040103 010401030004030306040103000403030004030302040103010401030204 010301040103020401030204010303040103020401030104010301040103 010401030504010300040103010401030204010300040303020401030104 010301040103010401031404000501000102010101000102010100001504 0603020401030204010301040103030401030c0401030204010302040103 0104010306040203010401030e0402030104010302040103010401030104 010301040003050401030204010300040103030403030304010300040203 010401030604020301040203010401030104010303040103000401030204 010302040103020401030304010301040103030403030204010305040103 010400030104010302040203010401030104010302040103000401030304 010313040005010001020101010001020101000015040103030400030204 010302040103010407030c04010302040103060401030604010302040103 0e040103020401030504020301040203070401030204010300040f030004 010302040103060401030204010302040103010401030304010300040103 020401030204010302040103030401030104090302040103050402030304 010302040103020401030104010305040703130400050100010201010100 010201010000150401030704010302040103010401031204010302040103 0604010306040103020401030e0401030204010303040103000401030204 020306040103020401030004010305040103060401030204010306040103 020401030204010301040103030401030004010302040103020401030204 010303040103010401030504010302040103060402030204010302040103 020401030104010305040103190400050100010201010100010201010000 150401030704010302040103010401031204010302040103060401030604 0103020401030e0401030204010302040103010401030304020305040103 020401030004010305040103060401030204010306040103020401030204 010301040103030401030004010302040103020401030204010303040103 010401030504010302040103070402030104010302040103020401030104 010305040103190400050100010201010100010201010000150401030704 01030204010301040203030400030c040103020401030604010306040103 020401030e04010302040103020401030104010301040003010401030504 010302040103000402030304030303040003000401030204010306040103 020401030204010301040103030401030004010302040103020401030204 010303040103010402030304020302040103050400030104010301040103 020401030204010301040103050402030304000313040005010001020101 010001020101000015040103070401030204010302040203000401030d04 020300040003000401030204000301040103020401030104010302040103 0e0401030204010302040503010401030004010305040203000401030204 020300040103010402030004010301040103020401030604010302040103 020401030204010301040103020401030104010302040103020401030304 010302040203000401030104010301040103050401030004010301040103 020401030204010302040103020400030104020300040103140400050100 010201010100010201010000140403030504030300040303020403030f04 020302040303010403030104010300040303010402030c04030301040203 020401030104010300040003000401030704030304040303030403030104 030301040203040403030004030300040303020403030404050300040303 000403030104030302040303030405030404000300040103010403030004 030301040203020403030304030315040005010001020101010001020101 0000fe042d0400050100010201010100010201010000fe042d0400050100 010201010100010201010000fe042d040005010001020101010001020101 0000fe042d0400050100010201010100010201010000fe042d0400050100 010201010100010201010000fe042d040005010001020101010001020101 00001904020312040203210401031d0401034e0402030e0407034c040005 01000102010101000102010100001a04010313040103210401031d040103 4f0401030f040103020402034b0400050100010201010100010201010000 1504000303040103130401031204000308040003290400034a0401030f04 0103040401034a0400050100010201010100010201010000140401030304 0103130401031104010307040103280401034a0401030f04010304040103 4a0400050100010201010100010201010000130404030104010301040103 040403030604010303040303030401030004000300040403040404030004 020301040203010401030204010304040303050402030104040303040203 010402030104020301040303030401030004000305040103000400030204 0303010403030104020302040303030404030f0401030504010302040303 050403030104020301040303010402030104020323040005010001020101 010001020101000014040103030401030004030302040103010401030504 010302040103010401030104010300040103010401030704010303040103 020401030004030300040303020401030104010305040103020401030604 010301040103020401030104010301040103010401030004010304040103 000401030104010301040103010401030204010302040103010401030104 0103010401030f0401030504010301040103010401030504010303040003 010401030104010301040103020401032304000501000102010101000102 010100001404010303040203010401030104010303040103040401030204 010301040103010401030104000301040103070401030304010302040203 010402030104010301040103030401030404010302040103060401030204 000301040103020401030104010301040103010400030404010301040003 010401030104010301040103020400030204010303040303020401030f04 010305040103000401030304010304040203010401030004010303040103 000401030204010323040005010001020101010001020101000014040103 030401030204010301040703040401030504020301040203030401030704 010303040103020401030204010302040103010407030404010302040103 070401030004010301040103050402030104020306040203060402030204 01030104000302040903020401030f040103050401030004010303040103 050401030104000301040103030401030004010302040103230400050100 010201010100010201010000140401030304010302040103010401030a04 010303040103000401030204020302040103070401030304010302040103 0204010302040103010401030a0401030204010307040103000402030004 010303040103000401030204020306040203030401030004010302040103 000401030204010305040103020401030f04010305040103000401030304 010305040103000401030104010303040103000401030204010323040005 010001020101010001020101000014040103030401030204010301040103 0a0401030204010301040103030402030104010307040103030401030204 01030204010302040103010401030a040103020401030804020300040003 000400030304010301040103030402030604020301040103010401030304 0003000400030304010305040103020401030f0401030404010301040103 030401030604020302040103030401030004010302040103230400050100 010201010100010201010000140401030304010302040103010402030304 000304040103020401030104010301040003010401030104010307040103 030401030204010302040103020401030104020303040003040401030204 010308040203000402030304010301040103010400030104010304040003 010401030104010301040103030402030304020303040203020401030f04 010304040103010401030304010306040203020401030304010300040103 020401032304000501000102010101000102010100001404020300040003 000401030204010302040203000401030504010302040503010401030004 010301040203000400030404020300040003000401030204010302040103 020401030204020300040103050401030204020300040003060400030204 000304040503010401030004010304040103000401030104050304040003 05040203000401030104010301040103020401030a040103020402030304 010301040103080401030304010301040103010402030004020323040005 010001020101010001020101000015040203000403030104020302040303 050403030204010301040103000400030004010303040203060402030004 030300040303000403030004030302040303050403030204020307040003 020400030504010301040103000400030004010305040003000401030304 010301040103030400030604030303040503010401030904070305040303 080401030504030303040203000402032204000501000102010101000102 01010000f2040103370400050100010201010100010201010000f2040003 380400050100010201010100010201010000ef0403033804000501000102 01010100010201010000ef04020339040005010001020101010001020101 0000fe042d0400050100010201010100010201010000fe042d0400050100 010201010100010201010000740401030b040203100402032d0401030804 01031d040203360400050100010201010100010201010000740401030c04 01030f040103000400032d040103080401031e0401033604000501000102 0101010001020101000034040003080400033a040003070401030f040003 360400031f04000303040103360400050100010201010100010201010000 330401030704010339040103070401030e040103350401031e0401030304 010336040005010001020101010001020101000012040203010402030104 020301040303020402030104010302040403040404030204030307040103 000400030204030301040303010402030204030305040203010404030504 010300040203030403030104040302040303020402030004010302040303 070403030004020302040203000402030104040300040203010402030104 010304040403040404030104010301040103040403032904000501000102 010101000102010100001304010301040103020401030104010301040103 020401030004030302040103070401030304010301040103050401030004 010301040103010401030104010302040103020401030104010305040103 020401030704020300040203010401030104010301040103030401030104 010302040103000401030104010301040103050401030104010300040103 020401030204010302040103030401030204010300040303010401030104 010306040103030401030004030302040103010401032804000501000102 010101000102010100001304010302040003010401030204010301040103 020402030104010302040103070401030204010303040103040401030104 000301040103010401030104010302040003020401030304010304040103 020401030704010302040103000401030304010300040103020401030304 010301040203020401030304010303040103030401030004010300040103 030401030204010303040103020402030104010301040103020400030604 010303040203010401030104010303040103270400050100010201010100 010201010000140401030004010301040103050402030204010302040103 020401030704010302040103030401030404020306040203020401030104 000302040703040401030204010307040103020401030004070300040103 020401030304010301040103030407030304070301040203040401030204 010303040103020401030204010301040103020400030604010303040103 020401030104070327040005010001020101010001020101000014040103 000402030004010303040103000401030204010302040103020401030704 010302040103030401030504020303040103000401030204010300040103 020401030a04010302040103070401030204010300040103060401030204 010303040103010401030304010309040103080401030404010302040103 030401030204010302040103010401030104010306040103030401030204 0103010401032d0400050100010201010100010201010000150402030004 000300040003030401030104010302040103020401030204010307040103 020401030304010306040203010401030104010303040003000400030304 01030a040103020401030704010302040103000401030604010302040103 030401030104010303040103090401030704020304040103020401030304 010302040103020401030204030307040103030401030204010301040103 2d0400050100010201010100010201010000150402030004020303040103 010401030204010302040103020401030704010302040103030401030404 000301040103010401030104010303040203030402030304000304040103 020401030704010302040103000402030304000300040103020401030304 010301040103030402030304000303040203030400030004010300040103 0304010302040103030401030204010302040103020400030a0401030304 010302040103010402030304000327040005010001020101010001020101 000016040003020400030404050302040103020401030204020300040003 040402030004000300040103010401030504010300040103010405030404 000305040203000401030504010302040203000400030404020300040103 020402030004010301040103030401030104010302040103040402030004 010305040203000401030004010302040103020401030204020300040003 000401030204010302040103020404030604020300040003000401030204 010302040203000401032804000501000102010101000102010100001604 000302040003050401030104010300040303010402030204020306040203 020403030604000300040103030401030104010303040003060403030504 030302040203060403030404030301040303030403030204030304040303 070403030004020302040203000403030204020300040303000403030104 020301040603050402030004030301040203020403032904000501000102 01010100010201010000e004000304040103430400050100010201010100 010201010000e00401030404000343040005010001020101010001020101 0000e004020302040003440400050100010201010100010201010000e104 0403450400050100010201010100010201010000fe042d04000501000102 01010100010201010000fe042d0400050100010201010100010201010000 2e040203020401031904010316040303be04000501000102010101000102 010100002f04010302040103190401031504000302040103bd0400050100 0102010101000102010100002f040103190400031b04010302040003bd04 000501000102010101000102010100002f040103180401031b0401030104 0103bd040005010001020101010001020101000015040303020402030004 020301040203000402030204010301040203030403030304030302040403 0004020303040303020402030104010307040103bd040005010001020101 010001020101000014040103010401030204020300040203010402030004 020301040103020401030204010301040103010401030104010302040103 030401030204010301040103020401030004030305040103be0400050100 010201010100010201010000140401030104010302040103020401030104 010302040103010401030204010301040103020401030104010301040103 02040103030401030104010303040103010402030104010305040103be04 000501000102010101000102010100001704020302040103020401030104 010302040103010401030204010301040103090402030204010303040103 0104010303040103010401030204010304040103bf040005010001020101 010001020101000015040103000401030204010302040103010401030204 010301040103020401030104010307040103000401030204010303040103 0104010303040103010401030204010304040003c0040005010001020101 010001020101000014040103010401030204010302040103010401030204 010301040103020401030104010306040103010401030204010303040103 0104010303040103010401030204010304040003c0040005010001020101 010001020101000014040103010401030204010302040103010401030204 010301040103020401030104010306040103010401030204010303040103 01040103030401030104010302040103c604000501000102010101000102 010100001404050302040203000401030204020300040103020401030204 010302040103020400030104050302040203000400030004010302040103 01040103020401030204010304040103bf04000501000102010101000102 010100001504010301040103010401030004010303040103000401030204 030300040303020403030304010301040103020402030004030302040303 020403030104020303040103bf0400050100010201010100010201010000 1d04010306040103fe040404000501000102010101000102010100001d04 010306040103fe040404000501000102010101000102010100001d040103 06040103fe040404000501000102010101000102010100001c0403030404 0303fe0403040005010001020101000004010000fe042d04000501000301 040000010000fe042d040005040000010100010201010000fe042d040005 0100010201010100010201010000fe042d04000501000102010101000102 01010000fe042d0400050100010201010100010201010000fe042d040005 0100010201010100010201010000fe042d04000501000102010101000102 01010000fe042d0400050100010201010100010201010000fe042d040005 0100010201010100010201010000fe042d04000501000102010101000102 01010000fe042d0400050100010201010100010201010000fe042d040005 0100010201010100010201010000fe042d04000501000102010101000102 01010000fe042d0400050100010201010100010201010000fe042d040005 0100010201010100010201010000fe042d04000501000102010101000102 01010000fe052e05010001020101010001020101fe042f04010001020101 010001020101fe00310001020101010001020001fe003200010201010100 130200010000fe020b0200010000130201010100130200010000fe020b02 0001000013020101010014010000fe010c01000015010000fe013a01 % % Run-length encoding savings = 78.9% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%Page: 18 18 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 566 1394 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 35) 321 SB gr 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 566 493 360 (mkDialog) 360 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 1 SJ 926 488 236 (, cont'd) 236 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 566 643 1050 (proc mkdialog {w title text bitmap args} {) 1050 SB gr gs 1500 1125 463 400 CB 566 688 175 ( ...) 175 SB gr gs 1500 1125 463 400 CB 566 734 600 ( if {$bitmap != ""} {) 600 SB gr gs 1500 1125 463 400 CB 566 779 975 ( label $w.bitmap -bitmap $bitmap) 975 SB gr gs 1500 1125 463 400 CB 566 824 1150 ( pack $w.bitmap -in $w.top -side left \\) 1150 SB gr gs 1500 1125 463 400 CB 566 869 725 ( -padx 3m -pady 3m) 725 SB gr gs 1500 1125 463 400 CB 566 914 125 ( }) 125 SB gr gs 1500 1125 463 400 CB 566 959 175 ( ...) 175 SB gr gs 1500 1125 463 400 CB 566 1004 25 (}) 25 SB gr %MSEPS Preamble 0 0 347 140 0 0 347 140 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 347 def /pp_by2 140 def 0 lc 0 lj 0 1 SP gs 543 220 941 1088 CB 542 219 941 1088 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkDlg2 %%Pages: 1 %%BoundingBox: 0 0 347 140 %%CreationDate: Thu Dec 1 15:58:03 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 347 140 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 347 140 8 [347 0 0 -140 0 140] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe0071000001fe002c000001150000010100130200010000fe022b020001 0000130201010100130200010000fe022b02000100001302010101000102 12010000fe012c010000110101020101010001020001fe00520001020101 01000102000100000f0200010000fe021902000100000f02000100000f02 000100000102010101000102000100000f0200010000fe02190200010000 0f02000100000f02000100000102010101000102000100000f0200010000 fe021902000100000f02000100000f020001000001020101010001020001 00000f020001000067020703000201030c020103040201030b0201030002 0103020204030b0201036802000100000f02000100000202090002020001 00000102010101000102000100000f020001000067020103060201030c02 0103040201030b020103040201030f0201036802000100000f0200010000 02020000070200010202000100000102010101000102000100000f020001 000067020103030201030002010301020303060202030202020301020303 020201030002010300020103000203030002010301020303020201030002 01036802000100000f020001000002020000070200010202000100000102 010101000102000100000202090002020001000067020103030201030002 010300020103010201030502020302020203000201030102010300020103 000202030002010301020103010201030002010301020103000201030002 020368020001000005020300050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100006702 040300020103000201030002010301020103050203030002030300020103 010201030002010301020103000201030102010301020103000201030102 010300020103010201036802000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100006702010303020103000201030002050305020103 000200030002000300020103000201030102010300020103010201030002 010301020103010201030002050300020103010201036802000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000067020103030201030002 010300020103090201030002020300020103000201030102010300020103 010201030002010301020103010201030002010304020103010201036802 000100000502000002010502000100000202000007020001020200010000 0102010101000102000100000f0200010000670201030302010300020103 000201030102010305020103010200030102010300020103010201030002 010300020203000201030102010301020103000201030102010300020103 000202036802000100000f02000100000202000007020001020200010000 0102010101000102000100000f0200010000670201030302010300020103 010203030602010301020003010201030102030302020103000201030002 010301020103010201030102030302020103000201036802000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000fe021902000100000f020001000002020000080102020001 00000102010101000102000100000f0200010000fe021902000100000f02 000100000f02000100000102010101000102000100000f0200010000fe02 1902000100000f02000100000f0200010000010201010100010200010000 10010000fe011a0100001001000010010000010201010000fe0155010000 030104000001fe00540000010100010201010000fe044d04000501000102 01010100010201010000fe044d0400050100010201010100010201010000 fe044d0400050100010201010100010201010000fe044d04000501000102 01010100010201010000fe044d0400050100010201010100010201010000 fe044d0400050100010201010100010201010000fe044d04000501000102 01010100010201010000fe044d0400050100010201010100010201010000 fe044d0400050100010201010100010201010000fe044d04000501000102 01010100010201010000fe044d0400050100010201010100010201010000 fe044d0400050100010201010100010201010000fe044d04000501000102 01010100010201010000fe044d0400050100010201010100010201010000 fe044d0400050100010201010100010201010000fe044d04000501000102 01010100010201010000fe044d0400050100010201010100010201010000 fe044d040005010001020101010001020101000034040803010401030104 02030e040103010401030e04020305040203070401030104010304040203 190402033f0402030204010304040203000401030d0402030c0401032f04 000501000102010101000102010100003504010303040103010401030204 01030e040103010401030f04010306040103070401030104010305040103 1a04010340040103020401030304010300040003000401030e0401030c04 01032f040005010001020101010001020101000035040103040400030604 01030e04010301040103020400030b040103060401030704010301040103 050401031a0401034004010308040003140401033e040005010001020101 0100010201010000350401030c0401030e04000302040003020401030b04 0103060401030704000302040003060401031a0401034004010307040103 140401033e04000501000102010101000102010100003504010306040203 02040103030403030d040403020403030204010306040103010401030f04 010301040103040403030304010300040003050401030004020303040303 030403030104020301040103060402030104010302040103040403030404 040301040203010404030004020303040303030404030604010300040003 000402030104020301040103040403030304030315040005010001020101 010001020101000035040103030400030204010302040103020401030104 01030d04010303040103010401030104010306040103000403030e040103 000403030204010301040103010401030004010305040203000402030104 010301040103010401030104010301040103000403030604010300040303 000403030204010301040103020401030104010302040103020401030304 010302040103010401030104010301040103050401030004010301040103 020401030004030302040103010401030104010301040103140400050100 010201010100010201010000350406030204010302040103010401030304 01030c04010302040103020401030104010306040203010401030e040203 010401030204010301040103010401030104000305040103020401030004 010303040303030401030004020301040103060402030104020301040103 010401030304010300040103020401030204010302040103030401030104 010303040303020401030504010301040003010401030204020301040103 010401030204010300040103030401031304000501000102010101000102 0101000035040103030400030204010302040103010407030c0401030204 01030604010306040103020401030e040103020401030504020301040203 070401030204010300040f03000401030204010306040103020401030204 010301040103030401030004010302040103020401030204010303040103 010409030204010305040203030401030204010302040103010401030504 070313040005010001020101010001020101000035040103070401030204 01030104010312040103020401030604010306040103020401030e040103 020401030304010300040103020402030604010302040103000401030504 010306040103020401030604010302040103020401030104010303040103 000401030204010302040103020401030304010301040103050401030204 010306040203020401030204010302040103010401030504010319040005 010001020101010001020101000035040103070401030204010301040103 12040103020401030604010306040103020401030e040103020401030204 010301040103030402030504010302040103000401030504010306040103 020401030604010302040103020401030104010303040103000401030204 010302040103020401030304010301040103050401030204010307040203 010401030204010302040103010401030504010319040005010001020101 010001020101000035040103070401030204010301040203030400030c04 0103020401030604010306040103020401030e0401030204010302040103 010401030104000301040103050401030204010300040203030403030304 000300040103020401030604010302040103020401030104010303040103 000401030204010302040103020401030304010301040203030402030204 010305040003010401030104010302040103020401030104010305040203 030400031304000501000102010101000102010100003504010307040103 0204010302040203000401030d0402030004000300040103020400030104 01030204010301040103020401030e040103020401030204050301040103 000401030504020300040103020402030004010301040203000401030104 010302040103060401030204010302040103020401030104010302040103 010401030204010302040103030401030204020300040103010401030104 010305040103000401030104010302040103020401030204010302040003 010402030004010314040005010001020101010001020101000034040303 0504030300040303020403030f0402030204030301040303010401030004 0303010402030c0403030104020302040103010401030004000300040103 070403030404030303040303010403030104020304040303000403030004 030302040303040405030004030300040303010403030204030303040503 040400030004010301040303000403030104020302040303030403031504 00050100010201010100010201010000fe044d0400050100010201010100 010201010000fe044d0400050100010201010100010201010000fe044d04 00050100010201010100010201010000fe044d0400050100010201010100 010201010000fe044d0400050100010201010100010201010000fe044d04 000501000102010101000102010100003904020312040203210401031d04 01034e0402030e0407034c04000501000102010101000102010100003a04 010313040103210401031d0401034f0401030f040103020402034b040005 010001020101010001020101000035040003030401031304010312040003 08040003290400034a0401030f040103040401034a040005010001020101 010001020101000034040103030401031304010311040103070401032804 01034a0401030f040103040401034a040005010001020101010001020101 000033040403010401030104010304040303060401030304030303040103 000400030004040304040403000402030104020301040103020401030404 030305040203010404030304020301040203010402030104030303040103 000400030504010300040003020403030104030301040203020403030304 04030f040103050401030204030305040303010402030104030301040203 010402032304000501000102010101000102010100003404010303040103 000403030204010301040103050401030204010301040103010401030004 010301040103070401030304010302040103000403030004030302040103 010401030504010302040103060401030104010302040103010401030104 010301040103000401030404010300040103010401030104010301040103 02040103020401030104010301040103010401030f040103050401030104 010301040103050401030304000301040103010401030104010302040103 230400050100010201010100010201010000340401030304020301040103 010401030304010304040103020401030104010301040103010400030104 010307040103030401030204020301040203010401030104010303040103 040401030204010306040103020400030104010302040103010401030104 010301040003040401030104000301040103010401030104010302040003 0204010303040303020401030f0401030504010300040103030401030404 020301040103000401030304010300040103020401032304000501000102 010101000102010100000e04010323040103030401030204010301040703 040401030504020301040203030401030704010303040103020401030204 010302040103010407030404010302040103070401030004010301040103 050402030104020306040203060402030204010301040003020409030204 01030f040103050401030004010303040103050401030104000301040103 030401030004010302040103230400050100010201010100010201010000 0d04010300040003220401030304010302040103010401030a0401030304 010300040103020402030204010307040103030401030204010302040103 02040103010401030a040103020401030704010300040203000401030304 010300040103020402030604020303040103000401030204010300040103 0204010305040103020401030f0401030504010300040103030401030504 010300040103010401030304010300040103020401032304000501000102 010101000102010100000c04010300040003000400032104010303040103 02040103010401030a040103020401030104010303040203010401030704 010303040103020401030204010302040103010401030a04010302040103 080402030004000300040003030401030104010303040203060402030104 01030104010303040003000400030304010305040103020401030f040103 040401030104010303040103060402030204010303040103000401030204 01032304000501000102010101000102010100000c040003000400030004 000322040103030401030204010301040203030400030404010302040103 010401030104000301040103010401030704010303040103020401030204 010302040103010402030304000304040103020401030804020300040203 030401030104010301040003010401030404000301040103010401030104 0103030402030304020303040203020401030f0401030404010301040103 030401030604020302040103030401030004010302040103230400050100 0102010101000102010100000c0401030004000300040003210402030004 000300040103020401030204020300040103050401030204050301040103 000401030104020300040003040402030004000300040103020401030204 010302040103020402030004010305040103020402030004000306040003 020400030404050301040103000401030404010300040103010405030404 000305040203000401030104010301040103020401030a04010302040203 030401030104010308040103030401030104010301040203000402032304 000501000102010101000102010100000c04000300040003000400032304 020300040303010402030204030305040303020401030104010300040003 000401030304020306040203000403030004030300040303000403030204 030305040303020402030704000302040003050401030104010300040003 000401030504000300040103030401030104010303040003060403030304 050301040103090407030504030308040103050403030304020300040203 2204000501000102010101000102010100000c0401030004000300040003 fe04000401033704000501000102010101000102010100000d0401030004 0003fe04010400033804000501000102010101000102010100000d040003 00040003fe0403033804000501000102010101000102010100000d040103 00040003fd0402033904000501000102010101000102010100000d040003 00040003fe043c04000501000102010101000102010100000d0401030004 0003fe043b04000501000102010101000102010100000d04000300040003 830401030b040203100402032d040103080401031d040203360400050100 010201010100010201010000940401030c0401030f040103000400032d04 0103080401031e0401033604000501000102010101000102010100005404 0003080400033a040003070401030f040003360400031f04000303040103 3604000501000102010101000102010100000d0403034104010307040103 39040103070401030e040103350401031e04010303040103360400050100 0102010101000102010100000d0400030004000321040203010402030104 020301040303020402030104010302040403040404030204030307040103 000400030204030301040303010402030204030305040203010404030504 010300040203030403030104040302040303020402030004010302040303 070403030004020302040203000402030104040300040203010402030104 010304040403040404030104010301040103040403032904000501000102 010101000102010100000d04010300040003210401030104010302040103 010401030104010302040103000403030204010307040103030401030104 010305040103000401030104010301040103010401030204010302040103 010401030504010302040103070402030004020301040103010401030104 010303040103010401030204010300040103010401030104010305040103 010401030004010302040103020401030204010303040103020401030004 030301040103010401030604010303040103000403030204010301040103 2804000501000102010101000102010100000d0400030004000322040103 020400030104010302040103010401030204020301040103020401030704 010302040103030401030404010301040003010401030104010301040103 020400030204010303040103040401030204010307040103020401030004 010303040103000401030204010303040103010402030204010303040103 030401030304010300040103000401030304010302040103030401030204 020301040103010401030204000306040103030402030104010301040103 030401032704000501000102010101000102010100003404010300040103 010401030504020302040103020401030204010307040103020401030304 010304040203060402030204010301040003020407030404010302040103 070401030204010300040703000401030204010303040103010401030304 070303040703010402030404010302040103030401030204010302040103 010401030204000306040103030401030204010301040703270400050100 010201010100010201010000340401030004020300040103030401030004 010302040103020401030204010307040103020401030304010305040203 03040103000401030204010300040103020401030a040103020401030704 010302040103000401030604010302040103030401030104010303040103 090401030804010304040103020401030304010302040103020401030104 010301040103060401030304010302040103010401032d04000501000102 010101000102010100003504020300040003000400030304010301040103 020401030204010302040103070401030204010303040103060402030104 0103010401030304000300040003030401030a0401030204010307040103 020401030004010306040103020401030304010301040103030401030904 010307040203040401030204010303040103020401030204010302040303 070401030304010302040103010401032d04000501000102010101000102 010100003504020300040203030401030104010302040103020401030204 010307040103020401030304010304040003010401030104010301040103 030402030304020303040003040401030204010307040103020401030004 020303040003000401030204010303040103010401030304020303040003 030402030304000300040103000401030304010302040103030401030204 010302040103020400030a04010303040103020401030104020303040003 270400050100010201010100010201010000360400030204000304040503 020401030204010302040203000400030404020300040003000401030104 010305040103000401030104050304040003050402030004010305040103 020402030004000304040203000401030204020300040103010401030304 010301040103020401030404020300040103050402030004010300040103 020401030204010302040203000400030004010302040103020401030204 040306040203000400030004010302040103020402030004010328040005 010001020101010001020101000036040003020400030504010301040103 000403030104020302040203060402030204030306040003000401030304 010301040103030400030604030305040303020402030604030304040303 010403030304030302040303040403030704030300040203020402030004 030302040203000403030004030301040203010406030504020300040303 0104020302040303290400050100010201010100010201010000fe040104 000304040103430400050100010201010100010201010000fe0401040103 04040003430400050100010201010100010201010000fe04010402030204 0003440400050100010201010100010201010000fe040204040345040005 0100010201010100010201010000fe044d04000501000102010101000102 01010000fe044d04000501000102010101000102010100004e0402030204 01031904010316040303be04000501000102010101000102010100004f04 010302040103190401031504000302040103bd0400050100010201010100 0102010100004f040103190400031b04010302040003bd04000501000102 010101000102010100004f040103180401031b04010301040103bd040005 010001020101010001020101000035040303020402030004020301040203 000402030204010301040203030403030304030302040403000402030304 0303020402030104010307040103bd040005010001020101010001020101 000034040103010401030204020300040203010402030004020301040103 020401030204010301040103010401030104010302040103030401030204 010301040103020401030004030305040103be0400050100010201010100 010201010000340401030104010302040103020401030104010302040103 010401030204010301040103020401030104010301040103020401030304 01030104010303040103010402030104010305040103be04000501000102 010101000102010100003704020302040103020401030104010302040103 010401030204010301040103090402030204010303040103010401030304 0103010401030204010304040103bf040005010001020101010001020101 000035040103000401030204010302040103010401030204010301040103 020401030104010307040103000401030204010303040103010401030304 0103010401030204010304040003c0040005010001020101010001020101 000034040103010401030204010302040103010401030204010301040103 020401030104010306040103010401030204010303040103010401030304 0103010401030204010304040003c0040005010001020101010001020101 000034040103010401030204010302040103010401030204010301040103 020401030104010306040103010401030204010303040103010401030304 01030104010302040103c604000501000102010101000102010100003404 050302040203000401030204020300040103020401030204010302040103 020400030104050302040203000400030004010302040103010401030204 01030204010304040103bf04000501000102010101000102010100003504 010301040103010401030004010303040103000401030204030300040303 020403030304010301040103020402030004030302040303020403030104 020303040103bf04000501000102010101000102010100003d0401030604 0103fe040404000501000102010101000102010100003d04010306040103 fe040404000501000102010101000102010100003d04010306040103fe04 0404000501000102010101000102010100003c04030304040303fe040304 0005010001020101000004010000fe044d04000501000301040000010000 fe044d040005040000010100010201010000fe044d040005010001020101 0100010201010000fe044d0400050100010201010100010201010000fe04 4d0400050100010201010100010201010000fe044d040005010001020101 0100010201010000fe044d0400050100010201010100010201010000fe04 4d0400050100010201010100010201010000fe044d040005010001020101 0100010201010000fe044d0400050100010201010100010201010000fe04 4d0400050100010201010100010201010000fe044d040005010001020101 0100010201010000fe044d0400050100010201010100010201010000fe04 4d0400050100010201010100010201010000fe044d040005010001020101 0100010201010000fe044d0400050100010201010100010201010000fe05 4e05010001020101010001020101fe044f04010001020101010001020101 fe00510001020101010001020001fe005200010201010100130200010000 fe022b0200010000130201010100130200010000fe022b02000100001302 0101010014010000fe012c01000015010000fe015a01 % % Run-length encoding savings = 80.5% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 1 lc 1 lj 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 566 2699 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 36) 321 SB gr 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 566 1798 360 (mkDialog) 360 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 1 SJ 926 1793 236 (, cont'd) 236 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 566 1948 1050 (proc mkDialog {w title text bitmap args} {) 1050 SB gr gs 1500 1125 463 1705 CB 566 1993 175 ( ...) 175 SB gr gs 1500 1125 463 1705 CB 566 2039 275 ( set i 0) 275 SB gr gs 1500 1125 463 1705 CB 566 2084 575 ( foreach but $args {) 575 SB gr gs 1500 1125 463 1705 CB 566 2129 975 ( button $w.button$i -text $but \\) 975 SB gr gs 1500 1125 463 1705 CB 566 2174 900 ( -command "set button $i") 900 SB gr gs 1500 1125 463 1705 CB 566 2219 1200 ( pack $w.button$i -in $w.bot -side left \\) 1200 SB gr gs 1500 1125 463 1705 CB 566 2264 975 ( -expand 1 -padx 3m -pady 2m) 975 SB gr gs 1500 1125 463 1705 CB 566 2309 350 ( incr i) 350 SB gr gs 1500 1125 463 1705 CB 566 2354 125 ( }) 125 SB gr gs 1500 1125 463 1705 CB 566 2399 175 ( ...) 175 SB gr gs 1500 1125 463 1705 CB 566 2444 25 (}) 25 SB gr %MSEPS Preamble 0 0 428 187 0 0 428 187 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 428 def /pp_by2 187 def 0 lc 0 lj 0 1 SP gs 669 293 915 2382 CB 668 292 915 2382 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkDlg3 %%Pages: 1 %%BoundingBox: 0 0 428 187 %%CreationDate: Thu Dec 1 15:58:04 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 428 187 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 428 187 8 [428 0 0 -187 0 187] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe00c2000001fe007d000001150000010100130200010000fe027c020001 0000130201010100130200010000fe027c02000100001302010101000102 12010000fe017d010000110101020101010001020001fe00a30001020101 01000102000100000f0200010000fe026a02000100000f02000100000f02 000100000102010101000102000100000f0200010000fe026a0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 fe026a02000100000f02000100000f020001000001020101010001020001 00000f020001000090020703000201030c020103040201030b0201030002 0103020204030b0201039002000100000f02000100000202090002020001 00000102010101000102000100000f020001000090020103060201030c02 0103040201030b020103040201030f0201039002000100000f0200010000 02020000070200010202000100000102010101000102000100000f020001 000090020103030201030002010301020303060202030202020301020303 020201030002010300020103000203030002010301020303020201030002 01039002000100000f020001000002020000070200010202000100000102 010101000102000100000202090002020001000090020103030201030002 010300020103010201030502020302020203000201030102010300020103 000202030002010301020103010201030002010301020103000201030002 020390020001000005020300050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100009002 040300020103000201030002010301020103050203030002030300020103 010201030002010301020103000201030102010301020103000201030102 010300020103010201039002000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100009002010303020103000201030002050305020103 000200030002000300020103000201030102010300020103010201030002 010301020103010201030002050300020103010201039002000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000090020103030201030002 010300020103090201030002020300020103000201030102010300020103 010201030002010301020103010201030002010304020103010201039002 000100000502000002010502000100000202000007020001020200010000 0102010101000102000100000f0200010000900201030302010300020103 000201030102010305020103010200030102010300020103010201030002 010300020203000201030102010301020103000201030102010300020103 000202039002000100000f02000100000202000007020001020200010000 0102010101000102000100000f0200010000900201030302010300020103 010203030602010301020003010201030102030302020103000201030002 010301020103010201030102030302020103000201039002000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000fe026a02000100000f020001000002020000080102020001 00000102010101000102000100000f0200010000fe026a02000100000f02 000100000f02000100000102010101000102000100000f0200010000fe02 6a02000100000f02000100000f0200010000010201010100010200010000 10010000fe016b0100001001000010010000010201010000fe01a6010000 030104000001fe00a50000010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e04000501000102010101000102010100005c040803010401030104 02030e040103010401030e04020305040203070401030104010304040203 190402033f0402030204010304040203000401030d0402030c0401035804 000501000102010101000102010100005d04010303040103010401030204 01030e040103010401030f04010306040103070401030104010305040103 1a04010340040103020401030304010300040003000401030e0401030c04 01035804000501000102010101000102010100005d040103040400030604 01030e04010301040103020400030b040103060401030704010301040103 050401031a04010340040103080400031404010367040005010001020101 01000102010100005d0401030c0401030e04000302040003020401030b04 0103060401030704000302040003060401031a0401034004010307040103 140401036704000501000102010101000102010100005d04010306040203 02040103030403030d040403020403030204010306040103010401030f04 010301040103040403030304010300040003050401030004020303040303 030403030104020301040103060402030104010302040103040403030404 040301040203010404030004020303040303030404030604010300040003 00040203010402030104010304040303030403033e040005010001020101 01000102010100005d040103030400030204010302040103020401030104 01030d04010303040103010401030104010306040103000403030e040103 000403030204010301040103010401030004010305040203000402030104 010301040103010401030104010301040103000403030604010300040303 000403030204010301040103020401030104010302040103020401030304 010302040103010401030104010301040103050401030004010301040103 0204010300040303020401030104010301040103010401033d0400050100 0102010101000102010100005d0406030204010302040103010401030304 01030c04010302040103020401030104010306040203010401030e040203 010401030204010301040103010401030104000305040103020401030004 010303040303030401030004020301040103060402030104020301040103 010401030304010300040103020401030204010302040103030401030104 010303040303020401030504010301040003010401030204020301040103 010401030204010300040103030401033c04000501000102010101000102 010100005d040103030400030204010302040103010407030c0401030204 01030604010306040103020401030e040103020401030504020301040203 070401030204010300040f03000401030204010306040103020401030204 010301040103030401030004010302040103020401030204010303040103 010409030204010305040203030401030204010302040103010401030504 07033c04000501000102010101000102010100005d040103070401030204 01030104010312040103020401030604010306040103020401030e040103 020401030304010300040103020402030604010302040103000401030504 010306040103020401030604010302040103020401030104010303040103 000401030204010302040103020401030304010301040103050401030204 010306040203020401030204010302040103010401030504010342040005 01000102010101000102010100005d040103070401030204010301040103 12040103020401030604010306040103020401030e040103020401030204 010301040103030402030504010302040103000401030504010306040103 020401030604010302040103020401030104010303040103000401030204 010302040103020401030304010301040103050401030204010307040203 010401030204010302040103010401030504010342040005010001020101 01000102010100005d040103070401030204010301040203030400030c04 0103020401030604010306040103020401030e0401030204010302040103 010401030104000301040103050401030204010300040203030403030304 000300040103020401030604010302040103020401030104010303040103 000401030204010302040103020401030304010301040203030402030204 010305040003010401030104010302040103020401030104010305040203 030400033c04000501000102010101000102010100005d04010307040103 0204010302040203000401030d0402030004000300040103020400030104 01030204010301040103020401030e040103020401030204050301040103 000401030504020300040103020402030004010301040203000401030104 010302040103060401030204010302040103020401030104010302040103 010401030204010302040103030401030204020300040103010401030104 010305040103000401030104010302040103020401030204010302040003 01040203000401033d04000501000102010101000102010100005c040303 0504030300040303020403030f0402030204030301040303010401030004 0303010402030c0403030104020302040103010401030004000300040103 070403030404030303040303010403030104020304040303000403030004 030302040303040405030004030300040303010403030204030303040503 040400030004010301040303000403030104020302040303030403033e04 00050100010201010100010201010000fe049e0400050100010201010100 010201010000fe049e0400050100010201010100010201010000fe049e04 00050100010201010100010201010000fe049e0400050100010201010100 010201010000fe049e0400050100010201010100010201010000fe049e04 000501000102010101000102010100006104020312040203210401031d04 01034e0402030e0407037504000501000102010101000102010100006204 010313040103210401031d0401034f0401030f0401030204020374040005 01000102010101000102010100005d040003030401031304010312040003 08040003290400034a0401030f0401030404010373040005010001020101 01000102010100005c040103030401031304010311040103070401032804 01034a0401030f0401030404010373040005010001020101010001020101 00005b040403010401030104010304040303060401030304030303040103 000400030004040304040403000402030104020301040103020401030404 030305040203010404030304020301040203010402030104030303040103 000400030504010300040003020403030104030301040203020403030304 04030f040103050401030204030305040303010402030104030301040203 010402034c04000501000102010101000102010100005c04010303040103 000403030204010301040103050401030204010301040103010401030004 010301040103070401030304010302040103000403030004030302040103 010401030504010302040103060401030104010302040103010401030104 010301040103000401030404010300040103010401030104010301040103 02040103020401030104010301040103010401030f040103050401030104 010301040103050401030304000301040103010401030104010302040103 4c04000501000102010101000102010100005c0401030304020301040103 010401030304010304040103020401030104010301040103010400030104 010307040103030401030204020301040203010401030104010303040103 040401030204010306040103020400030104010302040103010401030104 010301040003040401030104000301040103010401030104010302040003 0204010303040303020401030f0401030504010300040103030401030404 020301040103000401030304010300040103020401034c04000501000102 010101000102010100000e0401034b040103030401030204010301040703 040401030504020301040203030401030704010303040103020401030204 010302040103010407030404010302040103070401030004010301040103 050402030104020306040203060402030204010301040003020409030204 01030f040103050401030004010303040103050401030104000301040103 0304010300040103020401034c0400050100010201010100010201010000 0d040103000400034a0401030304010302040103010401030a0401030304 010300040103020402030204010307040103030401030204010302040103 02040103010401030a040103020401030704010300040203000401030304 010300040103020402030604020303040103000401030204010300040103 0204010305040103020401030f0401030504010300040103030401030504 010300040103010401030304010300040103020401034c04000501000102 010101000102010100000c04010300040003000400034904010303040103 02040103010401030a040103020401030104010303040203010401030704 010303040103020401030204010302040103010401030a04010302040103 080402030004000300040003030401030104010303040203060402030104 01030104010303040003000400030304010305040103020401030f040103 040401030104010303040103060402030204010303040103000401030204 01034c04000501000102010101000102010100000c040003000400030004 00034a040103030401030204010301040203030400030404010302040103 010401030104000301040103010401030704010303040103020401030204 010302040103010402030304000304040103020401030804020300040203 030401030104010301040003010401030404000301040103010401030104 0103030402030304020303040203020401030f0401030404010301040103 0304010306040203020401030304010300040103020401034c0400050100 0102010101000102010100000c0401030004000300040003490402030004 000300040103020401030204020300040103050401030204050301040103 000401030104020300040003040402030004000300040103020401030204 010302040103020402030004010305040103020402030004000306040003 020400030404050301040103000401030404010300040103010405030404 000305040203000401030104010301040103020401030a04010302040203 030401030104010308040103030401030104010301040203000402034c04 000501000102010101000102010100000c04000300040003000400034b04 020300040303010402030204030305040303020401030104010300040003 000401030304020306040203000403030004030300040303000403030204 030305040303020402030704000302040003050401030104010300040003 000401030504000300040103030401030104010303040003060403030304 050301040103090407030504030308040103050403030304020300040203 4b04000501000102010101000102010100000c0401030004000300040003 fe04280401036004000501000102010101000102010100000d0401030004 0003fe04290400036104000501000102010101000102010100000d040003 00040003fe04270403036104000501000102010101000102010100000d04 010300040003fe0426040203620400050100010201010100010201010000 0d04000300040003fe048d04000501000102010101000102010100000d04 010300040003fe048c04000501000102010101000102010100000d040003 00040003ab0401030b040203100402032d040103080401031d0402035f04 00050100010201010100010201010000bc0401030c0401030f0401030004 00032d040103080401031e0401035f040005010001020101010001020101 00007c040003080400033a040003070401030f040003360400031f040003 030401035f04000501000102010101000102010100000d04030369040103 0704010339040103070401030e040103350401031e040103030401035f04 000501000102010101000102010100000d04000300040003490402030104 020301040203010403030204020301040103020404030404040302040303 070401030004000302040303010403030104020302040303050402030104 040305040103000402030304030301040403020403030204020300040103 020403030704030300040203020402030004020301040403000402030104 020301040103040404030404040301040103010401030404030352040005 01000102010101000102010100000d040103000400034904010301040103 020401030104010301040103020401030004030302040103070401030304 010301040103050401030004010301040103010401030104010302040103 020401030104010305040103020401030704020300040203010401030104 010301040103030401030104010302040103000401030104010301040103 050401030104010300040103020401030204010302040103030401030204 010300040303010401030104010306040103030401030004030302040103 010401035104000501000102010101000102010100000d04000300040003 4a0401030204000301040103020401030104010302040203010401030204 010307040103020401030304010304040103010400030104010301040103 010401030204000302040103030401030404010302040103070401030204 010300040103030401030004010302040103030401030104020302040103 030401030304010303040103000401030004010303040103020401030304 010302040203010401030104010302040003060401030304020301040103 01040103030401035004000501000102010101000102010100005c040103 000401030104010305040203020401030204010302040103070401030204 010303040103040402030604020302040103010400030204070304040103 020401030704010302040103000407030004010302040103030401030104 010303040703030407030104020304040103020401030304010302040103 020401030104010302040003060401030304010302040103010407035004 000501000102010101000102010100005c04010300040203000401030304 010300040103020401030204010302040103070401030204010303040103 0504020303040103000401030204010300040103020401030a0401030204 010307040103020401030004010306040103020401030304010301040103 030401030904010308040103040401030204010303040103020401030204 010301040103010401030604010303040103020401030104010356040005 01000102010101000102010100005d040203000400030004000303040103 010401030204010302040103020401030704010302040103030401030604 020301040103010401030304000300040003030401030a04010302040103 070401030204010300040103060401030204010303040103010401030304 010309040103070402030404010302040103030401030204010302040103 020403030704010303040103020401030104010356040005010001020101 01000102010100005d040203000402030304010301040103020401030204 010302040103070401030204010303040103040400030104010301040103 010401030304020303040203030400030404010302040103070401030204 010300040203030400030004010302040103030401030104010303040203 030400030304020303040003000401030004010303040103020401030304 01030204010302040103020400030a040103030401030204010301040203 030400035004000501000102010101000102010100005e04000302040003 040405030204010302040103020402030004000304040203000400030004 010301040103050401030004010301040503040400030504020300040103 050401030204020300040003040402030004010302040203000401030104 010303040103010401030204010304040203000401030504020300040103 000401030204010302040103020402030004000300040103020401030204 010302040403060402030004000300040103020401030204020300040103 5104000501000102010101000102010100005e0400030204000305040103 010401030004030301040203020402030604020302040303060400030004 010303040103010401030304000306040303050403030204020306040303 040403030104030303040303020403030404030307040303000402030204 020300040303020402030004030300040303010402030104060305040203 000403030104020302040303520400050100010201010100010201010000 fe0429040003040401036c0400050100010201010100010201010000fe04 29040103040400036c0400050100010201010100010201010000fe042904 0203020400036d0400050100010201010100010201010000fe042a040403 6e0400050100010201010100010201010000fe049e040005010001020101 0100010201010000fe049e04000501000102010101000102010100007604 0203020401031904010316040303e7040005010001020101010001020101 00007704010302040103190401031504000302040103e604000501000102 0101010001020101000077040103190400031b04010302040003e6040005 010001020101010001020101000077040103180401031b04010301040103 e604000501000102010101000102010100005d0403030204020300040203 010402030004020302040103010402030304030303040303020404030004 020303040303020402030104010307040103e60400050100010201010100 0102010100005c0401030104010302040203000402030104020300040203 010401030204010302040103010401030104010301040103020401030304 01030204010301040103020401030004030305040103e704000501000102 010101000102010100005c04010301040103020401030204010301040103 020401030104010302040103010401030204010301040103010401030204 0103030401030104010303040103010402030104010305040103e7040005 01000102010101000102010100005f040203020401030204010301040103 020401030104010302040103010401030904020302040103030401030104 010303040103010401030204010304040103e80400050100010201010100 0102010100005d0401030004010302040103020401030104010302040103 010401030204010301040103070401030004010302040103030401030104 010303040103010401030204010304040003e90400050100010201010100 0102010100005c0401030104010302040103020401030104010302040103 010401030204010301040103060401030104010302040103030401030104 010303040103010401030204010304040003e90400050100010201010100 0102010100005c0401030104010302040103020401030104010302040103 010401030204010301040103060401030104010302040103030401030104 0103030401030104010302040103ef040005010001020101010001020101 00005c040503020402030004010302040203000401030204010302040103 020401030204000301040503020402030004000300040103020401030104 0103020401030204010304040103e8040005010001020101010001020101 00005d040103010401030104010300040103030401030004010302040303 000403030204030303040103010401030204020300040303020403030204 03030104020303040103e804000501000102010101000102010100006504 010306040103fe042d040005010001020101010001020101000065040103 06040103fe042d0400050100010201010100010201010000650401030604 0103fe042d04000501000102010101000102010100006404030304040303 fe042c0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe059f05010001020101010001020101fe00a200 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 0102010101000102010100000c04520019047e0019047d000c0400050100 0102010101000102010100000c045100000519047d00000519047c000005 0c04000501000102010101000102010100000c0401004e04010519040100 7a04010519040100790401050c0400050100010201010100010201010000 0c0401004e040105190401007a04010519040100790401050c0400050100 0102010101000102010100000c0401004e040105190401007a0401051904 0100790401050c04000501000102010101000102010100000c0401004e04 0105190401007a04010519040100790401050c0400050100010201010100 0102010100000c0401004e040105190401007a0401051904010079040105 0c04000501000102010101000102010100000c0401004e04010519040100 7a04010519040100790401050c0400050100010201010100010201010000 0c0401000c0404031c0407030004010314040105190401000b0404030204 01031e040103070403030004010334040105190401000b04050309040103 180407030b0405030404010300040103010401031a0401050c0400050100 0102010101000102010100000c0401000b040103020401031b0401030604 010314040105190401000b04010301040103220401030604010301040303 34040105190401000b04010302040103080401031b0401030e0401030804 0103040401031a0401050c04000501000102010101000102010100000c04 01000b040103020401030104030301040103020401030104030306040103 0304010300040103010403030e040105190401000b040103020401030004 010301040303020403030204030301040103000401030004010300040103 050401030404010300040103020403030104010300040103020401030004 010301040303020403030e040105190401000b0401030204010301040303 010403030004010301040103000401030004030300040103080401030304 030306040103050401030004010300040103000403030104030301040103 000401030c0401050c04000501000102010101000102010100000c040100 0c0402030304010301040103000401030204010300040103010401030504 0103030401030004010300040103010401030d040105190401000b040103 020401030004010300040103010401030004010301040103000401030104 010300040603000402030504010304040203000401030004010301040103 000402030004010300040103000402030004010301040103000401030104 01030d040105190401000b04010302040103000401030104010301040103 010401030104010300040703000401030704010302040103010401030504 010304040103000402030004010301040103010401030104010300040403 0c0401050c04000501000102010101000102010100000c0401000e040203 050401030104010300040103010401030104010305040403000401030004 010300040103010401030d040105190401000b0401030204010300040103 000402030304010308040103000402030104010301040103050401030404 010301040103040401030004010301040103000401030104010300040103 010401030004020310040105190401000b04050301040103010401030104 010301040103010401030004020301040103010401030704010302040103 010401030504050300040103010401030004010301040103010401030104 0103000402030e0401050c04000501000102010101000102010100000c04 01000f040203010404030104010300040103010405030504010303040103 00040103000405030d040105190401000b04010302040103000401030204 020301040103050404030004010302040103010401030504010304040103 010401030104040300040103010401030004010301040103000405030204 02030e040105190401000b04010301040103010405030104010301040103 010401030004010302040103010401030704010302040103010401030504 010304040103010401030004010301040103010401030104010300040103 0f0401050c04000501000102010101000102010100000c0401000b040103 020401030004010301040103020402030204010309040103030401030004 01030004010311040105190401000b040103020401030004010303040203 000401030404010301040103000401030204010301040103050401030404 010301040103000401030104010300040103010401030004010301040103 00040103070402030d040105190401000b04010302040103000401030504 010301040103010401030004010302040103010401030704010302040103 010401030504010304040103010401030004010301040103010401030104 0103000401030f0401050c04000501000102010101000102010100000c04 01000b040103020401030004010301040103020402030204010301040103 05040103030401030004010300040103010401030d040105190401000b04 010301040103010401030004010301040103000401030104010300040103 010401030004010302040103000402030604010301040303010401030004 010301040103000401030104010300040103000402030004010301040103 00040103010401030d040105190401000b04010302040103000401030104 010301040103000402030004020300040103020401030104010307040103 020401030104010305040103040401030004020300040103010401030004 020301040103000401030f0401050c040005010001020101010001020101 00000c0401000c0404030204020300040103020400030404030306040103 0304010300040103010403030e040105190401000b040403020401030104 030302040303020402030004030303040103000401030704030300040103 010401030104020300040303010401030104010300040103010403030204 03030e040105190401000b04010302040103010403030304010301040103 000401030004010302040103010401030704010303040303060405030104 010300040103000401030204010301040303010401030f0401050c040005 01000102010101000102010100000c0401004e040105190401005c040103 1b04010519040100790401050c0400050100010201010100010201010000 0c0401004e0401051904010058040103010401031b040105190401007904 01050c04000501000102010101000102010100000c0401004e0401051904 0100590403031c04010519040100790401050c0400050100010201010000 040100000c0401004e040105190401007a04010519040100790401050c04 0005010003010400000100000c0401004e040105190401007a0401051904 0100790401050c0400050400000101000102010100000c0401004e040105 190401007a04010519040100790401050c04000501000102010101000102 010100000c0401004e040105190401007a04010519040100790401050c04 000501000102010101000102010100000c0401004e040105190401007a04 010519040100790401050c04000501000102010101000102010100000c04 01004e040105190401007a04010519040100790401050c04000501000102 010101000102010100000c0401005005190401007c05190401007b050c04 000501000102010101000102010100000c0400005105190400007d051904 00007c050c0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe059f0501000102 0101010001020101fe00a20001020101010001020001fe00a30001020101 0100130200010000fe027c0200010000130201010100130200010000fe02 7c020001000013020101010014010000fe017d01000015010000fe01ab01 % % Run-length encoding savings = 84.3% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 19 19 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 566 1394 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 37) 321 SB gr 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 566 493 360 (mkDialog) 360 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 1 SJ 926 488 236 (, cont'd) 236 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 566 668 1050 (proc mkDialog {w title text bitmap args} {) 1050 SB gr gs 1500 1125 463 400 CB 566 713 425 ( global button) 425 SB gr gs 1500 1125 463 400 CB 566 759 175 ( ...) 175 SB gr gs 1500 1125 463 400 CB 566 804 275 ( grab $w) 275 SB gr gs 1500 1125 463 400 CB 566 849 600 ( set oldFocus [focus]) 600 SB gr gs 1500 1125 463 400 CB 566 894 300 ( focus $w) 300 SB gr gs 1500 1125 463 400 CB 566 939 650 ( tkwait variable button) 650 SB gr gs 1500 1125 463 400 CB 566 984 350 ( destroy $w) 350 SB gr gs 1500 1125 463 400 CB 566 1029 475 ( focus $oldFocus) 475 SB gr gs 1500 1125 463 400 CB 566 1074 450 ( return $button) 450 SB gr gs 1500 1125 463 400 CB 566 1119 25 (}) 25 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 566 2699 433 (Tcl/Tk Tutorial Part III: Tk Scripting) 433 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 38) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 566 1793 311 (Summary) 311 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1965 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 5 SJ 622 1949 755 (Creating interfaces with Tk is easy:) 755 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2009 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 688 2009 311 (Create widgets.) 311 SB gr gs 1500 1125 463 1705 CB 641 2069 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 7 3 SJ 688 2069 676 (Arrange with geometry managers.) 676 SB gr gs 1500 1125 463 1705 CB 641 2129 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 1 4 SJ 688 2129 696 (Connect to application, each other.) 696 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2252 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 5 4 SJ 622 2236 806 (Power from single scripting language:) 806 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2297 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 11 3 SJ 688 2297 575 (For specifying user interface.) 575 SB gr gs 1500 1125 463 1705 CB 641 2357 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 5 4 SJ 688 2357 680 (For widgets to invoke application.) 680 SB gr gs 1500 1125 463 1705 CB 641 2417 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 3 6 SJ 688 2417 901 (For widgets to communicate with each other.) 901 SB gr gs 1500 1125 463 1705 CB 641 2477 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 6 4 SJ 688 2477 773 (For communcating with outside world.) 773 SB gr gs 1500 1125 463 1705 CB 641 2537 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 22 3 SJ 688 2537 703 (For changing anything dynamically.) 703 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Trailer SVDoc restore end %%Pages: 19 % TrueType font name key: % MSTT31c1ce = 1b37DTimes New RomanF0000004b000002bc0000 % MSTT31c1db = 1b37DTimes New RomanF00000032000002bc0000 % MSTT31c1e8 = 1b37DTimes New RomanF00000026000002bc00ff % MSTT31c1f5 = 1b37DTimes New RomanF0000001d0000019000ff % MSTT31c202 = 1b37DMonotype SortsF00000026000001900000 % MSTT31c20f = 1b37DTimes New RomanF00000032000001900000 % MSTT31c21c = 1b37DTimes New RomanF0000002a000001900000 % MSTT31c229 = 1b37DTimes New RomanF0000002e000002bc0000 % MSTT31c236 = 1b37DMonotype SortsF00000023000001900000 % MSTT31c243 = 1b37DMonotype SortsF00000032000001900000 % MSTT31c250 = 1b37DTimes New RomanF00000021000001900000 %%DocumentSuppliedResources: procset Win35Dict 3 1 %%DocumentNeededResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-BoldItalic %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%EOF 20101010tut/tk.ppt010077500630510000012000020720000573603522400135660ustar00ousterstaff00002300000036ÐÏࡱá;þÿ  1þÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿÿÿ7ýÿÿÿýÿÿÿýÿÿÿýÿÿÿýÿÿÿýÿÿÿýÿÿÿýÿÿÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€Root Entryÿÿÿÿÿÿÿÿ†7='Ëò¹2@ PP40 ÿÿÿÿÿÿÿÿ MSummaryInformation(ÿÿÿÿÿÿÿÿÿÿÿÿ¨ Current Userÿÿÿÿ'‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ      !"#$%&'()*+,-./0þÿÿÿþÿÿÿ34568þÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿíÞ­ ª‰Mf©€(xZ€€€€€€€€€ÀÀÀ€€€ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðððððððððððððððððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿðÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿññññÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñññÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñññÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿññÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿôÿDôÿDôDODOôÿDOÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿôÿOôÿOOOOOOôÿDÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿôÿDôÿôODODOôÿOOÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDDÿôÿÿÿÿÿÿODDOÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿôDÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿôDDDôôDODDOÿôODDôÿÿDDôDDÿODDODDÿÿÿÿODDOÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿôôODôôôOODôÿôôDDDOÿDôôôDOOôDÿDDÿôDOOOOOÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿôOODôôDODDDÿôôDDôôÿDDôDDôDDôODDÿôôOODDOÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿôOÿôôÿôOÿÿÿÿôôÿÿÿÿÿOÿÿÿÿÿDÿÿÿÿÿÿDDôOÿOÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿl€í"@€#€E#€E#T€E#&€™%"€¿%€á%@€ù%€9&€9&ö€9&&€/)"€U)€w)@€)€Ï)€Ï)š€Ï)&€i-"€-€±-€É-€É0€É0À€É0&€‰4"€¯4€Ñ4à€é4€É8€É8v€É8&€?@"€e@€‡@@€Ÿ@œ€ßC€{D€{D&€™H"€¿H€áH@€ùH€9I€9Ir€9I&€«M"€ÑM€óM € N€«O`€«OH€ P&€SV"€yV€›VÀ€³V€sW€sW¶€sW&€)Z"€OZ€qZ €‰Z€)[€)[ €)[&€5]"€[]€}]À€•]€U`€U`”€U`&€éd"€e€1eà€Ie€)f€)fò€)f&€i"€Ai€cià€{i€[j€[j€[j&€]m"€ƒm€¥mÀ€½m€}n€}n’€}n&€q"€5q€Wq €oq€r€rp€r&€t"€¥t€Çt€ßt€ßu€ßuœ€ßu&€{y"€¡y€Ãy €Ûy€{z€{z6€{z&€±|"€×|€ù|€€}€‘}€‘}}&€"€¥€Ç@€ß€‚€‚耂&€…"€-…€O…€g…€g†€g†j€g†&€Ñ‹"€÷‹€Œ€1Œ€1€1€1&€A’"€g’€‰’ €¡’€Á“8€Á“ê€ù“&€ã—"€ ˜€+˜@€C˜€ƒ˜€ƒ˜€ƒ˜&€œ"€9œ€[œ@€sœ€³œ€³œ €³œ&€¿ "€å €¡@€¡€_¡€_¡d€_¡&€Ã¤"€é¤€ ¥ €#¥€C§0€]§F€§&€Ó¬"€ù¬€­@€3­€s­€s­2€s­&€¥°"€Ë°€í°@€±€E±€E±€E±&€W´"€}´€Ÿ´`€·´€µ€µº€µ&€Ñ¶"€÷¶€·`€1·€‘·€‘·¬€‘·&€=º"€cº€…º`€º€ýº€ýºœ€ýº&€™½"€¿½€á½`€ù½€Y¾€Y¾Ê€Y¾&€#Á"€IÁ€kÁà€ƒÁ€cÀcØ€cÃ&€ûÇ"€!È€CÈ`€[È€»È€»ÈX€»È&€Ì"€9Ì€[Ì`€sÌ€ÓÌ€ÓÌú€ÓÌ&€ÍÎ"€ó΀Ï`€-ππÏF€Ï&€ÓÑ"€ùÑ€Ò@€3Ò€sÒ€sÒô€sÒ&€gÔ"€Ô€¯Ô@€ÇÔ€Õ€Õ’€Õ&€™Ø"€¿Øp€áØ€QÛ€gÛ €Û€Ü€ÜH€Ü&€gß@€ß€Í߀ÍßP€Íß&€á"€Cá€eá@€}ွွွá&€Ëá"€ñá€â€+â€+â€+â€+â&€9â"€_â@b@â<€ÁD€ýD€@E<€›T€×T @õT<€•c€Ñc @ïc<€~€Ë~ 1@é~<€ °€E°`@c°<€Ã¾€ÿ¾@b@¿<€]!€™!àD@·!<€—f€Óf@ñf<€ñu€-v@#@Kv<€‹™€Ç™À#@å™<€¥½€á½ $@ÿ½<€â€[â &@yâ<€™€Õ#@ó<€ó+€/,`&@M,<€­R€éR -@S<€§€€ã€$@<€¥€=¥ %@[¥<€ûÊ€7ËÀ&@UË<€ò€Qò -@oò<€ €K  -@i <€ N€ENàY@cN<€C¨€¨@b@¨<€Ý € €'@7 <€·2€ó2€'@3<€‘Z€ÍZ€'@ëZ<€k‚€§‚€'@Å‚<€Eª€ª/@Ÿª<€ŸÙ€ÛÙÀ?@ùÙ<€¹€õ*@<€D€OD€W@mD<€í›€)œ€q@Gœ<€Ç €àX@!<€g€=g€q@[g<€Û؀٠J@5Ù<€Õ#€$à@/$<€?€K?ü€i?€e@€u@€@€©@€Ã@&€Ý@€A"€!A€CA€]A€wA€‘A€!BR€±Bv€Cv€yC$€ïC€D"€%H"€GHð€iJ€YL’€mLÿÿÿÿ AGpöÀú þýÿ\E Aƒ÷ÿ0 pýÿ´E´r€ªöÝúV þÿÿÿÿTÿuÿÿK0d(Building User Interfaces With Tcl And Tk (($((ÿ•ÿÿd3d2€:÷-ÿöSÿÿ$ÿÿÿ•ÿÿddeJohn Ousterhout Sun Microsystems Laboratories john.ousterhout@eng.sun.com Tcl/Tk Tutorial, Part IIIt e.eTuK0dTuK0dTuK0dTuK0dTuK0dTuK0d”g,ÿÿÿÿ AKö¨÷Ð`úýÿü'. Aƒö û ýÿŒE”²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdOutline $ÿ•ÿÿdd2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿddüBasic structures: windows, widgets, processes. Creating widgets: class commands. Geometry management: the placer and the packer. Widget commands. Bindings. Other commands: send, focus, selection, window manager, grabs. Two examples: showVars, mkDialog. üéü/UuKd"UuKd20UuKd2UuKd2 UuKd2?UuKd2!UuKd2 1 Dg, §ÿÿÿÿ AKö¨÷Ð`úýÿ¬4 Aƒö û ýÿô4ª²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddStructure Of A Tk Application $ÿ•ÿÿdd2€Jö=ûÆãÿÿÿÿÿ–ÿÿdd%Widget hierarchy. One Tcl interpreter. One process (can have > 1 application in a process). Widget: a window with a particular look and feel. Widget classes implemented by Tk: Frame Menubutton Canvas Label Menu Scrollbar Button Message Scale Checkbutton Entry Listbox Radiobutton Text Toplevel %3'Mu% UuKdUuKd(5UuKd(2UuKd("UuKd(–ÿÿdd–ÿÿdd–ÿÿdd–ÿÿdd–ÿÿddœôg,©ÿÿÿÿ AKö¨÷Ð`úýÿ¬4’÷¸úÞû<ýÿeMûi#ýÿeñi›ýÿ‡—ü ¹ýÿÉþ—üC¹ýÿëÉ}ýÿ%ë }ýÿ HÀP @H P@@Hp°ûp H  þаþHÀ þ°þa ø€ûwýÿÇJa°õàÐùÇýÿ”'.a û  þ‡ýÿL '.a0úàPþÇýÿT W=a°ø ðú‡ýÿÜ'.aPõ °ø‡ýÿÇJHúÀ÷Hú@üHÐù€ üÐHÐù€ÐùÐHÐù€÷Ð..3€Zø­FûZÿÿÿÿÿ•ÿÿdd2. ÿ•ÿÿdd23€êõý–ùªÿÿÿÿÿ•ÿÿdd2 .menu.file    ÿ•ÿÿdd23€Zû½æýjÿÿÿÿÿ•ÿÿdd2.scroll ÿ•ÿÿdd23€júýþªÿÿÿÿÿ•ÿÿdd2 .menu.help    ÿ•ÿÿdd23€êø½¶újÿÿÿÿÿ•ÿÿdd2.menu ÿ•ÿÿdd23€Šõ½vøjÿÿÿÿÿ•ÿÿdd2.listbox ÿ•ÿÿdd2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddThe Widget Hierarchy $ÿ•ÿÿddÿÿ,¤'6«ÿÿÿÿ AKö¨÷Ð`úýÿL Ç qù¼úsýáÿýÿeuûxÏþýÿa`÷ð€û×ýÿ¬ Ç aÐüÐÿ÷ýÿ¬ Ç aàûð×ýÿ, Ç a`ú ü÷ýÿ Ç aÐö0ú÷ýÿ” Ç H°ûpù H°ûðý H€ûðPþ@H€ûð€û@H€ûð†ø@a ð ×ýÿÄ Ç a°`—ýÿü Ç aðð×ýÿ Ç a00÷ýÿTÇ H€ûð°@H°@ H°  H°°àa@ö ÿù4ýÿT Ç að ”ýÿ´Ç aÿpÿýÿ¬ Ç a`ú üçýÿ Ç H°ð@H ø`ðúHÀðÿH  àþðH€ °ðHàð€°èè3€š÷ Fûºÿÿÿÿÿ•ÿÿdd2 .menu.file    ÿ•ÿÿdd23€ ý-–ÿÚÿÿÿÿÿ•ÿÿdd2.scroll2 ÿ•ÿÿdd23€ü Æÿºÿÿÿÿÿ•ÿÿdd2 .menu.help    ÿ•ÿÿdd23€šú-füÚÿÿÿÿÿ•ÿÿdd2.menuP ÿ•ÿÿdd23€ ÷-öùÚÿÿÿÿÿ•ÿÿdd2.listbox ÿ•ÿÿdd23€Ú fºÿÿÿÿÿ•ÿÿdd2.dlg.no ÿ•ÿÿdd23€:Í&zÿÿÿÿÿ•ÿÿdd2.dlg.yes ÿ•ÿÿdd23€Ê ¶ºÿÿÿÿÿ•ÿÿdd2.dlg.msg ÿ•ÿÿdd23€j-öÚÿÿÿÿÿ•ÿÿdd2.dlg ÿ•ÿÿdd23€zö½ÿÖøÿÿÿÿÿ•ÿÿdd2 Main windowW    ÿ•ÿÿdZ23€*æ wÿÿÿÿÿ•ÿÿdZ2Top-level window ÿ•ÿÿdZ23€JÿÿVçÿÿÿÿÿ•ÿÿdZ2Internal windows ÿ•ÿÿdZ23€šúfüÊÿÿÿÿÿ•ÿÿdd2. ÿ•ÿÿdd2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddTypes Of Windows $ÿ•ÿÿdd ÿÿ,'6!)¬ÿÿÿÿ AKö¨÷Ð`úýÿÌ—F Aƒö û ýÿÜ—Fa÷ ðúšýÿ¿5aúð þêýÿ¼—Fa@ÿ @šýÿ\¿5H@ù @ù°Hüðü°H@ @°CàøP@ù° Cðú Pû€$¿5  C0÷ ÷€Œ¿5 C@ùP ù°  C°ûPü° C ü ý€¿5  C û €û€,¿5 CüPpü°  CàP@° CP °€¤—F  CÐü 0ý€ü¿5 C@P °  H÷PùPHpùPðúPH€ûPàûPH@üP üPHpPPPH0ýPPO:ZÑ@ û8O:Ô Ðð`€@ x÷8O:ZÑ@ ¸ü8O:Ô Ðð`€@ hû8O:ZÑ@ h8O:Ô Ðð`€@ ý8´B!W´3€Ê÷½¶ú}ÿÿÿÿÿ•ÿÿdd2 class name    ÿ•ÿÿdd23€:ú æýÍÿÿÿÿÿ•ÿÿdd2 window name    ÿ•ÿÿdd23€zÿ½}ÿÿÿÿÿ•ÿÿdd2configuration options ÿ•ÿÿdd2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddCreating Widgets $ÿ•ÿÿdd2€Jö=ûÆãÿÿÿÿÿ–ÿÿddºEach widget has a class: button, listbox, scrollbar, etc. One class command for each class, used to create instances: button .a.b -text Quit -command exit scrollbar .x -orient horizontal º' +Dº:UuKd<UuKdd%–ÿÿdd–ÿÿdd'$SPPG%&d'6#(­ÿÿÿÿ AKö¨÷Ð`úýÿÌ—F AƒöÀúP ýÿÄ—F¢!W²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddConfiguration Optionso $ÿ•ÿÿdd2€JöÝú ãÿÿÿÿUÿuÿÿKd(Defined by class. For buttons: -activebackground -cursor -image -textvariable -activeforeground -disabledforeground -justify -underline -anchor -font -padx -width -background -foreground -pady -wraplength -bitmap -height -relief -borderwidth -highlightcolor -state -command -highlightthickness -text If not specified in command, taken from option database: Loaded from RESOURCE_MANAGER property or .Xdefaults file. May be set, queried with option command. If not in option database, default provided by class.d  9    5 UuKd–ÿÿdd9UuKd(:–ÿÿdd)–ÿÿdd5UuKd(.+œ,-'6*/¯ÿÿÿÿ AKö¨÷Ð`úýÿô4 Aƒö ûpÿýÿ 4I`0  þÿŒ ÜEaÐÿ0ýPÄþýÿ,'.aPûpäüýÿì'.a`0ý€ Äþýÿ¼'.a ÿ€$ýÿŒ4a0° $ýÿ,'.H@Ðü@B]°þp04B°þ/0 4B/$ '.B[n„4°€þÐЀþÐpÿ°0÷€þPø0÷€þ0÷pÿPø0÷Pø€0÷€0÷Pø°Ð€Ð€Ð°²D!W²p€µhËØÿÿÿÿÿ•ÿÿddGeometry Manager  ÿ•ÿÿddÿ•ÿÿdd3€ Mý§þÿÿÿÿÿ•ÿÿdd2Requested size from slave ÿ•ÿÿdZ23€Jmû6Çüÿÿÿÿÿ•ÿÿdZ2$Parameters from application designer $$$$ÿ•ÿÿdZ23€šMýF §þÿÿÿÿÿ•ÿÿdZ2Geometry of master ÿ•ÿÿdZ23€Úÿ­Fÿÿÿÿÿ•ÿÿdZ2Size and location of slave ÿ•ÿÿdZ23€j­v ÿÿÿÿÿ•ÿÿdZ2Requested size for master ÿ•ÿÿdZ2²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdGeometry Management $ÿ•ÿÿdd2€Jö=û6ÿãÿÿ$ÿÿÿ•ÿÿdd íWidgets don't control their own positions and sizes: geometry managers do. Widgets don't even appear on the screen until managed by a geometry manager. Geometry manager = algorithm for arranging slave windows relative to a master window. í5| íKUuKdMUuKd<UUuKd<52 ûÿ34Ä'616±ÿÿÿÿ AKö¨÷Ð`úýÿì'. AƒöÀú ýÿÄ W=ýn Fýÿ Èn öýÿ apö°þ(ÿ—ÿýÿ/Xapö00ýÿ¤ ÇJ@È!W@3€ªöÍþîþzÿÿÿÿÿÿ•ÿÿdd2place .x -x 0 -y 0 ÿ•ÿÿdd23€ªöMöúÿÿÿÿÿ•ÿÿdd2$place .x -x 1.0c -rely 0.5 -anchor w $$$$ÿ•ÿÿdd2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿdd The Placer  $  ÿ•ÿÿdd 2€JöÝúÆãÿÿÿÿUÿuÿÿKdTSimple but not very powerful. Each slave placed individually relative to its master. TTTUuKd6UuKd<9¡:;t'68=³ÿÿÿÿ AKö¨÷Ð`úýÿì'.xÞ¦ýÿ 8ûÞfÿýÿ a öpüpþýÿÄ W=a ö°°DýÿÄÇJ|er|3€Úöü6çýÿÿÿÿÿ•ÿÿdd28place .x -relx 0.5 -rely 0.5 \ -height 2c -anchor center 8888ÿ•ÿÿdd23€ÚöÍv'ÿÿÿÿÿ•ÿÿdd29place .x -relheight 0.5 \ -relwidth 0.5 -relx 0 -rely 0.5 9999ÿ•ÿÿdd2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddThe Placer, cont'd $ÿ•ÿÿdd C@ÿÿ€AB$'6?Dµÿÿÿÿ AKö¨÷Ð`úýÿì '. Aƒö û ýÿEaöÓüÍýÿ'.aöæ°ûzýÿÌ4a`æ`zýÿÄEa`€$ýÿì4Ipÿ€þpÿýÿ Ià`p@ýÿ¼EIüpÿ  ýÿ$ '.IpüÀ°þ ýÿIðýP°þ 0* Àý °þ ýÿApü °þýÿIÀ`  ýÿ$ '.I  pýÿIÐ ` ýÿIü`pÿ ýÿ$ '.Ipü °þýÿ€er€3€JöðÖû°ÿÿÿÿÿ•ÿÿdd21. Pick side of cavity.ÿ ÿ•ÿÿdd23€Jövû]ÿÿÿÿÿ•ÿÿdd22. Slice off parcel for slave. ÿ•ÿÿdZ23€š&]ÿÿÿÿÿ•ÿÿdd24. Position slave in parcel. ÿ•ÿÿdZ23€š­Fÿÿÿÿÿ•ÿÿdd2(3. Optionally grow slave to fill parcel. ((((ÿ•ÿÿdZ2²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd The Packer  $  ÿ•ÿÿdd 2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿdd ™More powerful than the placer. Arranges groups of slaves together (packing list). Packs slaves around edges of master's cavity. For each slave, in order: ™C J™UuKd3UuKd.UuKdUuKdJG HI„'6FK¶ÿÿÿÿ AKö¨÷Ð`úýÿ|4aàõ€û@nþýÿ´4Eü•©ýýÿÓÿ 7ýÿ¥{‰ýÿaàõpùýÿì'.aàõ¤ ‹ýÿÜEZerZ3€öûQþÿÿÿÿÿ•ÿÿdd2ibutton .ok -text OK button .cancel -text Cancel button .help -text Help pack .ok .cancel .help -side left i_ iiÿ•ÿÿdd23€ö/6Üÿÿÿÿÿ•ÿÿdd2(.cancel configure -text "Cancel Command" ((((ÿ•ÿÿdd23€öÁfnÿÿÿÿÿ•ÿÿdd2 pack .ok .cancel .help -side top    ÿ•ÿÿdd2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿdd The Packer: Choosing Sides $ÿ•ÿÿdd QNÿÿsa for sOP4'6MR¸ÿÿÿÿ AKö¨÷Ð`úýÿÜEaPõíû°ýýÿ'.aPõ}ÿàýÿDEaPõp®ýÿÌ'.»íû- ýýÿ»}ÿ- ýÿ=« Æýÿperp3€Šõ üvdýÿÿÿÿÿ•ÿÿdd25pack .ok .cancel .help -side left \ -padx 2m -pady 1m 5$55ÿ•ÿÿdd23€Šõšÿ¦ôÿÿÿÿÿ•ÿÿdd27pack .ok .cancel .help -side left \ -ipadx 2m -ipady 1m 7$77ÿ•ÿÿdd23€Šõ76‘ÿÿÿÿÿ•ÿÿdd2Ipack .ok .cancel .help -side left \ -padx 2m -pady 1m -ipadx 2m -ipady 1m I$%IIÿ•ÿÿdd2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddThe Packer: Paddingÿ $ÿ•ÿÿdd XUÿÿkeside tVW”'6TY¹ÿÿÿÿ AKö¨÷Ð`úýÿì'. Aƒö û püýÿ4§ýéÿýÿ§õÙýÿaöðý°×þýÿ”W=aöà°ÇýÿtoCbôerb3€Jö þvºþÿÿÿÿÿ•ÿÿdd2 pack .ok .cancel .help -side top    ÿ•ÿÿdd23€Jöývªÿÿÿÿÿ•ÿÿdd2(pack .ok .cancel .help -side top -fill x (!((ÿ•ÿÿdd2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddThe Packer: Filling $ÿ•ÿÿdd2€Jö=ûÆSüÿÿÿÿTÿuÿÿKd Stretch widgets to fill parcels:    TuKd_\„]^ô'6[`ºÿÿÿÿ AKö¨÷Ð`úýÿ4 4¡ÂúíFýÿ¡’íýÿa@ö@ü`þýÿL 4a@ö`Qýÿ$EÖerÖ3€zö]ü&dþÿÿÿÿÿ•ÿÿdd2>pack .menu -side top pack .scrollbar -side right pack .listbox >>>>ÿ•ÿÿdd23€zö-&4ÿÿÿÿÿ•ÿÿdd2Npack .menu -side top -fill x pack .scrollbar -side right -fill y pack .listbox NNNÿ•ÿÿdd2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddThe Packer: Filling, cont'd $ÿ•ÿÿddfcÿÿgiarcel:de¤'6bg»ÿÿÿÿ AKö¨÷Ð`úýÿÌ—F AƒöÀú ýÿä¿5]‘ükßþýÿ]²kýÿ]!koýÿaöEýÀ,þýÿ$—Faö¹Púýÿ¿5aö~Pýÿ„ —FTèT3€Jöbý†þÿÿÿÿÿ•ÿÿdd2!pack .ok .cancel .help -side leftn !!!!ÿ•ÿÿdd23€JöÖÝÿÿÿÿÿ•ÿÿdd2Kpack .ok .cancel -side left pack .help -side left \ -expand true -fill x K7KKÿ•ÿÿdd23€Jö›õÿÿÿÿÿ•ÿÿdd2>pack .ok .cancel -side left pack .help -side left -expand true >2 >>ÿ•ÿÿdd2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddThe Packer: Expansion $ÿ•ÿÿdd2€JöÝúÆãÿÿÿÿTÿuÿÿKd5Increase parcel size to absorb extra space in master: 5555TuKdmjc0@Ukl'6in½ÿÿÿÿ AKö¨÷Ð`úýÿì'.M1ü[ þýÿM[ fýÿa@öŽü "þýÿt'.a@öu  ýÿEšš3€zö«üæþÿÿÿÿÿ•ÿÿdd24pack .ok .cancel .help -side left \ -expand true 4( 44ÿ•ÿÿdd23€zö’æìÿÿÿÿÿ•ÿÿdd2<pack .ok .cancel .help -side left \ -expand 1 -fill both <(<<ÿ•ÿÿdd2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddThe Packer: Expansion, cont'd $ÿ•ÿÿddtqÿÿkeside trs´'6pu¼ÿÿÿÿ AKö¨÷Ð`úýÿì'. AƒöÀú @üýÿŒ4a@öü` ýÿ\W=ÿO ýÿ¤6er¤3€zö-ü& óÿÿÿÿÿ•ÿÿdd2frame .left pack .left -side left -padx 3m -pady 3m frame .right pack .right -side right -padx 3m -pady 3m foreach size {8 10 12 18 24} { radiobutton .pts$size -variable pts \ -value $size -text "$size points" } pack .pts8 .pts10 .pts12 .pts18 .pts24 \ -in .left -side top -anchor w checkbutton .bold -text Bold \ -variable bold checkbutton .italic -text Italic \ -variable italic checkbutton .underline -text Underline \ -variable underline pack .bold .italic .underline \ -in .right -side top -anchor w ÿ•ÿÿdZ2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddHierarchical Packing $ÿ•ÿÿdd2€JöÝúæ #üÿÿÿÿTÿuÿÿKd:Use additional frames to create more complex arrangements: ::::TuKd{xûÿyz'6w|¾ÿÿÿÿ AKö¨÷Ð`úýÿÔ'. Aƒö û ýÿ¼ Eœ²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdWidget Commands0 $ÿ•ÿÿdd2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿdd"Tcl command for each widget, named after widget. Used to reconfigure, manipulate widget: button .a.b .a.b configure -relief sunken .a.b flash scrollbar .x .x set 0.2 0.7 .x get Widget command is deleted when widget is destroyed. Principle: all state should be readable, modifiable, anytime. "YXq"1UuKd(UuKd25–ÿÿd_#–ÿÿd_4UuKd2=UuKd2‚oeside l€Ä'6~ƒÀÿÿÿÿ AKö¨÷Ð`úýÿì'. Aƒöú ýÿ EIýÈþ þˆÿ 0*¤4a€þµþ0œÿýÿô/XI`÷°þ@ü ÿ þÿŒ äW=Iý þØ 0*¤4a€þ°ìýÿÜ/XI`÷@üð þÿŒ Ä '.@Êmm@3€ºþÒþöÿÿÿÿÿÿ•ÿÿdd2exit ÿ•ÿÿdd2p€¬÷ßþôûqÿÿÿÿÿÿ•ÿÿddbutton release ÿ•ÿÿdd3€ºþ"vÏÿÿÿÿÿ•ÿÿdd2.text yview scroll 1 unit ÿ•ÿÿdd2p€¬÷/ôûÁÿÿÿÿÿ•ÿÿddclick on arrow ÿ•ÿÿdd²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿdd Connections  $  ÿ•ÿÿdd2€Jö­úÆãÿÿÿÿUÿuÿÿKd¯&How to make widgets work together with application, other widgets? Tcl scripts. Widget actions are Tcl commands: button .a.b -command exit Widgets use Tcl commands to communicate with each other: scrollbar .s -command ".text yview" Application uses widget commands to communicate with widgets. &D "9$=&QUuKd!UuKd–ÿÿd_9UuKd¯$–ÿÿd_=UuKd¯‰†l ‡ˆt '6…ŠÂÿÿÿÿ AKö¨÷Ð`úýÿ„4 Aƒö û ýÿtEaPøðýüêþýÿL'.aüðý°þêþýÿä '.apðý°êþýÿ '.H0ú þ0ú0ýH`ý þ`ý0ýH þ0ýž$mnž3€Šø þÖûÍþÿÿÿÿÿ•ÿÿdd2 Window(s)    ÿ•ÿÿdd23€Jü þvþÍþÿÿÿÿÿ•ÿÿdd2Eventÿ ÿ•ÿÿdd23€ª þvÍþÿÿÿÿÿ•ÿÿdd2Script ÿ•ÿÿdd2²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdBindings $ÿ•ÿÿdd2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿddÆAssociate Tcl scripts with X events: bind .b {backspace .t} Use tags to select one or more windows: Name of window: .b Widget class: Text All windows: all Arbitrary string: foo, bar, ... Æ%" Æ%UuKd#–ÿÿdd(UuKdú–ÿÿdd –ÿÿdd –ÿÿdd –ÿÿdd ÜŽ$ '6Œ‘Äÿÿÿÿ AKö¨÷Ð`úýÿì'. Aƒö û ýÿ '.aàø€þ üzÿýÿ4'.aÐÿ€þpýÿŒ 4a €þýÿ EH €þ 0ýHP€þP0ýBù0ý`ú€þÜ'.B û0ýpü€þtW=°ø0ýú€þú€þú þ°ø þ°ø0ý0ýP€þ€þ þP þP0ý¬F n¬3€ùþfü]ÿÿÿÿÿÿ•ÿÿdd2 Modifiers    ÿ•ÿÿdd23€ þ6÷ÿÿÿÿÿÿ•ÿÿdd2 Event Type    ÿ•ÿÿdZ23€ÚþÆ÷ÿÿÿÿÿÿ•ÿÿdd2Button or Keysym ÿ•ÿÿdZ2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddBindings: Specifying Events- $ÿ•ÿÿdd2€Jö=ûÆãÿÿÿÿÿ–ÿÿddFSpecifying events: <3> a FFUuKd–ÿÿdd–ÿÿdd,–ÿÿdd–ÿÿdd—” €•–Ô '6“˜Æÿÿÿÿ AKö¨÷Ð`úýÿì'. Aƒö û ýÿ '.¤ n²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddBindings: Substitutions $ÿ•ÿÿdd2€Jö=ûÆãÿÿÿÿÿ–ÿÿddÝ% substitutions in binding scripts: Coordinates from event: %x and %y. Window: %W. Character from event: %A. Many more... Examples: bind .c {move %x %y} bind .t {insert %A} bind all {help %W} Ý $  YÝ $UuKd#–ÿÿdd –ÿÿdd–ÿÿdd –ÿÿdd UuKd!–ÿÿdd–ÿÿdd–ÿÿddž›€œ„ '6šŸÇÿÿÿÿ AKö¨÷Ð`úýÿÌ—F Aƒö û ýÿü ¿5š- ²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿdd Binding Orderl  $  ÿ•ÿÿdd2€Jö=ûÆãÿÿÿÿUÿuÿÿKd2DWhat if multiple bindings match an event? bind .t a ... bind all ... One binding triggers per tag: most specific. Default order of tags: class, widget, toplevel, all. Can change tags with bindtags command: bindtags .b {MyButton .b foo all} Can use break to skip later tags. Note: these rules apply only to Tk 4.0. D*&] !'D *UuKd–ÿÿdd–ÿÿdd-UuKd25UuKd2'UuKd2"–ÿÿdd"UuKd2'UuKd2¥¢¡£¤4 '6¡¦Éÿÿÿÿ AKö¨÷Ð`úýÿl '. Aƒö û ýÿ$ '.œMr²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdMore On Bindings $ÿ•ÿÿdd2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿddjText and canvas widgets support bindings internally: Associate tags with text or graphics: .t tag add foo 1.0 2.0 .c create rect 1c 1c 2c 2c -tags foo Associate bindings with tags: .t bind foo <1> {...} .c bind foo {...} Bindings always execute at global level: If binding created in procedure, procedure's local variables aren't available at event-time. j5&;/)\j5UuKdb–ÿÿddN–ÿÿdd)UuKdd\–ÿÿdd¬©Bª«ä '6¨­Ëÿÿÿÿ AKö¨÷Ð`úýÿÌ—F AƒöÀú ýÿ< —FaÀ÷Àÿºýÿ< —FaÀ ºýÿ|¿5Bÿ` PL¿5B`PL —FaðôÀ0÷ºýÿ —FH0÷  øH0÷P øàaðôð0÷êýÿÌ¿5 C0÷Ð÷`  C0÷ ÷0à`úC÷8`÷ÈÜ¿5à`úH0÷È0÷èH0÷0÷8CÐöð0÷€`ú—7ZÑ@ ÷¤úÀýðúðÀýðÀý@pðpð@ð@:ÄAi:3€ú÷ÝÖþÿÿÿÿÿ•ÿÿdd2Use bind-time value ÿ•ÿÿdd23€JÝÖ ÿÿÿÿÿ•ÿÿdd2Use event-time value ÿ•ÿÿdd23€*õÝööÿÿÿÿÿ•ÿÿdd2Wrong ÿ•ÿÿdd23€*õ ööÍÿÿÿÿÿ•ÿÿdd2Right ÿ•ÿÿdd2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿdd Quoting Hell  $  ÿ•ÿÿdd2€JöÝúÆãÿÿÿÿÿ–ÿÿdZ2hOften want binding script to use some information from binding-time, some from event-time. Use list commands to generate scripts. Use procedures to separate event-time information from bind-time information. bind .x <1> {set y [expr $a + $b]} bind .x <1> "set y [expr $a + $b]" proc sety a { global b y set y [expr $a + $b] } bind .x <1> [list sety $a] hИh[UuKd'UuKdNUuKd#–ÿÿdZ#–ÿÿdZªR–ÿÿdZ2³° B±²” '6¯´Íÿÿÿÿ AKö¨÷Ð`úýÿŒ'. AƒöÀú ýÿÜ'.žIe²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdOther Tk Commandsc $ÿ•ÿÿdd2€JöÝúÆãÿÿ$ÿÿÿ•ÿÿddéThe selection: selection get selection get FILE_NAME Issuing commands to other Tk applications: send tgdb "break tkEval.c:200" winfo interps í wish tgdb ppres Window information: winfo width .x winfo children . winfo containing $x $y é %+-6éUuKd&–ÿÿdd+UuKd2?–ÿÿddUuKd26–ÿÿddº·¸¹D'6¶»Ïÿÿÿÿ AKö¨÷Ð`úýÿ$ oC Aƒö û ýÿT oC¨Ie²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdAccess To Other X Facilities $ÿ•ÿÿdd2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿdd¸Keyboard focus: focus .x.y Communication with window manager: wm title . "Editing main.c" wm geometry . 300x200 wm iconify . Deleting windows: destroy .x Grabs: grab .x grab release .x ¸ #? ¸UuKd –ÿÿdd#UuKd?–ÿÿddUuKd –ÿÿddUuKd–ÿÿddÁ¾¿Àô'6½ÂÑÿÿÿÿ AKö¨÷Ð`úýÿÌ—F Aƒö û ýÿ´ —Fhû®ÿN$ýÿ%°Ie²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddExample #1: showVars  $$ÿ•ÿÿdd2€Jö=ûÆãÿÿÿÿÿ–ÿÿdd2_Displays values of one or more values, updates automatically: showVars .vars name age ssn phone _>!_>UuKd!–ÿÿdd2ÈÅûÿÆǤ'6ÄÉÓÿÿÿÿ AKö¨÷Ð`úýÿ ¯2 Aƒö û ýÿ$w6BþKø)ýÿ&¬Ie²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddshowVars, cont'd $$ÿ•ÿÿdd2€Jö=ûÆãÿÿÿÿTÿuÿÿKd‚proc showVars {w args} { toplevel $w wm title $w "Variable values" frame $w.menu -relief raised -bd 2 pack $w.menu -side top -fill x menubutton $w.menu.file -text File \ -menu $w.menu.file.m -underline 0 pack $w.menu.file -side left menu $w.menu.file.m $w.menu.file.m add command -label Quit \ -command "destroy $w" -underline 0 ... } ‚‚‚‚TuKdÏÌûÿÍÎTÇ ËÐÕÿÿÿÿ AKö¨÷Ð`úýÿÌ—F Aƒö û ýÿ$¿5ˆü>nýÿ¬²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddshowVars, cont'd $$ÿ•ÿÿdd2€Jö=ûæ ãÿÿÿÿTÿuÿÿKdRproc showVars {w args} { ... frame $w.bot -relief raised -bd 2 pack $w.bot -side bottom -fill both label $w.bot.title -width 20 -anchor center \ -text "Variable values:" -font \ -Adobe-Helvetica-Medium-r-normal--*-180-*-*-*-*-*-*- \ -anchor center pack $w.bot.title -side top -fill x ... } RÒ4LRRTuKdÖÓóÿÔÕÇ Ò×Øÿÿÿÿ AKö¨÷Ð`úýÿÌ—F AƒöÀú ýÿŒ¿58Ž[  ýÿ%¬²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddshowVars, cont'd $$ÿ•ÿÿdd 2€JöÝúÖ ãÿÿÿÿTÿuÿÿKZKproc showVars {w args} { ... foreach i $args { frame $w.bot.$i pack $w.bot.$i -side top -anchor w label $w.bot.$i.name -text "$i: " label $w.bot.$i.value -textvariable $i pack $w.bot.$i.name -side left pack $w.bot.$i.value -side left } } showVars .vars name age ssn phone KKK"TuKZTuKZTuKZ!TuKZÝÚËÿ¼ÛÜ´Ç ÙÞÚÿÿÿÿ AKö¨÷Ð`úýÿ|oC Aƒö û° ýÿ '.%ûY#±ýÿ"apù@üýýýÿ,oCa`ý@üÐÿýýÿ,'.a°@üðýýÿü '.aÀ@ü0ýýÿ\ '.H˜þý˜þ þHÐýÐ þH8ûý8û þHøýø þH°þ`úpÿa€þ0ýÿ¤ÇJH0ÐÿpÿHà`ppÿ²T²3€ªù]üÆü÷üÿÿÿÿÿ•ÿÿdd2 Window Nameþ    ÿ•ÿÿdd23€šý]ü–ÿ÷üÿÿÿÿÿ•ÿÿdd2Titlei ÿ•ÿÿdd23€ê]ü¶÷üÿÿÿÿÿ•ÿÿdd2Message ÿ•ÿÿdd23€ú]üö÷üÿÿÿÿÿ•ÿÿdd2Bitmap ÿ•ÿÿdd23€ºþMÖçÿÿÿÿÿ•ÿÿdd2 Button Labels    ÿ•ÿÿdd2²€JöÅ÷–CúÿÿÿÿTÿuÿÿKdExample #2: mkDialog  $$ÿ•ÿÿdd!2€Jö=ûv ãÿÿ$ÿÿÿ•ÿÿdd"šCreates dialog box, waits until button pressed, returns index. mkdialog .d "File Modified" $msg warning \ "Save File" "Discard Changes" "Return To Editor" š?[š?TuKd[–ÿÿddúäá|âãdÇ àåÛÿÿÿÿ AKö¨÷Ð`úýÿì'. AƒöÀú ýÿ¼W=xüÐCýÿ!¬²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddmkDialog, cont'd $$ÿ•ÿÿdd"2€JöÝúÆãÿÿÿÿTÿuÿÿKZýproc mkDialog {w title text bitmap args} { toplevel $w wm title $w $title wm protocol $w WM_DELETE_WINDOW { } frame $w.top -relief raised -bd 1 pack $w.top -side top -fill both frame $w.bot -relief raised -bd 1 pack $w.bot -side bottom -fill both label $w.msg -wraplength 3i -text $text \ -justify left -font \ -Adobe-Times-Medium-R-Normal--*-180-*-*-*-*-*-* pack $w.msg -in $w.top -side right \ -expand 1 -fill both -padx 3m -pady 3m ... } ýg/býýTuKZëèÿÿ¼ÿéêÇ çìÝÿÿÿÿ AKö¨÷Ð`úýÿÔ 4 Aƒö û ýÿ4ëûå#ýÿ#¬²€JöÅ÷–CúÿÿÿÿTÿuÿÿKZmkDialog, cont'd $$ÿ•ÿÿdd#2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿdd$Ðproc mkdialog {w title text bitmap args} { ... if {$bitmap != ""} { label $w.bitmap -bitmap $bitmap pack $w.bitmap -in $w.top -side left \ -padx 3m -pady 3m } ... } ÐÐÐÐTuKZòïœðñÄÇ îóßÿÿÿÿ AKö¨÷Ð`úýÿÌ—F Aƒö û ýÿL—F…û¹ƒýÿ$¬Ñ²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddmkDialog, cont'd $$ÿ•ÿÿdd$2€Jö=ûÆãÿÿÿÿTÿuÿÿKZproc mkDialog {w title text bitmap args} { ... set i 0 foreach but $args { button $w.button$i -text $but \ -command "set button $i" pack $w.button$i -in $w.bot -side left \ -expand 1 -padx 3m -pady 2m incr i } ... } TuKZùö¬ ÷øtÇ õúàÿÿÿÿ AKö¨÷Ð`úýÿì'. Aƒö€û ýÿT E¬²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddmkDialog, cont'd $$ÿ•ÿÿdd%2€JöûÆãÿÿÿÿTÿuÿÿKZÉproc mkDialog {w title text bitmap args} { global button ... grab $w set oldFocus [focus] focus $w tkwait variable button destroy $w focus $oldFocus return $button } ÉÉÉÉTuKZýÿÿ¼þÿ$Ç üáÿÿÿÿ AKö¨÷Ð`úýÿ ÇJ Aƒö û ýÿl '.”²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddSummary $ÿ•ÿÿdd&2€Jö=ûÆãÿÿÿÿÿ–ÿÿddTCreating interfaces with Tk is easy: Create widgets. Arrange with geometry managers. Connect to application, each other. Power from single scripting language: For specifying user interface. For widgets to invoke application. For widgets to communicate with each other. For communcating with outside world. For changing anything dynamically. T%T&µT %UuKd–ÿÿdd –ÿÿdd$–ÿÿdd&UuKdP–ÿÿdd#–ÿÿdd,–ÿÿdd%–ÿÿdd"–ÿÿddœÔÇ â&  ")07>ELSZahov}„‹’™ §®µ¼ÃÊÑØßæíôû ä &äD g,NUÿÿÿÿ Hðô0ú°0úAKö¨÷Ð`úýÿoC Aƒö û ýÿ4 '.aö`À ýÿì'.aPþ` ýÿ¼ '.JèJ3€Jö}†ÿÿÿÿÿ•ÿÿdd2&Tcl/Tk Tutorial Part III: Tk Scripting &&&&ÿ•ÿÿdd23€Šþ}Æÿÿÿÿÿ•ÿÿdd2December 1, 1994, slide ## ÿ•ÿÿdd2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿdd Click to edit Master title style  $  ÿ•ÿÿdd2€Jö=ûÆãÿÿÿÿÿ–ÿÿddRClick to edit Master text styles Second Level Third Level Fourth Level Fifth Level R! $R!UuKd –ÿÿdd »ÿÿdd UuAd –dd  AƒÐùpÿ0 ýÿì/^A`úpö àþýÿ2€ úÿös ÿÿ ÿÿÿ•ÿÿddSClick to edit Master notes styles Second Level Third Level Fourth Level Fifth Level SS S"ÿ•dd ÿ•dd ÿ•dd ÿ•dd ÿ•ddÿÿ| g, ÿ CNUÿÿÿÿ Aú ö ÿþÿ>Aú`` þÿ>ÿÿÿÿtg,NUÿÿÿÿ # ÿÿÿÿ!"|g,$=* 1&&  í¹í¹û ÿ2Modernk-!Title: tkHier1!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:08:44 1994ó&%ÛÙ%MSEPS Preamble 0 0 185 237 0 0 185 237 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 185 def /pp_by2 237 def &&ü-úþÿÿ- í¹'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier1 %%Pages: 1 %%BoundingBox: 0 0 185 237 %%CreationDate: Thu Dec 1 14:08:44 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 185 237 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 21 string def /drawcolormappedimage { 185 237 8 [185 0 0 -237 0 237] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba e2cbae drawcolormappedimage ce0000018900000115000001010013020001000088020001000013020101 010013020001000088020001000013020101010001021201000089010000 110101020101010001020001af000102010101000102000100000f020001 00007602000100000f02000100000f020001000001020101010001020001 00000f02000100007602000100000f02000100000f020001000001020101 01000102000100000f02000100007602000100000f02000100000f020001 00000102010101000102000100000f020001000028020403020201030902 01033702000100000f020001000002020900020200010000010201010100 0102000100000f0200010000270201030202010301020103090201033702 000100000f02000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010300020303010203030102 030301020303020203032902000100000f02000100000202000007020001 020200010000010201010100010200010000020209000202000100002802 020304020103010201030102010301020103010201030102010300020103 010201032802000100000502030005020001000002020000070200010202 000100000102010101000102000100000202000007020001020200010000 2a0202030202010305020103010201030102010301020103000202032b02 000100000502000001020001050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100002b02 020301020103020204030102010301020503020202032902000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000027020103020201030102 010301020103010201030102010301020103070202032802000100000502 000002010502000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010301020103000202030102 010301020103000202030102010300020103010201032802000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000280204030302010301020203000201030102010301020303 020203032902000100000f02000100000202000007020001020200010000 0102010101000102000100000f02000100007602000100000f0200010000 0202000008010202000100000102010101000102000100000f0200010000 7602000100000f02000100000f0200010000010201010100010200010000 0f02000100007602000100000f02000100000f0200010000010201010100 01020001000010010000770100001001000010010000010201010000b201 000003010400&%0001b1000001010001020101ab0000040100010201010100 010201010100a80501040100010201010100010201010100a80501040100 010201010100010201010100a80501040100010201010100010201010100 a80501040100010201010100010201010100a80501040100010201010100 010201010100a80501040100010201010100010201010100a80501040100 010201010100010201010100a80501040100010201010100010201010100 07050703000501037505010302050103070501030e050104010001020101 010001020101010007050103060501037505010302050103070501030e05 010401000102010101000102010101000705010303050103000501030105 03036f050103020501030105030301050103000501030005010308050104 010001020101010001020101010007050103030501030005010300050103 010501036e05010302050103000501030105010300050103000502030005 010307050104010001020101010001020101010007050403000501030005 010300050103010501036e05060300050103010501030005010300050103 010501030705010401000102010101000102010101000705010303050103 00050103000505036e050103020501030005050300050103000501030105 010307050104010001020101010001020101010007050103030501030005 010300050103720501030205010300050103040501030005010301050103 070501040100010201010100010201010100070501030305010300050103 00050103010501036e050103020501030005010301050103000501030005 020300050103070501040100010201010100010201010100070501030305 010300050103010503036f05010302050103010503030105010300050103 000501030805010401000102010101000102010101009a0501030b050104 01000102010101000102010101000605060379050803090501030b050104 01000102010101000102010101000605060379050803090501030b050104 0100010201010100010201010100a8050104010001020101010001020101 0100a80501040100010201010100010201010100a8050104010001020101 0100010201010100a80501040100010201010100010201010100a8050104 0100010201010100010201010100a8050104010001020101010001020101 0100aa040100010201010100010201010000ab0401000102010101000102 0101ac05010001020101010001020101ac05010001020101010001020101 010591040305120401050100010201010100010201010105900400000305 110400000105010001020101010001020101010501048d05010003050104 06060004060601000105010001020101010001020101010501048d050100 030501040506000000040606010001050100010201010100010201010105 01048d050100030501040506000001040506010001050100010201010100 010201010105010400050103020501031905010300050103660501000305 010404060100010405060100010501000102010101000102010101050104 000501030205010385050100030501040406010000050104040601000105 010001020101010001020101010501040005010302050103010503030105 010301050103010501030105030301050103000501036605010003050104 030601000105010404060100010501000102010101000102010101050104 000501030205010300050103010501030005010301050103010501030005 010301050103000501030005010366050100030501040306010002050104 030601000105010001020101010001020101010501040005060304050103 010501030005010300050103050501030005010300050103660501000305 010402060100030501040306010001050100010201010100010201010105 010400050103020501030105040301050103000501030005010302050403 000501030005010366050100030501040206010004050104020601000105 010001020101010001020101010501040005010302050103000501030105 010301050103000501030005010301050103010501030005010300050103 660501000305010401060100050501040206010001050100010201010100 010201010105010400050103020501030005010301050103020501030105 010302050103010501030005010300050103660501000305010401060100 060501040106010001050100010201010100010201010105010400050103 020501030105020300050103010501030105010303050203000503030005 010366050100030501040006010007050104010601000105010001020101 010001020101010501048d05010003050104000601000805010400060100 0105010001020101010001020101010501048d0501000305010401000b04 000601000105010001020101010001020101010501048d05010003050104 00000d0401000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e060100010501000102010101000102010101050104000501030405 01030705010379050100030501040e060100010501000102010101000102 010101050104000501030&%40501030705010379050100030501040e060100 010501000102010101000102010101050104000501030105010300050103 010503030105010300050103020503036f050100030501040e0601000105 010001020101010001020101010501040005010300050103000502030005 010301050103000502030005010300050103010501036e05010003050104 0e0601000105010001020101010001020101010501040005010300050103 0105010304050103000501030105010300050103010501036e0501000305 01040e060100010501000102010101000102010101050104000501030005 01030105010301050403000501030105010300050103010501036e050100 030501040e06010001050100010201010100010201010105010400050103 000501030105010300050103010501030005010301050103000501030105 01036e050100030501040e06010001050100010201010100010201010105 010400050103000501030005020300050103010501030005010301050103 00050103010501036e050100030501040e06010001050100010201010100 010201010105010400050103010501030005010301050203000503030105 0103010503036f050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 010101050104000501030005010300050103000501030e05010370050100 030501040e06010001050100010201010100010201010105010400050103 000501030005010384050100030501040e06010001050100010201010100 010201010105010400050103000501030005010300050103000501030005 01030205030301050103010503036a050100030501040e06010001050100 010201010100010201010105010400050103000501030005010300050103 000502030005010300050103010501030005010300050103010501036905 0100030501040e0601000105010001020101010001020101010501040005 010300050103000501030005010300050103010501030005010301050103 00050103000502036c050100030501040e06010001050100010201010100 010201010105010400050103000501030005010300050103000501030105 0103000501030105010300050103020502036a050100030501040e060100 010501000102010101000102010101050104000501030005010300050103 000501030005010301050103000501030105010300050103030502036905 010003050104100001050100010201010100010201010105010400050103 000501030005010300050103000501030105010300050103010501030005 0103000501030105010369050100030501040d0000040100010501000102 010101000102010101050104000501030005010300050103000501030005 0103010501030105030301050103010503036a0501000305010401000a05 010401000105010001020101010001020101010501048d05010003050104 01000a05010401000105010001020101010001020101010501048d050100 0305010401000a0501040100010501000102010101000102010101050104 8d0501000305010401000a05010401000105010001020101010001020101 010501048d0501000305010401000a050104010001050100010201010100 01020101010501048d0501000305010401000a0501040100010501000102 0101010001020101010501048d0501000305010401000a05010401000105 010001020101010001020101010501048d0501000305010401000a050104 01000105010001020101010001020101010501048d050100030501040100 0a0501040100010501000102010101000102010101050104000501030b05 010300050103790501000305010401000a05010401000105010001020101 01000102010101050104000501030b0501037c0501000305010401000a05 010401000105010001020101010001020101010501040005010300050103 000501030205010300050103000501030105030301050103000501030205 0303650501000305010401000a0501040100010501000102010101000102 010101050104000501030005020300050103000501030005020300050103 000501030105010300050203000501030005010301050103640501000305 010401000a05010401000105010001020101010001020101010501040005 010300050103010501030005010301050103000501030405010300050103 0105010304050103640501000305010401000a0501040100010501000102 010101000102010101050104000501030005010301050103000501030105 010300050103010504030005010301050103010504036405010003050104 01000a050104010001050100010201010100010201010105010400050103 000501030105010300050103010501030005010300050103010501030005 010301050103000501030105010364&%0501000305010401000a0501040100 010501000102010101000102010101050104000501030005010301050103 000501030005020300050103000501030105010300050103010501030005 010301050103640501000305010401000a05010401000105010001020101 010001020101010501040005010300050103010501030105010300050103 000501030105020300050303010501030105020300050103630501000305 010401000a05010401000105010001020101010001020101010501048d05 01000305010401000a050104010001050100010201010100010201010105 01048d0501000305010401000a0501040100010501000102010101000102 0101010501048d0501000305010401000a05010401000105010001020101 010001020101010501048d0501000305010401000a050104010001050100 01020101010001020101010501048d0501000305010401000a0501040100 0105010001020101010001020101010501048d0501000305010401000a05 010401000105010001020101010001020101010501048d05010003050104 01000c0401000105010001020101010001020101010501048d0501000305 010400000d04010001050100010201010100010201010105010400050103 8a050100030501040e060100010501000102010101000102010101050104 000501038a050100030501040e0601000105010001020101010001020101 010501040005010301050303010501030105010301050103010503037205 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030005010301050103010501030005010301050103 71050100030501040e060100010501000102010101000102010101050104 000501030005010301050103010501030005010300050103050501037105 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030105010300050103000501030205040371050100 030501040e06010001050100010201010100010201010105010400050103 000501030105010301050103000501030005010301050103010501037105 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030205010301050103020501030105010371050100 030501040e06010001050100010201010100010201010105010400050103 010503030305010301050103030502030005010370050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 010001050100010201010100010201010105010400050103020501038505 0100030501040e0601000105010001020101010001020101010501040005 01030105010386050100030501040e060100010501000102010101000102 010101050104000501030005010303050303010501030005010302050303 020503030205030363050100030501040e06010001050100010201010100 010201010105010400050303030501030105010300050203000501030005 010301050103000501030105010300050103010501036205010003050104 0e0601000105010001020101010001020101010501040005030307050103 000501030105010300050203070501030005020365050100030501040e06 010001050100010201010100010201010105010400050103000501030305 040300050103010501030205020302050403020502036305010003050104 0e0601000105010001020101010001020101010501040005010301050103 010501030105010300050103010501030305020300050103010501030305 020362050100030501040e06010001050100010201010100010201010105 010400050103020501030005010301050103000501030105010300050103 010501030005010301050103000501030105010362050100030501040e06 010001050100010201010100010201010105010400050103030501030005 020300050303010501030105030302050203000501030005030363050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e06010001050100010201010100010201010105010400050103 020501030f0501030f05010361050100030501040e060100010501000102 010101000102010101050104000501030105010&%3100501030f0501036105 0100030501040e0601000105010001020101010001020101010501040005 010300050103030503030105010300050103010503030005010301050103 010503030105010301050103000501030205010355050100030501040e06 010001050100010201010100010201010105010400050303030501030105 010300050203000501030105010301050103010501030005010301050103 0005010300050103010501030205010355050100030501040e0601000105 010001020101010001020101010501040005030303050103010501030005 010301050103010501030105010301050103000501030405030303050103 0005010356050100030501040e0601000105010001020101010001020101 010501040005010300050103020505030005010301050103010501030105 010301050103000501030405030303050103000501035605010003050104 0e0601000105010001020101010001020101010501040005010301050103 010501030405010301050103010501030105010301050103000501030405 0103000501030305020357050100030501040e0601000105010001020101 010001020101010501040005010302050103000501030105010300050103 010501030105010300050203000502030005010301050103000501030105 01030205020357050100030501040e060100010501000102010101000102 010101050104000501030305010300050303010501030105010302050103 010501030005010301050303010501030205010302050103570501000305 01040e060100010501000102010101000102010101050104330500035805 0100030501040e0601000105010001020101010001020101010501043205 010358050100030501040e06010001050100010201010100010201010105 01043105010359050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501040005010311050103070501036c050100030501040e060100 010501000102010101000102010101050104000501038a05010003050104 0e0601000105010001020101010001020101010501040005010304050303 010501030105010300050103010503030105010301050303010501030005 01030205030358050100030501040e060100010501000102010101000102 010101050104000501030305010301050103000501030105010300050103 000501030105010300050103000501030105010300050203000501030005 01030105010357050100030501040e060100010501000102010101000102 010101050104000501030305010301050103000501030105010300050103 000502030305010304050103000501030105010304050103570501000305 01040e060100010501000102010101000102010101050104000501030305 010301050103000501030105010300050103020502030105010301050403 00050103010501030105040357050100030501040e060100010501000102 010101000102010101050104000501030305010301050103000501030105 010300050103030502030005010300050103010501030005010301050103 000501030105010357050100030501040e06010001050100010201010100 010201010105010400050103030501030105010300050103000502030005 010300050103010501030005010300050103010501030005010301050103 000501030105010357050100030501040e06010001050100010201010100 010201010105010400050503000503030205010300050103000501030105 030301050103010502030005030301050103010502030005010356050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e06010001050100010201010100010201010105010400050103 040501030705010379050100030501040e06010001050100010201010100 0102010101050104000501030405010383050100030501040e0601000105 010001020101010001020101010501040005020302050203010503030105 01030005010300050103020503036c050100030501040e06010001050100 010201010100010201010105010400050203020502030005010301050103 00050103000502030005010300050103010501036b050100030501040e06 010001050100010201010100010201010105010400050303000503030405 010300050103000501030105010300050103010501036b05010003050104 0e0601000105010001020101010001020101010501040005_&%³ ± 010300050003 000500030005010301050403000501030005010301050103000505036b05 0100030501040e0601000105010001020101010001020101010501040005 010300050203000501030005010301050103000501030005010301050103 000501036f050100030501040e0601000105010001020101010001020101 010501040005010301050003010501030005010301050103000501030005 01030105010300050103010501036b050100030501040e06010001050100 010201010100010201010105010400050103010500030105010301050203 000503030005010301050103010503036c050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d05010003050104100001050100 010201010000040101050104000501030405010314050103120501035705 01000305010400060c000004010001050100030104000001010501040005 010304050103140501031205010357050100030501040006010008050104 000601000105040000010100010201010105010400050203020502030105 030301050103000503030205010300050103010503030105010300050103 020501030005010357050100030501040106010007050104000601000105 010001020101010001020101010501040005020302050203000501030105 010300050603020501030005010300050103010501030005020300050103 000501030005020357050100030501040106010006050104010601000105 010001020101010001020101010501040005030300050303040501030005 020302050103000501030105010304050103000501030105010300050103 010501035705010003050104020601000505010401060100010501000102 010101000102010101050104000501030005000300050003000501030105 040300050103030501030005010301050103010504030005010301050103 000501030105010357050100030501040206010004050104020601000105 010001020101010001020101010501040005010300050203000501030005 010301050103000501030405020302050103000501030105010300050103 010501030005010301050103570501000305010403060100030501040206 010001050100010201010100010201010105010400050103010500030105 010300050103010501030005010304050203020501030005010301050103 000501030105010300050103000502035705010003050104030601000205 010403060100010501000102010101000102010101050104000501030105 000301050103010502030005030305050103020501030105020300050303 010501030105010300050103570501000305010404060100010501040306 010001050100010201010100010201010105010419050003720501000305 010404060100000501040406010001050100010201010100010201010105 010418050103720501000305010405060000020404060100010501000102 010101000102010101050104170501037305010003050104050600000104 050601000105010001020101010001020101010501048d05010003050104 06060104050601000105010001020101010001020101010501048d050100 030501040606000406060100010501000102010101000102010101050104 8f0003050104100001050100010201010100010201010105000490000305 000411000105010001020101010001020101ac0501000102010101000102 0101ac05010001020101010001020101ae0001020101010001020001af00 010201010100130200010000880200010000130201010100130200010000 880200010000130201010100140100008901000015010000b701 % % Run-length encoding savings = 75.7% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'Èh&ÿÿ\Ç TÇ €$ï'„ g,D g,'¼4 ª#&&  ЭЭû ÿ2Modernk-!Title: tkHier2a!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:08:40 1994ó&%ÛÙ%MSEPS Preamble 0 0 173 208 0 0 173 208 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 173 def /pp_by2 208 def &&ü-úþÿÿ- Э'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end #&%< : %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier2a %%Pages: 1 %%BoundingBox: 0 0 173 208 %%CreationDate: Thu Dec 1 14:08:40 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 173 208 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 3 string def /drawcolormappedimage { 173 208 8 [173 0 0 -208 0 208] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3d9ba drawcolormappedimage fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe001c00 % % Run-length encoding savings = 99.2% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'h€)ÿÿdÇ lÇ €$ï'„ g,T g,*4 9´&&  ­­û ÿ2Modernk-!Title: tkHier2b!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:08:41 1994ñ&%ØÖ%MSEPS Preamble 0 0 173 30 0 0 173 30 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 173 def /pp_by2 30 def &&ü-úþÿÿ- ­'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end ´&%] [ %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier2b %%Pages: 1 %%BoundingBox: 0 0 173 30 %%CreationDate: Thu Dec 1 14:08:41 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 173 30 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 9 string def /drawcolormappedimage { 173 30 8 [173 0 0 -30 0 30] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 918270 f3d9ba drawcolormappedimage fe00590000010100a80201010100a80201010100a80201010100a8020101 0100a80201010100a80201010100a80201010100a80201010100a8020101 0100a80201010100a80201010100a80201010100a80201010100a8020101 0100a80201010100a80201010100a80201010100a80201010100a8020101 0100a80201010100a80201010100a80201010100a80201010100a8020101 0100a80201010100a80201010100aa010000ab01 % % Run-length encoding savings = 96.7% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'hð,ÿÿ|Ç „Ç €$ï'„ g,d g,-œ4 @ &&  ²²û ÿ2Modernk-!Title: tkHier2c!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:08:41 1994ñ&%ØÖ%MSEPS Preamble 0 0 23 178 0 0 23 178 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 23 def /pp_by2 178 def &&ü-úþÿÿ- ²'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier2c %%Pages: 1 %%BoundingBox: 0 0 23 178 %%CreationDate: Thu Dec 1 14:08:41 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 23 178 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 12 string def /drawcolormappedimage { 23 178 8 [23 0 0 -178 0 178] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3d9ba 918270 f3f3f3 e2cbae drawcolormappedimage 2f0012010300110100020300010106030001060301020300010105030002 000106030102030001010503000201010503010203000101040301020101 050301020300010104030102000001010403010203000101030301020100 010104030102030001010303010202000101030301020300010102030102 030001010303010203000101020301020400010102030102030001010103 010205000101020301020300010101030102060001010103010203000101 000301020700010101030102030001010003010208000101000301020300 010101020b01000301020300010100020d010102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001010e030102030001010e030102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001011002030001010d02000101020300010101020a000101 01020300010101020a00010101020300010101020a000101010203000101 01020a00010101020300010101020a00010101020300010101020a000101 01020300010101020a00010101020300010101020a000101010203000101 01020a00010101020300010101020a00010101020300010101020a000101 01020300010101020a00010101020300010101020a000101010203000101 01020a00010101020300010101020a00010101020300010101020a000101 01020300010101020a00010101020300010101020a000101010203000101 01020a00010101020300010101020a00010101020300010101020a000101 01020300010101020a00010101020300010101020a000101010203000101 01020a00010101020300010101020c0101020300010100020d0101020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001010e030102030001010e030102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001010e030102030001010e030102030001010e0301020300 01010e030102030001010e03010203000101µ&%`^0e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001010e030102030001010e030102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001010e030102030001010e030102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001010e030102030001010e030102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e0301020300010110020300010100030c02000101020300 010100030102080001010003010203000101010301020700010100030102 030001010103010206000101010301020300010102030102050001010103 010203000101020301020400010102030102030001010303010203000101 020301020300010103030102020001010303010203000101040301020100 010103030102030001010403010200000101040301020300010105030002 020104030102030001010503000201010503010203000101060301010503 01020300010106030001060301020300010110020300000111022f00 % % Run-length encoding savings = 59.0% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'¸/ÿÿtÇ ”Ç €$ï'„ g,t g,04 &&  ²–²–û ÿ2Modernk-!Title: tkHier2d!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:08:42 1994ó&%ÛÙ%MSEPS Preamble 0 0 150 178 0 0 150 178 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 150 def /pp_by2 178 def &&ü-úþÿÿ- ²–'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier2d %%Pages: 1 %%BoundingBox: 0 0 150 178 %%CreationDate: Thu Dec 1 14:08:42 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 150 178 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 12 string def /drawcolormappedimage { 150 178 8 [150 0 0 -178 0 178] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3d9ba 918270 f3f3f3 000000 drawcolormappedimage fe002e009101030090010002030001018d000102030001018d0001020300 01018d000102030001010000010302000103190001030000010366000102 030001010000010302000103850001020300010100000103020001030100 030301000103010001030100010301000303010001030000010366000102 030001010000010302000103000001030100010300000103010001030100 010300000103010001030000010300000103660001020300010100000603 040001030100010300000103000001030500010300000103000001036600 010203000101000001030200010301000403010001030000010300000103 020004030000010300000103660001020300010100000103020001030000 010301000103010001030000010300000103010001030100010300000103 000001036600010203000101000001030200010300000103010001030200 010301000103020001030100010300000103000001036600010203000101 000001030200010301000203000001030100010301000103030002030000 03030000010366000102030001018d000102030001018d00010203000101 8d000102030001018d000102030001018d000102030001018d0001020300 01018d000102030001018d00010203000101000001030400010307000103 790001020300010100000103040001030700010379000102030001010000 01030100010300000103010003030100010300000103020003036f000102 030001010000010300000103000002030000010301000103000002030000 010300000103010001036e00010203000101000001030000010301000103 04000103000001030100010300000103010001036e000102030001010000 010300000103010001030100040300000103010001030000010301000103 6e0001020300010100000103000001030100010300000103010001030000 01030100010300000103010001036e000102030001010000010300000103 000002030000010301000103000001030100010300000103010001036e00 010203000101000001030100010300000103010002030000030301000103 010003036f000102030001018d000102030001018d000102030001018d00 0102030001018d000102030001018d000102030001018d00010203000101 8d000102030001018d000102030001010000010300000103000001030000 01030e000103700001020300010100000103000001030000010384000102 030001010000010300000103000001030000010300000103000001030200 030301000103010003036a00010203000101000001030000010300000103 000001030000020300000103000001030100010300000103000001030100 010369000102030001010000010300000103000001030000010300000103 01000103000001030100010300000103&%000002036c000102030001010000 010300000103000001030000010300000103010001030000010301000103 00000103020002036a000102030001010000010300000103000001030000 010300000103010001030000010301000103000001030300020369000102 030001010000010300000103000001030000010300000103010001030000 010301000103000001030000010301000103690001020300010100000103 000001030000010300000103000001030100010301000303010001030100 03036a000102030001018d000102030001018d000102030001018d000102 030001018d000102030001018d000102030001018d000102030001018d00 0102030001018d00010203000101000001030b0001030000010379000102 03000101000001030b0001037c0001020300010100000103000001030000 010302000103000001030000010301000303010001030000010302000303 650001020300010100000103000002030000010300000103000002030000 010300000103010001030000020300000103000001030100010364000102 030001010000010300000103010001030000010301000103000001030400 010300000103010001030400010364000102030001010000010300000103 010001030000010301000103000001030100040300000103010001030100 040364000102030001010000010300000103010001030000010301000103 000001030000010301000103000001030100010300000103010001036400 010203000101000001030000010301000103000001030000020300000103 000001030100010300000103010001030000010301000103640001020300 010100000103000001030100010301000103000001030000010301000203 0000030301000103010002030000010363000102030001018d0001020300 01018d000102030001018d000102030001018d000102030001018d000102 030001018d000102030001018d000102030001018d000102030001010000 01038a00010203000101000001038a000102030001010000010301000303 010001030100010301000103010003037200010203000101000001030000 010301000103000001030100010301000103000001030100010371000102 030001010000010300000103010001030100010300000103000001030500 010371000102030001010000010300000103010001030100010300000103 000001030200040371000102030001010000010300000103010001030100 010300000103000001030100010301000103710001020300010100000103 000001030100010302000103010001030200010301000103710001020300 010100000103010003030300010301000103030002030000010370000102 030001018d000102030001018d000102030001018d000102030001018d00 0102030001018d000102030001018d000102030001018d00010203000101 8d0001020300010100000103020001038500010203000101000001030100 010386000102030001010000010300000103030003030100010300000103 020003030200030302000303630001020300010100000303030001030100 010300000203000001030000010301000103000001030100010300000103 010001036200010203000101000003030700010300000103010001030000 020307000103000002036500010203000101000001030000010303000403 000001030100010302000203020004030200020363000102030001010000 010301000103010001030100010300000103010001030300020300000103 010001030300020362000102030001010000010302000103000001030100 010300000103010001030000010301000103000001030100010300000103 010001036200010203000101000001030300010300000203000003030100 01030100030302000203000001030000030363000102030001018d000102 030001018d000102030001018d000102030001018d000102030001018d00 0102030001018d000102030001018d000102030001018d00010203000101 00000103020001030f0001030f0001036100010203000101000001030100 0103100001030f0001036100010203000101000001030000010303000303 010001030000010301000303000001030100010301000303010001030100 010300000103020001035500010203000101000003030300010301000103 000002030000010301000103010001030100010300000103010001030000 010300000103010001030200010355000102030001010000030303000103 010001030000010301000103010001030100010301000103000001030400 030303000103000001035600010203000101000001030000010302000503 000001030100010301000103010001030100010300000103040003030300 010300000103560001020300010100000103010001030100010304000103 010001030100010301000103010001030000010304000103000001030300 020357000102030001010000010302000103000001030100010300000103 010001030100010300000203000002030000010301000103000001030100 010302000203570001020300010100000103030001030000030301000103 010001030200010301000103000001030100030301000103020001030200 010357000102030001013300000358000102030001013200010358000102 030001013100010359000102030001018d000102030001018d0001020300 01018d000102030001018d000102030001018d000ì&%Î Ì 1020300010100000103 11000103070001036c00010203000101000001038a000102030001010000 010304000303010001030100010300000103010003030100010301000303 010001030000010302000303580001020300010100000103030001030100 010300000103010001030000010300000103010001030000010300000103 010001030000020300000103000001030100010357000102030001010000 010303000103010001030000010301000103000001030000020303000103 040001030000010301000103040001035700010203000101000001030300 010301000103000001030100010300000103020002030100010301000403 000001030100010301000403570001020300010100000103030001030100 010300000103010001030000010303000203000001030000010301000103 000001030100010300000103010001035700010203000101000001030300 010301000103000001030000020300000103000001030100010300000103 000001030100010300000103010001030000010301000103570001020300 010100000503000003030200010300000103000001030100030301000103 010002030000030301000103010002030000010356000102030001018d00 0102030001018d000102030001018d000102030001018d00010203000101 8d000102030001018d000102030001018d000102030001018d0001020300 010100000103040001030700010379000102030001010000010304000103 830001020300010100000203020002030100030301000103000001030000 0103020003036c0001020300010100000203020002030000010301000103 00000103000002030000010300000103010001036b000102030001010000 030300000303040001030000010300000103010001030000010301000103 6b0001020300010100000103000000030000000300000103010004030000 01030000010301000103000005036b000102030001010000010300000203 000001030000010301000103000001030000010301000103000001036f00 010203000101000001030100000301000103000001030100010300000103 000001030100010300000103010001036b00010203000101000001030100 00030100010301000203000003030000010301000103010003036c000102 030001018d000102030001018d000102030001018d000102030001018d00 0102030001018d000102030001018d000102030001018d00010203000101 8d0001020300010100000103040001031400010312000103570001020300 010100000103040001031400010312000103570001020300010100000203 020002030100030301000103000003030200010300000103010003030100 010300000103020001030000010357000102030001010000020302000203 000001030100010300000603020001030000010300000103010001030000 020300000103000001030000020357000102030001010000030300000303 040001030000020302000103000001030100010304000103000001030100 010300000103010001035700010203000101000001030000000300000003 000001030100040300000103030001030000010301000103010004030000 010301000103000001030100010357000102030001010000010300000203 000001030000010301000103000001030400020302000103000001030100 010300000103010001030000010301000103570001020300010100000103 010000030100010300000103010001030000010304000203020001030000 010301000103000001030100010300000103000002035700010203000101 000001030100000301000103010002030000030305000103020001030100 020300000303010001030100010300000103570001020300010119000003 720001020300010118000103720001020300010117000103730001020300 01018d000102030001018d000102030001018f02030000019002fe002e00 % % Run-length encoding savings = 83.1% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'°2ÿÿŒÇ ¤Ç €$ï'„ g,„ g,3ô'.  œ&&  ""û ÿ2Modernk-!Title: tkHier2e!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:08:42 1994ð&%ÕÓ%MSEPS Preamble 0 0 34 26 0 0 34 26 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 34 def /pp_by2 26 def &&ü-úþÿÿ- "'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end œ&%. , %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier2e %%Pages: 1 %%BoundingBox: 0 0 34 26 %%CreationDate: Thu Dec 1 14:08:42 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 34 26 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 6 string def /drawcolormappedimage { 34 26 8 [34 0 0 -26 0 26] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3d9ba 000000 drawcolormappedimage fe0018000701000001011600010106000101160001010300010100000101 0100030110000101030001010000010100000101010001010f0004010000 01010000010100000101010001010f000101030001010000010100000501 0f0001010300010100000101000001011300010103000101000001010000 0101010001010f000101030001010000010101000301310006011a000601 df00 % % Run-length encoding savings = 82.8% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'Ð5ÿÿœÇ ´Ç €$ï'„ g,” g,6ì4 1&&  í¹í¹û ÿ2Modern‡-!Title: tkHier1!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:08:44 1994ó&%ÛÙ%MSEPS Preamble 0 0 185 237 0 0 185 237 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 185 def /pp_by2 237 def &&ü-úþÿÿ- í¹'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier1 %%Pages: 1 %%BoundingBox: 0 0 185 237 %%CreationDate: Thu Dec 1 14:08:44 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 185 237 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 21 string def /drawcolormappedimage { 185 237 8 [185 0 0 -237 0 237] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba e2cbae drawcolormappedimage ce0000018900000115000001010013020001000088020001000013020101 010013020001000088020001000013020101010001021201000089010000 110101020101010001020001af000102010101000102000100000f020001 00007602000100000f02000100000f020001000001020101010001020001 00000f02000100007602000100000f02000100000f020001000001020101 01000102000100000f02000100007602000100000f02000100000f020001 00000102010101000102000100000f020001000028020403020201030902 01033702000100000f020001000002020900020200010000010201010100 0102000100000f0200010000270201030202010301020103090201033702 000100000f02000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010300020303010203030102 030301020303020203032902000100000f02000100000202000007020001 020200010000010201010100010200010000020209000202000100002802 020304020103010201030102010301020103010201030102010300020103 010201032802000100000502030005020001000002020000070200010202 000100000102010101000102000100000202000007020001020200010000 2a0202030202010305020103010201030102010301020103000202032b02 000100000502000001020001050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100002b02 020301020103020204030102010301020503020202032902000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000027020103020201030102 010301020103010201030102010301020103070202032802000100000502 000002010502000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010301020103000202030102 010301020103000202030102010300020103010201032802000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000280204030302010301020203000201030102010301020303 020203032902000100000f02000100000202000007020001020200010000 0102010101000102000100000f02000100007602000100000f0200010000 0202000008010202000100000102010101000102000100000f0200010000 7602000100000f02000100000f0200010000010201010100010200010000 0f02000100007602000100000f02000100000f0200010000010201010100 01020001000010010000770100001001000010010000010201010000b201 000003010400&%0001b1000001010001020101ab0000040100010201010100 010201010100a80501040100010201010100010201010100a80501040100 010201010100010201010100a80501040100010201010100010201010100 a80501040100010201010100010201010100a80501040100010201010100 010201010100a80501040100010201010100010201010100a80501040100 010201010100010201010100a80501040100010201010100010201010100 07050703000501037505010302050103070501030e050104010001020101 010001020101010007050103060501037505010302050103070501030e05 010401000102010101000102010101000705010303050103000501030105 03036f050103020501030105030301050103000501030005010308050104 010001020101010001020101010007050103030501030005010300050103 010501036e05010302050103000501030105010300050103000502030005 010307050104010001020101010001020101010007050403000501030005 010300050103010501036e05060300050103010501030005010300050103 010501030705010401000102010101000102010101000705010303050103 00050103000505036e050103020501030005050300050103000501030105 010307050104010001020101010001020101010007050103030501030005 010300050103720501030205010300050103040501030005010301050103 070501040100010201010100010201010100070501030305010300050103 00050103010501036e050103020501030005010301050103000501030005 020300050103070501040100010201010100010201010100070501030305 010300050103010503036f05010302050103010503030105010300050103 000501030805010401000102010101000102010101009a0501030b050104 01000102010101000102010101000605060379050803090501030b050104 01000102010101000102010101000605060379050803090501030b050104 0100010201010100010201010100a8050104010001020101010001020101 0100a80501040100010201010100010201010100a8050104010001020101 0100010201010100a80501040100010201010100010201010100a8050104 0100010201010100010201010100a8050104010001020101010001020101 0100aa040100010201010100010201010000ab0401000102010101000102 0101ac05010001020101010001020101ac05010001020101010001020101 010591040305120401050100010201010100010201010105900400000305 110400000105010001020101010001020101010501048d05010003050104 06060004060601000105010001020101010001020101010501048d050100 030501040506000000040606010001050100010201010100010201010105 01048d050100030501040506000001040506010001050100010201010100 010201010105010400050103020501031905010300050103660501000305 010404060100010405060100010501000102010101000102010101050104 000501030205010385050100030501040406010000050104040601000105 010001020101010001020101010501040005010302050103010503030105 010301050103010501030105030301050103000501036605010003050104 030601000105010404060100010501000102010101000102010101050104 000501030205010300050103010501030005010301050103010501030005 010301050103000501030005010366050100030501040306010002050104 030601000105010001020101010001020101010501040005060304050103 010501030005010300050103050501030005010300050103660501000305 010402060100030501040306010001050100010201010100010201010105 010400050103020501030105040301050103000501030005010302050403 000501030005010366050100030501040206010004050104020601000105 010001020101010001020101010501040005010302050103000501030105 010301050103000501030005010301050103010501030005010300050103 660501000305010401060100050501040206010001050100010201010100 010201010105010400050103020501030005010301050103020501030105 010302050103010501030005010300050103660501000305010401060100 060501040106010001050100010201010100010201010105010400050103 020501030105020300050103010501030105010303050203000503030005 010366050100030501040006010007050104010601000105010001020101 010001020101010501048d05010003050104000601000805010400060100 0105010001020101010001020101010501048d0501000305010401000b04 000601000105010001020101010001020101010501048d05010003050104 00000d0401000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e060100010501000102010101000102010101050104000501030405 01030705010379050100030501040e060100010501000102010101000102 010101050104000501030&%40501030705010379050100030501040e060100 010501000102010101000102010101050104000501030105010300050103 010503030105010300050103020503036f050100030501040e0601000105 010001020101010001020101010501040005010300050103000502030005 010301050103000502030005010300050103010501036e05010003050104 0e0601000105010001020101010001020101010501040005010300050103 0105010304050103000501030105010300050103010501036e0501000305 01040e060100010501000102010101000102010101050104000501030005 01030105010301050403000501030105010300050103010501036e050100 030501040e06010001050100010201010100010201010105010400050103 000501030105010300050103010501030005010301050103000501030105 01036e050100030501040e06010001050100010201010100010201010105 010400050103000501030005020300050103010501030005010301050103 00050103010501036e050100030501040e06010001050100010201010100 010201010105010400050103010501030005010301050203000503030105 0103010503036f050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 010101050104000501030005010300050103000501030e05010370050100 030501040e06010001050100010201010100010201010105010400050103 000501030005010384050100030501040e06010001050100010201010100 010201010105010400050103000501030005010300050103000501030005 01030205030301050103010503036a050100030501040e06010001050100 010201010100010201010105010400050103000501030005010300050103 000502030005010300050103010501030005010300050103010501036905 0100030501040e0601000105010001020101010001020101010501040005 010300050103000501030005010300050103010501030005010301050103 00050103000502036c050100030501040e06010001050100010201010100 010201010105010400050103000501030005010300050103000501030105 0103000501030105010300050103020502036a050100030501040e060100 010501000102010101000102010101050104000501030005010300050103 000501030005010301050103000501030105010300050103030502036905 010003050104100001050100010201010100010201010105010400050103 000501030005010300050103000501030105010300050103010501030005 0103000501030105010369050100030501040d0000040100010501000102 010101000102010101050104000501030005010300050103000501030005 0103010501030105030301050103010503036a0501000305010401000a05 010401000105010001020101010001020101010501048d05010003050104 01000a05010401000105010001020101010001020101010501048d050100 0305010401000a0501040100010501000102010101000102010101050104 8d0501000305010401000a05010401000105010001020101010001020101 010501048d0501000305010401000a050104010001050100010201010100 01020101010501048d0501000305010401000a0501040100010501000102 0101010001020101010501048d0501000305010401000a05010401000105 010001020101010001020101010501048d0501000305010401000a050104 01000105010001020101010001020101010501048d050100030501040100 0a0501040100010501000102010101000102010101050104000501030b05 010300050103790501000305010401000a05010401000105010001020101 01000102010101050104000501030b0501037c0501000305010401000a05 010401000105010001020101010001020101010501040005010300050103 000501030205010300050103000501030105030301050103000501030205 0303650501000305010401000a0501040100010501000102010101000102 010101050104000501030005020300050103000501030005020300050103 000501030105010300050203000501030005010301050103640501000305 010401000a05010401000105010001020101010001020101010501040005 010300050103010501030005010301050103000501030405010300050103 0105010304050103640501000305010401000a0501040100010501000102 010101000102010101050104000501030005010301050103000501030105 010300050103010504030005010301050103010504036405010003050104 01000a050104010001050100010201010100010201010105010400050103 000501030105010300050103010501030005010300050103010501030005 010301050103000501030105010364&%0501000305010401000a0501040100 010501000102010101000102010101050104000501030005010301050103 000501030005020300050103000501030105010300050103010501030005 010301050103640501000305010401000a05010401000105010001020101 010001020101010501040005010300050103010501030105010300050103 000501030105020300050303010501030105020300050103630501000305 010401000a05010401000105010001020101010001020101010501048d05 01000305010401000a050104010001050100010201010100010201010105 01048d0501000305010401000a0501040100010501000102010101000102 0101010501048d0501000305010401000a05010401000105010001020101 010001020101010501048d0501000305010401000a050104010001050100 01020101010001020101010501048d0501000305010401000a0501040100 0105010001020101010001020101010501048d0501000305010401000a05 010401000105010001020101010001020101010501048d05010003050104 01000c0401000105010001020101010001020101010501048d0501000305 010400000d04010001050100010201010100010201010105010400050103 8a050100030501040e060100010501000102010101000102010101050104 000501038a050100030501040e0601000105010001020101010001020101 010501040005010301050303010501030105010301050103010503037205 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030005010301050103010501030005010301050103 71050100030501040e060100010501000102010101000102010101050104 000501030005010301050103010501030005010300050103050501037105 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030105010300050103000501030205040371050100 030501040e06010001050100010201010100010201010105010400050103 000501030105010301050103000501030005010301050103010501037105 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030205010301050103020501030105010371050100 030501040e06010001050100010201010100010201010105010400050103 010503030305010301050103030502030005010370050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 010001050100010201010100010201010105010400050103020501038505 0100030501040e0601000105010001020101010001020101010501040005 01030105010386050100030501040e060100010501000102010101000102 010101050104000501030005010303050303010501030005010302050303 020503030205030363050100030501040e06010001050100010201010100 010201010105010400050303030501030105010300050203000501030005 010301050103000501030105010300050103010501036205010003050104 0e0601000105010001020101010001020101010501040005030307050103 000501030105010300050203070501030005020365050100030501040e06 010001050100010201010100010201010105010400050103000501030305 040300050103010501030205020302050403020502036305010003050104 0e0601000105010001020101010001020101010501040005010301050103 010501030105010300050103010501030305020300050103010501030305 020362050100030501040e06010001050100010201010100010201010105 010400050103020501030005010301050103000501030105010300050103 010501030005010301050103000501030105010362050100030501040e06 010001050100010201010100010201010105010400050103030501030005 020300050303010501030105030302050203000501030005030363050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e06010001050100010201010100010201010105010400050103 020501030f0501030f05010361050100030501040e060100010501000102 010101000102010101050104000501030105010&%3100501030f0501036105 0100030501040e0601000105010001020101010001020101010501040005 010300050103030503030105010300050103010503030005010301050103 010503030105010301050103000501030205010355050100030501040e06 010001050100010201010100010201010105010400050303030501030105 010300050203000501030105010301050103010501030005010301050103 0005010300050103010501030205010355050100030501040e0601000105 010001020101010001020101010501040005030303050103010501030005 010301050103010501030105010301050103000501030405030303050103 0005010356050100030501040e0601000105010001020101010001020101 010501040005010300050103020505030005010301050103010501030105 010301050103000501030405030303050103000501035605010003050104 0e0601000105010001020101010001020101010501040005010301050103 010501030405010301050103010501030105010301050103000501030405 0103000501030305020357050100030501040e0601000105010001020101 010001020101010501040005010302050103000501030105010300050103 010501030105010300050203000502030005010301050103000501030105 01030205020357050100030501040e060100010501000102010101000102 010101050104000501030305010300050303010501030105010302050103 010501030005010301050303010501030205010302050103570501000305 01040e060100010501000102010101000102010101050104330500035805 0100030501040e0601000105010001020101010001020101010501043205 010358050100030501040e06010001050100010201010100010201010105 01043105010359050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501040005010311050103070501036c050100030501040e060100 010501000102010101000102010101050104000501038a05010003050104 0e0601000105010001020101010001020101010501040005010304050303 010501030105010300050103010503030105010301050303010501030005 01030205030358050100030501040e060100010501000102010101000102 010101050104000501030305010301050103000501030105010300050103 000501030105010300050103000501030105010300050203000501030005 01030105010357050100030501040e060100010501000102010101000102 010101050104000501030305010301050103000501030105010300050103 000502030305010304050103000501030105010304050103570501000305 01040e060100010501000102010101000102010101050104000501030305 010301050103000501030105010300050103020502030105010301050403 00050103010501030105040357050100030501040e060100010501000102 010101000102010101050104000501030305010301050103000501030105 010300050103030502030005010300050103010501030005010301050103 000501030105010357050100030501040e06010001050100010201010100 010201010105010400050103030501030105010300050103000502030005 010300050103010501030005010300050103010501030005010301050103 000501030105010357050100030501040e06010001050100010201010100 010201010105010400050503000503030205010300050103000501030105 030301050103010502030005030301050103010502030005010356050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e06010001050100010201010100010201010105010400050103 040501030705010379050100030501040e06010001050100010201010100 0102010101050104000501030405010383050100030501040e0601000105 010001020101010001020101010501040005020302050203010503030105 01030005010300050103020503036c050100030501040e06010001050100 010201010100010201010105010400050203020502030005010301050103 00050103000502030005010300050103010501036b050100030501040e06 010001050100010201010100010201010105010400050303000503030405 010300050103000501030105010300050103010501036b05010003050104 0e0601000105010001020101010001020101010501040005_&%³ ± 010300050003 000500030005010301050403000501030005010301050103000505036b05 0100030501040e0601000105010001020101010001020101010501040005 010300050203000501030005010301050103000501030005010301050103 000501036f050100030501040e0601000105010001020101010001020101 010501040005010301050003010501030005010301050103000501030005 01030105010300050103010501036b050100030501040e06010001050100 010201010100010201010105010400050103010500030105010301050203 000503030005010301050103010503036c050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d05010003050104100001050100 010201010000040101050104000501030405010314050103120501035705 01000305010400060c000004010001050100030104000001010501040005 010304050103140501031205010357050100030501040006010008050104 000601000105040000010100010201010105010400050203020502030105 030301050103000503030205010300050103010503030105010300050103 020501030005010357050100030501040106010007050104000601000105 010001020101010001020101010501040005020302050203000501030105 010300050603020501030005010300050103010501030005020300050103 000501030005020357050100030501040106010006050104010601000105 010001020101010001020101010501040005030300050303040501030005 020302050103000501030105010304050103000501030105010300050103 010501035705010003050104020601000505010401060100010501000102 010101000102010101050104000501030005000300050003000501030105 040300050103030501030005010301050103010504030005010301050103 000501030105010357050100030501040206010004050104020601000105 010001020101010001020101010501040005010300050203000501030005 010301050103000501030405020302050103000501030105010300050103 010501030005010301050103570501000305010403060100030501040206 010001050100010201010100010201010105010400050103010500030105 010300050103010501030005010304050203020501030005010301050103 000501030105010300050103000502035705010003050104030601000205 010403060100010501000102010101000102010101050104000501030105 000301050103010502030005030305050103020501030105020300050303 010501030105010300050103570501000305010404060100010501040306 010001050100010201010100010201010105010419050003720501000305 010404060100000501040406010001050100010201010100010201010105 010418050103720501000305010405060000020404060100010501000102 010101000102010101050104170501037305010003050104050600000104 050601000105010001020101010001020101010501048d05010003050104 06060104050601000105010001020101010001020101010501048d050100 030501040606000406060100010501000102010101000102010101050104 8f0003050104100001050100010201010100010201010105000490000305 000411000105010001020101010001020101ac0501000102010101000102 0101ac05010001020101010001020101ae0001020101010001020001af00 010201010100130200010000880200010000130201010100130200010000 880200010000130201010100140100008901000015010000b701 % % Run-length encoding savings = 75.7% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'Èh8ÿÿ¤7 œ7 €$ï'„ g,¤ g,94 V"&&  ›¼›¼û ÿ2Modern‡-!Title: tkToplev!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:11:55 1994ó&%ÛÙ%MSEPS Preamble 0 0 188 155 0 0 188 155 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 188 def /pp_by2 155 def &&ü-úþÿÿ- ›¼'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkToplev %%Pages: 1 %%BoundingBox: 0 0 188 155 %%CreationDate: Thu Dec 1 14:11:55 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 188 155 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 188 155 8 [188 0 0 -155 0 155] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba drawcolormappedimage d10000018c0000011500000101001302000100008b020001000013020101 01001302000100008b02000100001302010101000102120100008c010000 110101020101010001020001b2000102010101000102000100000f020001 00007902000100000f02000100000f020001000001020101010001020001 00000f02000100007902000100000f02000100000f020001000001020101 01000102000100000f02000100007902000100000f02000100000f020001 00000102010101000102000100000f02000100002b020403020201030702 01033902000100000f020001000002020900020200010000010201010100 0102000100000f02000100002b020103010201030b020103390200010000 0f0200010000020200000702000102020001000001020101010001020001 00000f02000100002b020103020201030002010301020303010201030102 030302020103000201032b02000100000f02000100000202000007020001 020200010000010201010100010200010000020209000202000100002b02 010302020103000201030002010301020103000201030002010301020103 00020103000202032b020001000005020300050200010000020200000702 000102020001000001020101010001020001000002020000070200010202 000100002b02010302020103000201030402010300020103000201030102 010300020103010201032b02000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100002b02010302020103000201030102040300020103 000201030102010300020103010201032b02000100000502000001020001 050200010000020200000702000102020001000001020101010001020001 00000202000008010202000100002b020103020201030002010300020103 0102010300020103000201030102010300020103010201032b0200010000 050200000201050200010000020200000702000102020001000001020101 01000102000100000f02000100002b020103010201030102010300020103 0102010300020103000201030102010300020103000202032b0200010000 0f0200010000020200000702000102020001000001020101010001020001 00000f02000100002b020403020201030102020300020303010203030202 0103000201032b02000100000f0200010000020200000702000102020001 00000102010101000102000100000f02000100004b0201032b0200010000 0f0200010000020200000801020200010000010201010100010200010000 0f020001000047020103010201032b02000100000f02000100000f020001 00000102010101000102000100000f0200010000480203032c0200010000 0f02000100000f0200&%010000010201010100010200010000100100007a01 00001001000010010000010201010000b5010000030104000001b4000001 010001020101ae0000040100010201010100010201010100ab0501040100 010201010100010201010100ab0501040100010201010100010201010100 ab0501040100010201010100010201010100ab0501040100010201010100 010201010100ab0501040100010201010100010201010100ab0501040100 010201010100010201010100ab0501040100010201010100010201010100 ab0501040100010201010100010201010100ab0501040100010201010100 010201010100ab05010401000102010101000102010101000e0501035c05 01033b05010401000102010101000102010101000e050103570501030205 01030e0501032a05010401000102010101000102010101000d0503035605 0103020501030e0501032a05010401000102010101000102010101000d05 000301050003030501030005010301050303050501030305010302050203 030501030205010306050303020501030205010301050103000501030105 030305050403000501030005020303050303010504030305010303050103 0205020303050103020501030b0501040100010201010100010201010100 0c0501030105010302050403000501030105010304050103030501030105 010300050103020501030205010305050203000501030105010302050103 010504030005010301050103050501030205020300050203010501030105 010301050103050501030305010301050103000501030205010302050103 0b05010401000102010101000102010101000c0501030105010302050103 030501030105010305050103010501030105010302050103010501030205 010305050103050501030205010301050103030501030105010305050103 020501030205010305050103010501030605010301050103010501030205 010301050103020501030b05010401000102010101000102010101000b05 010303050103010501030305050305050103010501030105010302050103 010501030205010306050303020501030205010301050103030505030505 010302050103020501030205040301050103060501030105010301050103 0205010301050103020501030b0501040100010201010100010201010100 0b05070301050103030501030a0500030105000302050103020501030105 010302050103080502030105010302050103010501030305010309050103 020501030205010301050103010501030105010307050003010500030205 01030205010301050103020501030b050104010001020101010001020101 01000b0501030305010301050103030501030a0503030205010302050103 010501030205010309050103010501030205010301050103030501030905 010302050103020501030105010301050103010501030705030302050103 0205010301050103020501030b0501040100010201010100010201010100 0a0501030505010300050103030502030005010307050103040501030005 010302050203000502030505020300050103010502030005020301050103 030502030005010305050103000500030005010302050103010505030105 01030005000306050103040501030005010302050203000502030b050104 01000102010101000102010101000a050103050501030005010304050303 080501030505020304050203000501030605030303050203000501030105 010304050303070501030105010302050103020502030005010301050103 070501030505020304050203000501030b05010401000102010101000102 01010100290501035d0501031f0501040100010201010100010201010100 280501035d05010320050104010001020101010001020101010027050203 5c050203200501040100010201010100010201010100ab05010401000102 01010100010201010100ab05010401000102010101000102010101002105 01030105010348050103090501032c050104010001020101010001020101 010021050103010501032805010306050103140501030905010309050103 200501040100010201010100010201010100210501030105010328050103 060501031405010309050103090501032005010401000102010101000102 010101000b05010300050103010503030305030302050103010501030005 010303050103030501030105010301050103010503030205010300050203 010504030305040302050203090504030205030302050103020503030105 0403010503031805010401000102010101000102010101000b0504030005 010301050103010501030105010301050103010501030005010303050103 030501030105010301050103000501030105010301050203000502030105 010306050103030501030005010307050103000502030105010301050103 010501030105010301050103010501030205010301050103170501040100 0102010101000102010101000b0501030305010301050103050501030105 010301050103010501030105010304050103010501030105010304050103 010501030205010301050103060501030205010302050103050501030205 010301050103010501030105010301050103010501030105010302050103 010501031705010401000102010101000102010101000b05010303050503 020504030105010301050103010501030105010305050103000501030005 010302050403010501030205010&%301050103060501030205010302050103 050501030205010301050503010501030105050301050103020505031705 010401000102010101000102010101000b05010303050103050501030105 010301050103010501030205000301050003060501030005010300050103 010501030105010301050103020501030105010306050103020501030205 010305050103020501030105010305050103010501030505010302050103 1b05010401000102010101000102010101000b0501030305010305050103 010501030105010301050103020503030705010301050103020501030105 010301050103020501030105010306050103020501030205010305050103 0205010301050103050501030105010305050103020501031b0501040100 0102010101000102010101000b0501030305020300050103010505030105 010301050103030501030805010301050103020505030105010302050103 010501030005000304050103000500030105010300050103070501030005 020301050203000501030105010301050203000501030105010300050003 00050203000501031705010401000102010101000102010101000b050103 040503030305020300050103000501030105010303050103080501030105 010303050203000501030005010302050103020501030605010303050203 090501030005010302050303020501030205030303050103020503031805 010401000102010101000102010101002b0501037d050104010001020101 01000102010101002a0501037e0501040100010201010100010201010100 290502037e0501040100010201010100010201010100ab05010401000102 01010100010201010100ab05010401000102010101000102010101000b05 01030005010301050103030501032a050103000501030605020323050103 3005010401000102010101000102010101000b0501030005010301050103 020501032b05010300050103050501032005010302050103300501040100 0102010101000102010101000b0500030105000302050103010501032c05 000301050003060501032005010302050103300501040100010201010100 010201010100120501030005010305050303020501030005020303050303 03050303030503030c050303000501030005010302050203030501030005 010300050203050504030005010300050203030503032405010401000102 010101000102010101001205030305050103010501030105020300050203 0105020300050103010501030105010301050203000501030c0501030105 040301050103000501030205020300050203000501030505010302050203 000502030105010301050103230501040100010201010100010201010100 120503030905010301050103020501030105010309050103010501031005 010301050103030501030205010301050103010501030105010305050103 020501030205010301050103010501032305010401000102010101000102 010101001205010300050103050504030105010302050103020503030305 0403020503030d0501030105010303050103020501030105010301050103 010501030505010302050103020501030105050323050104010001020101 010001020101010012050103010501030305010301050103010501030205 0103040502030105010301050103040502030c0501030105010303050103 020501030105010301050103010501030505010302050103020501030105 010327050104010001020101010001020101010012050103020501030205 010301050103010501030205010305050103010501030105010305050103 0c0501030105010303050103020501030105010301050103010501030505 010302050103020501030105010327050104010001020101010001020101 010012050103030501030105050301050103020501030105020300050103 0105050301050203000501030c0501030105010304050103000501030205 010301050103010501030505010300050003000501030205010301050203 000501032305010401000102010101000102010101001205010304050103 010502030005010300050103020501030205030303050203000501030105 03030d050103010501030505020303050103010501030105010306050103 010501030205010302050303240501040100010201010100010201010100 ab0501040100010201010100010201010100ab0501040100010201010100 010201010100ab0501040100010201010100010201010100ab0501040100 010201010100010201010100ab0501040100010201010100010201010100 10050103160501031f0504035a0501040100010201010100010201010100 10050103090501030a0501031e0501030205010359050104010001020101 010001020101010010050103090501030a0501031e050103020501035905 010401000102010101000102010101000d05040302050303010504030105 030302050403040503030305030303050303070501035905010401000102 010101000102010101000c05010300050203010501030105010301050103 020501030105010301050203000501030205010301050103010502030005 01030105010301050103050501035a050104010001020101010001020101 01000b050103020501030505010301050103060501030105010302050103 05050103010501030505010301050103040501035b050104010001020101 01000102010101000b050103020501030205½&%om040301050103030504030105 010302050103020504030205030302050503030501035c05010401000102 010101000102010101000b05010302050103010501030105010301050103 020501030105010301050103020501030105010301050103040502030105 0103070501035c05010401000102010101000102010101000b0501030205 010301050103010501030105010302050103010501030105010302050103 010501030105010305050103010501036605010401000102010101000102 010101000c05010300050203010505030105010300050003000505030105 020300050103020505030105020300050103010502030005010303050103 5c05010401000102010101000102010101000d0501030005010302050203 000501030105010302050203000501030005010300050103040502030005 01030105030303050303040501035c050104010001020101010001020101 0100ab0501040100010201010100010201010100ab050104010001020101 0100010201010100ab0501040100010201010100010201010100ab050104 0100010201010100010201010100ab050104010001020101010001020101 0100ab0501040100010201010100010201010100ab050104010001020101 0100010201010100ab0501040100010201010100010201010100ab050104 0100010201010100010201010100ab050104010001020101010001020101 0100ab0501040100010201010100010201010100ad040100010201010100 010201010000ae04010001020101010001020101af050100010201010100 01020101af05010001020101010001020101af0501000102010101000102 0101af05010001020101010001020101af05010001020101010001020101 af05010001020101010001020101af050100010201010100010201011305 310028052b00140501000102010101000102010113053000000428052a00 00041405010001020101010001020101130501002d050104280501002705 01041405010001020101010001020101130501002d050104280501002705 01041405010001020101010001020101130501002d050104280501002705 01041405010001020101010001020101130501002d050104280501002705 01041405010001020101010001020101130501002d050104280501002705 01041405010001020101010001020101130501002d050104280501002705 01041405010001020101010001020101130501000a050103030501031a05 0104280501000b0501030205010314050104140501000102010101000102 0101130501000a050103030501031a050104280501000b05020301050103 140501041405010001020101010001020101130501000b05010301050103 01050303020503030e050104280501000b05020301050103010503030e05 01041405010001020101010001020101130501000b050103010501030005 01030105010300050103010501030d050104280501000b05010300050003 0005010300050103010501030d0501041405010001020101010001020101 130501000c05030301050103010501030005020310050104280501000b05 0103000500030005010300050103010501030d0501041405010001020101 010001020101130501000d05010302050503020502030e05010428050100 0b0501030105020300050103010501030d05010414050100010201010100 01020101130501000d05010302050103070502030d050104280501000b05 01030105020300050103010501030d050104140501000102010101000102 0101130501000d050103020501030105010300050103010501030d050104 280501000b0501030205010300050103010501030d050104140501000102 0101010001020101130501000d05010303050303020503030e0501042805 01000b05010302050103010503030e050104140501000102010100000401 130501002d05010428050100270501041405010003010400000113050100 2d0501042805010027050104140504000001010001020101130501002d05 010428050100270501041405010001020101010001020101130501002d05 010428050100270501041405010001020101010001020101130501002d05 010428050100270501041405010001020101010001020101130501002d05 010428050100270501041405010001020101010001020101130501002d05 010428050100270501041405010001020101010001020101130501002d05 010428050100270501041405010001020101010001020101130501002d05 010428050100270501041405010001020101010001020101130501002f04 280501002904140501000102010101000102010113050000300428050000 2a041405010001020101010001020101af05010001020101010001020101 af05010001020101010001020101af05010001020101010001020101af05 010001020101010001020101af05010001020101010001020101af050100 01020101010001020101af05010001020101010001020101b10001020101 010001020001b2000102010101001302000100008b020001000013020101 01001302000100008b0200010000130201010100140100008c0100001501 0000ba01 % % Run-length encoding savings = 76.1% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'àØ;ÿÿ¬7 ´7 €$ï'„ g,´ g,<ÌE iå&&  ((û ÿ2Modernl-!Title: tkHier2f!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:08:43 1994ð&%ÕÓ%MSEPS Preamble 0 0 40 26 0 0 40 26 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 40 def /pp_by2 26 def &&ü-úþÿÿ- ('ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end å&%À ¾ %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier2f %%Pages: 1 %%BoundingBox: 0 0 40 26 %%CreationDate: Thu Dec 1 14:08:43 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 40 26 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 6 string def /drawcolormappedimage { 40 26 8 [40 0 0 -26 0 26] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3d9ba 000000 drawcolormappedimage fe0048000101020001010700010116000101020001010700010116000101 020001010100030101000101000001010000010110000101020001010000 0101010001010000010100000201000001010f0006010000010101000101 0000010100000101010001010f0001010200010100000501000001010000 0101010001010f0001010200010100000101040001010000010101000101 0f0001010200010100000101010001010000010100000201000001010f00 010102000101010003010100010100000101000001012200010112000801 090001011200080109000101fb00 % % Run-length encoding savings = 78.5% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'@Ð>ÿÿ¬Ç ÄÇ €$ï'„ g, Ä g,?¬'. †&&  ‡½‡½û ÿ2Modernˆ-!Title: tkPlace1!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:12:40 1994ó&%ÛÙ%MSEPS Preamble 0 0 189 135 0 0 189 135 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 189 def /pp_by2 135 def &&ü-úþÿÿ- ‡½'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPlace1 %%Pages: 1 %%BoundingBox: 0 0 189 135 %%CreationDate: Thu Dec 1 14:12:40 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 189 135 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 24 string def /drawcolormappedimage { 189 135 8 [189 0 0 -135 0 135] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 dbf3f3 f3d9ba 5d7988 9cc9e2 drawcolormappedimage d20000018d0000011500000101001302000100008c020001000013020101 01001302000100008c02000100001302010101000102120100008d010000 110101020101010001020001b3000102010101000102000100000f020001 00007a02000100000f02000100000f020001000001020101010001020001 00000f02000100007a02000100000f02000100000f020001000001020101 01000102000100000f02000100007a02000100000f02000100000f020001 00000102010101000102000100000f020001000039020103070201033402 000100000f02000100000202090002020001000001020101010001020001 00000f0200010000430201033402000100000f0200010000020200000702 00010202000100000102010101000102000100000f02000100002e020103 010201030102010300020103010203030102010300020103310200010000 0f0200010000020200000702000102020001000001020101010001020001 0000020209000202000100002e0201030102010301020103000201030002 010301020103000202030002010330020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100002f02010300020103000201030102010300020203 030201030102010330020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 00010202000100002f020103000201030002010301020103020202030102 010301020103300200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100002f02010300020103000201030102010303020203000201030102 010330020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100003002010301020103 02020103000201030102010300020103010201033002000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100003002010301020103020201030102030301020103010201033002 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100007a02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100007a0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 7a02000100000f02000100000f0200010000010201010100010200010000 100100007b0100001001000010010000010201010000b601000003010400 000134047b0504000001010001020101330400067b050100010201010100 0102ù&%è æ 01010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010432067b05 010001020101010001020101000433067b05010001020101010001020101 b005010001020101010001020101b005010001020101010001020101b005 010001020101010001020101b005010001020101010001020101b0050100 01020101010001020101b005010001020101010001020101b00501000102 0101010001020101b005010001020101010001020101b005010001020101 010001020101b005010001020101010001020101b0050100010201010100 01020101b005010001020101010001020101b00501000102010101000102 0101b005010001020101010001020101b005010001020101010001020101 b005010001020101010001020101b005010001020101010001020101b005 010001020101010001020101b005010001020101010001020101b0050100 01020101010001020101b005010001020101010001020101b00501000102 0101010001020101b005010001020101010001020101b005010001020101 010001020101b005010001020101010001020101b0050100010201010100 01020101b005010001020101010001020101b00501000102010101000102 0101b005010001020101010001020101b005010001020101010001020101 b005010001020101010001020101b005010001020101010001020101b005 010001020101010001020101b005010001020101010001020101b0050100 01020101010001020101b005010001020101010001020101b00501000102 0101010001020101b005010001020101010001020101b005010001020101 010001020101b005010001020101010001020101b0050100010201010100 01020101b005010001020101010001020101b00501000102010101000102 0101b005010001020101010001020101b005010001020101010001020101 b005010001020101010001020101b005010001020101010001020101b005 010001020101010001020101b005010001020101010001020101b0050100 01020101010001020101b005010001020101010001020101b00501000102 0101010001020101b00501000102010100000401b0050100030104000001 b00504000001010001020101b005010001020101010001020101b0050100 01020101010001020101b005010001020101010001020101b00501000102 0101010001020101b005010001020101010001020101b005010001020101 010001020101b005010001020101010001020101b0050100010201010100 01020101b005010001020101010001020101b00501000102010101000102 0101b005010001020101010001020101b005010001020101010001020101 b005010001020101010001020101b005010001020101010001020101b005 010001020101010001020101b005010001020101010001020101b2000102 0101010001020001b3000102010101001302000100008c02000100001302 010101001302000100008c0200010000130201010100140100008d010000 15010000bb01 % % Run-length encoding savings = 89.3% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'è8Aÿÿ€$ï'„ g, Ô g,Bì '. Í&&  ‡½‡½û ÿ2Modernˆ-!Title: tkPlace2!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:12:41 1994ó&%ÛÙ%MSEPS Preamble 0 0 189 135 0 0 189 135 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 189 def /pp_by2 135 def &&ü-úþÿÿ- ‡½'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPlace2 %%Pages: 1 %%BoundingBox: 0 0 189 135 %%CreationDate: Thu Dec 1 14:12:41 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 189 135 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 24 string def /drawcolormappedimage { 189 135 8 [189 0 0 -135 0 135] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba dbf3f3 5d7988 9cc9e2 drawcolormappedimage d20000018d0000011500000101001302000100008c020001000013020101 01001302000100008c02000100001302010101000102120100008d010000 110101020101010001020001b3000102010101000102000100000f020001 00007a02000100000f02000100000f020001000001020101010001020001 00000f02000100007a02000100000f02000100000f020001000001020101 01000102000100000f02000100007a02000100000f02000100000f020001 00000102010101000102000100000f020001000039020103070201033402 000100000f02000100000202090002020001000001020101010001020001 00000f0200010000430201033402000100000f0200010000020200000702 00010202000100000102010101000102000100000f02000100002e020103 010201030102010300020103010203030102010300020103310200010000 0f0200010000020200000702000102020001000001020101010001020001 0000020209000202000100002e0201030102010301020103000201030002 010301020103000202030002010330020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100002f02010300020103000201030102010300020203 030201030102010330020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 00010202000100002f020103000201030002010301020103020202030102 010301020103300200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100002f02010300020103000201030102010303020203000201030102 010330020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100003002010301020103 02020103000201030102010300020103010201033002000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100003002010301020103020201030102030301020103010201033002 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100007a02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100007a0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 7a02000100000f02000100000f0200010000010201010100010200010000 100100007b0100001001000010010000010201010000b601000003010400 0001b00404000001010001020101b004010001020101010001020101b004 0100@&%vt01020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101220434055804 010001020101010001020101220433050006580401000102010101000102 010122040105300701065804010001020101010001020101220401053007 010658040100010201010100010201012204010530070106580401000102 010101000102010122040105300701065804010001020101010001020101 220401053007010658040100010201010100010201012204010530070106 580401000102010101000102010122040105300701065804010001020101 010001020101220401053007010658040100010201010100010201012204 010530070106580401000102010101000102010122040105300701065804 010001020101010001020101220401053007010658040100010201010100 010201012204010530070106580401000102010101000102010122040105 300701065804010001020101010001020101220401053007010658040100 010201010100010201012204010530070106580401000102010101000102 010122040105300701065804010001020101010001020101220401053007 010658040100010201010100010201012204010530070106580401000102 010101000102010122040105300701065804010001020101010001020101 220401053007010658040100010201010100010201012204010530070106 580401000102010101000102010122040105300701065804010001020101 010001020101220401053007010658040100010201010100010201012204 010530070106580401000102010101000102010122040105300701065804 010001020101010001020101220401053007010658040100010201010100 010201012204010530070106580401000102010101000102010122040105 300701065804010001020101010001020101220401053007010658040100 010201010100010201012204010530070106580401000102010101000102 010122040105300701065804010001020101010001020101220401053206 580401000102010101000102010122040005330658040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010100000401 b0040100030104000001b00404000001010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b20001020101010001020001b30001020101010013020001 00008c02000100001302010101001302000100008c020001000013020101 0100140100008d01000015010000bb01 % % Run-length encoding savings = 89.0% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'è8Dÿÿ€$ï'„ g, ä g,EÜ 4 ô&&  ‡½‡½û ÿ2Modernˆ-!Title: tkPlace4!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:12:42 1994ó&%ÛÙ%MSEPS Preamble 0 0 189 135 0 0 189 135 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 189 def /pp_by2 135 def &&ü-úþÿÿ- ‡½'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPlace4 %%Pages: 1 %%BoundingBox: 0 0 189 135 %%CreationDate: Thu Dec 1 14:12:42 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 189 135 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 24 string def /drawcolormappedimage { 189 135 8 [189 0 0 -135 0 135] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba dbf3f3 5d7988 9cc9e2 drawcolormappedimage d20000018d0000011500000101001302000100008c020001000013020101 01001302000100008c02000100001302010101000102120100008d010000 110101020101010001020001b3000102010101000102000100000f020001 00007a02000100000f02000100000f020001000001020101010001020001 00000f02000100007a02000100000f02000100000f020001000001020101 01000102000100000f02000100007a02000100000f02000100000f020001 00000102010101000102000100000f020001000039020103070201033402 000100000f02000100000202090002020001000001020101010001020001 00000f0200010000430201033402000100000f0200010000020200000702 00010202000100000102010101000102000100000f02000100002e020103 010201030102010300020103010203030102010300020103310200010000 0f0200010000020200000702000102020001000001020101010001020001 0000020209000202000100002e0201030102010301020103000201030002 010301020103000202030002010330020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100002f02010300020103000201030102010300020203 030201030102010330020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 00010202000100002f020103000201030002010301020103020202030102 010301020103300200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100002f02010300020103000201030102010303020203000201030102 010330020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100003002010301020103 02020103000201030102010300020103010201033002000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100003002010301020103020201030102030301020103010201033002 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100007a02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100007a0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 7a02000100000f02000100000f0200010000010201010100010200010000 100100007b0100001001000010010000010201010000b601000003010400 0001b00404000001010001020101b004010001020101010001020101b004 0100g&%ÃÁ01020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b0040100010201010100010201015805570401000102 010101000102010157050006570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010100000401010554070106 570401000301040000010105540701065704040000010100010201010105 540701065704010001020101010001020101010554070106570401000102 010101000102010101055407010657040100010201010100010201010105 540701065704010001020101010001020101010554070106570401000102 010101000102010101055407010657040100010201010100010201010105 540701065704010001020101010001020101010554070106570401000102 010101000102010101055407010657040100010201010100010201010105 540701065704010001020101010001020101010554070106570401000102 010101000102010101055407010657040100010201010100010201010105 540701065704010001020101010001020101010554070106570401000102 010101000102010101055606570401000102010101000102010100055706 5704010001020101010001020101b20001020101010001020001b3000102 010101001302000100008c02000100001302010101001302000100008c02 00010000130201010100140100008d01000015010000bb01 % % Run-length encoding savings = 88.9% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'è8Gÿÿ€$ï'„ g, ô g,HE ø&&  ‡½‡½û ÿ2Modernˆ-!Title: tkPlace3!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:12:42 1994ó&%ÛÙ%MSEPS Preamble 0 0 189 135 0 0 189 135 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 189 def /pp_by2 135 def &&ü-úþÿÿ- ‡½'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPlace3 %%Pages: 1 %%BoundingBox: 0 0 189 135 %%CreationDate: Thu Dec 1 14:12:42 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 189 135 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 24 string def /drawcolormappedimage { 189 135 8 [189 0 0 -135 0 135] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba dbf3f3 5d7988 9cc9e2 drawcolormappedimage d20000018d0000011500000101001302000100008c020001000013020101 01001302000100008c02000100001302010101000102120100008d010000 110101020101010001020001b3000102010101000102000100000f020001 00007a02000100000f02000100000f020001000001020101010001020001 00000f02000100007a02000100000f02000100000f020001000001020101 01000102000100000f02000100007a02000100000f02000100000f020001 00000102010101000102000100000f020001000039020103070201033402 000100000f02000100000202090002020001000001020101010001020001 00000f0200010000430201033402000100000f0200010000020200000702 00010202000100000102010101000102000100000f02000100002e020103 010201030102010300020103010203030102010300020103310200010000 0f0200010000020200000702000102020001000001020101010001020001 0000020209000202000100002e0201030102010301020103000201030002 010301020103000202030002010330020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100002f02010300020103000201030102010300020203 030201030102010330020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 00010202000100002f020103000201030002010301020103020202030102 010301020103300200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100002f02010300020103000201030102010303020203000201030102 010330020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100003002010301020103 02020103000201030102010300020103010201033002000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100003002010301020103020201030102030301020103010201033002 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100007a02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100007a0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 7a02000100000f02000100000f0200010000010201010100010200010000 100100007b0100001001000010010000010201010000b601000003010400 0001b00404000001010001020101b004010001020101010001020101b004 0100&%01020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 0100010201010100010201013e0434053c04010001020101010001020101 3e04330500063c040100010201010100010201013e040105300701063c04 0100010201010100010201013e040105300701063c040100010201010100 010201013e040105300701063c040100010201010100010201013e040105 300701063c040100010201010100010201013e040105300701063c040100 010201010100010201013e040105300701063c0401000102010101000102 01013e040105300701063c040100010201010100010201013e0401053007 01063c040100010201010100010201013e040105300701063c0401000102 01010100010201013e040105300701063c04010001020101010001020101 3e040105300701063c040100010201010100010201013e04010530070106 3c040100010201010100010201013e040105300701063c04010001020101 0100010201013e040105300701063c040100010201010100010201013e04 0105300701063c040100010201010100010201013e040105300701063c04 0100010201010100010201013e040105300701063c040100010201010100 010201013e040105300701063c040100010201010100010201013e040105 300701063c040100010201010100010201013e040105300701063c040100 010201010100010201013e040105300701063c0401000102010101000102 01013e040105300701063c040100010201010100010201013e0401053007 01063c040100010201010100010201013e040105300701063c0401000102 01010100010201013e040105300701063c04010001020101010001020101 3e040105300701063c040100010201010100010201013e04010530070106 3c040100010201010100010201013e040105300701063c04010001020101 0100010201013e040105300701063c040100010201010100010201013e04 0105300701063c040100010201010100010201013e040105300701063c04 0100010201010100010201013e040105300701063c040100010201010100 010201013e040105300701063c040100010201010100010201013e040105 300701063c040100010201010100010201013e040105300701063c040100 010201010100010201013e040105300701063c0401000102010101000102 01013e040105300701063c040100010201010100010201013e0401053007 01063c040100010201010100010201013e040105300701063c0401000102 01010100010201013e040105300701063c04010001020101010001020101 3e040105300701063c040100010201010100010201013e04010530070106 3c040100010201010100010201013e040105300701063c04010001020101 0100010201013e040105300701063c040100010201010100010201013e04 0105300701063c040100010201010100010201013e040105300701063c04 0100010201010100010201013e040105300701063c040100010201010100 010201013e040105300701063c040100010201010100010201013e040105 300701063c040100010201010100010201013e040105300701063c040100 010201010100010201013e040105300701063c0401000102010101000102 01013e040105300701063c040100010201010100010201013e0401053007 01063c040100010201010100010201013e040105300701063c0401000102 01010100010201013e040105300701063c04010001020101010001020101 3e040105300701063c040100010201010100010201013e04010530070106 3c040100010201010100010201013e040105300701063c04010001020101 0100010201013e040105300701063c040100010201010100010201013e04 0105300701063c040100010201010100010201013e040105300701063c04 0100010201010100010201013e040105300701063c040100010201010100 010201013e040105300701063c040100010201010100010201013e040105 300701063c040100010201010100010201013e040105300701063c040100 010201010100010201013e040105300701063c0401000102010101000102 01013e040105300701063c040100010201010100010201013e0401053206 3c04010001020101000004013e04000533063c040100030104000001b004 04000001010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b20001020101 010001020001be&%À¾3000102010101001302000100008c020001000013020101 01001302000100008c0200010000130201010100140100008d0100001501 0000bb01 % % Run-length encoding savings = 87.9% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'è8Jÿÿ€$ï'„ g,  g,K¼ 4 p&&  =À=Àû ÿ2Modernˆ-!Title: tkPkSd1!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:21:10 1994ñ&%ØÖ%MSEPS Preamble 0 0 192 61 0 0 192 61 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 192 def /pp_by2 61 def &&ü-úþÿÿ- =À'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkSd1 %%Pages: 1 %%BoundingBox: 0 0 192 61 %%CreationDate: Thu Dec 1 14:21:10 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 192 61 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 192 61 8 [192 0 0 -61 0 61] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 drawcolormappedimage d5000001900000011500000101001302000100008f020001000013020101 01001302000100008f020001000013020101010001021201000090010000 110101020101010001020001b6000102010101000102000100000f020001 00007d02000100000f02000100000f020001000001020101010001020001 00000f02000100007d02000100000f02000100000f020001000001020101 01000102000100000f02000100007d02000100000f02000100000f020001 00000102010101000102000100000f02000100003b020103070201033502 000100000f02000100000202090002020001000001020101010001020001 00000f0200010000450201033502000100000f0200010000020200000702 00010202000100000102010101000102000100000f020001000030020103 010201030102010300020103010203030102010300020103320200010000 0f0200010000020200000702000102020001000001020101010001020001 000002020900020200010000300201030102010301020103000201030002 010301020103000202030002010331020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100003102010300020103000201030102010300020203 030201030102010331020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 000102020001000031020103000201030002010301020103020202030102 010301020103310200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100003102010300020103000201030102010303020203000201030102 010331020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100003202010301020103 02020103000201030102010300020103010201033102000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100003202010301020103020201030102030301020103010201033102 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100007d02000100000f0200010000020200000801 020200010000010201010000030100000f02000100007d02000100000f02 000100000f0200010000030105000f02000100007d02000100000f020001 00000f020001030000010100010200010000100100007e01000010010000 100100000102010101000102b601000001020101010001020101b3040100 01020101010001020101b30401000102010101000102010101042e000304 420003043500010401000102å&%¿ ½ 010101000102010101042d00000503044100 00050304340000050104010001020101010001020101010401002a040105 030401003e04010503040100310401050104010001020101010001020101 010401002a040105030401003e0401050304010031040105010401000102 0101010001020101010401002a040105030401003e040105030401003104 01050104010001020101010001020101010401002a040105030401003e04 010503040100310401050104010001020101010001020101010401002a04 0105030401003e0401050304010031040105010401000102010101000102 0101010401002a040105030401003e040105030401003104010501040100 01020101010001020101010401000d04030303040103020401030d040105 030401000d0403031c0401030d040105030401000b040103020401030704 0103140401050104010001020101010001020101010401000c0401030104 010302040103010401030e040105030401000c040103010401031b040103 0d040105030401000b040103020401030704010314040105010401000102 0101010001020101010401000b0401030304010301040103000401030f04 0105030401000b0401030504030301040103000401030204030302040303 010401030d040105030401000b0401030204010301040303010401030004 0103000401030e0401050104010001020101010001020101010401000b04 0103030401030104030310040105030401000b0401030404010301040103 000402030004010300040103010401030004010301040103000401030d04 0105030401000b0401030204010300040103010401030004010300040203 000401030d0401050104010001020101010001020101010401000b040103 030401030104030310040105030401000b04010308040103000401030104 0103000401030404010301040103000401030d040105030401000b040603 00040103010401030004010300040103010401030d040105010401000102 0101010001020101010401000b0401030304010301040103000401030f04 0105030401000b0401030504040300040103010401030004010304040503 000401030d040105030401000b0401030204010300040503000401030004 0103010401030d0401050104010001020101010001020101010401000b04 01030304010301040103010401030e040105030401000b04010304040103 0104010300040103010401030004010304040103040401030d0401050304 01000b04010302040103000401030404010300040103010401030d040105 010401000102010100000401010401000c04010301040103020401030204 01030d040105030401000c04010301040303010401030004010301040103 00040103010401030004010301040103000401030d040105030401000b04 01030204010300040103010401030004010300040203000401030d040105 01040100030104000001010401000d04030303040103030401030c040105 030401000d04030301040203000403030104010301040303020403030104 01030d040105030401000b04010302040103010403030104010300040103 000401030e040105010404000001010001020101010401002a0401050304 01003e040105030401001d04010311040105010401000102010101000102 0101010401002a040105030401003e040105030401001d04010311040105 0104010001020101010001020101010401002a040105030401003e040105 030401001d04010311040105010401000102010101000102010101040100 2a040105030401003e040105030401003104010501040100010201010100 01020101010401002a040105030401003e04010503040100310401050104 010001020101010001020101010401002a040105030401003e0401050304 0100310401050104010001020101010001020101010401002a0401050304 01003e040105030401003104010501040100010201010100010201010104 01002a040105030401003e04010503040100310401050104010001020101 010001020101010401002a040105030401003e0401050304010031040105 0104010001020101010001020101010401002c0503040100400503040100 33050104010001020101010001020101010400002d050304000041050304 000034050104010001020101010001020101b30401000102010101000102 0101b304010001020101010001020101b50001020101010001020001b600 0102010101001302000100008f0200010000130201010100130200010000 8f0200010000130201010100140100009001000015010000be01 % % Run-length encoding savings = 76.7% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'èMÿÿ€$ï'„ g, g,N44 &&  =þ=þû ÿ2Modernˆ-!Title: tkPkSd2!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:21:10 1994ñ&%ØÖ%MSEPS Preamble 0 0 254 61 0 0 254 61 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 254 def /pp_by2 61 def &&ü-úþÿÿ- =þ'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkSd2 %%Pages: 1 %%BoundingBox: 0 0 254 61 %%CreationDate: Thu Dec 1 14:21:10 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 254 61 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 254 61 8 [254 0 0 -61 0 61] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 drawcolormappedimage fe0014000001ce000001150000010100130200010000cd02000100001302 01010100130200010000cd0200010000130201010100010212010000ce01 0000110101020101010001020001f4000102010101000102000100000f02 00010000bb02000100000f02000100000f02000100000102010101000102 000100000f0200010000bb02000100000f02000100000f02000100000102 010101000102000100000f0200010000bb02000100000f02000100000f02 000100000102010101000102000100000f02000100005a02010307020103 5402000100000f0200010000020209000202000100000102010101000102 000100000f0200010000640201035402000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100004f02 010301020103010201030002010301020303010201030002010351020001 00000f020001000002020000070200010202000100000102010101000102 00010000020209000202000100004f020103010201030102010300020103 000201030102010300020203000201035002000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000500201030002010300020103010201030002 020303020103010201035002000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100005002010300020103000201030102010302020203 010201030102010350020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000500201030002010300020103010201030302020300020103 010201035002000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000510201030102 010302020103000201030102010300020103010201035002000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000510201030102010302020103010203030102010301020103 5002000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000bb02000100000f020001000002020000 0801020200010000010201010000030100000f0200010000bb0200010000 0f02000100000f0200010000030105000f0200010000bb02000100000f02 000100000f02000103000001010001020001000010010000bc0100001001 0000100100000102010101000102f401000001020101010001020101f104 010001020101010001020101f10401000102010101000102010101042e00 030480000304350001040100&%0102010101000102010101042d0000050304 7f0000050304340000050104010001020101010001020101010401002a04 0105030401007c0401050304010031040105010401000102010101000102 0101010401002a040105030401007c040105030401003104010501040100 01020101010001020101010401002a040105030401007c04010503040100 310401050104010001020101010001020101010401002a04010503040100 7c0401050304010031040105010401000102010101000102010101040100 2a040105030401007c040105030401003104010501040100010201010100 01020101010401002a040105030401007c04010503040100310401050104 010001020101010001020101010401000d04030303040103020401030d04 0105030401000d0403031c040103070403032f0401030d04010503040100 0b0401030204010307040103140401050104010001020101010001020101 010401000c0401030104010302040103010401030e040105030401000c04 0103010401031b04010306040103010401032e0401030d04010503040100 0b0401030204010307040103140401050104010001020101010001020101 010401000b0401030304010301040103000401030f040105030401000b04 010305040303010401030004010302040303020403030104010305040103 050403030104000300040203000402030104000300040203000402030204 0303010401030004010302040103000401030d040105030401000b040103 02040103010403030104010300040103000401030e040105010401000102 0101010001020101010401000b0401030304010301040303100401050304 01000b040103040401030104010300040203000401030004010301040103 000401030104010300040103050401030404010301040103000401030104 010301040103000401030104010301040103000401030104010300040203 0004010300040103000402030d040105030401000b040103020401030004 0103010401030004010300040203000401030d0401050104010001020101 010001020101010401000b04010303040103010403031004010503040100 0b0401030804010300040103010401030004010304040103010401030004 010305040103040401030104010300040103010401030104010300040103 010401030104010304040103000401030104010300040103010401030d04 0105030401000b0406030004010301040103000401030004010301040103 0d0401050104010001020101010001020101010401000b04010303040103 01040103000401030f040105030401000b04010305040403000401030104 010300040103040405030004010305040103040401030104010300040103 010401030104010300040103010401030104010301040403000401030104 010300040103010401030d040105030401000b0401030204010300040503 0004010300040103010401030d0401050104010001020101010001020101 010401000b0401030304010301040103010401030e040105030401000b04 010304040103010401030004010301040103000401030404010304040103 050401030404010301040103000401030104010301040103000401030104 010301040103000401030104010300040103010401030004010301040103 0d040105030401000b040103020401030004010304040103000401030104 01030d040105010401000102010100000401010401000c04010301040103 02040103020401030d040105030401000c04010301040303010401030004 010301040103000401030104010300040103010401030004010306040103 010403030104010300040103010401030104010300040103010401030104 01030004010301040103000401030104010300040103000402030d040105 030401000b04010302040103000401030104010300040103000402030004 01030d04010501040100030104000001010401000d040303030401030304 01030c040105030401000d04030301040203000403030104010301040303 020403030104010307040303010403030104010301040103010401030004 010301040103010401030104020300040303010401030104010300040103 0d040105030401000b040103020401030104030301040103000401030004 01030e040105010404000001010001020101010401002a04010503040100 7c040105030401001d040103110401050104010001020101010001020101 010401002a040105030401007c040105030401001d040103110401050104 010001020101010001020101010401002a040105030401007c0401050304 01001d040103110401050104010001020101010001020101010401002a04 0105030401007c0401050304010031040105010401000102010101000102 0101010401002a040105030401007c040105030401003104010501040100 01020101010001020101010401002a040105030401007c04010503040100 310401050104010001020101010001020101010401002a04010503040100 7c0401050304010031040105010401000102010101000102010101040100 2a040105030401007c040105030401003104010501040100010201010100 01020101010401002a040105030401007c04010503040100310401050104 010001020101010001020101010401002c05030401007e05030401003305 0104010001020101010001020101010400002d05030400007f0503040000 34050104010001020101010001020101fŽ&%104010001020101010001020101 f104010001020101010001020101f30001020101010001020001f4000102 01010100130200010000cd0200010000130201010100130200010000cd02 0001000013020101010014010000ce01000015010000fc01 % % Run-length encoding savings = 79.7% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'ðèPÿÿ€$ï'„ g,$ g,QŒ4 ´&&  }‘}‘û ÿ2Modernˆ-!Title: tkPkSd3!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:21:11 1994ó&%ÛÙ%MSEPS Preamble 0 0 145 125 0 0 145 125 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 145 def /pp_by2 125 def &&ü-úþÿÿ- }‘'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkSd3 %%Pages: 1 %%BoundingBox: 0 0 145 125 %%CreationDate: Thu Dec 1 14:21:11 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 145 125 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 145 125 8 [145 0 0 -125 0 125] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 drawcolormappedimage a60000016100000115000001010013020001000060020001000013020101 010013020001000060020001000013020101010001021201000061010000 11010102010101000102000187000102010101000102000100000f020001 00004e02000100000f02000100000f020001000001020101010001020001 00000f02000100004e02000100000f02000100000f020001000001020101 01000102000100000f02000100004e02000100000f02000100000f020001 00000102010101000102000100000f020001000023020103070201031e02 000100000f02000100000202090002020001000001020101010001020001 00000f02000100002d0201031e02000100000f0200010000020200000702 00010202000100000102010101000102000100000f020001000018020103 0102010301020103000201030102030301020103000201031b0200010000 0f0200010000020200000702000102020001000001020101010001020001 000002020900020200010000180201030102010301020103000201030002 01030102010300020203000201031a020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100001902010300020103000201030102010300020203 03020103010201031a020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 000102020001000019020103000201030002010301020103020202030102 0103010201031a0200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100001902010300020103000201030102010303020203000201030102 01031a020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100001a02010301020103 02020103000201030102010300020103010201031a02000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100001a02010301020103020201030102030301020103010201031a02 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100004e02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100004e0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 4e02000100000f02000100000f0200010000010201010100010200010000 100100004f01000010010000100100000102010100008a01000003010400 000184040400000101000102010184040100010201010100010201012a04 2e002a0401000102010&%10100010201012a042d0000052a04010001020101 0100010201012a0401002a0401052a040100010201010100010201012a04 01002a0401052a040100010201010100010201012a0401002a0401052a04 0100010201010100010201012a0401002a0401052a040100010201010100 010201012a0401002a0401052a040100010201010100010201012a040100 2a0401052a040100010201010100010201012a0401000d04030303040103 020401030d0401052a040100010201010100010201012a0401000c040103 0104010302040103010401030e0401052a04010001020101010001020101 2a0401000b0401030304010301040103000401030f0401052a0401000102 01010100010201012a0401000b0401030304010301040303100401052a04 0100010201010100010201012a0401000b04010303040103010403031004 01052a040100010201010100010201012a0401000b040103030401030104 0103000401030f0401052a040100010201010100010201012a0401000b04 01030304010301040103010401030e0401052a0401000102010101000102 01012a0401000c0401030104010302040103020401030d0401052a040100 010201010100010201012a0401000d04030303040103030401030c040105 2a040100010201010100010201012a0401002a0401052a04010001020101 0100010201012a0401002a0401052a040100010201010100010201012a04 01002a0401052a040100010201010100010201012a0401002a0401052a04 0100010201010100010201012a0401002a0401052a040100010201010100 010201012a0401002a0401052a040100010201010100010201012a040100 2a0401052a040100010201010100010201012a0401002a0401052a040100 010201010100010201012a0401002a0401052a0401000102010101000102 01012a0401002c052a040100010201010100010201012a0400002d052a04 010001020101010001020101840401000102010101000102010184040100 010201010100010201018404010001020101010001020101840401000102 010101000102010101048000010401000102010101000102010101047f00 00050104010001020101010001020101010401007c040105010401000102 0101010001020101010401007c0401050104010001020101010001020101 010401007c0401050104010001020101010001020101010401007c040105 0104010001020101010001020101010401007c0401050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01000d0403031c040103070403032f0401030d0401050104010001020101 010001020101010401000c040103010401031b0401030604010301040103 2e0401030d0401050104010001020101010001020101010401000b040103 050403030104010300040103020403030204030301040103050401030504 030301040003000402030004020301040003000402030004020302040303 010401030004010302040103000401030d04010501040100010201010100 01020101010401000b040103040401030104010300040203000401030004 010301040103000401030104010300040103050401030404010301040103 000401030104010301040103000401030104010301040103000401030104 0103000402030004010300040103000402030d0401050104010001020101 010001020101010401000b04010308040103000401030104010300040103 040401030104010300040103050401030404010301040103000401030104 010301040103000401030104010301040103040401030004010301040103 00040103010401030d040105010401000102010101000102010101040100 0b0401030504040300040103010401030004010304040503000401030504 010304040103010401030004010301040103010401030004010301040103 0104010301040403000401030104010300040103010401030d0401050104 010001020101010001020101010401000b04010304040103010401030004 010301040103000401030404010304040103050401030404010301040103 000401030104010301040103000401030104010301040103000401030104 0103000401030104010300040103010401030d0401050104010001020101 010001020101010401000c04010301040303010401030004010301040103 000401030104010300040103010401030004010306040103010403030104 010300040103010401030104010300040103010401030104010300040103 01040103000401030104010300040103000402030d040105010401000102 0101010001020101010401000d0403030104020300040303010401030104 030302040303010401030704030301040303010401030104010301040103 000401030104010301040103010402030004030301040103010401030004 01030d0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401007c040105010401000102010101000102010101040100 7c0401050104010001020101010001020101010401007c04010501040100 01020101010001020101010401007c040105010401000102010101000102 0101010401007c0401050104010001020101010001020101010401007c04 01050104010001020101010001020101010401007c040105010401000102 0101010001020101010401007e05!&%8601040100010201010100010201010104 00007f050104010001020101010001020101840401000102010101000102 010184040100010201010100010201018404010001020101010001020101 840401000102010101000102010126043500270401000102010101000102 010126043400000527040100010201010100010201012604010031040105 270401000102010101000102010126040100310401052704010001020101 010001020101260401003104010527040100010201010100010201012604 010031040105270401000102010101000102010126040100310401052704 010001020101010001020101260401003104010527040100010201010100 01020101260401000b040103020401030704010314040105270401000102 0101010001020101260401000b0401030204010307040103140401052704 010001020101010001020101260401000b04010302040103010403030104 010300040103000401030e04010527040100010201010100010201012604 01000b040103020401030004010301040103000401030004020300040103 0d040105270401000102010100000401260401000b040603000401030104 01030004010300040103010401030d040105270401000301040000012604 01000b04010302040103000405030004010300040103010401030d040105 270404000001010001020101260401000b04010302040103000401030404 010300040103010401030d04010527040100010201010100010201012604 01000b040103020401030004010301040103000401030004020300040103 0d0401052704010001020101010001020101260401000b04010302040103 010403030104010300040103000401030e04010527040100010201010100 01020101260401001d040103110401052704010001020101010001020101 260401001d04010311040105270401000102010101000102010126040100 1d0401031104010527040100010201010100010201012604010031040105 270401000102010101000102010126040100310401052704010001020101 010001020101260401003104010527040100010201010100010201012604 010031040105270401000102010101000102010126040100310401052704 010001020101010001020101260401003104010527040100010201010100 010201012604010033052704010001020101010001020101260400003405 270401000102010101000102010184040100010201010100010201018404 010001020101010001020101860001020101010001020001870001020101 010013020001000060020001000013020101010013020001000060020001 00001302010101001401000061010000150100008f01 % % Run-length encoding savings = 77.7% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'ˆèSÿÿ€$ï'„ g,4 g,T| '. è&&  EêEêû ÿ2Modernˆ-!Title: tkPkPad1!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:21:11 1994ñ&%ØÖ%MSEPS Preamble 0 0 234 69 0 0 234 69 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 234 def /pp_by2 69 def &&ü-úþÿÿ- Eê'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkPad1 %%Pages: 1 %%BoundingBox: 0 0 234 69 %%CreationDate: Thu Dec 1 14:21:11 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 234 69 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 234 69 8 [234 0 0 -69 0 69] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 drawcolormappedimage fe0000000001ba000001150000010100130200010000b902000100001302 01010100130200010000b90200010000130201010100010212010000ba01 0000110101020101010001020001e0000102010101000102000100000f02 00010000a702000100000f02000100000f02000100000102010101000102 000100000f0200010000a702000100000f02000100000f02000100000102 010101000102000100000f0200010000a702000100000f02000100000f02 000100000102010101000102000100000f02000100005002010307020103 4a02000100000f0200010000020209000202000100000102010101000102 000100000f02000100005a0201034a02000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100004502 010301020103010201030002010301020303010201030002010347020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000045020103010201030102010300020103 000201030102010300020203000201034602000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000460201030002010300020103010201030002 020303020103010201034602000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100004602010300020103000201030102010302020203 010201030102010346020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000460201030002010300020103010201030302020300020103 010201034602000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000470201030102 010302020103000201030102010300020103010201034602000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000470201030102010302020103010203030102010301020103 4602000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000a702000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000a7020001 00000f02000100000f02000100000102010101000102000100000f020001 0000a702000100000f02000100000f020001000001020101010001020001 000010010000a80100001001000010010000010201010000e30100000301 04000001dd0404000001010001020101dd04010001020101010001020101 dd040100010201010100010]&%°®20101dd04010001020101010001020101dd04 010001020101010001020101dd0401000102010101000102010108042e00 1104420011043500080401000102010101000102010108042d0000051104 410000051104340000050804010001020101010001020101080401002a04 0105110401003e0401051104010031040105080401000102010101000102 0101080401002a040105110401003e040105110401003104010508040100 01020101010001020101080401002a040105110401003e04010511040100 310401050804010001020101010001020101080401002a04010511040100 3e0401051104010031040105080401000102010101000102010108040100 2a040105110401003e040105110401003104010508040100010201010100 01020101080401002a040105110401003e04010511040100310401050804 010001020101010001020101080401000d04030303040103020401030d04 0105110401000d0403031c0401030d040105110401000b04010302040103 07040103140401050804010001020101010001020101080401000c040103 0104010302040103010401030e040105110401000c040103010401031b04 01030d040105110401000b04010302040103070401031404010508040100 01020101010001020101080401000b040103030401030104010300040103 0f040105110401000b040103050403030104010300040103020403030204 0303010401030d040105110401000b040103020401030104030301040103 00040103000401030e040105080401000102010101000102010108040100 0b040103030401030104030310040105110401000b040103040401030104 010300040203000401030004010301040103000401030104010300040103 0d040105110401000b040103020401030004010301040103000401030004 0203000401030d0401050804010001020101010001020101080401000b04 0103030401030104030310040105110401000b0401030804010300040103 01040103000401030404010301040103000401030d040105110401000b04 060300040103010401030004010300040103010401030d04010508040100 01020101010001020101080401000b040103030401030104010300040103 0f040105110401000b040103050404030004010301040103000401030404 0503000401030d040105110401000b040103020401030004050300040103 00040103010401030d040105080401000102010101000102010108040100 0b0401030304010301040103010401030e040105110401000b0401030404 01030104010300040103010401030004010304040103040401030d040105 110401000b04010302040103000401030404010300040103010401030d04 01050804010001020101010001020101080401000c040103010401030204 0103020401030d040105110401000c040103010403030104010300040103 0104010300040103010401030004010301040103000401030d0401051104 01000b040103020401030004010301040103000401030004020300040103 0d040105080401000102010100000401080401000d040303030401030304 01030c040105110401000d04030301040203000403030104010301040303 02040303010401030d040105110401000b04010302040103010403030104 010300040103000401030e04010508040100030104000001080401002a04 0105110401003e040105110401001d040103110401050804040000010100 01020101080401002a040105110401003e040105110401001d0401031104 01050804010001020101010001020101080401002a040105110401003e04 0105110401001d0401031104010508040100010201010100010201010804 01002a040105110401003e04010511040100310401050804010001020101 010001020101080401002a040105110401003e0401051104010031040105 0804010001020101010001020101080401002a040105110401003e040105 11040100310401050804010001020101010001020101080401002a040105 110401003e04010511040100310401050804010001020101010001020101 080401002a040105110401003e0401051104010031040105080401000102 0101010001020101080401002a040105110401003e040105110401003104 01050804010001020101010001020101080401002c051104010040051104 010033050804010001020101010001020101080400002d05110400004105 1104000034050804010001020101010001020101dd040100010201010100 01020101dd04010001020101010001020101dd0401000102010101000102 0101dd04010001020101010001020101dd04010001020101010001020101 dd04010001020101010001020101df0001020101010001020001e0000102 01010100130200010000b90200010000130201010100130200010000b902 0001000013020101010014010000ba01000015010000e801 % % Run-length encoding savings = 82.4% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'P(Vÿÿ€$ï'„ g,D g,Wä'. ²&&  EêEêû ÿ2Modernˆ-!Title: tkPkPad2!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:21:12 1994ñ&%ØÖ%MSEPS Preamble 0 0 234 69 0 0 234 69 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 234 def /pp_by2 69 def &&ü-úþÿÿ- Eê'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkPad2 %%Pages: 1 %%BoundingBox: 0 0 234 69 %%CreationDate: Thu Dec 1 14:21:12 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 234 69 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 234 69 8 [234 0 0 -69 0 69] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 drawcolormappedimage fe0000000001ba000001150000010100130200010000b902000100001302 01010100130200010000b90200010000130201010100010212010000ba01 0000110101020101010001020001e0000102010101000102000100000f02 00010000a702000100000f02000100000f02000100000102010101000102 000100000f0200010000a702000100000f02000100000f02000100000102 010101000102000100000f0200010000a702000100000f02000100000f02 000100000102010101000102000100000f02000100005002010307020103 4a02000100000f0200010000020209000202000100000102010101000102 000100000f02000100005a0201034a02000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100004502 010301020103010201030002010301020303010201030002010347020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000045020103010201030102010300020103 000201030102010300020203000201034602000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000460201030002010300020103010201030002 020303020103010201034602000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100004602010300020103000201030102010302020203 010201030102010346020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000460201030002010300020103010201030302020300020103 010201034602000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000470201030102 010302020103000201030102010300020103010201034602000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000470201030102010302020103010203030102010301020103 4602000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000a702000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000a7020001 00000f02000100000f02000100000102010101000102000100000f020001 0000a702000100000f02000100000f020001000001020101010001020001 000010010000a80100001001000010010000010201010000e30100000301 04000001dd0404000001010001020101dd04010001020101010001020101 01043c00030450000304430&%0010401000102010101000102010101043b00 000503044f00000503044200000501040100010201010100010201010104 010038040105030401004c040105030401003f0401050104010001020101 0100010201010104010038040105030401004c040105030401003f040105 01040100010201010100010201010104010038040105030401004c040105 030401003f04010501040100010201010100010201010104010038040105 030401004c040105030401003f0401050104010001020101010001020101 0104010038040105030401004c040105030401003f040105010401000102 01010100010201010104010038040105030401004c040105030401003f04 010501040100010201010100010201010104010038040105030401004c04 0105030401003f0401050104010001020101010001020101010401003804 0105030401004c040105030401003f040105010401000102010101000102 01010104010038040105030401004c040105030401003f04010501040100 010201010100010201010104010038040105030401004c04010503040100 3f0401050104010001020101010001020101010401001404030303040103 020401031404010503040100140403031c04010314040105030401001204 010302040103070401031b04010501040100010201010100010201010104 010013040103010401030204010301040103150401050304010013040103 010401031b04010314040105030401001204010302040103070401031b04 010501040100010201010100010201010104010012040103030401030104 010300040103160401050304010012040103050403030104010300040103 020403030204030301040103140401050304010012040103020401030104 030301040103000401030004010315040105010401000102010101000102 010101040100120401030304010301040303170401050304010012040103 040401030104010300040203000401030004010301040103000401030104 010300040103140401050304010012040103020401030004010301040103 000401030004020300040103140401050104010001020101010001020101 010401001204010303040103010403031704010503040100120401030804 010300040103010401030004010304040103010401030004010314040105 030401001204060300040103010401030004010300040103010401031404 010501040100010201010100010201010104010012040103030401030104 010300040103160401050304010012040103050404030004010301040103 000401030404050300040103140401050304010012040103020401030004 050300040103000401030104010314040105010401000102010101000102 010101040100120401030304010301040103010401031504010503040100 120401030404010301040103000401030104010300040103040401030404 010314040105030401001204010302040103000401030404010300040103 010401031404010501040100010201010100010201010104010013040103 010401030204010302040103140401050304010013040103010403030104 010300040103010401030004010301040103000401030104010300040103 140401050304010012040103020401030004010301040103000401030004 020300040103140401050104010001020101000004010104010014040303 030401030304010313040105030401001404030301040203000403030104 010301040303020403030104010314040105030401001204010302040103 010403030104010300040103000401031504010501040100030104000001 0104010038040105030401004c0401050304010024040103180401050104 040000010100010201010104010038040105030401004c04010503040100 240401031804010501040100010201010100010201010104010038040105 030401004c04010503040100240401031804010501040100010201010100 010201010104010038040105030401004c040105030401003f0401050104 0100010201010100010201010104010038040105030401004c0401050304 01003f040105010401000102010101000102010101040100380401050304 01004c040105030401003f04010501040100010201010100010201010104 010038040105030401004c040105030401003f0401050104010001020101 0100010201010104010038040105030401004c040105030401003f040105 01040100010201010100010201010104010038040105030401004c040105 030401003f04010501040100010201010100010201010104010038040105 030401004c040105030401003f0401050104010001020101010001020101 0104010038040105030401004c040105030401003f040105010401000102 01010100010201010104010038040105030401004c040105030401003f04 010501040100010201010100010201010104010038040105030401004c04 0105030401003f0401050104010001020101010001020101010401003a05 030401004e05030401004105010401000102010101000102010101040000 3b05030400004f050304000042050104010001020101010001020101dd04 010001020101010001020101dd04010001020101010001020101df000102 0101010001020001e000010201010100130200010000b902000100001302 01010100130200010000b9020001000013020101010014010000ba010000 15010000e801 % % Run-length enco!&%75ding savings = 81.2% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'P(Yÿÿ€$ï'„ g,T g,ZÄ 4 F&&  MMû ÿ2Modernˆ-!Title: tkPkPad3!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:21:13 1994ñ&%ØÖ%MSEPS Preamble 0 0 276 77 0 0 276 77 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 276 def /pp_by2 77 def &&ü-úþÿÿ- M'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkPad3 %%Pages: 1 %%BoundingBox: 0 0 276 77 %%CreationDate: Thu Dec 1 14:21:13 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 276 77 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 276 77 8 [276 0 0 -77 0 77] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 drawcolormappedimage fe002a000001e4000001150000010100130200010000e302000100001302 01010100130200010000e30200010000130201010100010212010000e401 0000110101020101010001020001fe000b00010201010100010200010000 0f0200010000d102000100000f02000100000f0200010000010201010100 0102000100000f0200010000d102000100000f02000100000f0200010000 0102010101000102000100000f0200010000d102000100000f0200010000 0f02000100000102010101000102000100000f0200010000650201030702 01035f02000100000f020001000002020900020200010000010201010100 0102000100000f02000100006f0201035f02000100000f02000100000202 0000070200010202000100000102010101000102000100000f0200010000 5a0201030102010301020103000201030102030301020103000201035c02 000100000f02000100000202000007020001020200010000010201010100 010200010000020209000202000100005a02010301020103010201030002 0103000201030102010300020203000201035b0200010000050203000502 000100000202000007020001020200010000010201010100010200010000 02020000070200010202000100005b020103000201030002010301020103 0002020303020103010201035b0200010000050200000102000105020001 000002020000070200010202000100000102010101000102000100000202 0000070200010202000100005b0201030002010300020103010201030202 020301020103010201035b02000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 08010202000100005b020103000201030002010301020103030202030002 0103010201035b0200010000050200000201050200010000020200000702 00010202000100000102010101000102000100000f02000100005c020103 0102010302020103000201030102010300020103010201035b0200010000 0f0200010000020200000702000102020001000001020101010001020001 00000f02000100005c020103010201030202010301020303010201030102 01035b02000100000f020001000002020000070200010202000100000102 010101000102000100000f0200010000d102000100000f02000100000202 000008010202000100000102010101000102000100000f0200010000d102 000100000f02000100000f02000100000102010101000102000100000f02 00010000d102000100000f02000100000f02000100000102010101000102 0001000010010000d20100001001000010010000010201010000fe010e01 0000030104000001fe04080404000001010001020101fe04080401000102 0101010001020101fe04080&%4010001020101010001020101fe0408040100 01020101010001020101fe040804010001020101010001020101fe040804 01000102010101000102010108043c001104500011044300080401000102 010101000102010108043b00000511044f00000511044200000508040100 010201010100010201010804010038040105110401004c04010511040100 3f0401050804010001020101010001020101080401003804010511040100 4c040105110401003f040105080401000102010101000102010108040100 38040105110401004c040105110401003f04010508040100010201010100 010201010804010038040105110401004c040105110401003f0401050804 0100010201010100010201010804010038040105110401004c0401051104 01003f040105080401000102010101000102010108040100380401051104 01004c040105110401003f04010508040100010201010100010201010804 010038040105110401004c040105110401003f0401050804010001020101 0100010201010804010038040105110401004c040105110401003f040105 08040100010201010100010201010804010038040105110401004c040105 110401003f04010508040100010201010100010201010804010038040105 110401004c040105110401003f0401050804010001020101010001020101 080401001404030303040103020401031404010511040100140403031c04 010314040105110401001204010302040103070401031b04010508040100 010201010100010201010804010013040103010401030204010301040103 150401051104010013040103010401031b04010314040105110401001204 010302040103070401031b04010508040100010201010100010201010804 010012040103030401030104010300040103160401051104010012040103 050403030104010300040103020403030204030301040103140401051104 010012040103020401030104030301040103000401030004010315040105 080401000102010101000102010108040100120401030304010301040303 170401051104010012040103040401030104010300040203000401030004 010301040103000401030104010300040103140401051104010012040103 020401030004010301040103000401030004020300040103140401050804 010001020101010001020101080401001204010303040103010403031704 010511040100120401030804010300040103010401030004010304040103 010401030004010314040105110401001204060300040103010401030004 010300040103010401031404010508040100010201010100010201010804 010012040103030401030104010300040103160401051104010012040103 050404030004010301040103000401030404050300040103140401051104 010012040103020401030004050300040103000401030104010314040105 080401000102010101000102010108040100120401030304010301040103 010401031504010511040100120401030404010301040103000401030104 010300040103040401030404010314040105110401001204010302040103 000401030404010300040103010401031404010508040100010201010100 010201010804010013040103010401030204010302040103140401051104 010013040103010403030104010300040103010401030004010301040103 000401030104010300040103140401051104010012040103020401030004 010301040103000401030004020300040103140401050804010001020101 010001020101080401001404030303040103030401031304010511040100 140403030104020300040303010401030104030302040303010401031404 010511040100120401030204010301040303010401030004010300040103 150401050804010001020101010001020101080401003804010511040100 4c0401051104010024040103180401050804010001020101010001020101 0804010038040105110401004c0401051104010024040103180401050804 0100010201010100010201010804010038040105110401004c0401051104 010024040103180401050804010001020101000004010804010038040105 110401004c040105110401003f0401050804010003010400000108040100 38040105110401004c040105110401003f04010508040400000101000102 01010804010038040105110401004c040105110401003f04010508040100 010201010100010201010804010038040105110401004c04010511040100 3f0401050804010001020101010001020101080401003804010511040100 4c040105110401003f040105080401000102010101000102010108040100 38040105110401004c040105110401003f04010508040100010201010100 010201010804010038040105110401004c040105110401003f0401050804 0100010201010100010201010804010038040105110401004c0401051104 01003f040105080401000102010101000102010108040100380401051104 01004c040105110401003f04010508040100010201010100010201010804 010038040105110401004c040105110401003f0401050804010001020101 010001020101080401003a05110401004e05110401004105080401000102 0101010001020101080400003b05110400004f0511040000420508040100 01020101010001020101fe040804010001020101010001020101fe040804 010001020101010001020101fe040804µ&%`^010001020101010001020101fe04 0804010001020101010001020101fe040804010001020101010001020101 fe040804010001020101010001020101fe000a0001020101010001020001 fe000b00010201010100130200010000e302000100001302010101001302 00010000e3020001000013020101010014010000e401000015010000fe01 1301 % % Run-length encoding savings = 85.0% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï' h\ÿÿ€$ï'„ g,d g,]Œ4 µ&&  }‘}‘û ÿ2Modernˆ-!Title: tkPkFil1!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:22:48 1994ó&%ÛÙ%MSEPS Preamble 0 0 145 125 0 0 145 125 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 145 def /pp_by2 125 def &&ü-úþÿÿ- }‘'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkFil1 %%Pages: 1 %%BoundingBox: 0 0 145 125 %%CreationDate: Thu Dec 1 14:22:48 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 145 125 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 145 125 8 [145 0 0 -125 0 125] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 drawcolormappedimage a60000016100000115000001010013020001000060020001000013020101 010013020001000060020001000013020101010001021201000061010000 11010102010101000102000187000102010101000102000100000f020001 00004e02000100000f02000100000f020001000001020101010001020001 00000f02000100004e02000100000f02000100000f020001000001020101 01000102000100000f02000100004e02000100000f02000100000f020001 00000102010101000102000100000f020001000023020103070201031e02 000100000f02000100000202090002020001000001020101010001020001 00000f02000100002d0201031e02000100000f0200010000020200000702 00010202000100000102010101000102000100000f020001000018020103 0102010301020103000201030102030301020103000201031b0200010000 0f0200010000020200000702000102020001000001020101010001020001 000002020900020200010000180201030102010301020103000201030002 01030102010300020203000201031a020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100001902010300020103000201030102010300020203 03020103010201031a020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 000102020001000019020103000201030002010301020103020202030102 0103010201031a0200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100001902010300020103000201030102010303020203000201030102 01031a020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100001a02010301020103 02020103000201030102010300020103010201031a02000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100001a02010301020103020201030102030301020103010201031a02 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100004e02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100004e0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 4e02000100000f02000100000f0200010000010201010100010200010000 100100004f01000010010000100100000102010100008a01000003010400 000184040400000101000102010184040100010201010100010201012a04 2e002a040100010201&%010100010201012a042d0000052a04010001020101 0100010201012a0401002a0401052a040100010201010100010201012a04 01002a0401052a040100010201010100010201012a0401002a0401052a04 0100010201010100010201012a0401002a0401052a040100010201010100 010201012a0401002a0401052a040100010201010100010201012a040100 2a0401052a040100010201010100010201012a0401000d04030303040103 020401030d0401052a040100010201010100010201012a0401000c040103 0104010302040103010401030e0401052a04010001020101010001020101 2a0401000b0401030304010301040103000401030f0401052a0401000102 01010100010201012a0401000b0401030304010301040303100401052a04 0100010201010100010201012a0401000b04010303040103010403031004 01052a040100010201010100010201012a0401000b040103030401030104 0103000401030f0401052a040100010201010100010201012a0401000b04 01030304010301040103010401030e0401052a0401000102010101000102 01012a0401000c0401030104010302040103020401030d0401052a040100 010201010100010201012a0401000d04030303040103030401030c040105 2a040100010201010100010201012a0401002a0401052a04010001020101 0100010201012a0401002a0401052a040100010201010100010201012a04 01002a0401052a040100010201010100010201012a0401002a0401052a04 0100010201010100010201012a0401002a0401052a040100010201010100 010201012a0401002a0401052a040100010201010100010201012a040100 2a0401052a040100010201010100010201012a0401002a0401052a040100 010201010100010201012a0401002a0401052a0401000102010101000102 01012a0401002c052a040100010201010100010201012a0400002d052a04 010001020101010001020101840401000102010101000102010184040100 010201010100010201018404010001020101010001020101840401000102 010101000102010101048000010401000102010101000102010101047f00 00050104010001020101010001020101010401007c040105010401000102 0101010001020101010401007c0401050104010001020101010001020101 010401007c0401050104010001020101010001020101010401007c040105 0104010001020101010001020101010401007c0401050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01000d0403031c040103070403032f0401030d0401050104010001020101 010001020101010401000c040103010401031b0401030604010301040103 2e0401030d0401050104010001020101010001020101010401000b040103 050403030104010300040103020403030204030301040103050401030504 030301040003000402030004020301040003000402030004020302040303 010401030004010302040103000401030d04010501040100010201010100 01020101010401000b040103040401030104010300040203000401030004 010301040103000401030104010300040103050401030404010301040103 000401030104010301040103000401030104010301040103000401030104 0103000402030004010300040103000402030d0401050104010001020101 010001020101010401000b04010308040103000401030104010300040103 040401030104010300040103050401030404010301040103000401030104 010301040103000401030104010301040103040401030004010301040103 00040103010401030d040105010401000102010101000102010101040100 0b0401030504040300040103010401030004010304040503000401030504 010304040103010401030004010301040103010401030004010301040103 0104010301040403000401030104010300040103010401030d0401050104 010001020101010001020101010401000b04010304040103010401030004 010301040103000401030404010304040103050401030404010301040103 000401030104010301040103000401030104010301040103000401030104 0103000401030104010300040103010401030d0401050104010001020101 010001020101010401000c04010301040303010401030004010301040103 000401030104010300040103010401030004010306040103010403030104 010300040103010401030104010300040103010401030104010300040103 01040103000401030104010300040103000402030d040105010401000102 0101010001020101010401000d0403030104020300040303010401030104 030302040303010401030704030301040303010401030104010301040103 000401030104010301040103010402030004030301040103010401030004 01030d0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401007c040105010401000102010101000102010101040100 7c0401050104010001020101010001020101010401007c04010501040100 01020101010001020101010401007c040105010401000102010101000102 0101010401007c0401050104010001020101010001020101010401007c04 01050104010001020101010001020101010401007c040105010401000102 0101010001020101010401007e0"&%97501040100010201010100010201010104 00007f050104010001020101010001020101840401000102010101000102 010184040100010201010100010201018404010001020101010001020101 840401000102010101000102010126043500270401000102010101000102 010126043400000527040100010201010100010201012604010031040105 270401000102010101000102010126040100310401052704010001020101 010001020101260401003104010527040100010201010100010201012604 010031040105270401000102010101000102010126040100310401052704 010001020101010001020101260401003104010527040100010201010100 01020101260401000b040103020401030704010314040105270401000102 0101010001020101260401000b0401030204010307040103140401052704 010001020101010001020101260401000b04010302040103010403030104 010300040103000401030e04010527040100010201010100010201012604 01000b040103020401030004010301040103000401030004020300040103 0d040105270401000102010100000401260401000b040603000401030104 01030004010300040103010401030d040105270401000301040000012604 01000b04010302040103000405030004010300040103010401030d040105 270404000001010001020101260401000b04010302040103000401030404 010300040103010401030d04010527040100010201010100010201012604 01000b040103020401030004010301040103000401030004020300040103 0d0401052704010001020101010001020101260401000b04010302040103 010403030104010300040103000401030e04010527040100010201010100 01020101260401001d040103110401052704010001020101010001020101 260401001d04010311040105270401000102010101000102010126040100 1d0401031104010527040100010201010100010201012604010031040105 270401000102010101000102010126040100310401052704010001020101 010001020101260401003104010527040100010201010100010201012604 010031040105270401000102010101000102010126040100310401052704 010001020101010001020101260401003104010527040100010201010100 010201012604010033052704010001020101010001020101260400003405 270401000102010101000102010184040100010201010100010201018404 010001020101010001020101860001020101010001020001870001020101 010013020001000060020001000013020101010013020001000060020001 00001302010101001401000061010000150100008f01 % % Run-length encoding savings = 77.7% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'ˆè_ÿÿ€$ï'„ g,t g,`ÌE ´&&  }‘}‘û ÿ2Modernˆ-!Title: tkPFil2!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:22:48 1994ó&%ÛÙ%MSEPS Preamble 0 0 145 125 0 0 145 125 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 145 def /pp_by2 125 def &&ü-úþÿÿ- }‘'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPFil2 %%Pages: 1 %%BoundingBox: 0 0 145 125 %%CreationDate: Thu Dec 1 14:22:48 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 145 125 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 145 125 8 [145 0 0 -125 0 125] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 drawcolormappedimage a60000016100000115000001010013020001000060020001000013020101 010013020001000060020001000013020101010001021201000061010000 11010102010101000102000187000102010101000102000100000f020001 00004e02000100000f02000100000f020001000001020101010001020001 00000f02000100004e02000100000f02000100000f020001000001020101 01000102000100000f02000100004e02000100000f02000100000f020001 00000102010101000102000100000f020001000023020103070201031e02 000100000f02000100000202090002020001000001020101010001020001 00000f02000100002d0201031e02000100000f0200010000020200000702 00010202000100000102010101000102000100000f020001000018020103 0102010301020103000201030102030301020103000201031b0200010000 0f0200010000020200000702000102020001000001020101010001020001 000002020900020200010000180201030102010301020103000201030002 01030102010300020203000201031a020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100001902010300020103000201030102010300020203 03020103010201031a020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 000102020001000019020103000201030002010301020103020202030102 0103010201031a0200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100001902010300020103000201030102010303020203000201030102 01031a020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100001a02010301020103 02020103000201030102010300020103010201031a02000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100001a02010301020103020201030102030301020103010201031a02 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100004e02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100004e0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 4e02000100000f02000100000f0200010000010201010100010200010000 100100004f01000010010000100100000102010100008a01000003010400 000184040400000101000102010184040100010201010100010201010104 8000010401000102010&%101000102010101047f0000050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01007c0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401007c040105010401000102010101000102010101040100 7c0401050104010001020101010001020101010401003604030303040103 020401033604010501040100010201010100010201010104010035040103 010401030204010301040103370401050104010001020101010001020101 010401003404010303040103010401030004010338040105010401000102 010101000102010101040100340401030304010301040303390401050104 010001020101010001020101010401003404010303040103010403033904 010501040100010201010100010201010104010034040103030401030104 010300040103380401050104010001020101010001020101010401003404 010303040103010401030104010337040105010401000102010101000102 010101040100350401030104010302040103020401033604010501040100 010201010100010201010104010036040303030401030304010335040105 0104010001020101010001020101010401007c0401050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01007c0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401007c040105010401000102010101000102010101040100 7c0401050104010001020101010001020101010401007c04010501040100 01020101010001020101010401007c040105010401000102010101000102 0101010401007e050104010001020101010001020101010400007f050104 010001020101010001020101840401000102010101000102010184040100 010201010100010201018404010001020101010001020101840401000102 010101000102010101048000010401000102010101000102010101047f00 00050104010001020101010001020101010401007c040105010401000102 0101010001020101010401007c0401050104010001020101010001020101 010401007c0401050104010001020101010001020101010401007c040105 0104010001020101010001020101010401007c0401050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01000d0403031c040103070403032f0401030d0401050104010001020101 010001020101010401000c040103010401031b0401030604010301040103 2e0401030d0401050104010001020101010001020101010401000b040103 050403030104010300040103020403030204030301040103050401030504 030301040003000402030004020301040003000402030004020302040303 010401030004010302040103000401030d04010501040100010201010100 01020101010401000b040103040401030104010300040203000401030004 010301040103000401030104010300040103050401030404010301040103 000401030104010301040103000401030104010301040103000401030104 0103000402030004010300040103000402030d0401050104010001020101 010001020101010401000b04010308040103000401030104010300040103 040401030104010300040103050401030404010301040103000401030104 010301040103000401030104010301040103040401030004010301040103 00040103010401030d040105010401000102010101000102010101040100 0b0401030504040300040103010401030004010304040503000401030504 010304040103010401030004010301040103010401030004010301040103 0104010301040403000401030104010300040103010401030d0401050104 010001020101010001020101010401000b04010304040103010401030004 010301040103000401030404010304040103050401030404010301040103 000401030104010301040103000401030104010301040103000401030104 0103000401030104010300040103010401030d0401050104010001020101 010001020101010401000c04010301040303010401030004010301040103 000401030104010300040103010401030004010306040103010403030104 010300040103010401030104010300040103010401030104010300040103 01040103000401030104010300040103000402030d040105010401000102 0101010001020101010401000d0403030104020300040303010401030104 030302040303010401030704030301040303010401030104010301040103 000401030104010301040103010402030004030301040103010401030004 01030d0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401007c040105010401000102010101000102010101040100 7c0401050104010001020101010001020101010401007c04010501040100 01020101010001020101010401007c040105010401000102010101000102 0101010401007c0401050104010001020101010001020101010401007c04 01050104010001020101010001020101010401007c040105010401000102 0101010001020101010401007e05!&%8601040100010201010100010201010104 00007f050104010001020101010001020101840401000102010101000102 010184040100010201010100010201018404010001020101010001020101 840401000102010101000102010101048000010401000102010101000102 010101047f0000050104010001020101010001020101010401007c040105 0104010001020101010001020101010401007c0401050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01007c0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401003004010302040103070401033a040105010401000102 0101010001020101010401003004010302040103070401033a0401050104 010001020101010001020101010401003004010302040103010403030104 010300040103000401033404010501040100010201010100010201010104 010030040103020401030004010301040103000401030004020300040103 330401050104010001020101000004010104010030040603000401030104 010300040103000401030104010333040105010401000301040000010104 010030040103020401030004050300040103000401030104010333040105 010404000001010001020101010401003004010302040103000401030404 010300040103010401033304010501040100010201010100010201010104 010030040103020401030004010301040103000401030004020300040103 330401050104010001020101010001020101010401003004010302040103 010403030104010300040103000401033404010501040100010201010100 010201010104010042040103370401050104010001020101010001020101 010401004204010337040105010401000102010101000102010101040100 42040103370401050104010001020101010001020101010401007c040105 0104010001020101010001020101010401007c0401050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01007c0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401007e050104010001020101010001020101010400007f05 010401000102010101000102010184040100010201010100010201018404 010001020101010001020101860001020101010001020001870001020101 010013020001000060020001000013020101010013020001000060020001 00001302010101001401000061010000150100008f01 % % Run-length encoding savings = 77.7% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'ˆèbÿÿ€$ï'„ g,„ g,cì 4 Ý,&&  í¹í¹û ÿ2Modernˆ-!Title: tkPkFil3!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:22:49 1994ó&%ÛÙ%MSEPS Preamble 0 0 185 237 0 0 185 237 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 185 def /pp_by2 237 def &&ü-úþÿÿ- í¹'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkFil3 %%Pages: 1 %%BoundingBox: 0 0 185 237 %%CreationDate: Thu Dec 1 14:22:49 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 185 237 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 21 string def /drawcolormappedimage { 185 237 8 [185 0 0 -237 0 237] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 e2cbae drawcolormappedimage ce0000018900000115000001010013020001000088020001000013020101 010013020001000088020001000013020101010001021201000089010000 110101020101010001020001af000102010101000102000100000f020001 00007602000100000f02000100000f020001000001020101010001020001 00000f02000100007602000100000f02000100000f020001000001020101 01000102000100000f02000100007602000100000f02000100000f020001 00000102010101000102000100000f020001000028020403020201030902 01033702000100000f020001000002020900020200010000010201010100 0102000100000f0200010000270201030202010301020103090201033702 000100000f02000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010300020303010203030102 030301020303020203032902000100000f02000100000202000007020001 020200010000010201010100010200010000020209000202000100002802 020304020103010201030102010301020103010201030102010300020103 010201032802000100000502030005020001000002020000070200010202 000100000102010101000102000100000202000007020001020200010000 2a0202030202010305020103010201030102010301020103000202032b02 000100000502000001020001050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100002b02 020301020103020204030102010301020503020202032902000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000027020103020201030102 010301020103010201030102010301020103070202032802000100000502 000002010502000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010301020103000202030102 010301020103000202030102010300020103010201032802000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000280204030302010301020203000201030102010301020303 020203032902000100000f02000100000202000007020001020200010000 0102010101000102000100000f02000100007602000100000f0200010000 0202000008010202000100000102010101000102000100000f0200010000 7602000100000f02000100000f0200010000010201010100010200010000 0f02000100007602000100000f02000100000f0200010000010201010100 01020001000010010000770100001001000010010000010201010000b201 00000301040&%000012e044d002f04040000010100010201012e044c000005 2f040100010201010100010201012e040100490401052f04010001020101 0100010201012e040100490401052f040100010201010100010201012e04 0100490401052f040100010201010100010201012e040100490401052f04 0100010201010100010201012e040100490401052f040100010201010100 010201012e040100490401052f040100010201010100010201012e040100 490401052f040100010201010100010201012e040100490401052f040100 010201010100010201012e04010007040703000401031604010302040103 070401030e0401052f040100010201010100010201012e04010007040103 060401031604010302040103070401030e0401052f040100010201010100 010201012e04010007040103030401030004010301040303100401030204 010301040303010401030004010300040103080401052f04010001020101 0100010201012e0401000704010303040103000401030004010301040103 0f0401030204010300040103010401030004010300040203000401030704 01052f040100010201010100010201012e04010007040403000401030004 010300040103010401030f04060300040103010401030004010300040103 01040103070401052f040100010201010100010201012e04010007040103 0304010300040103000405030f0401030204010300040503000401030004 010301040103070401052f040100010201010100010201012e0401000704 010303040103000401030004010313040103020401030004010304040103 0004010301040103070401052f040100010201010100010201012e040100 07040103030401030004010300040103010401030f040103020401030004 010301040103000401030004020300040103070401052f04010001020101 0100010201012e0401000704010303040103000401030104030310040103 0204010301040303010401030004010300040103080401052f0401000102 01010100010201012e0401003b0401030b0401052f040100010201010100 010201012e040100060406031a040803090401030b0401052f0401000102 01010100010201012e040100060406031a040803090401030b0401052f04 0100010201010100010201012e040100490401052f040100010201010100 010201012e040100490401052f040100010201010100010201012e040100 490401052f040100010201010100010201012e040100490401052f040100 010201010100010201012e040100490401052f0401000102010101000102 01012e040100490401052f040100010201010100010201012e0401004b05 2f040100010201010100010201012e0400004c052f040100010201010100 01020101ac04010001020101010001020101ac0401000102010101000102 010101049105180401000102010101000102010101049005000018040100 01020101010001020101010401058d040100180401000102010101000102 0101010401058d0401001804010001020101010001020101010401058d04 010018040100010201010100010201010104010500040103020401031904 010300040103660401001804010001020101010001020101010401050004 010302040103850401001804010001020101010001020101010401050004 010302040103010403030104010301040103010401030104030301040103 000401036604010018040100010201010100010201010104010500040103 020401030004010301040103000401030104010301040103000401030104 010300040103000401036604010018040100010201010100010201010104 010500040603040401030104010300040103000401030504010300040103 000401036604010018040100010201010100010201010104010500040103 020401030104040301040103000401030004010302040403000401030004 010366040100180401000102010101000102010101040105000401030204 010300040103010401030104010300040103000401030104010301040103 000401030004010366040100180401000102010101000102010101040105 000401030204010300040103010401030204010301040103020401030104 010300040103000401036604010018040100010201010100010201010104 010500040103020401030104020300040103010401030104010303040203 000403030004010366040100180401000102010101000102010101040105 8d0401001804010001020101010001020101010401058d04010018040100 01020101010001020101010401058d040100180401000102010101000102 0101010401058d0401001804010001020101010001020101010401058d04 01001804010001020101010001020101010401058d040100180401000102 0101010001020101010401058d0401001804010001020101010001020101 010401058d04010018040100010201010100010201010104010500040103 040401030704010379040100180401000102010101000102010101040105 000401030404010307040103790401001804010001020101010001020101 010401050004010301040103000401030104030301040103000401030204 03036f040100180401000102010101000102010101040105000401030004 010300040203000401030104010300040203000401030004010301040103 6e0401001804010001020101010001020101010401050004010300040103 01040103040401030004&%01030104010300040103010401036e0401001804 010001020101010001020101010401050004010300040103010401030104 0403000401030104010300040103010401036e0401001804010001020101 010001020101010401050004010300040103010401030004010301040103 000401030104010300040103010401036e04010018040100010201010100 010201010104010500040103000401030004020300040103010401030004 01030104010300040103010401036e040100180401000102010101000102 010101040105000401030104010300040103010402030004030301040103 010403036f0401001804010001020101010001020101010401058d040100 1804010001020101010001020101010401058d0401001804010001020101 010001020101010401058d04010018040100010201010100010201010104 01058d0401001804010001020101010001020101010401058d0401001804 010001020101010001020101010401058d04010018040100010201010100 01020101010401058d040100180401000102010101000102010101040105 8d0401001804010001020101010001020101010401050004010300040103 00040103000401030e040103700401001804010001020101010001020101 010401050004010300040103000401038404010018040100010201010100 010201010104010500040103000401030004010300040103000401030004 01030204030301040103010403036a040100180401000102010101000102 010101040105000401030004010300040103000401030004020300040103 000401030104010300040103000401030104010369040100180401000102 010101000102010101040105000401030004010300040103000401030004 010301040103000401030104010300040103000402036c04010018040100 010201010100010201010104010500040103000401030004010300040103 0004010301040103000401030104010300040103020402036a0401001804 010001020101010001020101010401050004010300040103000401030004 010300040103010401030004010301040103000401030304020369040100 180401000102010101000102010101040105000401030004010300040103 000401030004010301040103000401030104010300040103000401030104 010369040100180401000102010101000102010101040105000401030004 010300040103000401030004010301040103010403030104010301040303 6a0401001804010001020101010001020101010401058d04010018040100 01020101010001020101010401058d040100180401000102010101000102 0101010401058d0401001804010001020101010001020101010401058d04 01001804010001020101010001020101010401058d040100180401000102 0101010001020101010401058d0401001804010001020101010001020101 010401058d0401001804010001020101010001020101010401058d040100 180401000102010101000102010101040105000401030b04010300040103 79040100180401000102010101000102010101040105000401030b040103 7c0401001804010001020101010001020101010401050004010300040103 000401030204010300040103000401030104030301040103000401030204 030365040100180401000102010101000102010101040105000401030004 020300040103000401030004020300040103000401030104010300040203 000401030004010301040103640401001804010001020101010001020101 010401050004010300040103010401030004010301040103000401030404 010300040103010401030404010364040100180401000102010101000102 010101040105000401030004010301040103000401030104010300040103 010404030004010301040103010404036404010018040100010201010100 010201010104010500040103000401030104010300040103010401030004 010300040103010401030004010301040103000401030104010364040100 180401000102010101000102010101040105000401030004010301040103 000401030004020300040103000401030104010300040103010401030004 010301040103640401001804010001020101010001020101010401050004 010300040103010401030104010300040103000401030104020300040303 010401030104020300040103630401001804010001020101010001020101 010401058d0401001804010001020101010001020101010401058d040100 1804010001020101010001020101010401058d0401000304120501040100 01020101010001020101010401058d040100030411050000010401000102 0101010001020101010401058d0401000304010506060005060601000104 010001020101010001020101010401058d04010003040105050600000005 060601000104010001020101010001020101010401058d04010003040105 050600000105050601000104010001020101010001020101010401058d04 010003040105040601000105050601000104010001020101010001020101 01040105000401038a040100030401050406010000040105040601000104 01000102010101000102010101040105000401038a040100030401050306 010001040105040601000104010001020101010001020101010401050004 010301040303010401030104010301040103010403037204010003040105 03060100020401050306010001040&%1000102010101000102010101040105 000401030004010301040103000401030104010301040103000401030104 010371040100030401050206010003040105030601000104010001020101 010001020101010401050004010300040103010401030104010300040103 000401030504010371040100030401050206010004040105020601000104 010001020101010001020101010401050004010300040103010401030104 010300040103000401030204040371040100030401050106010005040105 020601000104010001020101010001020101010401050004010300040103 010401030104010300040103000401030104010301040103710401000304 010501060100060401050106010001040100010201010100010201010104 010500040103000401030104010302040103010401030204010301040103 710401000304010500060100070401050106010001040100010201010100 010201010104010500040103010403030304010301040103030402030004 010370040100030401050006010008040105000601000104010001020101 010001020101010401058d0401000304010501000b050006010001040100 01020101010001020101010401058d0401000304010500000d0501000104 010001020101010001020101010401058d040100030401050e0601000104 010001020101010001020101010401058d04010003040105100001040100 01020101010001020101010401058d040100030401050d00000501000104 010001020101010001020101010401058d0401000304010501000c050100 0104010001020101010001020101010401058d0401000304010500000d05 01000104010001020101010001020101010401058d040100030401050e06 010001040100010201010100010201010104010500040103020401038504 010003040105100001040100010201010100010201010104010500040103 01040103860401000304010500060c000005010001040100010201010100 010201010104010500040103000401030304030301040103000401030204 030302040303020403036304010003040105000601000804010500060100 010401000102010101000102010101040105000403030304010301040103 000402030004010300040103010401030004010301040103000401030104 010362040100030401050106010007040105000601000104010001020101 010001020101010401050004030307040103000401030104010300040203 070401030004020365040100030401050106010006040105010601000104 010001020101010001020101010401050004010300040103030404030004 010301040103020402030204040302040203630401000304010502060100 050401050106010001040100010201010100010201010104010500040103 010401030104010301040103000401030104010303040203000401030104 010303040203620401000304010502060100040401050206010001040100 010201010100010201010104010500040103020401030004010301040103 000401030104010300040103010401030004010301040103000401030104 010362040100030401050306010003040105020601000104010001020101 010001020101010401050004010303040103000402030004030301040103 010403030204020300040103000403036304010003040105030601000204 0105030601000104010001020101010001020101010401058d0401000304 010504060100010401050306010001040100010201010100010201010104 01058d040100030401050406010000040105040601000104010001020101 010001020101010401058d04010003040105050600000205040601000104 010001020101010001020101010401058d04010003040105050600000105 050601000104010001020101010001020101010401058d04010003040105 06060105050601000104010001020101010001020101010401058d040100 030401050606000506060100010401000102010101000102010101040105 8d0401000304010510000104010001020101010001020101010401058d04 010003040005110001040100010201010100010201010104010500040103 020401030f0401030f040103610401001804010001020101010001020101 010401050004010301040103100401030f04010361040100180401000102 010101000102010101040105000401030004010303040303010401030004 010301040303000401030104010301040303010401030104010300040103 020401035504010018040100010201010100010201010104010500040303 030401030104010300040203000401030104010301040103010401030004 010301040103000401030004010301040103020401035504010018040100 010201010100010201010104010500040303030401030104010300040103 010401030104010301040103010401030004010304040303030401030004 010356040100180401000102010101000102010101040105000401030004 010302040503000401030104010301040103010401030104010300040103 040403030304010300040103560401001804010001020101010001020101 010401050004010301040103010401030404010301040103010401030104 010301040103000401030404010300040103030402035704010018040100 010201010100010201010104010500040103020401030004010301040103 00040103010401030104010300040203000402&%0300040103010401030004 010301040103020402035704010018040100010201010100010201010104 010500040103030401030004030301040103010401030204010301040103 000401030104030301040103020401030204010357040100180401000102 010101000102010101040105330400035804010018040100010201010100 010201010104010532040103580401001804010001020101010001020101 010401053104010359040100180401000102010101000102010101040105 8d0401001804010001020101010001020101010401058d04010018040100 01020101010001020101010401058d040100180401000102010101000102 0101010401058d0401001804010001020101010001020101010401058d04 010018040100010201010100010201010104010500040103110401030704 01036c040100180401000102010101000102010101040105000401038a04 010018040100010201010100010201010104010500040103040403030104 010301040103000401030104030301040103010403030104010300040103 020403035804010018040100010201010100010201010104010500040103 030401030104010300040103010401030004010300040103010401030004 010300040103010401030004020300040103000401030104010357040100 180401000102010101000102010101040105000401030304010301040103 000401030104010300040103000402030304010304040103000401030104 010304040103570401001804010001020101010001020101010401050004 010303040103010401030004010301040103000401030204020301040103 010404030004010301040103010404035704010018040100010201010100 010201010104010500040103030401030104010300040103010401030004 010303040203000401030004010301040103000401030104010300040103 010401035704010018040100010201010100010201010104010500040103 030401030104010300040103000402030004010300040103010401030004 010300040103010401030004010301040103000401030104010357040100 180401000102010101000102010101040105000405030004030302040103 000401030004010301040303010401030104020300040303010401030104 020300040103560401001804010001020101010001020101010401058d04 01001804010001020101010001020101010401058d040100180401000102 0101010001020101010401058d0401001804010001020101010001020101 010401058d0401001804010001020101010001020101010401058d040100 1804010001020101010001020101010401058d0401001804010001020101 010001020101010401058d04010018040100010201010100010201010104 01058d040100180401000102010101000102010101040105000401030404 010307040103790401001804010001020101010001020101010401050004 010304040103830401001804010001020101010001020101010401050004 02030204020301040303010401030004010300040103020403036c040100 180401000102010101000102010101040105000402030204020300040103 0104010300040103000402030004010300040103010401036b0401001804 010001020101010001020101010401050004030300040303040401030004 0103000401030104010300040103010401036b0401001804010001020101 010001020101010401050004010300040003000400030004010301040403 000401030004010301040103000405036b04010018040100010201010100 010201010104010500040103000402030004010300040103010401030004 01030004010301040103000401036f040100180401000102010101000102 010101040105000401030104000301040103000401030104010300040103 000401030104010300040103010401036b04010018040100010201010100 010201010104010500040103010400030104010301040203000403030004 010301040103010403036c04010018040100010201010100010201010104 01058d0401001804010001020101010001020101010401058d0401001804 010001020101010001020101010401058d04010018040100010201010100 01020101010401058d040100180401000102010101000102010101040105 8d0401001804010001020101010001020101010401058d04010018040100 01020101010001020101010401058d040100180401000102010101000102 0101010401058d0401001804010001020101000004010104010500040103 040401031404010312040103570401001804010003010400000101040105 000401030404010314040103120401035704010018040400000101000102 010101040105000402030204020301040303010401030004030302040103 000401030104030301040103000401030204010300040103570401001804 010001020101010001020101010401050004020302040203000401030104 010300040603020401030004010300040103010401030004020300040103 000401030004020357040100180401000102010101000102010101040105 000403030004030304040103000402030204010300040103010401030404 010300040103010401030004010301040103570401001804010001020101 010001020101010401050004010300040003000400030004010301040403 000401030304010300040103010401030104040300040108&%ec3010401030004 010301040103570401001804010001020101010001020101010401050004 010300040203000401030004010301040103000401030404020302040103 000401030104010300040103010401030004010301040103570401001804 010001020101010001020101010401050004010301040003010401030004 010301040103000401030404020302040103000401030104010300040103 010401030004010300040203570401001804010001020101010001020101 010401050004010301040003010401030104020300040303050401030204 010301040203000403030104010301040103000401035704010018040100 010201010100010201010104010519040003720401001804010001020101 010001020101010401051804010372040100180401000102010101000102 010101040105170401037304010018040100010201010100010201010104 01058d0401001804010001020101010001020101010401058d0401001804 010001020101010001020101010401058f00180401000102010101000102 01010104000590001804010001020101010001020101ac04010001020101 010001020101ac04010001020101010001020101ae000102010101000102 0001af000102010101001302000100008802000100001302010101001302 00010000880200010000130201010100140100008901000015010000b701 % % Run-length encoding savings = 78.1% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'Èheÿÿ€$ï'„ g,” g,fü'. 1&&  í¹í¹û ÿ2Modernˆ-!Title: tkPkFil4!Creator: xgrabsc!'CreationDate: Thu Dec 1 14:22:49 1994ó&%ÛÙ%MSEPS Preamble 0 0 185 237 0 0 185 237 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 185 def /pp_by2 237 def &&ü-úþÿÿ- í¹'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkFil4 %%Pages: 1 %%BoundingBox: 0 0 185 237 %%CreationDate: Thu Dec 1 14:22:49 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 185 237 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 21 string def /drawcolormappedimage { 185 237 8 [185 0 0 -237 0 237] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba e2cbae drawcolormappedimage ce0000018900000115000001010013020001000088020001000013020101 010013020001000088020001000013020101010001021201000089010000 110101020101010001020001af000102010101000102000100000f020001 00007602000100000f02000100000f020001000001020101010001020001 00000f02000100007602000100000f02000100000f020001000001020101 01000102000100000f02000100007602000100000f02000100000f020001 00000102010101000102000100000f020001000028020403020201030902 01033702000100000f020001000002020900020200010000010201010100 0102000100000f0200010000270201030202010301020103090201033702 000100000f02000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010300020303010203030102 030301020303020203032902000100000f02000100000202000007020001 020200010000010201010100010200010000020209000202000100002802 020304020103010201030102010301020103010201030102010300020103 010201032802000100000502030005020001000002020000070200010202 000100000102010101000102000100000202000007020001020200010000 2a0202030202010305020103010201030102010301020103000202032b02 000100000502000001020001050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100002b02 020301020103020204030102010301020503020202032902000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000027020103020201030102 010301020103010201030102010301020103070202032802000100000502 000002010502000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010301020103000202030102 010301020103000202030102010300020103010201032802000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000280204030302010301020203000201030102010301020303 020203032902000100000f02000100000202000007020001020200010000 0102010101000102000100000f02000100007602000100000f0200010000 0202000008010202000100000102010101000102000100000f0200010000 7602000100000f02000100000f0200010000010201010100010200010000 0f02000100007602000100000f02000100000f0200010000010201010100 01020001000010010000770100001001000010010000010201010000b201 00000301040&%00001b1000001010001020101ab0000040100010201010100 010201010100a80501040100010201010100010201010100a80501040100 010201010100010201010100a80501040100010201010100010201010100 a80501040100010201010100010201010100a80501040100010201010100 010201010100a80501040100010201010100010201010100a80501040100 010201010100010201010100a80501040100010201010100010201010100 07050703000501037505010302050103070501030e050104010001020101 010001020101010007050103060501037505010302050103070501030e05 010401000102010101000102010101000705010303050103000501030105 03036f050103020501030105030301050103000501030005010308050104 010001020101010001020101010007050103030501030005010300050103 010501036e05010302050103000501030105010300050103000502030005 010307050104010001020101010001020101010007050403000501030005 010300050103010501036e05060300050103010501030005010300050103 010501030705010401000102010101000102010101000705010303050103 00050103000505036e050103020501030005050300050103000501030105 010307050104010001020101010001020101010007050103030501030005 010300050103720501030205010300050103040501030005010301050103 070501040100010201010100010201010100070501030305010300050103 00050103010501036e050103020501030005010301050103000501030005 020300050103070501040100010201010100010201010100070501030305 010300050103010503036f05010302050103010503030105010300050103 000501030805010401000102010101000102010101009a0501030b050104 01000102010101000102010101000605060379050803090501030b050104 01000102010101000102010101000605060379050803090501030b050104 0100010201010100010201010100a8050104010001020101010001020101 0100a80501040100010201010100010201010100a8050104010001020101 0100010201010100a80501040100010201010100010201010100a8050104 0100010201010100010201010100a8050104010001020101010001020101 0100aa040100010201010100010201010000ab0401000102010101000102 0101ac05010001020101010001020101ac05010001020101010001020101 010591040305120401050100010201010100010201010105900400000305 110400000105010001020101010001020101010501048d05010003050104 06060004060601000105010001020101010001020101010501048d050100 030501040506000000040606010001050100010201010100010201010105 01048d050100030501040506000001040506010001050100010201010100 010201010105010400050103020501031905010300050103660501000305 010404060100010405060100010501000102010101000102010101050104 000501030205010385050100030501040406010000050104040601000105 010001020101010001020101010501040005010302050103010503030105 010301050103010501030105030301050103000501036605010003050104 030601000105010404060100010501000102010101000102010101050104 000501030205010300050103010501030005010301050103010501030005 010301050103000501030005010366050100030501040306010002050104 030601000105010001020101010001020101010501040005060304050103 010501030005010300050103050501030005010300050103660501000305 010402060100030501040306010001050100010201010100010201010105 010400050103020501030105040301050103000501030005010302050403 000501030005010366050100030501040206010004050104020601000105 010001020101010001020101010501040005010302050103000501030105 010301050103000501030005010301050103010501030005010300050103 660501000305010401060100050501040206010001050100010201010100 010201010105010400050103020501030005010301050103020501030105 010302050103010501030005010300050103660501000305010401060100 060501040106010001050100010201010100010201010105010400050103 020501030105020300050103010501030105010303050203000503030005 010366050100030501040006010007050104010601000105010001020101 010001020101010501048d05010003050104000601000805010400060100 0105010001020101010001020101010501048d0501000305010401000b04 000601000105010001020101010001020101010501048d05010003050104 00000d0401000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e060100010501000102010101000102010101050104000501030405 01030705010379050100030501040e060100010501000102010101000102 01010105010400050103&%040501030705010379050100030501040e060100 010501000102010101000102010101050104000501030105010300050103 010503030105010300050103020503036f050100030501040e0601000105 010001020101010001020101010501040005010300050103000502030005 010301050103000502030005010300050103010501036e05010003050104 0e0601000105010001020101010001020101010501040005010300050103 0105010304050103000501030105010300050103010501036e0501000305 01040e060100010501000102010101000102010101050104000501030005 01030105010301050403000501030105010300050103010501036e050100 030501040e06010001050100010201010100010201010105010400050103 000501030105010300050103010501030005010301050103000501030105 01036e050100030501040e06010001050100010201010100010201010105 010400050103000501030005020300050103010501030005010301050103 00050103010501036e050100030501040e06010001050100010201010100 010201010105010400050103010501030005010301050203000503030105 0103010503036f050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 010101050104000501030005010300050103000501030e05010370050100 030501040e06010001050100010201010100010201010105010400050103 000501030005010384050100030501040e06010001050100010201010100 010201010105010400050103000501030005010300050103000501030005 01030205030301050103010503036a050100030501040e06010001050100 010201010100010201010105010400050103000501030005010300050103 000502030005010300050103010501030005010300050103010501036905 0100030501040e0601000105010001020101010001020101010501040005 010300050103000501030005010300050103010501030005010301050103 00050103000502036c050100030501040e06010001050100010201010100 010201010105010400050103000501030005010300050103000501030105 0103000501030105010300050103020502036a050100030501040e060100 010501000102010101000102010101050104000501030005010300050103 000501030005010301050103000501030105010300050103030502036905 010003050104100001050100010201010100010201010105010400050103 000501030005010300050103000501030105010300050103010501030005 0103000501030105010369050100030501040d0000040100010501000102 010101000102010101050104000501030005010300050103000501030005 0103010501030105030301050103010503036a0501000305010401000a05 010401000105010001020101010001020101010501048d05010003050104 01000a05010401000105010001020101010001020101010501048d050100 0305010401000a0501040100010501000102010101000102010101050104 8d0501000305010401000a05010401000105010001020101010001020101 010501048d0501000305010401000a050104010001050100010201010100 01020101010501048d0501000305010401000a0501040100010501000102 0101010001020101010501048d0501000305010401000a05010401000105 010001020101010001020101010501048d0501000305010401000a050104 01000105010001020101010001020101010501048d050100030501040100 0a0501040100010501000102010101000102010101050104000501030b05 010300050103790501000305010401000a05010401000105010001020101 01000102010101050104000501030b0501037c0501000305010401000a05 010401000105010001020101010001020101010501040005010300050103 000501030205010300050103000501030105030301050103000501030205 0303650501000305010401000a0501040100010501000102010101000102 010101050104000501030005020300050103000501030005020300050103 000501030105010300050203000501030005010301050103640501000305 010401000a05010401000105010001020101010001020101010501040005 010300050103010501030005010301050103000501030405010300050103 0105010304050103640501000305010401000a0501040100010501000102 010101000102010101050104000501030005010301050103000501030105 010300050103010504030005010301050103010504036405010003050104 01000a050104010001050100010201010100010201010105010400050103 000501030105010300050103010501030005010300050103010501030005 01030105010300050103010501036&%40501000305010401000a0501040100 010501000102010101000102010101050104000501030005010301050103 000501030005020300050103000501030105010300050103010501030005 010301050103640501000305010401000a05010401000105010001020101 010001020101010501040005010300050103010501030105010300050103 000501030105020300050303010501030105020300050103630501000305 010401000a05010401000105010001020101010001020101010501048d05 01000305010401000a050104010001050100010201010100010201010105 01048d0501000305010401000a0501040100010501000102010101000102 0101010501048d0501000305010401000a05010401000105010001020101 010001020101010501048d0501000305010401000a050104010001050100 01020101010001020101010501048d0501000305010401000a0501040100 0105010001020101010001020101010501048d0501000305010401000a05 010401000105010001020101010001020101010501048d05010003050104 01000c0401000105010001020101010001020101010501048d0501000305 010400000d04010001050100010201010100010201010105010400050103 8a050100030501040e060100010501000102010101000102010101050104 000501038a050100030501040e0601000105010001020101010001020101 010501040005010301050303010501030105010301050103010503037205 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030005010301050103010501030005010301050103 71050100030501040e060100010501000102010101000102010101050104 000501030005010301050103010501030005010300050103050501037105 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030105010300050103000501030205040371050100 030501040e06010001050100010201010100010201010105010400050103 000501030105010301050103000501030005010301050103010501037105 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030205010301050103020501030105010371050100 030501040e06010001050100010201010100010201010105010400050103 010503030305010301050103030502030005010370050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 010001050100010201010100010201010105010400050103020501038505 0100030501040e0601000105010001020101010001020101010501040005 01030105010386050100030501040e060100010501000102010101000102 010101050104000501030005010303050303010501030005010302050303 020503030205030363050100030501040e06010001050100010201010100 010201010105010400050303030501030105010300050203000501030005 010301050103000501030105010300050103010501036205010003050104 0e0601000105010001020101010001020101010501040005030307050103 000501030105010300050203070501030005020365050100030501040e06 010001050100010201010100010201010105010400050103000501030305 040300050103010501030205020302050403020502036305010003050104 0e0601000105010001020101010001020101010501040005010301050103 010501030105010300050103010501030305020300050103010501030305 020362050100030501040e06010001050100010201010100010201010105 010400050103020501030005010301050103000501030105010300050103 010501030005010301050103000501030105010362050100030501040e06 010001050100010201010100010201010105010400050103030501030005 020300050303010501030105030302050203000501030005030363050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e06010001050100010201010100010201010105010400050103 020501030f0501030f05010361050100030501040e060100010501000102 01010100010201010105010400050103010501&%03100501030f0501036105 0100030501040e0601000105010001020101010001020101010501040005 010300050103030503030105010300050103010503030005010301050103 010503030105010301050103000501030205010355050100030501040e06 010001050100010201010100010201010105010400050303030501030105 010300050203000501030105010301050103010501030005010301050103 0005010300050103010501030205010355050100030501040e0601000105 010001020101010001020101010501040005030303050103010501030005 010301050103010501030105010301050103000501030405030303050103 0005010356050100030501040e0601000105010001020101010001020101 010501040005010300050103020505030005010301050103010501030105 010301050103000501030405030303050103000501035605010003050104 0e0601000105010001020101010001020101010501040005010301050103 010501030405010301050103010501030105010301050103000501030405 0103000501030305020357050100030501040e0601000105010001020101 010001020101010501040005010302050103000501030105010300050103 010501030105010300050203000502030005010301050103000501030105 01030205020357050100030501040e060100010501000102010101000102 010101050104000501030305010300050303010501030105010302050103 010501030005010301050303010501030205010302050103570501000305 01040e060100010501000102010101000102010101050104330500035805 0100030501040e0601000105010001020101010001020101010501043205 010358050100030501040e06010001050100010201010100010201010105 01043105010359050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501040005010311050103070501036c050100030501040e060100 010501000102010101000102010101050104000501038a05010003050104 0e0601000105010001020101010001020101010501040005010304050303 010501030105010300050103010503030105010301050303010501030005 01030205030358050100030501040e060100010501000102010101000102 010101050104000501030305010301050103000501030105010300050103 000501030105010300050103000501030105010300050203000501030005 01030105010357050100030501040e060100010501000102010101000102 010101050104000501030305010301050103000501030105010300050103 000502030305010304050103000501030105010304050103570501000305 01040e060100010501000102010101000102010101050104000501030305 010301050103000501030105010300050103020502030105010301050403 00050103010501030105040357050100030501040e060100010501000102 010101000102010101050104000501030305010301050103000501030105 010300050103030502030005010300050103010501030005010301050103 000501030105010357050100030501040e06010001050100010201010100 010201010105010400050103030501030105010300050103000502030005 010300050103010501030005010300050103010501030005010301050103 000501030105010357050100030501040e06010001050100010201010100 010201010105010400050503000503030205010300050103000501030105 030301050103010502030005030301050103010502030005010356050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e06010001050100010201010100010201010105010400050103 040501030705010379050100030501040e06010001050100010201010100 0102010101050104000501030405010383050100030501040e0601000105 010001020101010001020101010501040005020302050203010503030105 01030005010300050103020503036c050100030501040e06010001050100 010201010100010201010105010400050203020502030005010301050103 00050103000502030005010300050103010501036b050100030501040e06 010001050100010201010100010201010105010400050303000503030405 010300050103000501030105010300050103010501036b05010003050104 0e060100010501000102010101000102010101050104000_&%´ ² 5010300050003 000500030005010301050403000501030005010301050103000505036b05 0100030501040e0601000105010001020101010001020101010501040005 010300050203000501030005010301050103000501030005010301050103 000501036f050100030501040e0601000105010001020101010001020101 010501040005010301050003010501030005010301050103000501030005 01030105010300050103010501036b050100030501040e06010001050100 010201010100010201010105010400050103010500030105010301050203 000503030005010301050103010503036c050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d05010003050104100001050100 010201010000040101050104000501030405010314050103120501035705 01000305010400060c000004010001050100030104000001010501040005 010304050103140501031205010357050100030501040006010008050104 000601000105040000010100010201010105010400050203020502030105 030301050103000503030205010300050103010503030105010300050103 020501030005010357050100030501040106010007050104000601000105 010001020101010001020101010501040005020302050203000501030105 010300050603020501030005010300050103010501030005020300050103 000501030005020357050100030501040106010006050104010601000105 010001020101010001020101010501040005030300050303040501030005 020302050103000501030105010304050103000501030105010300050103 010501035705010003050104020601000505010401060100010501000102 010101000102010101050104000501030005000300050003000501030105 040300050103030501030005010301050103010504030005010301050103 000501030105010357050100030501040206010004050104020601000105 010001020101010001020101010501040005010300050203000501030005 010301050103000501030405020302050103000501030105010300050103 010501030005010301050103570501000305010403060100030501040206 010001050100010201010100010201010105010400050103010500030105 010300050103010501030005010304050203020501030005010301050103 000501030105010300050103000502035705010003050104030601000205 010403060100010501000102010101000102010101050104000501030105 000301050103010502030005030305050103020501030105020300050303 010501030105010300050103570501000305010404060100010501040306 010001050100010201010100010201010105010419050003720501000305 010404060100000501040406010001050100010201010100010201010105 010418050103720501000305010405060000020404060100010501000102 010101000102010101050104170501037305010003050104050600000104 050601000105010001020101010001020101010501048d05010003050104 06060104050601000105010001020101010001020101010501048d050100 030501040606000406060100010501000102010101000102010101050104 8f0003050104100001050100010201010100010201010105000490000305 000411000105010001020101010001020101ac0501000102010101000102 0101ac05010001020101010001020101ae0001020101010001020001af00 010201010100130200010000880200010000130201010100130200010000 880200010000130201010100140100008901000015010000b701 % % Run-length encoding savings = 75.7% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'Èhhÿÿ€$ï'„ g,¤ g,iD4 ®&&  ddû ÿ2Modernˆ-!Title: tkPkExp1!Creator: xgrabsc!'CreationDate: Thu Dec 1 15:18:00 1994ó&%ÛÙ%MSEPS Preamble 0 0 260 100 0 0 260 100 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 260 def /pp_by2 100 def &&ü-úþÿÿ- d'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkExp1 %%Pages: 1 %%BoundingBox: 0 0 260 100 %%CreationDate: Thu Dec 1 15:18:00 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 260 100 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 260 100 8 [260 0 0 -100 0 100] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 drawcolormappedimage fe001a000001d4000001150000010100130200010000d302000100001302 01010100130200010000d30200010000130201010100010212010000d401 0000110101020101010001020001fa000102010101000102000100000f02 00010000c102000100000f02000100000f02000100000102010101000102 000100000f0200010000c102000100000f02000100000f02000100000102 010101000102000100000f0200010000c102000100000f02000100000f02 000100000102010101000102000100000f02000100005d02010307020103 5702000100000f0200010000020209000202000100000102010101000102 000100000f0200010000670201035702000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100005202 010301020103010201030002010301020303010201030002010354020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000052020103010201030102010300020103 000201030102010300020203000201035302000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000530201030002010300020103010201030002 020303020103010201035302000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100005302010300020103000201030102010302020203 010201030102010353020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000530201030002010300020103010201030302020300020103 010201035302000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000540201030102 010302020103000201030102010300020103010201035302000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000540201030102010302020103010203030102010301020103 5302000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000c102000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000c1020001 00000f02000100000f02000100000102010101000102000100000f020001 0000c102000100000f02000100000f020001000001020101010001020001 000010010000c20100001001000010010000010201010000fd0100000301 04000001f70404000001010001020101f704010001020101010001020101 f70401000102010101&%0001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f70401000102010101000102010101042e00 0304420003043500450401000102010101000102010101042d0000050304 410000050304340000054504010001020101010001020101010401002a04 0105030401003e0401050304010031040105450401000102010101000102 0101010401002a040105030401003e040105030401003104010545040100 01020101010001020101010401002a040105030401003e04010503040100 310401054504010001020101010001020101010401002a04010503040100 3e0401050304010031040105450401000102010101000102010101040100 2a040105030401003e040105030401003104010545040100010201010100 01020101010401002a040105030401003e04010503040100310401054504 010001020101010001020101010401000d04030303040103020401030d04 0105030401000d0403031c0401030d040105030401000b04010302040103 07040103140401054504010001020101010001020101010401000c040103 0104010302040103010401030e040105030401000c040103010401031b04 01030d040105030401000b04010302040103070401031404010545040100 01020101010001020101010401000b040103030401030104010300040103 0f040105030401000b040103050403030104010300040103020403030204 0303010401030d040105030401000b040103020401030104030301040103 00040103000401030e040105450401000102010101000102010101040100 0b040103030401030104030310040105030401000b040103040401030104 010300040203000401030004010301040103000401030104010300040103 0d040105030401000b040103020401030004010301040103000401030004 0203000401030d0401054504010001020101010001020101010401000b04 0103030401030104030310040105030401000b0401030804010300040103 01040103000401030404010301040103000401030d040105030401000b04 060300040103010401030004010300040103010401030d04010545040100 01020101010001020101010401000b040103030401030104010300040103 0f040105030401000b040103050404030004010301040103000401030404 0503000401030d040105030401000b040103020401030004050300040103 00040103010401030d040105450401000102010101000102010101040100 0b0401030304010301040103010401030e040105030401000b0401030404 01030104010300040103010401030004010304040103040401030d040105 030401000b04010302040103000401030404010300040103010401030d04 01054504010001020101010001020101010401000c040103010401030204 0103020401030d040105030401000c040103010403030104010300040103 0104010300040103010401030004010301040103000401030d0401050304 01000b040103020401030004010301040103000401030004020300040103 0d0401054504010001020101010001020101010401000d04030303040103 030401030c040105030401000d0403030104020300040303010401030104 030302040303010401030d040105030401000b0401030204010301040303 0104010300040103000401030e0401054504010001020101010001020101 010401002a040105030401003e040105030401001d040103110401054504 010001020101010001020101010401002a040105030401003e0401050304 01001d040103110401054504010001020101010001020101010401002a04 0105030401003e040105030401001d040103110401054504010001020101 010001020101010401002a040105030401003e0401050304010031040105 4504010001020101010001020101010401002a040105030401003e040105 03040100310401054504010001020101010001020101010401002a040105 030401003e04010503040100310401054504010001020101010001020101 010401002a040105030401003e0401050304010031040105450401000102 0101010001020101010401002a040105030401003e040105030401003104 01054504010001020101010001020101010401002a040105030401003e04 010503040100310401054504010001020101010001020101010401002c05 030401004005030401003305450401000102010101000102010101040000 2d050304000041050304000034054504010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f70401000102010100000401f704010003010400 0001f70404000001010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010&%,*001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f900 01020101010001020001fa00010201010100130200010000d30200010000 130201010100130200010000d3020001000013020101010014010000d401 000015010000fe010301 % % Run-length encoding savings = 87.4% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'  kÿÿ€$ï'„ g,´ g,lŒ'. ®&&  ddû ÿ2Modernˆ-!Title: tkPkExp2!Creator: xgrabsc!'CreationDate: Thu Dec 1 15:18:00 1994ó&%ÛÙ%MSEPS Preamble 0 0 260 100 0 0 260 100 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 260 def /pp_by2 100 def &&ü-úþÿÿ- d'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkExp2 %%Pages: 1 %%BoundingBox: 0 0 260 100 %%CreationDate: Thu Dec 1 15:18:00 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 260 100 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 260 100 8 [260 0 0 -100 0 100] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 drawcolormappedimage fe001a000001d4000001150000010100130200010000d302000100001302 01010100130200010000d30200010000130201010100010212010000d401 0000110101020101010001020001fa000102010101000102000100000f02 00010000c102000100000f02000100000f02000100000102010101000102 000100000f0200010000c102000100000f02000100000f02000100000102 010101000102000100000f0200010000c102000100000f02000100000f02 000100000102010101000102000100000f02000100005d02010307020103 5702000100000f0200010000020209000202000100000102010101000102 000100000f0200010000670201035702000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100005202 010301020103010201030002010301020303010201030002010354020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000052020103010201030102010300020103 000201030102010300020203000201035302000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000530201030002010300020103010201030002 020303020103010201035302000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100005302010300020103000201030102010302020203 010201030102010353020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000530201030002010300020103010201030302020300020103 010201035302000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000540201030102 010302020103000201030102010300020103010201035302000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000540201030102010302020103010203030102010301020103 5302000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000c102000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000c1020001 00000f02000100000f02000100000102010101000102000100000f020001 0000c102000100000f02000100000f020001000001020101010001020001 000010010000c20100001001000010010000010201010000fd0100000301 04000001f70404000001010001020101f704010001020101010001020101 f70401000102010101&%0001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f70401000102010101000102010101042e00 0304420003047900010401000102010101000102010101042d0000050304 410000050304780000050104010001020101010001020101010401002a04 0105030401003e0401050304010075040105010401000102010101000102 0101010401002a040105030401003e040105030401007504010501040100 01020101010001020101010401002a040105030401003e04010503040100 750401050104010001020101010001020101010401002a04010503040100 3e0401050304010075040105010401000102010101000102010101040100 2a040105030401003e040105030401007504010501040100010201010100 01020101010401002a040105030401003e04010503040100750401050104 010001020101010001020101010401000d04030303040103020401030d04 0105030401000d0403031c0401030d040105030401002d04010302040103 07040103360401050104010001020101010001020101010401000c040103 0104010302040103010401030e040105030401000c040103010401031b04 01030d040105030401002d04010302040103070401033604010501040100 01020101010001020101010401000b040103030401030104010300040103 0f040105030401000b040103050403030104010300040103020403030204 0303010401030d040105030401002d040103020401030104030301040103 000401030004010330040105010401000102010101000102010101040100 0b040103030401030104030310040105030401000b040103040401030104 010300040203000401030004010301040103000401030104010300040103 0d040105030401002d040103020401030004010301040103000401030004 0203000401032f0401050104010001020101010001020101010401000b04 0103030401030104030310040105030401000b0401030804010300040103 01040103000401030404010301040103000401030d040105030401002d04 060300040103010401030004010300040103010401032f04010501040100 01020101010001020101010401000b040103030401030104010300040103 0f040105030401000b040103050404030004010301040103000401030404 0503000401030d040105030401002d040103020401030004050300040103 00040103010401032f040105010401000102010101000102010101040100 0b0401030304010301040103010401030e040105030401000b0401030404 01030104010300040103010401030004010304040103040401030d040105 030401002d04010302040103000401030404010300040103010401032f04 01050104010001020101010001020101010401000c040103010401030204 0103020401030d040105030401000c040103010403030104010300040103 0104010300040103010401030004010301040103000401030d0401050304 01002d040103020401030004010301040103000401030004020300040103 2f0401050104010001020101010001020101010401000d04030303040103 030401030c040105030401000d0403030104020300040303010401030104 030302040303010401030d040105030401002d0401030204010301040303 010401030004010300040103300401050104010001020101010001020101 010401002a040105030401003e040105030401003f040103330401050104 010001020101010001020101010401002a040105030401003e0401050304 01003f040103330401050104010001020101010001020101010401002a04 0105030401003e040105030401003f040103330401050104010001020101 010001020101010401002a040105030401003e0401050304010075040105 0104010001020101010001020101010401002a040105030401003e040105 03040100750401050104010001020101010001020101010401002a040105 030401003e04010503040100750401050104010001020101010001020101 010401002a040105030401003e0401050304010075040105010401000102 0101010001020101010401002a040105030401003e040105030401007504 01050104010001020101010001020101010401002a040105030401003e04 010503040100750401050104010001020101010001020101010401002c05 030401004005030401007705010401000102010101000102010101040000 2d050304000041050304000078050104010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f70401000102010100000401f704010003010400 0001f70404000001010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010&%,*001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f900 01020101010001020001fa00010201010100130200010000d30200010000 130201010100130200010000d3020001000013020101010014010000d401 000015010000fe010301 % % Run-length encoding savings = 87.4% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'  nÿÿ€$ï'„ g,Ä g,oÔ E ®&&  ddû ÿ2Modernˆ-!Title: tkPkExp3!Creator: xgrabsc!'CreationDate: Thu Dec 1 15:18:01 1994ó&%ÛÙ%MSEPS Preamble 0 0 260 100 0 0 260 100 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 260 def /pp_by2 100 def &&ü-úþÿÿ- d'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkExp3 %%Pages: 1 %%BoundingBox: 0 0 260 100 %%CreationDate: Thu Dec 1 15:18:01 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 260 100 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 260 100 8 [260 0 0 -100 0 100] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 drawcolormappedimage fe001a000001d4000001150000010100130200010000d302000100001302 01010100130200010000d30200010000130201010100010212010000d401 0000110101020101010001020001fa000102010101000102000100000f02 00010000c102000100000f02000100000f02000100000102010101000102 000100000f0200010000c102000100000f02000100000f02000100000102 010101000102000100000f0200010000c102000100000f02000100000f02 000100000102010101000102000100000f02000100005d02010307020103 5702000100000f0200010000020209000202000100000102010101000102 000100000f0200010000670201035702000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100005202 010301020103010201030002010301020303010201030002010354020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000052020103010201030102010300020103 000201030102010300020203000201035302000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000530201030002010300020103010201030002 020303020103010201035302000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100005302010300020103000201030102010302020203 010201030102010353020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000530201030002010300020103010201030302020300020103 010201035302000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000540201030102 010302020103000201030102010300020103010201035302000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000540201030102010302020103010203030102010301020103 5302000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000c102000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000c1020001 00000f02000100000f02000100000102010101000102000100000f020001 0000c102000100000f02000100000f020001000001020101010001020001 000010010000c20100001001000010010000010201010000fd0100000301 04000001f70404000001010001020101f704010001020101010001020101 f70401000102010101&%0001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f70401000102010101000102010101042e00 0304420025043500230401000102010101000102010101042d0000050304 410000052504340000052304010001020101010001020101010401002a04 0105030401003e0401052504010031040105230401000102010101000102 0101010401002a040105030401003e040105250401003104010523040100 01020101010001020101010401002a040105030401003e04010525040100 310401052304010001020101010001020101010401002a04010503040100 3e0401052504010031040105230401000102010101000102010101040100 2a040105030401003e040105250401003104010523040100010201010100 01020101010401002a040105030401003e04010525040100310401052304 010001020101010001020101010401000d04030303040103020401030d04 0105030401000d0403031c0401030d040105250401000b04010302040103 07040103140401052304010001020101010001020101010401000c040103 0104010302040103010401030e040105030401000c040103010401031b04 01030d040105250401000b04010302040103070401031404010523040100 01020101010001020101010401000b040103030401030104010300040103 0f040105030401000b040103050403030104010300040103020403030204 0303010401030d040105250401000b040103020401030104030301040103 00040103000401030e040105230401000102010101000102010101040100 0b040103030401030104030310040105030401000b040103040401030104 010300040203000401030004010301040103000401030104010300040103 0d040105250401000b040103020401030004010301040103000401030004 0203000401030d0401052304010001020101010001020101010401000b04 0103030401030104030310040105030401000b0401030804010300040103 01040103000401030404010301040103000401030d040105250401000b04 060300040103010401030004010300040103010401030d04010523040100 01020101010001020101010401000b040103030401030104010300040103 0f040105030401000b040103050404030004010301040103000401030404 0503000401030d040105250401000b040103020401030004050300040103 00040103010401030d040105230401000102010101000102010101040100 0b0401030304010301040103010401030e040105030401000b0401030404 01030104010300040103010401030004010304040103040401030d040105 250401000b04010302040103000401030404010300040103010401030d04 01052304010001020101010001020101010401000c040103010401030204 0103020401030d040105030401000c040103010403030104010300040103 0104010300040103010401030004010301040103000401030d0401052504 01000b040103020401030004010301040103000401030004020300040103 0d0401052304010001020101010001020101010401000d04030303040103 030401030c040105030401000d0403030104020300040303010401030104 030302040303010401030d040105250401000b0401030204010301040303 0104010300040103000401030e0401052304010001020101010001020101 010401002a040105030401003e040105250401001d040103110401052304 010001020101010001020101010401002a040105030401003e0401052504 01001d040103110401052304010001020101010001020101010401002a04 0105030401003e040105250401001d040103110401052304010001020101 010001020101010401002a040105030401003e0401052504010031040105 2304010001020101010001020101010401002a040105030401003e040105 25040100310401052304010001020101010001020101010401002a040105 030401003e04010525040100310401052304010001020101010001020101 010401002a040105030401003e0401052504010031040105230401000102 0101010001020101010401002a040105030401003e040105250401003104 01052304010001020101010001020101010401002a040105030401003e04 010525040100310401052304010001020101010001020101010401002c05 030401004005250401003305230401000102010101000102010101040000 2d050304000041052504000034052304010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f70401000102010100000401f704010003010400 0001f70404000001010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010&%,*001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f900 01020101010001020001fa00010201010100130200010000d30200010000 130201010100130200010000d3020001000013020101010014010000d401 000015010000fe010301 % % Run-length encoding savings = 87.4% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'  qÿÿ€$ï'„ g,Ô g,r„ 4 ®&&  ddû ÿ2Modernˆ-!Title: tkPkExp4!Creator: xgrabsc!'CreationDate: Thu Dec 1 15:18:02 1994ó&%ÛÙ%MSEPS Preamble 0 0 260 100 0 0 260 100 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 260 def /pp_by2 100 def &&ü-úþÿÿ- d'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkExp4 %%Pages: 1 %%BoundingBox: 0 0 260 100 %%CreationDate: Thu Dec 1 15:18:02 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 260 100 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 260 100 8 [260 0 0 -100 0 100] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 drawcolormappedimage fe001a000001d4000001150000010100130200010000d302000100001302 01010100130200010000d30200010000130201010100010212010000d401 0000110101020101010001020001fa000102010101000102000100000f02 00010000c102000100000f02000100000f02000100000102010101000102 000100000f0200010000c102000100000f02000100000f02000100000102 010101000102000100000f0200010000c102000100000f02000100000f02 000100000102010101000102000100000f02000100005d02010307020103 5702000100000f0200010000020209000202000100000102010101000102 000100000f0200010000670201035702000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100005202 010301020103010201030002010301020303010201030002010354020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000052020103010201030102010300020103 000201030102010300020203000201035302000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000530201030002010300020103010201030002 020303020103010201035302000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100005302010300020103000201030102010302020203 010201030102010353020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000530201030002010300020103010201030302020300020103 010201035302000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000540201030102 010302020103000201030102010300020103010201035302000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000540201030102010302020103010203030102010301020103 5302000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000c102000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000c1020001 00000f02000100000f02000100000102010101000102000100000f020001 0000c102000100000f02000100000f020001000001020101010001020001 000010010000c20100001001000010010000010201010000fd0100000301 04000001f70404000001010001020101f704010001020101010001020101 f70401000102010101&%0001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f7040100010201010100010201010c042e00 190442001a0435000d040100010201010100010201010c042d0000051904 410000051a04340000050d040100010201010100010201010c0401002a04 0105190401003e0401051a040100310401050d0401000102010101000102 01010c0401002a040105190401003e0401051a040100310401050d040100 010201010100010201010c0401002a040105190401003e0401051a040100 310401050d040100010201010100010201010c0401002a04010519040100 3e0401051a040100310401050d040100010201010100010201010c040100 2a040105190401003e0401051a040100310401050d040100010201010100 010201010c0401002a040105190401003e0401051a040100310401050d04 0100010201010100010201010c0401000d04030303040103020401030d04 0105190401000d0403031c0401030d0401051a0401000b04010302040103 07040103140401050d040100010201010100010201010c0401000c040103 0104010302040103010401030e040105190401000c040103010401031b04 01030d0401051a0401000b0401030204010307040103140401050d040100 010201010100010201010c0401000b040103030401030104010300040103 0f040105190401000b040103050403030104010300040103020403030204 0303010401030d0401051a0401000b040103020401030104030301040103 00040103000401030e0401050d040100010201010100010201010c040100 0b040103030401030104030310040105190401000b040103040401030104 010300040203000401030004010301040103000401030104010300040103 0d0401051a0401000b040103020401030004010301040103000401030004 0203000401030d0401050d040100010201010100010201010c0401000b04 0103030401030104030310040105190401000b0401030804010300040103 01040103000401030404010301040103000401030d0401051a0401000b04 060300040103010401030004010300040103010401030d0401050d040100 010201010100010201010c0401000b040103030401030104010300040103 0f040105190401000b040103050404030004010301040103000401030404 0503000401030d0401051a0401000b040103020401030004050300040103 00040103010401030d0401050d040100010201010100010201010c040100 0b0401030304010301040103010401030e040105190401000b0401030404 01030104010300040103010401030004010304040103040401030d040105 1a0401000b04010302040103000401030404010300040103010401030d04 01050d040100010201010100010201010c0401000c040103010401030204 0103020401030d040105190401000c040103010403030104010300040103 0104010300040103010401030004010301040103000401030d0401051a04 01000b040103020401030004010301040103000401030004020300040103 0d0401050d040100010201010100010201010c0401000d04030303040103 030401030c040105190401000d0403030104020300040303010401030104 030302040303010401030d0401051a0401000b0401030204010301040303 0104010300040103000401030e0401050d04010001020101010001020101 0c0401002a040105190401003e0401051a0401001d040103110401050d04 0100010201010100010201010c0401002a040105190401003e0401051a04 01001d040103110401050d040100010201010100010201010c0401002a04 0105190401003e0401051a0401001d040103110401050d04010001020101 0100010201010c0401002a040105190401003e0401051a04010031040105 0d040100010201010100010201010c0401002a040105190401003e040105 1a040100310401050d040100010201010100010201010c0401002a040105 190401003e0401051a040100310401050d04010001020101010001020101 0c0401002a040105190401003e0401051a040100310401050d0401000102 01010100010201010c0401002a040105190401003e0401051a0401003104 01050d040100010201010100010201010c0401002a040105190401003e04 01051a040100310401050d040100010201010100010201010c0401002c05 1904010040051a04010033050d040100010201010100010201010c040000 2d051904000041051a04000034050d04010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f70401000102010100000401f704010003010400 0001f70404000001010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010&%,*001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f900 01020101010001020001fa00010201010100130200010000d30200010000 130201010100130200010000d3020001000013020101010014010000d401 000015010000fe010301 % % Run-length encoding savings = 87.4% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'  tÿÿ€$ï'„ g,ä g,u„4 f&&  ddû ÿ2Modern‘-!Title: tkPkExp5!Creator: xgrabsc!'CreationDate: Thu Dec 1 15:18:02 1994ó&%ÛÙ%MSEPS Preamble 0 0 260 100 0 0 260 100 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 260 def /pp_by2 100 def &&ü-úþÿÿ- d'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkExp5 %%Pages: 1 %%BoundingBox: 0 0 260 100 %%CreationDate: Thu Dec 1 15:18:02 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 260 100 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 260 100 8 [260 0 0 -100 0 100] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 drawcolormappedimage fe001a000001d4000001150000010100130200010000d302000100001302 01010100130200010000d30200010000130201010100010212010000d401 0000110101020101010001020001fa000102010101000102000100000f02 00010000c102000100000f02000100000f02000100000102010101000102 000100000f0200010000c102000100000f02000100000f02000100000102 010101000102000100000f0200010000c102000100000f02000100000f02 000100000102010101000102000100000f02000100005d02010307020103 5702000100000f0200010000020209000202000100000102010101000102 000100000f0200010000670201035702000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100005202 010301020103010201030002010301020303010201030002010354020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000052020103010201030102010300020103 000201030102010300020203000201035302000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000530201030002010300020103010201030002 020303020103010201035302000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100005302010300020103000201030102010302020203 010201030102010353020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000530201030002010300020103010201030302020300020103 010201035302000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000540201030102 010302020103000201030102010300020103010201035302000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000540201030102010302020103010203030102010301020103 5302000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000c102000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000c1020001 00000f02000100000f02000100000102010101000102000100000f020001 0000c102000100000f02000100000f020001000001020101010001020001 000010010000c20100001001000010010000010201010000fd0100000301 04000001f70404000001010001020101f704010001020101010001020101 010444000304590003&%044c00010401000102010101000102010101044300 000503045800000503044b00000501040100010201010100010201010104 010040040105030401005504010503040100480401050104010001020101 010001020101010401004004010503040100550401050304010048040105 010401000102010101000102010101040100400401050304010055040105 030401004804010501040100010201010100010201010104010040040105 030401005504010503040100480401050104010001020101010001020101 010401004004010503040100550401050304010048040105010401000102 010101000102010101040100400401050304010055040105030401004804 010501040100010201010100010201010104010040040105030401005504 010503040100480401050104010001020101010001020101010401004004 010503040100550401050304010048040105010401000102010101000102 010101040100400401050304010055040105030401004804010501040100 010201010100010201010104010040040105030401005504010503040100 480401050104010001020101010001020101010401004004010503040100 550401050304010048040105010401000102010101000102010101040100 400401050304010055040105030401004804010501040100010201010100 010201010104010040040105030401005504010503040100480401050104 010001020101010001020101010401004004010503040100550401050304 010048040105010401000102010101000102010101040100400401050304 010055040105030401004804010501040100010201010100010201010104 010040040105030401005504010503040100480401050104010001020101 010001020101010401004004010503040100550401050304010048040105 010401000102010101000102010101040100400401050304010055040105 030401004804010501040100010201010100010201010104010040040105 030401005504010503040100480401050104010001020101010001020101 010401004004010503040100550401050304010048040105010401000102 010101000102010101040100400401050304010055040105030401004804 010501040100010201010100010201010104010040040105030401005504 010503040100480401050104010001020101010001020101010401004004 010503040100550401050304010048040105010401000102010101000102 010101040100400401050304010055040105030401004804010501040100 010201010100010201010104010040040105030401005504010503040100 480401050104010001020101010001020101010401001804030303040103 020401031804010503040100180403031c04010319040105030401001604 010302040103070401032004010501040100010201010100010201010104 010017040103010401030204010301040103190401050304010017040103 010401031b04010319040105030401001604010302040103070401032004 010501040100010201010100010201010104010016040103030401030104 0103000401031a0401050304010016040103050403030104010300040103 020403030204030301040103190401050304010016040103020401030104 03030104010300040103000401031a040105010401000102010101000102 0101010401001604010303040103010403031b0401050304010016040103 040401030104010300040203000401030004010301040103000401030104 010300040103190401050304010016040103020401030004010301040103 000401030004020300040103190401050104010001020101010001020101 010401001604010303040103010403031b04010503040100160401030804 010300040103010401030004010304040103010401030004010319040105 030401001604060300040103010401030004010300040103010401031904 010501040100010201010100010201010104010016040103030401030104 0103000401031a0401050304010016040103050404030004010301040103 000401030404050300040103190401050304010016040103020401030004 050300040103000401030104010319040105010401000102010101000102 010101040100160401030304010301040103010401031904010503040100 160401030404010301040103000401030104010300040103040401030404 010319040105030401001604010302040103000401030404010300040103 010401031904010501040100010201010100010201010104010017040103 010401030204010302040103180401050304010017040103010403030104 010300040103010401030004010301040103000401030104010300040103 190401050304010016040103020401030004010301040103000401030004 020300040103190401050104010001020101010001020101010401001804 030303040103030401031704010503040100180403030104020300040303 010401030104030302040303010401031904010503040100160401030204 0103010403030104010300040103000401031a0401050104010001020101 010001020101010401004004010503040100550401050304010028040103 1d0401050104010001020101010001020101010401004004010503040100 5504010503040100280401031d0401050104010001020101010001020101 010401004004010503040100550Ó&%› ™ 4010503040100280401031d0401050104 010001020101010001020101010401004004010503040100550401050304 010048040105010401000102010101000102010101040100400401050304 010055040105030401004804010501040100010201010100010201010104 010040040105030401005504010503040100480401050104010001020101 010001020101010401004004010503040100550401050304010048040105 010401000102010101000102010101040100400401050304010055040105 030401004804010501040100010201010100010201010104010040040105 030401005504010503040100480401050104010001020101010001020101 010401004004010503040100550401050304010048040105010401000102 010101000102010101040100400401050304010055040105030401004804 010501040100010201010100010201010104010040040105030401005504 010503040100480401050104010001020101010001020101010401004004 010503040100550401050304010048040105010401000102010101000102 010101040100400401050304010055040105030401004804010501040100 010201010100010201010104010040040105030401005504010503040100 480401050104010001020101000004010104010040040105030401005504 010503040100480401050104010003010400000101040100400401050304 010055040105030401004804010501040400000101000102010101040100 400401050304010055040105030401004804010501040100010201010100 010201010104010040040105030401005504010503040100480401050104 010001020101010001020101010401004004010503040100550401050304 010048040105010401000102010101000102010101040100400401050304 010055040105030401004804010501040100010201010100010201010104 010040040105030401005504010503040100480401050104010001020101 010001020101010401004004010503040100550401050304010048040105 010401000102010101000102010101040100400401050304010055040105 030401004804010501040100010201010100010201010104010040040105 030401005504010503040100480401050104010001020101010001020101 010401004004010503040100550401050304010048040105010401000102 010101000102010101040100400401050304010055040105030401004804 010501040100010201010100010201010104010040040105030401005504 010503040100480401050104010001020101010001020101010401004004 010503040100550401050304010048040105010401000102010101000102 0101010401004205030401005705030401004a0501040100010201010100 01020101010400004305030400005805030400004b050104010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f90001020101010001020001fa00010201010100130200010000 d30200010000130201010100130200010000d30200010000130201010100 14010000d401000015010000fe010301 % % Run-length encoding savings = 83.8% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'  wÿÿ€$ï'„ g,ô g,x¤ 4 Æ&&  «à«àû ÿ2Modern¡- !Title: tkPkHr!Creator: xgrabsc!'CreationDate: Thu Dec 1 15:51:53 1994ó&%ÛÙ%MSEPS Preamble 0 0 224 171 0 0 224 171 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 224 def /pp_by2 171 def &&ü-úþÿÿ- «à'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkHr %%Pages: 1 %%BoundingBox: 0 0 224 171 %%CreationDate: Thu Dec 1 15:51:53 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 224 171 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 21 string def /drawcolormappedimage { 224 171 8 [224 0 0 -171 0 171] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 a72d5b drawcolormappedimage f5000001b0000001150000010100130200010000af020001000013020101 0100130200010000af0200010000130201010100010212010000b0010000 110101020101010001020001d6000102010101000102000100000f020001 00009d02000100000f02000100000f020001000001020101010001020001 00000f02000100009d02000100000f02000100000f020001000001020101 01000102000100000f02000100009d02000100000f02000100000f020001 00000102010101000102000100000f02000100004b020103070201034502 000100000f02000100000202090002020001000001020101010001020001 00000f0200010000550201034502000100000f0200010000020200000702 00010202000100000102010101000102000100000f020001000040020103 010201030102010300020103010203030102010300020103420200010000 0f0200010000020200000702000102020001000001020101010001020001 000002020900020200010000400201030102010301020103000201030002 010301020103000202030002010341020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100004102010300020103000201030102010300020203 030201030102010341020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 000102020001000041020103000201030002010301020103020202030102 010301020103410200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100004102010300020103000201030102010303020203000201030102 010341020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100004202010301020103 02020103000201030102010300020103010201034102000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100004202010301020103020201030102030301020103010201034102 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100009d02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100009d0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 9d02000100000f02000100000f0200010000010201010100010200010000 100100009e0100001001000010010000010201010000d901000003010400 0001d30404000001010001020101d304010001020101010001020101d304 0100010201010&%10001020101d304010001020101010001020101d3040100 01020101010001020101d304010001020101010001020101d30401000102 0101010001020101d304010001020101010001020101d304010001020101 010001020101d304010001020101010001020101d3040100010201010100 01020101d304010001020101010001020101d30401000102010101000102 0101d304010001020101010001020101d304010001020101010001020101 d304010001020101010001020101d3040100010201010100010201011504 0100bb04010001020101010001020101140403000c040303130401030804 01038804010001020101010001020101130405000a040103010401031d04 010388040100010201010100010201011204020001040200090401030104 010304040103000401030204030301040103000401030004010301040303 010403038104010001020101010001020101110402000304020009040303 050402030004010300040103010401030004010300040203000401030104 010301040103010401038004010001020101010001020101100402000504 020007040103010401030404010301040103000401030104010300040103 000401030104010301040103010402038304010001020101010001020101 0f0402050704020506040103010401030404010301040103000401030104 010300040103000401030104010301040103030402038104010001020101 010001020101100402050504020507040103010401030404010301040103 000401030104010300040103000401030104010301040103040402038004 010001020101010001020101110402050304020508040103010401030404 020300040103000401030104010300040103000401030104010301040103 000402030104010380040100010201010100010201011204020501040205 0a0403030504010300040103020403030104010300040103010401030204 01030104030381040100010201010100010201011304050515040103a104 0100010201010100010201011404030516040103a1040100010201010100 010201011504010517040103a104010001020101010001020101d3040100 01020101010001020101d304010001020101010001020101d30401000102 0101010001020101d304010001020101010001020101d304010001020101 010001020101d304010001020101010001020101d3040100010201010100 01020101d304010001020101010001020101d30401000102010101000102 0101d304010001020101010001020101d304010001020101010001020101 15040105bb04010001020101010001020101140403050d04010303040303 130401030804010328040a000704050308040103040401032d0401000102 0101010001020101130405050a04030302040103010401031d0401032804 09000005070401030204010307040103040401032d040100010201010100 0102010112040205010602050b0401030204010301040103040401030004 010302040303010401030004010300040103010403030104030321040100 060401050704010302040103010403030104010301040103000401032d04 01000102010101000102010111040205030602050a040103020401030104 010304040203000401030004010301040103000401030004020300040103 010401030104010301040103200401000604010507040103020401030004 0103010401030004010300040103000402032d0401000102010101000102 010110040205050602050904010302040103010401030404010301040103 000401030104010300040103000401030104010301040103010402032304 010006040105070405030104010301040103000401030004010301040103 2d040100010201010100010201010f040200070602000804010302040103 010401030404010301040103000401030104010300040103000401030104 010301040103030402032104010006040105070401030204010300040103 010401030004010300040103010401032d04010001020101010001020101 100402000506020009040103020401030104010304040103010401030004 010301040103000401030004010301040103010401030404020320040100 060401050704010302040103000401030104010300040103000401030104 01032d0401000102010101000102010111040200030602000a0401030204 010301040103040402030004010300040103010401030004010300040103 010401030104010300040203010401032004010006040105070401030204 010300040103010401030004010300040103000402032d04010001020101 01000102010112040200010602000b040103030403030504010300040103 020403030104010300040103010401030204010301040303210401000604 010507040503020403030104010301040103000401032d04010001020101 010001020101130405001c0401034104010008054d040100010201010100 01020101140403001d0401034104000009054d0401000102010101000102 0101150401001e0401039a04010001020101010001020101d30401000102 0101010001020101d304010001020101010001020101d304010001020101 010001020101d304010001020101010001020101d3040100010201010100 01020101d304010001020101010001020101d30401000102010101000102 0101d304010001020101010001020101d304010001020101010001020101 d304010001020101010001&%020101d3040100010201010100010201011504 0100bb04010001020101010001020101140403000d040103030403031304 01030804010328040a050704010301040103080401030004010331040100 01020101010001020101130405000a04030302040103010401031d040103 280409050000070401030104010308040103340401000102010101000102 010112040200010402000b04010306040103040401030004010302040303 010401030004010300040103010403030104030321040105060601000704 010300040303010403030104010300040103010403032b04010001020101 01000102010111040200030402000a040103050401030504020300040103 000401030104010300040103000402030004010301040103010401030104 010320040105060601000704010301040103010401030104010300040103 0004010300040103010401032a0401000102010101000102010110040200 050402000904010304040103060401030104010300040103010401030004 010300040103010401030104010301040203230401050606010007040103 01040103050401030004010300040103000401032e040100010201010100 010201010f04020507040205080401030304010307040103010401030004 010301040103000401030004010301040103010401030304020321040105 060601000704010301040103020404030004010300040103000401032e04 010001020101010001020101100402050504020509040103020401030804 010301040103000401030104010300040103000401030104010301040103 040402032004010506060100070401030104010301040103010401030004 010300040103000401032e04010001020101010001020101110402050304 02050a040103020401030804020300040103000401030104010300040103 000401030104010301040103000402030104010320040105060601000704 010301040103000402030104010300040103000401030004010301040103 2a0401000102010101000102010112040205010402050b04010302040503 040401030004010302040303010401030004010301040103020401030104 030321040105060601000704010302040103010402030004030300040103 010403032b04010001020101010001020101130405051c04010341040105 08004d04010001020101010001020101140403051d040103410400050900 4d04010001020101010001020101150401051e0401039a04010001020101 010001020101d304010001020101010001020101d3040100010201010100 01020101d304010001020101010001020101d30401000102010101000102 0101d304010001020101010001020101d304010001020101010001020101 d304010001020101010001020101d304010001020101010001020101d304 010001020101010001020101d304010001020101010001020101d3040100 0102010101000102010115040100bb040100010201010100010201011404 03000d04010303040303130401030804010328040a050704010302040103 0b0401030c040103000401031e0401000102010101000102010113040500 0a04030302040103010401031d0401032804090500000704010302040103 0b0401030c04010321040100010201010100010201011204020001040200 0b0401030204010301040103040401030004010302040303010401030004 010300040103010403030104030321040105060601000704010302040103 000401030004010302040103000401030104030301040103000403030004 010300040103000401030204030311040100010201010100010201011104 0200030402000a0401030304030305040203000401030004010301040103 000401030004020300040103010401030104010301040103200401050606 010007040103020401030004020300040103000401030004020300040103 010401030004060300040103000402030004010300040103010401031004 010001020101010001020101100402000504020009040103020401030104 010304040103010401030004010301040103000401030004010301040103 010401030104020323040105060601000704010302040103000401030104 010300040103010401030004010301040103000402030104010300040103 000401030104010300040103010401031004010001020101010001020101 0f0402050704020508040103020401030104010304040103010401030004 010301040103000401030004010301040103010401030304020321040105 060601000704010302040103000401030104010300040103010401030004 050300040103020401030004010300040103010401030004050310040100 010201010100010201011004020505040205090401030204010301040103 040401030104010300040103010401030004010300040103010401030104 010304040203200401050606010007040103020401030004010301040103 000401030104010300040103040401030204010300040103000401030104 010300040103140401000102010101000102010111040205030402050a04 010302040103010401030404020300040103000401030104010300040103 000401030104010301040103000402030104010320040105060601000804 010300040103010401030104010300040103000402030004010301040103 000401030204010300040103000401030104010300040103010401031004 0100010201010100010201011204020.&%R P 5010402050b040103030403030504 010300040103020403030104010300040103010401030204010301040303 210401050606010008040403010401030104010301040103000401030104 030301040103020401030004010300040103010401030104030311040100 01020101010001020101130405051c0401034104010508004d0401000102 0101010001020101140403051d0401034104000509004d04010001020101 010001020101150401051e0401039a04010001020101010001020101d304 010001020101010001020101d304010001020101010001020101d3040100 01020101010001020101d304010001020101010001020101d30401000102 0101010001020101d304010001020101010001020101d304010001020101 010001020101d304010001020101010001020101d3040100010201010100 01020101d304010001020101010001020101d30401000102010101000102 010115040100bb04010001020101010001020101140403000c0403030504 010312040103080401038104010001020101010001020101130405000a04 010301040103030402031d04010381040100010201010100010201011204 0200010402000d0401030204000300040103040401030004010302040303 01040103000401030004010301040303010403037a040100010201010100 0102010111040200030402000b0401030304000300040103040402030004 010300040103010401030004010300040203000401030104010301040103 010401037904010001020101010001020101100402000504020009040103 030400030104010304040103010401030004010301040103000401030004 01030104010301040103010402037c040100010201010100010201010f04 020507040205070401030304000302040103040401030104010300040103 0104010300040103000401030104010301040103030402037a0401000102 010101000102010110040205050402050704010304040603030401030104 010300040103010401030004010300040103010401030104010304040203 790401000102010101000102010111040205030402050804010308040103 040402030004010300040103010401030004010300040103010401030104 010300040203010401037904010001020101010001020101120402050104 020509040503040401030404010300040103020403030104010300040103 0104010302040103010403037a0401000102010101000102010113040505 1c0401039a0401000102010100000401140403051d0401039a0401000301 04000001150401051e0401039a0404000001010001020101d30401000102 0101010001020101d304010001020101010001020101d304010001020101 010001020101d304010001020101010001020101d3040100010201010100 01020101d304010001020101010001020101d30401000102010101000102 0101d304010001020101010001020101d304010001020101010001020101 d304010001020101010001020101d304010001020101010001020101d304 010001020101010001020101d304010001020101010001020101d3040100 01020101010001020101d304010001020101010001020101d30401000102 0101010001020101d50001020101010001020001d6000102010101001302 00010000af0200010000130201010100130200010000af02000100001302 0101010014010000b001000015010000de01 % % Run-length encoding savings = 83.5% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'Xzÿÿ€$ï'„ g, g,{'. î&&  \Þ\Þû ÿ2Modern|-!Title: tkShow2!Creator: xgrabsc!'CreationDate: Wed Mar 15 09:46:08 1995ñ&%ØÖ%MSEPS Preamble 0 0 222 92 0 0 222 92 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 222 def /pp_by2 92 def &&ü-úþÿÿ- \Þ'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkShow2 %%Pages: 1 %%BoundingBox: 0 0 222 92 %%CreationDate: Wed Mar 15 09:46:08 1995 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 222 92 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 222 92 8 [222 0 0 -92 0 92] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba drawcolormappedimage f4000001ac000001160000010100140200010000ab020001000014020101 0100140200010000ab0200010000140201010100010213010000ac010000 120101020101010001020001d40001020101010001020001000010020001 000098020001000010020001000010020001000001020101010001020001 000010020001000098020001000010020001000010020001000001020101 010001020001000010020001000098020001000010020001000010020001 000001020101010001020001000010020001000098020001000010020001 000002020a00020200010000010201010100010200010000100200010000 1f020103030201030c020103070201030402010318020103350200010000 100200010000020200000802000102020001000001020101010001020001 000010020001000020020103020200031702010304020103180201033502 000100001002000100000202000008020001020200010000010201010100 01020001000002020a000202000100002002010301020103010203030202 030300020103000203030202040301020103000203030402010301020103 010203030202010300020103010201030002030302020303220200010000 050203000602000100000202000008020001020200010000010201010100 010200010000020200000802000102020001000020020103010201030002 000302020103010203030002020302020103010201030102010300020103 000200030102000305020003010200030102000302020103010201030002 010301020103000200030102000301020103010201032102000100000502 000001020001060200010000020200000802000102020001000001020101 010001020001000002020000080200010202000100002102000301020003 030203030102010302020103010203030102010301020103000203030102 010304020003010200030302030301020103000201030102030301020103 000201032502000100000502000001020001060200010000020200000802 000102020001000001020101010001020001000002020000090102020001 000021020303020204030102010302020103000204030102010301020103 000207030402000301020003020204030102010300020103010207030102 030322020001000005020000020106020001000002020000080200010202 000100000102010101000102000100001002000100002102030301020103 010201030102010302020303010201030102010301020103000203030802 010300020003010201030102010301020103000201030102030308020103 210200010000100200010000020200000802000102020001000001020101 010001020001000010020001000022020103020201030102010301020103 020203030102010301020103&%010200030102010300020003010201030502 010302020103010201030102010300020103010201030002000301020103 000201030102010321020001000010020001000002020000080200010202 000100000102010101000102000100001002000100002202010303020403 010201030202010300020403010204030102010300020303060201030302 040301020103010204030002030302020303220200010000100200010000 020200000802000102020001000001020101010001020001000010020001 000098020001000010020001000002020000090102020001000001020101 010001020001000010020001000098020001000010020001000010020001 000001020101010001020001000010020001000098020001000010020001 000010020001000001020101010001020001000011010000990100001101 000011010000010201010000d7010000030104000001d600000101000102 0101d00000040100010201010100010201010100cd050104010001020101 0100010201010100cd0501040100010201010100010201010100cd050104 0100010201010100010201010100cd050104010001020101010001020101 0100cd0501040100010201010100010201010100cd050104010001020101 0100010201010100cd0501040100010201010100010201010100cd050104 0100010201010100010201010100cd050104010001020101010001020101 0100070505030005010300050103b9050104010001020101010001020101 01000705010307050103b905010401000102010101000102010101000705 0103040501030005010300050303b4050104010001020101010001020101 01000705010304050103000501030005000301050003b405010401000102 0101010001020101010007050503000501030005030301050103b3050104 0100010201010100010201010100070501030405010300050703b3050104 0100010201010100010201010100070501030405010300050303b7050104 010001020101010001020101010007050103040501030005010300050003 01050103b305010401000102010101000102010101000705010304050103 0005010300050303b40501040100010201010100010201010100cd050104 010001020101010001020101010006050603bf0501040100010201010100 01020101010006050603bf0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cf04010001020101010001020101 0000d004010001020101010001020101d30001020101010001020101d000 00040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd05010401000102010101000102010101002705010306050103 100501030b05010307050103230501034905010401000102010101000102 010101002805000306050003110501030b05010307050103230501034905 0104010001020101010001020101010028050103040501031f0501030705 010323050103490501040100010201010000040101002805010304050103 030503030305010300050103000501030305030303050103000502030305 010303050303070501030405010302050303030501030105010303050103 03050303050502032e050104010003010400000101002905000304050003 030501030205010301050203020501030205010302050103010502030105 010302050103020501030105010307050003040500030205010302050103 010501030105010303050103020501030105010303050003020500030305 010327050104040000010100010201010100290501030205010302050103 030501030105010303050103010501030305010301050103030500030205 010302050003030500030705010302050103010501030305010301050103 010501030305010302050003030500030205010302050103020501032705 010401000102010101000102010101002905010302050103080501030105 010303050103070501030105010303050103010501030105010303050103 060501030205010307050103010501030105010303050103010501030305 0103010501033105010401000102010101000102010101002a0500030205 000305050503010501030305010303050503010501030305010301050103 010501030305010307050003020500030405050301050103010501030305 01030105010303050103020503032e050104010001020101010001020101 01002a050103000501030305030301050103010501030305010301050303 010501030105010303050103010501030105070307050103000501030205 03030105010301050103010501030305010301050703040503032c050104 01000102010101000102010101002a050103000501030205010304050103 010501030305010300050103040501030105010303050103010501030105 01030d050103000501030105010304050103010501030105010303050103 010501030d0501032b050104010001020]&%°®10101000102010101002b050003 000500030305010304050103010501030305010300050103040501030105 010303050003020501030105010303050103080500030005000302050103 040501030105010301050103030501030105010303050103000501030405 01032b05010401000102010101000102010101002b050203040500030305 020301050103030501030105000303050203010502030105010302050103 020501030105010309050203030500030305020301050103010501030205 020302050103010501030205010302050103020501032705010401000102 010101000102010101002b05020305050303010501030005010303050103 02050303010501030005050303050103030503030a050103050503030105 010300050103020503030005010303050303040504030305010327050104 0100010201010100010201010100cd050104010001020101010001020101 0100cd0501040100010201010100010201010100cd050104010001020101 0100010201010100cd0501040100010201010100010201010100cd050104 0100010201010100010201010100cd050104010001020101010001020101 0100cd0501040100010201010100010201010100cf040100010201010100 010201010000d004010001020101010001020101d3000102010101000102 0001d400010201010100140200010000ab02000100001402010101001402 00010000ab020001000014020101010015010000ac01000016010000dc01 % % Run-length encoding savings = 82.4% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'ðà}ÿÿ€$ï'„ g, g,~ ¿5 ¤+&&  Œ;Œ;ûÿ2Modernw- !Title: tkDlg1!Creator: xgrabsc!'CreationDate: Thu Dec 1 15:58:02 1994#ó&%ÛÙ%MSEPS Preamble 0 0 315 140 0 0 315 140 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 315 def /pp_by2 140 def &&ü-úþÿÿ- Œ;'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkDlg1 %%Pages: 1 %%BoundingBox: 0 0 315 140 %%CreationDate: Thu Dec 1 15:58:02 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 315 140 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 315 140 8 [315 0 0 -140 0 140] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 drawcolormappedimage fe0051000001fe000c000001150000010100130200010000fe020b020001 0000130201010100130200010000fe020b02000100001302010101000102 12010000fe010c010000110101020101010001020001fe00320001020101 01000102000100000f0200010000f802000100000f02000100000f020001 00000102010101000102000100000f0200010000f802000100000f020001 00000f02000100000102010101000102000100000f0200010000f8020001 00000f02000100000f02000100000102010101000102000100000f020001 000057020703000201030c020103040201030b0201030002010302020403 0b0201035802000100000f02000100000202090002020001000001020101 01000102000100000f020001000057020103060201030c02010304020103 0b020103040201030f0201035802000100000f0200010000020200000702 00010202000100000102010101000102000100000f020001000057020103 030201030002010301020303060202030202020301020303020201030002 010300020103000203030002010301020303020201030002010358020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000057020103030201030002010300020103 010201030502020302020203000201030102010300020103000202030002 010301020103010201030002010301020103000201030002020358020001 000005020300050200010000020200000702000102020001000001020101 010001020001000002020000070200010202000100005702040300020103 000201030002010301020103050203030002030300020103010201030002 010301020103000201030102010301020103000201030102010300020103 010201035802000100000502000001020001050200010000020200000702 000102020001000001020101010001020001000002020000070200010202 000100005702010303020103000201030002050305020103000200030002 000300020103000201030102010300020103010201030002010301020103 010201030002050300020103010201035802000100000502000001020001 050200010000020200000702000102020001000001020101010001020001 000002020000080102020001000057020103030201030002010300020103 090201030002020300020103000201030102010300020103010201030002 010301020103010201030002010304020103010201035802000100000502 000002010502000100000202000007020001020200010000010201010100 0102000100000f0200010000570201030302010300020103000201030102 010305020103010200030102010300020103010201030002010300020203 00020103010201030102&%0103000201030102010300020103000202035802 000100000f02000100000202000007020001020200010000010201010100 0102000100000f0200010000570201030302010300020103010203030602 010301020003010201030102030302020103000201030002010301020103 010201030102030302020103000201035802000100000f02000100000202 0000070200010202000100000102010101000102000100000f0200010000 f802000100000f0200010000020200000801020200010000010201010100 0102000100000f0200010000f802000100000f02000100000f0200010000 0102010101000102000100000f0200010000f802000100000f0200010000 0f020001000001020101010001020001000010010000f901000010010000 10010000010201010000fe0135010000030104000001fe00340000010100 010201010000fe042d0400050100010201010100010201010000fe042d04 00050100010201010100010201010000fe042d0400050100010201010100 010201010000fe042d0400050100010201010100010201010000fe042d04 00050100010201010100010201010000fe042d0400050100010201010100 010201010000fe042d0400050100010201010100010201010000fe042d04 00050100010201010100010201010000fe042d0400050100010201010100 010201010000fe042d0400050100010201010100010201010000fe042d04 00050100010201010100010201010000fe042d0400050100010201010100 010201010000fe042d0400050100010201010100010201010000fe042d04 00050100010201010100010201010000fe042d0400050100010201010100 010201010000fe042d0400050100010201010100010201010000fe042d04 00050100010201010100010201010000fe042d0400050100010201010100 0102010100001404080301040103010402030e040103010401030e040203 05040203070401030104010304040203190402033f040203020401030404 0203000401030d0402030c0401032f040005010001020101010001020101 0000150401030304010301040103020401030e040103010401030f040103 060401030704010301040103050401031a04010340040103020401030304 010300040003000401030e0401030c0401032f0400050100010201010100 0102010100001504010304040003060401030e0401030104010302040003 0b040103060401030704010301040103050401031a040103400401030804 0003140401033e0400050100010201010100010201010000150401030c04 01030e04000302040003020401030b040103060401030704000302040003 060401031a0401034004010307040103140401033e040005010001020101 0100010201010000150401030604020302040103030403030d0404030204 03030204010306040103010401030f040103010401030404030303040103 000400030504010300040203030403030304030301040203010401030604 020301040103020401030404030304040403010402030104040300040203 030403030304040306040103000400030004020301040203010401030404 030303040303150400050100010201010100010201010000150401030304 0003020401030204010302040103010401030d0401030304010301040103 0104010306040103000403030e0401030004030302040103010401030104 010300040103050402030004020301040103010401030104010301040103 010401030004030306040103000403030004030302040103010401030204 010301040103020401030204010303040103020401030104010301040103 010401030504010300040103010401030204010300040303020401030104 010301040103010401031404000501000102010101000102010100001504 0603020401030204010301040103030401030c0401030204010302040103 0104010306040203010401030e0402030104010302040103010401030104 010301040003050401030204010300040103030403030304010300040203 010401030604020301040203010401030104010303040103000401030204 010302040103020401030304010301040103030403030204010305040103 010400030104010302040203010401030104010302040103000401030304 010313040005010001020101010001020101000015040103030400030204 010302040103010407030c04010302040103060401030604010302040103 0e040103020401030504020301040203070401030204010300040f030004 010302040103060401030204010302040103010401030304010300040103 020401030204010302040103030401030104090302040103050402030304 010302040103020401030104010305040703130400050100010201010100 010201010000150401030704010302040103010401031204010302040103 0604010306040103020401030e0401030204010303040103000401030204 020306040103020401030004010305040103060401030204010306040103 020401030204010301040103030401030004010302040103020401030204 010303040103010401030504010302040103060402030204010302040103 020401030104010305040103190400050100010201010100010201010000 150401030704010302040103010401031204010302040103060401030604 0103020401030e0401030204010302040103010401030304020305040103 02040103000401030504010306040&%1030204010306040103020401030204 010301040103030401030004010302040103020401030204010303040103 010401030504010302040103070402030104010302040103020401030104 010305040103190400050100010201010100010201010000150401030704 01030204010301040203030400030c040103020401030604010306040103 020401030e04010302040103020401030104010301040003010401030504 010302040103000402030304030303040003000401030204010306040103 020401030204010301040103030401030004010302040103020401030204 010303040103010402030304020302040103050400030104010301040103 020401030204010301040103050402030304000313040005010001020101 010001020101000015040103070401030204010302040203000401030d04 020300040003000401030204000301040103020401030104010302040103 0e0401030204010302040503010401030004010305040203000401030204 020300040103010402030004010301040103020401030604010302040103 020401030204010301040103020401030104010302040103020401030304 010302040203000401030104010301040103050401030004010301040103 020401030204010302040103020400030104020300040103140400050100 010201010100010201010000140403030504030300040303020403030f04 020302040303010403030104010300040303010402030c04030301040203 020401030104010300040003000401030704030304040303030403030104 030301040203040403030004030300040303020403030404050300040303 000403030104030302040303030405030404000300040103010403030004 030301040203020403030304030315040005010001020101010001020101 0000fe042d0400050100010201010100010201010000fe042d0400050100 010201010100010201010000fe042d040005010001020101010001020101 0000fe042d0400050100010201010100010201010000fe042d0400050100 010201010100010201010000fe042d040005010001020101010001020101 00001904020312040203210401031d0401034e0402030e0407034c040005 01000102010101000102010100001a04010313040103210401031d040103 4f0401030f040103020402034b0400050100010201010100010201010000 1504000303040103130401031204000308040003290400034a0401030f04 0103040401034a0400050100010201010100010201010000140401030304 0103130401031104010307040103280401034a0401030f04010304040103 4a0400050100010201010100010201010000130404030104010301040103 040403030604010303040303030401030004000300040403040404030004 020301040203010401030204010304040303050402030104040303040203 010402030104020301040303030401030004000305040103000400030204 0303010403030104020302040303030404030f0401030504010302040303 050403030104020301040303010402030104020323040005010001020101 010001020101000014040103030401030004030302040103010401030504 010302040103010401030104010300040103010401030704010303040103 020401030004030300040303020401030104010305040103020401030604 010301040103020401030104010301040103010401030004010304040103 000401030104010301040103010401030204010302040103010401030104 0103010401030f0401030504010301040103010401030504010303040003 010401030104010301040103020401032304000501000102010101000102 010100001404010303040203010401030104010303040103040401030204 010301040103010401030104000301040103070401030304010302040203 010402030104010301040103030401030404010302040103060401030204 000301040103020401030104010301040103010400030404010301040003 010401030104010301040103020400030204010303040303020401030f04 010305040103000401030304010304040203010401030004010303040103 000401030204010323040005010001020101010001020101000014040103 030401030204010301040703040401030504020301040203030401030704 010303040103020401030204010302040103010407030404010302040103 070401030004010301040103050402030104020306040203060402030204 01030104000302040903020401030f040103050401030004010303040103 050401030104000301040103030401030004010302040103230400050100 010201010100010201010000140401030304010302040103010401030a04 010303040103000401030204020302040103070401030304010302040103 0204010302040103010401030a0401030204010307040103000402030004 010303040103000401030204020306040203030401030004010302040103 000401030204010305040103020401030f04010305040103000401030304 010305040103000401030104010303040103000401030204010323040005 010001020101010001020101000014040103030401030204010301040103 0a0401030204010301040103030402030104010307040103030401030204 01030204010302040103010401030a040103020401030804020300040003 00040003030401030104010303040203060402&%0301040103010401030304 0003000400030304010305040103020401030f0401030404010301040103 030401030604020302040103030401030004010302040103230400050100 010201010100010201010000140401030304010302040103010402030304 000304040103020401030104010301040003010401030104010307040103 030401030204010302040103020401030104020303040003040401030204 010308040203000402030304010301040103010400030104010304040003 010401030104010301040103030402030304020303040203020401030f04 010304040103010401030304010306040203020401030304010300040103 020401032304000501000102010101000102010100001404020300040003 000401030204010302040203000401030504010302040503010401030004 010301040203000400030404020300040003000401030204010302040103 020401030204020300040103050401030204020300040003060400030204 000304040503010401030004010304040103000401030104050304040003 05040203000401030104010301040103020401030a040103020402030304 010301040103080401030304010301040103010402030004020323040005 010001020101010001020101000015040203000403030104020302040303 050403030204010301040103000400030004010303040203060402030004 030300040303000403030004030302040303050403030204020307040003 020400030504010301040103000400030004010305040003000401030304 010301040103030400030604030303040503010401030904070305040303 080401030504030303040203000402032204000501000102010101000102 01010000f2040103370400050100010201010100010201010000f2040003 380400050100010201010100010201010000ef0403033804000501000102 01010100010201010000ef04020339040005010001020101010001020101 0000fe042d0400050100010201010100010201010000fe042d0400050100 010201010100010201010000740401030b040203100402032d0401030804 01031d040203360400050100010201010100010201010000740401030c04 01030f040103000400032d040103080401031e0401033604000501000102 0101010001020101000034040003080400033a040003070401030f040003 360400031f04000303040103360400050100010201010100010201010000 330401030704010339040103070401030e040103350401031e0401030304 010336040005010001020101010001020101000012040203010402030104 020301040303020402030104010302040403040404030204030307040103 000400030204030301040303010402030204030305040203010404030504 010300040203030403030104040302040303020402030004010302040303 070403030004020302040203000402030104040300040203010402030104 010304040403040404030104010301040103040403032904000501000102 010101000102010100001304010301040103020401030104010301040103 020401030004030302040103070401030304010301040103050401030004 010301040103010401030104010302040103020401030104010305040103 020401030704020300040203010401030104010301040103030401030104 010302040103000401030104010301040103050401030104010300040103 020401030204010302040103030401030204010300040303010401030104 010306040103030401030004030302040103010401032804000501000102 010101000102010100001304010302040003010401030204010301040103 020402030104010302040103070401030204010303040103040401030104 000301040103010401030104010302040003020401030304010304040103 020401030704010302040103000401030304010300040103020401030304 010301040203020401030304010303040103030401030004010300040103 030401030204010303040103020402030104010301040103020400030604 010303040203010401030104010303040103270400050100010201010100 010201010000140401030004010301040103050402030204010302040103 020401030704010302040103030401030404020306040203020401030104 000302040703040401030204010307040103020401030004070300040103 020401030304010301040103030407030304070301040203040401030204 010303040103020401030204010301040103020400030604010303040103 020401030104070327040005010001020101010001020101000014040103 000402030004010303040103000401030204010302040103020401030704 010302040103030401030504020303040103000401030204010300040103 020401030a04010302040103070401030204010300040103060401030204 010303040103010401030304010309040103080401030404010302040103 030401030204010302040103010401030104010306040103030401030204 0103010401032d0400050100010201010100010201010000150402030004 000300040003030401030104010302040103020401030204010307040103 020401030304010306040203010401030104010303040003000400030304 01030a040103020401030704010302040103000401030604010302040103 03040103010401030304010309040103070402030404010&%3020401030304 010302040103020401030204030307040103030401030204010301040103 2d0400050100010201010100010201010000150402030004020303040103 010401030204010302040103020401030704010302040103030401030404 000301040103010401030104010303040203030402030304000304040103 020401030704010302040103000402030304000300040103020401030304 010301040103030402030304000303040203030400030004010300040103 0304010302040103030401030204010302040103020400030a0401030304 010302040103010402030304000327040005010001020101010001020101 000016040003020400030404050302040103020401030204020300040003 040402030004000300040103010401030504010300040103010405030404 000305040203000401030504010302040203000400030404020300040103 020402030004010301040103030401030104010302040103040402030004 010305040203000401030004010302040103020401030204020300040003 000401030204010302040103020404030604020300040003000401030204 010302040203000401032804000501000102010101000102010100001604 000302040003050401030104010300040303010402030204020306040203 020403030604000300040103030401030104010303040003060403030504 030302040203060403030404030301040303030403030204030304040303 070403030004020302040203000403030204020300040303000403030104 020301040603050402030004030301040203020403032904000501000102 01010100010201010000e004000304040103430400050100010201010100 010201010000e00401030404000343040005010001020101010001020101 0000e004020302040003440400050100010201010100010201010000e104 0403450400050100010201010100010201010000fe042d04000501000102 01010100010201010000fe042d0400050100010201010100010201010000 2e040203020401031904010316040303be04000501000102010101000102 010100002f04010302040103190401031504000302040103bd0400050100 0102010101000102010100002f040103190400031b04010302040003bd04 000501000102010101000102010100002f040103180401031b0401030104 0103bd040005010001020101010001020101000015040303020402030004 020301040203000402030204010301040203030403030304030302040403 0004020303040303020402030104010307040103bd040005010001020101 010001020101000014040103010401030204020300040203010402030004 020301040103020401030204010301040103010401030104010302040103 030401030204010301040103020401030004030305040103be0400050100 010201010100010201010000140401030104010302040103020401030104 010302040103010401030204010301040103020401030104010301040103 02040103030401030104010303040103010402030104010305040103be04 000501000102010101000102010100001704020302040103020401030104 010302040103010401030204010301040103090402030204010303040103 0104010303040103010401030204010304040103bf040005010001020101 010001020101000015040103000401030204010302040103010401030204 010301040103020401030104010307040103000401030204010303040103 0104010303040103010401030204010304040003c0040005010001020101 010001020101000014040103010401030204010302040103010401030204 010301040103020401030104010306040103010401030204010303040103 0104010303040103010401030204010304040003c0040005010001020101 010001020101000014040103010401030204010302040103010401030204 010301040103020401030104010306040103010401030204010303040103 01040103030401030104010302040103c604000501000102010101000102 010100001404050302040203000401030204020300040103020401030204 010302040103020400030104050302040203000400030004010302040103 01040103020401030204010304040103bf04000501000102010101000102 010100001504010301040103010401030004010303040103000401030204 030300040303020403030304010301040103020402030004030302040303 020403030104020303040103bf0400050100010201010100010201010000 1d04010306040103fe040404000501000102010101000102010100001d04 010306040103fe040404000501000102010101000102010100001d040103 06040103fe040404000501000102010101000102010100001c0403030404 0303fe0403040005010001020101000004010000fe042d04000501000301 040000010000fe042d040005040000010100010201010000fe042d040005 0100010201010100010201010000fe042d04000501000102010101000102 01010000fe042d0400050100010201010100010201010000fe042d040005 0100010201010100010201010000fe042d04000501000102010101000102 01010000fe042d0400050100010201010100010201010000fe042d040005 0100010201010100010201010000fe042d04000501000102010101000102 01010000fe042d0400050100010201010100010201010000fe042d04&%öô0005 0100010201010100010201010000fe042d04000501000102010101000102 01010000fe042d0400050100010201010100010201010000fe042d040005 0100010201010100010201010000fe042d04000501000102010101000102 01010000fe052e05010001020101010001020101fe042f04010001020101 010001020101fe00310001020101010001020001fe003200010201010100 130200010000fe020b0200010000130201010100130200010000fe020b02 0001000013020101010014010000fe010c01000015010000fe013a01 % % Run-length encoding savings = 78.9% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'Ø `€ÿÿ€$ï'„ g,!$ g,äE ©8&&  »¬»¬û ÿ2Modern£- !Title: tkDlg3 !Creator: xgrabsc !'CreationDate: Thu Dec 1 15:58:04 1994/ ó&%ÛÙ%MSEPS Preamble 0 0 428 187 0 0 428 187 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 428 def /pp_by2 187 def &&ü-úþÿÿ- »¬'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkDlg3 %%Pages: 1 %%BoundingBox: 0 0 428 187 %%CreationDate: Thu Dec 1 15:58:04 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 428 187 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 428 187 8 [428 0 0 -187 0 187] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 drawcolormappedimage fe00c2000001fe007d000001150000010100130200010000fe027c020001 0000130201010100130200010000fe027c02000100001302010101000102 12010000fe017d010000110101020101010001020001fe00a30001020101 01000102000100000f0200010000fe026a02000100000f02000100000f02 000100000102010101000102000100000f0200010000fe026a0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 fe026a02000100000f02000100000f020001000001020101010001020001 00000f020001000090020703000201030c020103040201030b0201030002 0103020204030b0201039002000100000f02000100000202090002020001 00000102010101000102000100000f020001000090020103060201030c02 0103040201030b020103040201030f0201039002000100000f0200010000 02020000070200010202000100000102010101000102000100000f020001 000090020103030201030002010301020303060202030202020301020303 020201030002010300020103000203030002010301020303020201030002 01039002000100000f020001000002020000070200010202000100000102 010101000102000100000202090002020001000090020103030201030002 010300020103010201030502020302020203000201030102010300020103 000202030002010301020103010201030002010301020103000201030002 020390020001000005020300050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100009002 040300020103000201030002010301020103050203030002030300020103 010201030002010301020103000201030102010301020103000201030102 010300020103010201039002000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100009002010303020103000201030002050305020103 000200030002000300020103000201030102010300020103010201030002 010301020103010201030002050300020103010201039002000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000090020103030201030002 010300020103090201030002020300020103000201030102010300020103 010201030002010301020103010201030002010304020103010201039002 000100000502000002010502000100000202000007020001020200010000 0102010101000102000100000f0200010000900201030302010300020103 000201030102010305020103010200030102010300020103010201030002 01030002020300020103&%0102010301020103000201030102010300020103 000202039002000100000f02000100000202000007020001020200010000 0102010101000102000100000f0200010000900201030302010300020103 010203030602010301020003010201030102030302020103000201030002 010301020103010201030102030302020103000201039002000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000fe026a02000100000f020001000002020000080102020001 00000102010101000102000100000f0200010000fe026a02000100000f02 000100000f02000100000102010101000102000100000f0200010000fe02 6a02000100000f02000100000f0200010000010201010100010200010000 10010000fe016b0100001001000010010000010201010000fe01a6010000 030104000001fe00a50000010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e04000501000102010101000102010100005c040803010401030104 02030e040103010401030e04020305040203070401030104010304040203 190402033f0402030204010304040203000401030d0402030c0401035804 000501000102010101000102010100005d04010303040103010401030204 01030e040103010401030f04010306040103070401030104010305040103 1a04010340040103020401030304010300040003000401030e0401030c04 01035804000501000102010101000102010100005d040103040400030604 01030e04010301040103020400030b040103060401030704010301040103 050401031a04010340040103080400031404010367040005010001020101 01000102010100005d0401030c0401030e04000302040003020401030b04 0103060401030704000302040003060401031a0401034004010307040103 140401036704000501000102010101000102010100005d04010306040203 02040103030403030d040403020403030204010306040103010401030f04 010301040103040403030304010300040003050401030004020303040303 030403030104020301040103060402030104010302040103040403030404 040301040203010404030004020303040303030404030604010300040003 00040203010402030104010304040303030403033e040005010001020101 01000102010100005d040103030400030204010302040103020401030104 01030d04010303040103010401030104010306040103000403030e040103 000403030204010301040103010401030004010305040203000402030104 010301040103010401030104010301040103000403030604010300040303 000403030204010301040103020401030104010302040103020401030304 010302040103010401030104010301040103050401030004010301040103 0204010300040303020401030104010301040103010401033d0400050100 0102010101000102010100005d0406030204010302040103010401030304 01030c04010302040103020401030104010306040203010401030e040203 010401030204010301040103010401030104000305040103020401030004 010303040303030401030004020301040103060402030104020301040103 010401030304010300040103020401030204010302040103030401030104 010303040303020401030504010301040003010401030204020301040103 010401030204010300040103030401033c04000501000102010101000102 010100005d040103030400030204010302040103010407030c0401030204 01030604010306040103020401030e040103020401030504020301040203 070401030204010300040f03000401030204010306040103020401030204 010301040103030401030004010302040103020401030204010303040103 010409030204010305040203030401030204010302040103010401030504 07033c04000501000102010101000102010100005d040103070401030204 01030104010312040103020401030604010306040103020401030e040103 020401030304010300040103020402030604010302040103000401030504 010306040103020401030604010302040103020401030104010303040103 000401030204010302040103020401030304010301040103050401030204 010306040203020401030204010302040103010401030504010342040005 01000102010101000102010100005d040103070401030204010301040103 12040103020401030604010306040103020401030e040103020401030204 01030104010303040203050401030&%2040103000401030504010306040103 020401030604010302040103020401030104010303040103000401030204 010302040103020401030304010301040103050401030204010307040203 010401030204010302040103010401030504010342040005010001020101 01000102010100005d040103070401030204010301040203030400030c04 0103020401030604010306040103020401030e0401030204010302040103 010401030104000301040103050401030204010300040203030403030304 000300040103020401030604010302040103020401030104010303040103 000401030204010302040103020401030304010301040203030402030204 010305040003010401030104010302040103020401030104010305040203 030400033c04000501000102010101000102010100005d04010307040103 0204010302040203000401030d0402030004000300040103020400030104 01030204010301040103020401030e040103020401030204050301040103 000401030504020300040103020402030004010301040203000401030104 010302040103060401030204010302040103020401030104010302040103 010401030204010302040103030401030204020300040103010401030104 010305040103000401030104010302040103020401030204010302040003 01040203000401033d04000501000102010101000102010100005c040303 0504030300040303020403030f0402030204030301040303010401030004 0303010402030c0403030104020302040103010401030004000300040103 070403030404030303040303010403030104020304040303000403030004 030302040303040405030004030300040303010403030204030303040503 040400030004010301040303000403030104020302040303030403033e04 00050100010201010100010201010000fe049e0400050100010201010100 010201010000fe049e0400050100010201010100010201010000fe049e04 00050100010201010100010201010000fe049e0400050100010201010100 010201010000fe049e0400050100010201010100010201010000fe049e04 000501000102010101000102010100006104020312040203210401031d04 01034e0402030e0407037504000501000102010101000102010100006204 010313040103210401031d0401034f0401030f0401030204020374040005 01000102010101000102010100005d040003030401031304010312040003 08040003290400034a0401030f0401030404010373040005010001020101 01000102010100005c040103030401031304010311040103070401032804 01034a0401030f0401030404010373040005010001020101010001020101 00005b040403010401030104010304040303060401030304030303040103 000400030004040304040403000402030104020301040103020401030404 030305040203010404030304020301040203010402030104030303040103 000400030504010300040003020403030104030301040203020403030304 04030f040103050401030204030305040303010402030104030301040203 010402034c04000501000102010101000102010100005c04010303040103 000403030204010301040103050401030204010301040103010401030004 010301040103070401030304010302040103000403030004030302040103 010401030504010302040103060401030104010302040103010401030104 010301040103000401030404010300040103010401030104010301040103 02040103020401030104010301040103010401030f040103050401030104 010301040103050401030304000301040103010401030104010302040103 4c04000501000102010101000102010100005c0401030304020301040103 010401030304010304040103020401030104010301040103010400030104 010307040103030401030204020301040203010401030104010303040103 040401030204010306040103020400030104010302040103010401030104 010301040003040401030104000301040103010401030104010302040003 0204010303040303020401030f0401030504010300040103030401030404 020301040103000401030304010300040103020401034c04000501000102 010101000102010100000e0401034b040103030401030204010301040703 040401030504020301040203030401030704010303040103020401030204 010302040103010407030404010302040103070401030004010301040103 050402030104020306040203060402030204010301040003020409030204 01030f040103050401030004010303040103050401030104000301040103 0304010300040103020401034c0400050100010201010100010201010000 0d040103000400034a0401030304010302040103010401030a0401030304 010300040103020402030204010307040103030401030204010302040103 02040103010401030a040103020401030704010300040203000401030304 010300040103020402030604020303040103000401030204010300040103 0204010305040103020401030f0401030504010300040103030401030504 010300040103010401030304010300040103020401034c04000501000102 010101000102010100000c04010300040003000400034904010303040103 02040103010401030a040103020401030104010303040203010401030704 01030304010302040103020401030204010301&%0401030a04010302040103 080402030004000300040003030401030104010303040203060402030104 01030104010303040003000400030304010305040103020401030f040103 040401030104010303040103060402030204010303040103000401030204 01034c04000501000102010101000102010100000c040003000400030004 00034a040103030401030204010301040203030400030404010302040103 010401030104000301040103010401030704010303040103020401030204 010302040103010402030304000304040103020401030804020300040203 030401030104010301040003010401030404000301040103010401030104 0103030402030304020303040203020401030f0401030404010301040103 0304010306040203020401030304010300040103020401034c0400050100 0102010101000102010100000c0401030004000300040003490402030004 000300040103020401030204020300040103050401030204050301040103 000401030104020300040003040402030004000300040103020401030204 010302040103020402030004010305040103020402030004000306040003 020400030404050301040103000401030404010300040103010405030404 000305040203000401030104010301040103020401030a04010302040203 030401030104010308040103030401030104010301040203000402034c04 000501000102010101000102010100000c04000300040003000400034b04 020300040303010402030204030305040303020401030104010300040003 000401030304020306040203000403030004030300040303000403030204 030305040303020402030704000302040003050401030104010300040003 000401030504000300040103030401030104010303040003060403030304 050301040103090407030504030308040103050403030304020300040203 4b04000501000102010101000102010100000c0401030004000300040003 fe04280401036004000501000102010101000102010100000d0401030004 0003fe04290400036104000501000102010101000102010100000d040003 00040003fe04270403036104000501000102010101000102010100000d04 010300040003fe0426040203620400050100010201010100010201010000 0d04000300040003fe048d04000501000102010101000102010100000d04 010300040003fe048c04000501000102010101000102010100000d040003 00040003ab0401030b040203100402032d040103080401031d0402035f04 00050100010201010100010201010000bc0401030c0401030f0401030004 00032d040103080401031e0401035f040005010001020101010001020101 00007c040003080400033a040003070401030f040003360400031f040003 030401035f04000501000102010101000102010100000d04030369040103 0704010339040103070401030e040103350401031e040103030401035f04 000501000102010101000102010100000d04000300040003490402030104 020301040203010403030204020301040103020404030404040302040303 070401030004000302040303010403030104020302040303050402030104 040305040103000402030304030301040403020403030204020300040103 020403030704030300040203020402030004020301040403000402030104 020301040103040404030404040301040103010401030404030352040005 01000102010101000102010100000d040103000400034904010301040103 020401030104010301040103020401030004030302040103070401030304 010301040103050401030004010301040103010401030104010302040103 020401030104010305040103020401030704020300040203010401030104 010301040103030401030104010302040103000401030104010301040103 050401030104010300040103020401030204010302040103030401030204 010300040303010401030104010306040103030401030004030302040103 010401035104000501000102010101000102010100000d04000300040003 4a0401030204000301040103020401030104010302040203010401030204 010307040103020401030304010304040103010400030104010301040103 010401030204000302040103030401030404010302040103070401030204 010300040103030401030004010302040103030401030104020302040103 030401030304010303040103000401030004010303040103020401030304 010302040203010401030104010302040003060401030304020301040103 01040103030401035004000501000102010101000102010100005c040103 000401030104010305040203020401030204010302040103070401030204 010303040103040402030604020302040103010400030204070304040103 020401030704010302040103000407030004010302040103030401030104 010303040703030407030104020304040103020401030304010302040103 020401030104010302040003060401030304010302040103010407035004 000501000102010101000102010100005c04010300040203000401030304 010300040103020401030204010302040103070401030204010303040103 0504020303040103000401030204010300040103020401030a0401030204 010307040103020401030004010306040103020401030304010301040103 03040103090401030804010304040103020401030304010&%3020401030204 010301040103010401030604010303040103020401030104010356040005 01000102010101000102010100005d040203000400030004000303040103 010401030204010302040103020401030704010302040103030401030604 020301040103010401030304000300040003030401030a04010302040103 070401030204010300040103060401030204010303040103010401030304 010309040103070402030404010302040103030401030204010302040103 020403030704010303040103020401030104010356040005010001020101 01000102010100005d040203000402030304010301040103020401030204 010302040103070401030204010303040103040400030104010301040103 010401030304020303040203030400030404010302040103070401030204 010300040203030400030004010302040103030401030104010303040203 030400030304020303040003000401030004010303040103020401030304 01030204010302040103020400030a040103030401030204010301040203 030400035004000501000102010101000102010100005e04000302040003 040405030204010302040103020402030004000304040203000400030004 010301040103050401030004010301040503040400030504020300040103 050401030204020300040003040402030004010302040203000401030104 010303040103010401030204010304040203000401030504020300040103 000401030204010302040103020402030004000300040103020401030204 010302040403060402030004000300040103020401030204020300040103 5104000501000102010101000102010100005e0400030204000305040103 010401030004030301040203020402030604020302040303060400030004 010303040103010401030304000306040303050403030204020306040303 040403030104030303040303020403030404030307040303000402030204 020300040303020402030004030300040303010402030104060305040203 000403030104020302040303520400050100010201010100010201010000 fe0429040003040401036c0400050100010201010100010201010000fe04 29040103040400036c0400050100010201010100010201010000fe042904 0203020400036d0400050100010201010100010201010000fe042a040403 6e0400050100010201010100010201010000fe049e040005010001020101 0100010201010000fe049e04000501000102010101000102010100007604 0203020401031904010316040303e7040005010001020101010001020101 00007704010302040103190401031504000302040103e604000501000102 0101010001020101000077040103190400031b04010302040003e6040005 010001020101010001020101000077040103180401031b04010301040103 e604000501000102010101000102010100005d0403030204020300040203 010402030004020302040103010402030304030303040303020404030004 020303040303020402030104010307040103e60400050100010201010100 0102010100005c0401030104010302040203000402030104020300040203 010401030204010302040103010401030104010301040103020401030304 01030204010301040103020401030004030305040103e704000501000102 010101000102010100005c04010301040103020401030204010301040103 020401030104010302040103010401030204010301040103010401030204 0103030401030104010303040103010402030104010305040103e7040005 01000102010101000102010100005f040203020401030204010301040103 020401030104010302040103010401030904020302040103030401030104 010303040103010401030204010304040103e80400050100010201010100 0102010100005d0401030004010302040103020401030104010302040103 010401030204010301040103070401030004010302040103030401030104 010303040103010401030204010304040003e90400050100010201010100 0102010100005c0401030104010302040103020401030104010302040103 010401030204010301040103060401030104010302040103030401030104 010303040103010401030204010304040003e90400050100010201010100 0102010100005c0401030104010302040103020401030104010302040103 010401030204010301040103060401030104010302040103030401030104 0103030401030104010302040103ef040005010001020101010001020101 00005c040503020402030004010302040203000401030204010302040103 020401030204000301040503020402030004000300040103020401030104 0103020401030204010304040103e8040005010001020101010001020101 00005d040103010401030104010300040103030401030004010302040303 000403030204030303040103010401030204020300040303020403030204 03030104020303040103e804000501000102010101000102010100006504 010306040103fe042d040005010001020101010001020101000065040103 06040103fe042d0400050100010201010100010201010000650401030604 0103fe042d04000501000102010101000102010100006404030304040303 fe042c0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e040005010001020101010001020101&%0000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe059f05010001020101010001020101fe00a200 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 0102010101000102010100000c04520019047e0019047d000c0400050100 0102010101000102010100000c045100000519047d00000519047c000005 0c04000501000102010101000102010100000c0401004e04010519040100 7a04010519040100790401050c0400050100010201010100010201010000 0c0401004e040105190401007a04010519040100790401050c0400050100 0102010101000102010100000c0401004e040105190401007a0401051904 0100790401050c04000501000102010101000102010100000c0401004e04 0105190401007a04010519040100790401050c0400050100010201010100 0102010100000c0401004e040105190401007a0401051904010079040105 0c04000501000102010101000102010100000c0401004e04010519040100 7a04010519040100790401050c0400050100010201010100010201010000 0c0401000c0404031c0407030004010314040105190401000b0404030204 01031e040103070403030004010334040105190401000b04050309040103 180407030b0405030404010300040103010401031a0401050c0400050100 0102010101000102010100000c0401000b040103020401031b0401030604 010314040105190401000b04010301040103220401030604010301040303 34040105190401000b04010302040103080401031b0401030e0401030804 0103040401031a0401050c04000501000102010101000102010100000c04 01000b040103020401030104030301040103020401030104030306040103 0304010300040103010403030e040105190401000b040103020401030004 010301040303020403030204030301040103000401030004010300040103 050401030404010300040103020403030104010300040103020401030004 010301040303020403030e040105190401000b0401030204010301040303 010403030004010301040103000401030004030300040103080401030304 030306040103050401030004010300040103000403030104030301040103 000401030c0401050c04000501000102010101000102010100000c040100 0c0402030304010301040103000401030204010300040103010401030504 0103030401030004010300040103010401030d040105190401000b040103 020401030004010300040103010401030004010301040103000401030104 010300040603000402030504010304040203000401030004010301040103 000402030004010300040103000402030004010301040103000401030104 01030d040105190401000b04010302040103000401030104010301040103 010401030104010300040703000401030704010302040103010401030504 010304040103000402030004010301040103010401030104010300040403 0c0401050c04000501000102010101000102010100000c0401000e040203 050401030104010300040103010401030104010305040403000401030004 010300040103010401030d040105190401000b0401030204010300040103 000402030304010308040103000402030104010301040103050401030404 010301040103040401030004010301040103000401030104010300040103 010401030004020310040105190401000b04050301040103010401030104 010301040103010401030004020301040103010401030704010302040103 010401030504050300040103010401030004010301040103010401030104 0103000402030e0401050c04000501000102010101000102010100000c04 01000f040203010404030104010300040103010405030504010303040103 00040103000405030d040105190401000b04010302040103000401030204 020301040103050404030004010302040103010401030504010304040103 010401030104040300040103010401030004010301040103000405030204 02030e040105190401000b04010301040103010405030104010301040103 010401030004010302040103010401030704010302040103010401030504 010304040103010401030004010301040103010401030104010300040103 0f0401050c04000501000102010101000102010100000c0401000b040103 0204ÿ&%ó ñ 01030004010301040103020402030204010309040103030401030004 01030004010311040105190401000b040103020401030004010303040203 000401030404010301040103000401030204010301040103050401030404 010301040103000401030104010300040103010401030004010301040103 00040103070402030d040105190401000b04010302040103000401030504 010301040103010401030004010302040103010401030704010302040103 010401030504010304040103010401030004010301040103010401030104 0103000401030f0401050c04000501000102010101000102010100000c04 01000b040103020401030004010301040103020402030204010301040103 05040103030401030004010300040103010401030d040105190401000b04 010301040103010401030004010301040103000401030104010300040103 010401030004010302040103000402030604010301040303010401030004 010301040103000401030104010300040103000402030004010301040103 00040103010401030d040105190401000b04010302040103000401030104 010301040103000402030004020300040103020401030104010307040103 020401030104010305040103040401030004020300040103010401030004 020301040103000401030f0401050c040005010001020101010001020101 00000c0401000c0404030204020300040103020400030404030306040103 0304010300040103010403030e040105190401000b040403020401030104 030302040303020402030004030303040103000401030704030300040103 010401030104020300040303010401030104010300040103010403030204 03030e040105190401000b04010302040103010403030304010301040103 000401030004010302040103010401030704010303040303060405030104 010300040103000401030204010301040303010401030f0401050c040005 01000102010101000102010100000c0401004e040105190401005c040103 1b04010519040100790401050c0400050100010201010100010201010000 0c0401004e0401051904010058040103010401031b040105190401007904 01050c04000501000102010101000102010100000c0401004e0401051904 0100590403031c04010519040100790401050c0400050100010201010000 040100000c0401004e040105190401007a04010519040100790401050c04 0005010003010400000100000c0401004e040105190401007a0401051904 0100790401050c0400050400000101000102010100000c0401004e040105 190401007a04010519040100790401050c04000501000102010101000102 010100000c0401004e040105190401007a04010519040100790401050c04 000501000102010101000102010100000c0401004e040105190401007a04 010519040100790401050c04000501000102010101000102010100000c04 01004e040105190401007a04010519040100790401050c04000501000102 010101000102010100000c0401005005190401007c05190401007b050c04 000501000102010101000102010100000c0400005105190400007d051904 00007c050c0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe059f0501000102 0101010001020101fe00a20001020101010001020001fe00a30001020101 0100130200010000fe027c0200010000130201010100130200010000fe02 7c020001000013020101010014010000fe017d01000015010000fe01ab01 % % Run-length encoding savings = 84.3% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'` ؃ÿÿ€$ï'„ g,"4 g,„ì '. U,&&  Œ[Œ[ûÿ2Modernw- !Title: tkDlg2!Creator: xgrabsc!'CreationDate: Thu Dec 1 15:58:03 1994(ó&%ÛÙ%MSEPS Preamble 0 0 347 140 0 0 347 140 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 347 def /pp_by2 140 def &&ü-úþÿÿ- Œ['ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkDlg2 %%Pages: 1 %%BoundingBox: 0 0 347 140 %%CreationDate: Thu Dec 1 15:58:03 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 347 140 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 347 140 8 [347 0 0 -140 0 140] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 drawcolormappedimage fe0071000001fe002c000001150000010100130200010000fe022b020001 0000130201010100130200010000fe022b02000100001302010101000102 12010000fe012c010000110101020101010001020001fe00520001020101 01000102000100000f0200010000fe021902000100000f02000100000f02 000100000102010101000102000100000f0200010000fe02190200010000 0f02000100000f02000100000102010101000102000100000f0200010000 fe021902000100000f02000100000f020001000001020101010001020001 00000f020001000067020703000201030c020103040201030b0201030002 0103020204030b0201036802000100000f02000100000202090002020001 00000102010101000102000100000f020001000067020103060201030c02 0103040201030b020103040201030f0201036802000100000f0200010000 02020000070200010202000100000102010101000102000100000f020001 000067020103030201030002010301020303060202030202020301020303 020201030002010300020103000203030002010301020303020201030002 01036802000100000f020001000002020000070200010202000100000102 010101000102000100000202090002020001000067020103030201030002 010300020103010201030502020302020203000201030102010300020103 000202030002010301020103010201030002010301020103000201030002 020368020001000005020300050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100006702 040300020103000201030002010301020103050203030002030300020103 010201030002010301020103000201030102010301020103000201030102 010300020103010201036802000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100006702010303020103000201030002050305020103 000200030002000300020103000201030102010300020103010201030002 010301020103010201030002050300020103010201036802000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000067020103030201030002 010300020103090201030002020300020103000201030102010300020103 010201030002010301020103010201030002010304020103010201036802 000100000502000002010502000100000202000007020001020200010000 0102010101000102000100000f0200010000670201030302010300020103 000201030102010305020103010200030102010300020103010201030002 01030002020300020103&%0102010301020103000201030102010300020103 000202036802000100000f02000100000202000007020001020200010000 0102010101000102000100000f0200010000670201030302010300020103 010203030602010301020003010201030102030302020103000201030002 010301020103010201030102030302020103000201036802000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000fe021902000100000f020001000002020000080102020001 00000102010101000102000100000f0200010000fe021902000100000f02 000100000f02000100000102010101000102000100000f0200010000fe02 1902000100000f02000100000f0200010000010201010100010200010000 10010000fe011a0100001001000010010000010201010000fe0155010000 030104000001fe00540000010100010201010000fe044d04000501000102 01010100010201010000fe044d0400050100010201010100010201010000 fe044d0400050100010201010100010201010000fe044d04000501000102 01010100010201010000fe044d0400050100010201010100010201010000 fe044d0400050100010201010100010201010000fe044d04000501000102 01010100010201010000fe044d0400050100010201010100010201010000 fe044d0400050100010201010100010201010000fe044d04000501000102 01010100010201010000fe044d0400050100010201010100010201010000 fe044d0400050100010201010100010201010000fe044d04000501000102 01010100010201010000fe044d0400050100010201010100010201010000 fe044d0400050100010201010100010201010000fe044d04000501000102 01010100010201010000fe044d0400050100010201010100010201010000 fe044d040005010001020101010001020101000034040803010401030104 02030e040103010401030e04020305040203070401030104010304040203 190402033f0402030204010304040203000401030d0402030c0401032f04 000501000102010101000102010100003504010303040103010401030204 01030e040103010401030f04010306040103070401030104010305040103 1a04010340040103020401030304010300040003000401030e0401030c04 01032f040005010001020101010001020101000035040103040400030604 01030e04010301040103020400030b040103060401030704010301040103 050401031a0401034004010308040003140401033e040005010001020101 0100010201010000350401030c0401030e04000302040003020401030b04 0103060401030704000302040003060401031a0401034004010307040103 140401033e04000501000102010101000102010100003504010306040203 02040103030403030d040403020403030204010306040103010401030f04 010301040103040403030304010300040003050401030004020303040303 030403030104020301040103060402030104010302040103040403030404 040301040203010404030004020303040303030404030604010300040003 000402030104020301040103040403030304030315040005010001020101 010001020101000035040103030400030204010302040103020401030104 01030d04010303040103010401030104010306040103000403030e040103 000403030204010301040103010401030004010305040203000402030104 010301040103010401030104010301040103000403030604010300040303 000403030204010301040103020401030104010302040103020401030304 010302040103010401030104010301040103050401030004010301040103 020401030004030302040103010401030104010301040103140400050100 010201010100010201010000350406030204010302040103010401030304 01030c04010302040103020401030104010306040203010401030e040203 010401030204010301040103010401030104000305040103020401030004 010303040303030401030004020301040103060402030104020301040103 010401030304010300040103020401030204010302040103030401030104 010303040303020401030504010301040003010401030204020301040103 010401030204010300040103030401031304000501000102010101000102 0101000035040103030400030204010302040103010407030c0401030204 01030604010306040103020401030e040103020401030504020301040203 070401030204010300040f03000401030204010306040103020401030204 010301040103030401030004010302040103020401030204010303040103 010409030204010305040203030401030204010302040103010401030504 070313040005010001020101010001020101000035040103070401030204 01030104010312040103020401030604010306040103020401030e040103 020401030304010300040103020402030604010302040103000401030504 010306040103020401030604010302040103020401030104010303040103 000401030204010302040103020401030304010301040103050401030204 010306040203020401030204010302040103010401030504010319040005 010001020101010001020101000035040103070401030204010301040103 12040103020401030604010306040103020401030e040103020401030204 01030104010303040203050401030&%2040103000401030504010306040103 020401030604010302040103020401030104010303040103000401030204 010302040103020401030304010301040103050401030204010307040203 010401030204010302040103010401030504010319040005010001020101 010001020101000035040103070401030204010301040203030400030c04 0103020401030604010306040103020401030e0401030204010302040103 010401030104000301040103050401030204010300040203030403030304 000300040103020401030604010302040103020401030104010303040103 000401030204010302040103020401030304010301040203030402030204 010305040003010401030104010302040103020401030104010305040203 030400031304000501000102010101000102010100003504010307040103 0204010302040203000401030d0402030004000300040103020400030104 01030204010301040103020401030e040103020401030204050301040103 000401030504020300040103020402030004010301040203000401030104 010302040103060401030204010302040103020401030104010302040103 010401030204010302040103030401030204020300040103010401030104 010305040103000401030104010302040103020401030204010302040003 010402030004010314040005010001020101010001020101000034040303 0504030300040303020403030f0402030204030301040303010401030004 0303010402030c0403030104020302040103010401030004000300040103 070403030404030303040303010403030104020304040303000403030004 030302040303040405030004030300040303010403030204030303040503 040400030004010301040303000403030104020302040303030403031504 00050100010201010100010201010000fe044d0400050100010201010100 010201010000fe044d0400050100010201010100010201010000fe044d04 00050100010201010100010201010000fe044d0400050100010201010100 010201010000fe044d0400050100010201010100010201010000fe044d04 000501000102010101000102010100003904020312040203210401031d04 01034e0402030e0407034c04000501000102010101000102010100003a04 010313040103210401031d0401034f0401030f040103020402034b040005 010001020101010001020101000035040003030401031304010312040003 08040003290400034a0401030f040103040401034a040005010001020101 010001020101000034040103030401031304010311040103070401032804 01034a0401030f040103040401034a040005010001020101010001020101 000033040403010401030104010304040303060401030304030303040103 000400030004040304040403000402030104020301040103020401030404 030305040203010404030304020301040203010402030104030303040103 000400030504010300040003020403030104030301040203020403030304 04030f040103050401030204030305040303010402030104030301040203 010402032304000501000102010101000102010100003404010303040103 000403030204010301040103050401030204010301040103010401030004 010301040103070401030304010302040103000403030004030302040103 010401030504010302040103060401030104010302040103010401030104 010301040103000401030404010300040103010401030104010301040103 02040103020401030104010301040103010401030f040103050401030104 010301040103050401030304000301040103010401030104010302040103 230400050100010201010100010201010000340401030304020301040103 010401030304010304040103020401030104010301040103010400030104 010307040103030401030204020301040203010401030104010303040103 040401030204010306040103020400030104010302040103010401030104 010301040003040401030104000301040103010401030104010302040003 0204010303040303020401030f0401030504010300040103030401030404 020301040103000401030304010300040103020401032304000501000102 010101000102010100000e04010323040103030401030204010301040703 040401030504020301040203030401030704010303040103020401030204 010302040103010407030404010302040103070401030004010301040103 050402030104020306040203060402030204010301040003020409030204 01030f040103050401030004010303040103050401030104000301040103 030401030004010302040103230400050100010201010100010201010000 0d04010300040003220401030304010302040103010401030a0401030304 010300040103020402030204010307040103030401030204010302040103 02040103010401030a040103020401030704010300040203000401030304 010300040103020402030604020303040103000401030204010300040103 0204010305040103020401030f0401030504010300040103030401030504 010300040103010401030304010300040103020401032304000501000102 010101000102010100000c04010300040003000400032104010303040103 02040103010401030a040103020401030104010303040203010401030704 01030304010302040103020401030204010301&%0401030a04010302040103 080402030004000300040003030401030104010303040203060402030104 01030104010303040003000400030304010305040103020401030f040103 040401030104010303040103060402030204010303040103000401030204 01032304000501000102010101000102010100000c040003000400030004 000322040103030401030204010301040203030400030404010302040103 010401030104000301040103010401030704010303040103020401030204 010302040103010402030304000304040103020401030804020300040203 030401030104010301040003010401030404000301040103010401030104 0103030402030304020303040203020401030f0401030404010301040103 030401030604020302040103030401030004010302040103230400050100 0102010101000102010100000c0401030004000300040003210402030004 000300040103020401030204020300040103050401030204050301040103 000401030104020300040003040402030004000300040103020401030204 010302040103020402030004010305040103020402030004000306040003 020400030404050301040103000401030404010300040103010405030404 000305040203000401030104010301040103020401030a04010302040203 030401030104010308040103030401030104010301040203000402032304 000501000102010101000102010100000c04000300040003000400032304 020300040303010402030204030305040303020401030104010300040003 000401030304020306040203000403030004030300040303000403030204 030305040303020402030704000302040003050401030104010300040003 000401030504000300040103030401030104010303040003060403030304 050301040103090407030504030308040103050403030304020300040203 2204000501000102010101000102010100000c0401030004000300040003 fe04000401033704000501000102010101000102010100000d0401030004 0003fe04010400033804000501000102010101000102010100000d040003 00040003fe0403033804000501000102010101000102010100000d040103 00040003fd0402033904000501000102010101000102010100000d040003 00040003fe043c04000501000102010101000102010100000d0401030004 0003fe043b04000501000102010101000102010100000d04000300040003 830401030b040203100402032d040103080401031d040203360400050100 010201010100010201010000940401030c0401030f040103000400032d04 0103080401031e0401033604000501000102010101000102010100005404 0003080400033a040003070401030f040003360400031f04000303040103 3604000501000102010101000102010100000d0403034104010307040103 39040103070401030e040103350401031e04010303040103360400050100 0102010101000102010100000d0400030004000321040203010402030104 020301040303020402030104010302040403040404030204030307040103 000400030204030301040303010402030204030305040203010404030504 010300040203030403030104040302040303020402030004010302040303 070403030004020302040203000402030104040300040203010402030104 010304040403040404030104010301040103040403032904000501000102 010101000102010100000d04010300040003210401030104010302040103 010401030104010302040103000403030204010307040103030401030104 010305040103000401030104010301040103010401030204010302040103 010401030504010302040103070402030004020301040103010401030104 010303040103010401030204010300040103010401030104010305040103 010401030004010302040103020401030204010303040103020401030004 030301040103010401030604010303040103000403030204010301040103 2804000501000102010101000102010100000d0400030004000322040103 020400030104010302040103010401030204020301040103020401030704 010302040103030401030404010301040003010401030104010301040103 020400030204010303040103040401030204010307040103020401030004 010303040103000401030204010303040103010402030204010303040103 030401030304010300040103000401030304010302040103030401030204 020301040103010401030204000306040103030402030104010301040103 030401032704000501000102010101000102010100003404010300040103 010401030504020302040103020401030204010307040103020401030304 010304040203060402030204010301040003020407030404010302040103 070401030204010300040703000401030204010303040103010401030304 070303040703010402030404010302040103030401030204010302040103 010401030204000306040103030401030204010301040703270400050100 010201010100010201010000340401030004020300040103030401030004 010302040103020401030204010307040103020401030304010305040203 03040103000401030204010300040103020401030a040103020401030704 010302040103000401030604010302040103030401030104010303040103 09040103080401030404010302040103030401030204010&%3020401030104 010301040103060401030304010302040103010401032d04000501000102 010101000102010100003504020300040003000400030304010301040103 020401030204010302040103070401030204010303040103060402030104 0103010401030304000300040003030401030a0401030204010307040103 020401030004010306040103020401030304010301040103030401030904 010307040203040401030204010303040103020401030204010302040303 070401030304010302040103010401032d04000501000102010101000102 010100003504020300040203030401030104010302040103020401030204 010307040103020401030304010304040003010401030104010301040103 030402030304020303040003040401030204010307040103020401030004 020303040003000401030204010303040103010401030304020303040003 030402030304000300040103000401030304010302040103030401030204 010302040103020400030a04010303040103020401030104020303040003 270400050100010201010100010201010000360400030204000304040503 020401030204010302040203000400030404020300040003000401030104 010305040103000401030104050304040003050402030004010305040103 020402030004000304040203000401030204020300040103010401030304 010301040103020401030404020300040103050402030004010300040103 020401030204010302040203000400030004010302040103020401030204 040306040203000400030004010302040103020402030004010328040005 010001020101010001020101000036040003020400030504010301040103 000403030104020302040203060402030204030306040003000401030304 010301040103030400030604030305040303020402030604030304040303 010403030304030302040303040403030704030300040203020402030004 030302040203000403030004030301040203010406030504020300040303 0104020302040303290400050100010201010100010201010000fe040104 000304040103430400050100010201010100010201010000fe0401040103 04040003430400050100010201010100010201010000fe04010402030204 0003440400050100010201010100010201010000fe040204040345040005 0100010201010100010201010000fe044d04000501000102010101000102 01010000fe044d04000501000102010101000102010100004e0402030204 01031904010316040303be04000501000102010101000102010100004f04 010302040103190401031504000302040103bd0400050100010201010100 0102010100004f040103190400031b04010302040003bd04000501000102 010101000102010100004f040103180401031b04010301040103bd040005 010001020101010001020101000035040303020402030004020301040203 000402030204010301040203030403030304030302040403000402030304 0303020402030104010307040103bd040005010001020101010001020101 000034040103010401030204020300040203010402030004020301040103 020401030204010301040103010401030104010302040103030401030204 010301040103020401030004030305040103be0400050100010201010100 010201010000340401030104010302040103020401030104010302040103 010401030204010301040103020401030104010301040103020401030304 01030104010303040103010402030104010305040103be04000501000102 010101000102010100003704020302040103020401030104010302040103 010401030204010301040103090402030204010303040103010401030304 0103010401030204010304040103bf040005010001020101010001020101 000035040103000401030204010302040103010401030204010301040103 020401030104010307040103000401030204010303040103010401030304 0103010401030204010304040003c0040005010001020101010001020101 000034040103010401030204010302040103010401030204010301040103 020401030104010306040103010401030204010303040103010401030304 0103010401030204010304040003c0040005010001020101010001020101 000034040103010401030204010302040103010401030204010301040103 020401030104010306040103010401030204010303040103010401030304 01030104010302040103c604000501000102010101000102010100003404 050302040203000401030204020300040103020401030204010302040103 020400030104050302040203000400030004010302040103010401030204 01030204010304040103bf04000501000102010101000102010100003504 010301040103010401030004010303040103000401030204030300040303 020403030304010301040103020402030004030302040303020403030104 020303040103bf04000501000102010101000102010100003d0401030604 0103fe040404000501000102010101000102010100003d04010306040103 fe040404000501000102010101000102010100003d04010306040103fe04 0404000501000102010101000102010100003c04030304040303fe040304 0005010001020101000004010000fe044d04000501000301040000010000 fe044d040005040000010100010201010000fe044d04000501000102±&%XV0101 0100010201010000fe044d0400050100010201010100010201010000fe04 4d0400050100010201010100010201010000fe044d040005010001020101 0100010201010000fe044d0400050100010201010100010201010000fe04 4d0400050100010201010100010201010000fe044d040005010001020101 0100010201010000fe044d0400050100010201010100010201010000fe04 4d0400050100010201010100010201010000fe044d040005010001020101 0100010201010000fe044d0400050100010201010100010201010000fe04 4d0400050100010201010100010201010000fe044d040005010001020101 0100010201010000fe044d0400050100010201010100010201010000fe05 4e05010001020101010001020101fe044f04010001020101010001020101 fe00510001020101010001020001fe005200010201010100130200010000 fe022b0200010000130201010100130200010000fe022b02000100001302 0101010014010000fe012c01000015010000fe015a01 % % Run-length encoding savings = 80.5% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'Ø `†ÿÿ€$ï'„ g,#D g,‡4oC ©8&&  »¬»¬û ÿ2Modernw- !Title: tkDlg3 !Creator: xgrabsc !'CreationDate: Thu Dec 1 15:58:04 1994/ ó&%ÛÙ%MSEPS Preamble 0 0 428 187 0 0 428 187 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 428 def /pp_by2 187 def &&ü-úþÿÿ- »¬'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkDlg3 %%Pages: 1 %%BoundingBox: 0 0 428 187 %%CreationDate: Thu Dec 1 15:58:04 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 428 187 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 428 187 8 [428 0 0 -187 0 187] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 drawcolormappedimage fe00c2000001fe007d000001150000010100130200010000fe027c020001 0000130201010100130200010000fe027c02000100001302010101000102 12010000fe017d010000110101020101010001020001fe00a30001020101 01000102000100000f0200010000fe026a02000100000f02000100000f02 000100000102010101000102000100000f0200010000fe026a0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 fe026a02000100000f02000100000f020001000001020101010001020001 00000f020001000090020703000201030c020103040201030b0201030002 0103020204030b0201039002000100000f02000100000202090002020001 00000102010101000102000100000f020001000090020103060201030c02 0103040201030b020103040201030f0201039002000100000f0200010000 02020000070200010202000100000102010101000102000100000f020001 000090020103030201030002010301020303060202030202020301020303 020201030002010300020103000203030002010301020303020201030002 01039002000100000f020001000002020000070200010202000100000102 010101000102000100000202090002020001000090020103030201030002 010300020103010201030502020302020203000201030102010300020103 000202030002010301020103010201030002010301020103000201030002 020390020001000005020300050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100009002 040300020103000201030002010301020103050203030002030300020103 010201030002010301020103000201030102010301020103000201030102 010300020103010201039002000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100009002010303020103000201030002050305020103 000200030002000300020103000201030102010300020103010201030002 010301020103010201030002050300020103010201039002000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000090020103030201030002 010300020103090201030002020300020103000201030102010300020103 010201030002010301020103010201030002010304020103010201039002 000100000502000002010502000100000202000007020001020200010000 0102010101000102000100000f0200010000900201030302010300020103 000201030102010305020103010200030102010300020103010201030002 01030002020300020103&%0102010301020103000201030102010300020103 000202039002000100000f02000100000202000007020001020200010000 0102010101000102000100000f0200010000900201030302010300020103 010203030602010301020003010201030102030302020103000201030002 010301020103010201030102030302020103000201039002000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000fe026a02000100000f020001000002020000080102020001 00000102010101000102000100000f0200010000fe026a02000100000f02 000100000f02000100000102010101000102000100000f0200010000fe02 6a02000100000f02000100000f0200010000010201010100010200010000 10010000fe016b0100001001000010010000010201010000fe01a6010000 030104000001fe00a50000010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e04000501000102010101000102010100005c040803010401030104 02030e040103010401030e04020305040203070401030104010304040203 190402033f0402030204010304040203000401030d0402030c0401035804 000501000102010101000102010100005d04010303040103010401030204 01030e040103010401030f04010306040103070401030104010305040103 1a04010340040103020401030304010300040003000401030e0401030c04 01035804000501000102010101000102010100005d040103040400030604 01030e04010301040103020400030b040103060401030704010301040103 050401031a04010340040103080400031404010367040005010001020101 01000102010100005d0401030c0401030e04000302040003020401030b04 0103060401030704000302040003060401031a0401034004010307040103 140401036704000501000102010101000102010100005d04010306040203 02040103030403030d040403020403030204010306040103010401030f04 010301040103040403030304010300040003050401030004020303040303 030403030104020301040103060402030104010302040103040403030404 040301040203010404030004020303040303030404030604010300040003 00040203010402030104010304040303030403033e040005010001020101 01000102010100005d040103030400030204010302040103020401030104 01030d04010303040103010401030104010306040103000403030e040103 000403030204010301040103010401030004010305040203000402030104 010301040103010401030104010301040103000403030604010300040303 000403030204010301040103020401030104010302040103020401030304 010302040103010401030104010301040103050401030004010301040103 0204010300040303020401030104010301040103010401033d0400050100 0102010101000102010100005d0406030204010302040103010401030304 01030c04010302040103020401030104010306040203010401030e040203 010401030204010301040103010401030104000305040103020401030004 010303040303030401030004020301040103060402030104020301040103 010401030304010300040103020401030204010302040103030401030104 010303040303020401030504010301040003010401030204020301040103 010401030204010300040103030401033c04000501000102010101000102 010100005d040103030400030204010302040103010407030c0401030204 01030604010306040103020401030e040103020401030504020301040203 070401030204010300040f03000401030204010306040103020401030204 010301040103030401030004010302040103020401030204010303040103 010409030204010305040203030401030204010302040103010401030504 07033c04000501000102010101000102010100005d040103070401030204 01030104010312040103020401030604010306040103020401030e040103 020401030304010300040103020402030604010302040103000401030504 010306040103020401030604010302040103020401030104010303040103 000401030204010302040103020401030304010301040103050401030204 010306040203020401030204010302040103010401030504010342040005 01000102010101000102010100005d040103070401030204010301040103 12040103020401030604010306040103020401030e040103020401030204 01030104010303040203050401030&%2040103000401030504010306040103 020401030604010302040103020401030104010303040103000401030204 010302040103020401030304010301040103050401030204010307040203 010401030204010302040103010401030504010342040005010001020101 01000102010100005d040103070401030204010301040203030400030c04 0103020401030604010306040103020401030e0401030204010302040103 010401030104000301040103050401030204010300040203030403030304 000300040103020401030604010302040103020401030104010303040103 000401030204010302040103020401030304010301040203030402030204 010305040003010401030104010302040103020401030104010305040203 030400033c04000501000102010101000102010100005d04010307040103 0204010302040203000401030d0402030004000300040103020400030104 01030204010301040103020401030e040103020401030204050301040103 000401030504020300040103020402030004010301040203000401030104 010302040103060401030204010302040103020401030104010302040103 010401030204010302040103030401030204020300040103010401030104 010305040103000401030104010302040103020401030204010302040003 01040203000401033d04000501000102010101000102010100005c040303 0504030300040303020403030f0402030204030301040303010401030004 0303010402030c0403030104020302040103010401030004000300040103 070403030404030303040303010403030104020304040303000403030004 030302040303040405030004030300040303010403030204030303040503 040400030004010301040303000403030104020302040303030403033e04 00050100010201010100010201010000fe049e0400050100010201010100 010201010000fe049e0400050100010201010100010201010000fe049e04 00050100010201010100010201010000fe049e0400050100010201010100 010201010000fe049e0400050100010201010100010201010000fe049e04 000501000102010101000102010100006104020312040203210401031d04 01034e0402030e0407037504000501000102010101000102010100006204 010313040103210401031d0401034f0401030f0401030204020374040005 01000102010101000102010100005d040003030401031304010312040003 08040003290400034a0401030f0401030404010373040005010001020101 01000102010100005c040103030401031304010311040103070401032804 01034a0401030f0401030404010373040005010001020101010001020101 00005b040403010401030104010304040303060401030304030303040103 000400030004040304040403000402030104020301040103020401030404 030305040203010404030304020301040203010402030104030303040103 000400030504010300040003020403030104030301040203020403030304 04030f040103050401030204030305040303010402030104030301040203 010402034c04000501000102010101000102010100005c04010303040103 000403030204010301040103050401030204010301040103010401030004 010301040103070401030304010302040103000403030004030302040103 010401030504010302040103060401030104010302040103010401030104 010301040103000401030404010300040103010401030104010301040103 02040103020401030104010301040103010401030f040103050401030104 010301040103050401030304000301040103010401030104010302040103 4c04000501000102010101000102010100005c0401030304020301040103 010401030304010304040103020401030104010301040103010400030104 010307040103030401030204020301040203010401030104010303040103 040401030204010306040103020400030104010302040103010401030104 010301040003040401030104000301040103010401030104010302040003 0204010303040303020401030f0401030504010300040103030401030404 020301040103000401030304010300040103020401034c04000501000102 010101000102010100000e0401034b040103030401030204010301040703 040401030504020301040203030401030704010303040103020401030204 010302040103010407030404010302040103070401030004010301040103 050402030104020306040203060402030204010301040003020409030204 01030f040103050401030004010303040103050401030104000301040103 0304010300040103020401034c0400050100010201010100010201010000 0d040103000400034a0401030304010302040103010401030a0401030304 010300040103020402030204010307040103030401030204010302040103 02040103010401030a040103020401030704010300040203000401030304 010300040103020402030604020303040103000401030204010300040103 0204010305040103020401030f0401030504010300040103030401030504 010300040103010401030304010300040103020401034c04000501000102 010101000102010100000c04010300040003000400034904010303040103 02040103010401030a040103020401030104010303040203010401030704 01030304010302040103020401030204010301&%0401030a04010302040103 080402030004000300040003030401030104010303040203060402030104 01030104010303040003000400030304010305040103020401030f040103 040401030104010303040103060402030204010303040103000401030204 01034c04000501000102010101000102010100000c040003000400030004 00034a040103030401030204010301040203030400030404010302040103 010401030104000301040103010401030704010303040103020401030204 010302040103010402030304000304040103020401030804020300040203 030401030104010301040003010401030404000301040103010401030104 0103030402030304020303040203020401030f0401030404010301040103 0304010306040203020401030304010300040103020401034c0400050100 0102010101000102010100000c0401030004000300040003490402030004 000300040103020401030204020300040103050401030204050301040103 000401030104020300040003040402030004000300040103020401030204 010302040103020402030004010305040103020402030004000306040003 020400030404050301040103000401030404010300040103010405030404 000305040203000401030104010301040103020401030a04010302040203 030401030104010308040103030401030104010301040203000402034c04 000501000102010101000102010100000c04000300040003000400034b04 020300040303010402030204030305040303020401030104010300040003 000401030304020306040203000403030004030300040303000403030204 030305040303020402030704000302040003050401030104010300040003 000401030504000300040103030401030104010303040003060403030304 050301040103090407030504030308040103050403030304020300040203 4b04000501000102010101000102010100000c0401030004000300040003 fe04280401036004000501000102010101000102010100000d0401030004 0003fe04290400036104000501000102010101000102010100000d040003 00040003fe04270403036104000501000102010101000102010100000d04 010300040003fe0426040203620400050100010201010100010201010000 0d04000300040003fe048d04000501000102010101000102010100000d04 010300040003fe048c04000501000102010101000102010100000d040003 00040003ab0401030b040203100402032d040103080401031d0402035f04 00050100010201010100010201010000bc0401030c0401030f0401030004 00032d040103080401031e0401035f040005010001020101010001020101 00007c040003080400033a040003070401030f040003360400031f040003 030401035f04000501000102010101000102010100000d04030369040103 0704010339040103070401030e040103350401031e040103030401035f04 000501000102010101000102010100000d04000300040003490402030104 020301040203010403030204020301040103020404030404040302040303 070401030004000302040303010403030104020302040303050402030104 040305040103000402030304030301040403020403030204020300040103 020403030704030300040203020402030004020301040403000402030104 020301040103040404030404040301040103010401030404030352040005 01000102010101000102010100000d040103000400034904010301040103 020401030104010301040103020401030004030302040103070401030304 010301040103050401030004010301040103010401030104010302040103 020401030104010305040103020401030704020300040203010401030104 010301040103030401030104010302040103000401030104010301040103 050401030104010300040103020401030204010302040103030401030204 010300040303010401030104010306040103030401030004030302040103 010401035104000501000102010101000102010100000d04000300040003 4a0401030204000301040103020401030104010302040203010401030204 010307040103020401030304010304040103010400030104010301040103 010401030204000302040103030401030404010302040103070401030204 010300040103030401030004010302040103030401030104020302040103 030401030304010303040103000401030004010303040103020401030304 010302040203010401030104010302040003060401030304020301040103 01040103030401035004000501000102010101000102010100005c040103 000401030104010305040203020401030204010302040103070401030204 010303040103040402030604020302040103010400030204070304040103 020401030704010302040103000407030004010302040103030401030104 010303040703030407030104020304040103020401030304010302040103 020401030104010302040003060401030304010302040103010407035004 000501000102010101000102010100005c04010300040203000401030304 010300040103020401030204010302040103070401030204010303040103 0504020303040103000401030204010300040103020401030a0401030204 010307040103020401030004010306040103020401030304010301040103 03040103090401030804010304040103020401030304010&%3020401030204 010301040103010401030604010303040103020401030104010356040005 01000102010101000102010100005d040203000400030004000303040103 010401030204010302040103020401030704010302040103030401030604 020301040103010401030304000300040003030401030a04010302040103 070401030204010300040103060401030204010303040103010401030304 010309040103070402030404010302040103030401030204010302040103 020403030704010303040103020401030104010356040005010001020101 01000102010100005d040203000402030304010301040103020401030204 010302040103070401030204010303040103040400030104010301040103 010401030304020303040203030400030404010302040103070401030204 010300040203030400030004010302040103030401030104010303040203 030400030304020303040003000401030004010303040103020401030304 01030204010302040103020400030a040103030401030204010301040203 030400035004000501000102010101000102010100005e04000302040003 040405030204010302040103020402030004000304040203000400030004 010301040103050401030004010301040503040400030504020300040103 050401030204020300040003040402030004010302040203000401030104 010303040103010401030204010304040203000401030504020300040103 000401030204010302040103020402030004000300040103020401030204 010302040403060402030004000300040103020401030204020300040103 5104000501000102010101000102010100005e0400030204000305040103 010401030004030301040203020402030604020302040303060400030004 010303040103010401030304000306040303050403030204020306040303 040403030104030303040303020403030404030307040303000402030204 020300040303020402030004030300040303010402030104060305040203 000403030104020302040303520400050100010201010100010201010000 fe0429040003040401036c0400050100010201010100010201010000fe04 29040103040400036c0400050100010201010100010201010000fe042904 0203020400036d0400050100010201010100010201010000fe042a040403 6e0400050100010201010100010201010000fe049e040005010001020101 0100010201010000fe049e04000501000102010101000102010100007604 0203020401031904010316040303e7040005010001020101010001020101 00007704010302040103190401031504000302040103e604000501000102 0101010001020101000077040103190400031b04010302040003e6040005 010001020101010001020101000077040103180401031b04010301040103 e604000501000102010101000102010100005d0403030204020300040203 010402030004020302040103010402030304030303040303020404030004 020303040303020402030104010307040103e60400050100010201010100 0102010100005c0401030104010302040203000402030104020300040203 010401030204010302040103010401030104010301040103020401030304 01030204010301040103020401030004030305040103e704000501000102 010101000102010100005c04010301040103020401030204010301040103 020401030104010302040103010401030204010301040103010401030204 0103030401030104010303040103010402030104010305040103e7040005 01000102010101000102010100005f040203020401030204010301040103 020401030104010302040103010401030904020302040103030401030104 010303040103010401030204010304040103e80400050100010201010100 0102010100005d0401030004010302040103020401030104010302040103 010401030204010301040103070401030004010302040103030401030104 010303040103010401030204010304040003e90400050100010201010100 0102010100005c0401030104010302040103020401030104010302040103 010401030204010301040103060401030104010302040103030401030104 010303040103010401030204010304040003e90400050100010201010100 0102010100005c0401030104010302040103020401030104010302040103 010401030204010301040103060401030104010302040103030401030104 0103030401030104010302040103ef040005010001020101010001020101 00005c040503020402030004010302040203000401030204010302040103 020401030204000301040503020402030004000300040103020401030104 0103020401030204010304040103e8040005010001020101010001020101 00005d040103010401030104010300040103030401030004010302040303 000403030204030303040103010401030204020300040303020403030204 03030104020303040103e804000501000102010101000102010100006504 010306040103fe042d040005010001020101010001020101000065040103 06040103fe042d0400050100010201010100010201010000650401030604 0103fe042d04000501000102010101000102010100006404030304040303 fe042c0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e040005010001020101010001020101&%0000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe059f05010001020101010001020101fe00a200 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 0102010101000102010100000c04520019047e0019047d000c0400050100 0102010101000102010100000c045100000519047d00000519047c000005 0c04000501000102010101000102010100000c0401004e04010519040100 7a04010519040100790401050c0400050100010201010100010201010000 0c0401004e040105190401007a04010519040100790401050c0400050100 0102010101000102010100000c0401004e040105190401007a0401051904 0100790401050c04000501000102010101000102010100000c0401004e04 0105190401007a04010519040100790401050c0400050100010201010100 0102010100000c0401004e040105190401007a0401051904010079040105 0c04000501000102010101000102010100000c0401004e04010519040100 7a04010519040100790401050c0400050100010201010100010201010000 0c0401000c0404031c0407030004010314040105190401000b0404030204 01031e040103070403030004010334040105190401000b04050309040103 180407030b0405030404010300040103010401031a0401050c0400050100 0102010101000102010100000c0401000b040103020401031b0401030604 010314040105190401000b04010301040103220401030604010301040303 34040105190401000b04010302040103080401031b0401030e0401030804 0103040401031a0401050c04000501000102010101000102010100000c04 01000b040103020401030104030301040103020401030104030306040103 0304010300040103010403030e040105190401000b040103020401030004 010301040303020403030204030301040103000401030004010300040103 050401030404010300040103020403030104010300040103020401030004 010301040303020403030e040105190401000b0401030204010301040303 010403030004010301040103000401030004030300040103080401030304 030306040103050401030004010300040103000403030104030301040103 000401030c0401050c04000501000102010101000102010100000c040100 0c0402030304010301040103000401030204010300040103010401030504 0103030401030004010300040103010401030d040105190401000b040103 020401030004010300040103010401030004010301040103000401030104 010300040603000402030504010304040203000401030004010301040103 000402030004010300040103000402030004010301040103000401030104 01030d040105190401000b04010302040103000401030104010301040103 010401030104010300040703000401030704010302040103010401030504 010304040103000402030004010301040103010401030104010300040403 0c0401050c04000501000102010101000102010100000c0401000e040203 050401030104010300040103010401030104010305040403000401030004 010300040103010401030d040105190401000b0401030204010300040103 000402030304010308040103000402030104010301040103050401030404 010301040103040401030004010301040103000401030104010300040103 010401030004020310040105190401000b04050301040103010401030104 010301040103010401030004020301040103010401030704010302040103 010401030504050300040103010401030004010301040103010401030104 0103000402030e0401050c04000501000102010101000102010100000c04 01000f040203010404030104010300040103010405030504010303040103 00040103000405030d040105190401000b04010302040103000401030204 020301040103050404030004010302040103010401030504010304040103 010401030104040300040103010401030004010301040103000405030204 02030e040105190401000b04010301040103010405030104010301040103 010401030004010302040103010401030704010302040103010401030504 010304040103010401030004010301040103010401030104010300040103 0f0401050c04000501000102010101000102010100000c0401000b040103 0204ÿ&%ó ñ 01030004010301040103020402030204010309040103030401030004 01030004010311040105190401000b040103020401030004010303040203 000401030404010301040103000401030204010301040103050401030404 010301040103000401030104010300040103010401030004010301040103 00040103070402030d040105190401000b04010302040103000401030504 010301040103010401030004010302040103010401030704010302040103 010401030504010304040103010401030004010301040103010401030104 0103000401030f0401050c04000501000102010101000102010100000c04 01000b040103020401030004010301040103020402030204010301040103 05040103030401030004010300040103010401030d040105190401000b04 010301040103010401030004010301040103000401030104010300040103 010401030004010302040103000402030604010301040303010401030004 010301040103000401030104010300040103000402030004010301040103 00040103010401030d040105190401000b04010302040103000401030104 010301040103000402030004020300040103020401030104010307040103 020401030104010305040103040401030004020300040103010401030004 020301040103000401030f0401050c040005010001020101010001020101 00000c0401000c0404030204020300040103020400030404030306040103 0304010300040103010403030e040105190401000b040403020401030104 030302040303020402030004030303040103000401030704030300040103 010401030104020300040303010401030104010300040103010403030204 03030e040105190401000b04010302040103010403030304010301040103 000401030004010302040103010401030704010303040303060405030104 010300040103000401030204010301040303010401030f0401050c040005 01000102010101000102010100000c0401004e040105190401005c040103 1b04010519040100790401050c0400050100010201010100010201010000 0c0401004e0401051904010058040103010401031b040105190401007904 01050c04000501000102010101000102010100000c0401004e0401051904 0100590403031c04010519040100790401050c0400050100010201010000 040100000c0401004e040105190401007a04010519040100790401050c04 0005010003010400000100000c0401004e040105190401007a0401051904 0100790401050c0400050400000101000102010100000c0401004e040105 190401007a04010519040100790401050c04000501000102010101000102 010100000c0401004e040105190401007a04010519040100790401050c04 000501000102010101000102010100000c0401004e040105190401007a04 010519040100790401050c04000501000102010101000102010100000c04 01004e040105190401007a04010519040100790401050c04000501000102 010101000102010100000c0401005005190401007c05190401007b050c04 000501000102010101000102010100000c0400005105190400007d051904 00007c050c0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe059f0501000102 0101010001020101fe00a20001020101010001020001fe00a30001020101 0100130200010000fe027c0200010000130201010100130200010000fe02 7c020001000013020101010014010000fe017d01000015010000fe01ab01 % % Run-length encoding savings = 84.3% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'` ؉ÿÿ€$ï'„ g,$T g,Š oC 6%&&  °Þ°Þû ÿ2Modern|-!Title: tkShow3!Creator: xgrabsc!'CreationDate: Wed Mar 15 09:46:09 1995ó&%ÛÙ%MSEPS Preamble 0 0 222 176 0 0 222 176 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 222 def /pp_by2 176 def &&ü-úþÿÿ- °Þ'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkShow3 %%Pages: 1 %%BoundingBox: 0 0 222 176 %%CreationDate: Wed Mar 15 09:46:09 1995 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 222 176 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 24 string def /drawcolormappedimage { 222 176 8 [222 0 0 -176 0 176] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba 887a68 e2cbae drawcolormappedimage f4000001ac000001160000010100140200010000ab020001000014020101 0100140200010000ab0200010000140201010100010213010000ac010000 120101020101010001020001d40001020101010001020001000010020001 000098020001000010020001000010020001000001020101010001020001 000010020001000098020001000010020001000010020001000001020101 010001020001000010020001000098020001000010020001000010020001 000001020101010001020001000010020001000098020001000010020001 000002020a00020200010000010201010100010200010000100200010000 1f020103030201030c020103070201030402010318020103350200010000 100200010000020200000802000102020001000001020101010001020001 000010020001000020020103020200031702010304020103180201033502 000100001002000100000202000008020001020200010000010201010100 01020001000002020a000202000100002002010301020103010203030202 030300020103000203030202040301020103000203030402010301020103 010203030202010300020103010201030002030302020303220200010000 050203000602000100000202000008020001020200010000010201010100 010200010000020200000802000102020001000020020103010201030002 000302020103010203030002020302020103010201030102010300020103 000200030102000305020003010200030102000302020103010201030002 010301020103000200030102000301020103010201032102000100000502 000001020001060200010000020200000802000102020001000001020101 010001020001000002020000080200010202000100002102000301020003 030203030102010302020103010203030102010301020103000203030102 010304020003010200030302030301020103000201030102030301020103 000201032502000100000502000001020001060200010000020200000802 000102020001000001020101010001020001000002020000090102020001 000021020303020204030102010302020103000204030102010301020103 000207030402000301020003020204030102010300020103010207030102 030322020001000005020000020106020001000002020000080200010202 000100000102010101000102000100001002000100002102030301020103 010201030102010302020303010201030102010301020103000203030802 010300020003010201030102010301020103000201030102030308020103 210200010000100200010000020200000802000102020001000001020101 010001020001000010020001000022020103020201030102010301020103 02020&%3030102010301020103010200030102010300020003010201030502 010302020103010201030102010300020103010201030002000301020103 000201030102010321020001000010020001000002020000080200010202 000100000102010101000102000100001002000100002202010303020403 010201030202010300020403010204030102010300020303060201030302 040301020103010204030002030302020303220200010000100200010000 020200000802000102020001000001020101010001020001000010020001 000098020001000010020001000002020000090102020001000001020101 010001020001000010020001000098020001000010020001000010020001 000001020101010001020001000010020001000098020001000010020001 000010020001000001020101010001020001000011010000990100001101 000011010000010201010000d7010000030104000001d600000101000102 0101d00000040100010201010100010201012300ab050104010001020101 01000102010122000006ab05010401000102010101000102010103001d07 0106ab05010401000102010101000102010103001d070106ab0501040100 0102010101000102010103001d070106ab05010401000102010101000102 010103001d070106ab05010401000102010101000102010103001d070106 ab05010401000102010101000102010103001d070106ab05010401000102 010101000102010103001d070106ab050104010001020101010001020101 03000507050300070103000701030b070106ab0501040100010201010100 01020101030005070103070701030b070106ab0501040100010201010100 0102010103000507010304070103000701030007030306070106ab050104 010001020101010001020101030005070103040701030007010300070003 0107000306070106ab050104010001020101010001020101030005070503 00070103000703030107010305070106ab05010401000102010101000102 0101030005070103040701030007070305070106ab050104010001020101 010001020101030005070103040701030007030309070106ab0501040100 010201010100010201010300050701030407010300070103000700030107 010305070106ab0501040100010201010100010201010300050701030407 0103000701030007030306070106ab050104010001020101010001020101 03001d070106ab0501040100010201010100010201010300040706031107 0106ab05010401000102010101000102010103000407060311070106ab05 010401000102010101000102010103001d070106ab050104010001020101 01000102010103001d070106ab0501040100010201010100010201010300 1d070106ab05010401000102010101000102010103001d070106ab050104 01000102010101000102010103001f06ab05010401000102010101000102 010102002006ab0501040100010201010100010201012400ac0401000102 0101010001020101000000042100ad040100010201010100010201010300 1e050104ae000102010101000102010103001e050104ab00000401000102 010101000102010103001e050104aa050104010001020101010001020101 03001e050104aa05010401000102010101000102010103001e050104aa05 010401000102010101000102010103000304050505040505050402050104 aa0501040100010201010100010201010800030507000305070001050104 aa05010401000102010101000102010103001e050104aa05010401000102 010101000102010103001e050104aa050104010001020101010001020101 03001e0501040405010306050103100501030b0501030705010323050103 4905010401000102010101000102010103001e0501040505000306050003 110501030b05010307050103230501034905010401000102010101000102 010103001e05010405050103040501031f05010307050103230501034905 010401000102010101000102010103001e05010405050103040501030305 030303050103000501030005010303050303030501030005020303050103 030503030705010304050103020503030305010301050103030501030305 0303050502032e05010401000102010101000102010103001e0501040605 000304050003030501030205010301050203020501030205010302050103 010502030105010302050103020501030105010307050003040500030205 010302050103010501030105010303050103020501030105010303050003 02050003030501032705010401000102010101000102010103001e050104 060501030205010302050103030501030105010303050103010501030305 010301050103030500030205010302050003030500030705010302050103 010501030305010301050103010501030305010302050003030500030205 010302050103020501032705010401000102010101000102010103001e05 010406050103020501030805010301050103030501030705010301050103 030501030105010301050103030501030605010302050103070501030105 010301050103030501030105010303050103010501033105010401000102 010101000102010103001e05010407050003020500030505050301050103 030501030305050301050103030501030105010301050103030501030705 000302050003040505030105010301050103030501030105010303050103 020503032e0501&%0401000102010101000102010103001e05010407050103 000501030305030301050103010501030305010301050303010501030105 010303050103010501030105070307050103000501030205030301050103 01050103010501030305010301050703040503032c050104010001020101 010001020101030004050303090501030005010306050104070501030005 010302050103040501030105010303050103000501030405010301050103 0305010301050103010501030d0501030005010301050103040501030105 01030105010303050103010501030d0501032b0501040100010201010100 01020101030002050103020501030b050103060501040805000300050003 030501030405010301050103030501030005010304050103010501030305 000302050103010501030305010308050003000500030205010304050103 010501030105010303050103010501030305010300050103040501032b05 010401000102010101000102010103000205000304050003010501030105 010300050503050501040805020304050003030502030105010303050103 010500030305020301050203010501030205010302050103010501030905 020303050003030502030105010301050103020502030205010301050103 020501030205010302050103270501040100010201010100010201010300 010501030405010300050103010501030005010300050103060501040805 020305050303010501030005010303050103020503030105010300050503 03050103030503030a050103050503030105010300050103020503030005 010303050303040504030305010327050104010001020101010001020101 030001050103040501030005010301050103000501030005010306050104 aa0501040100010201010100010201010300010501030405010300050103 01050103000501030005010306050104aa05010401000102010101000102 010103000205000302050003000501030005010301050103000501030005 010306050104aa0501040100010201010100010201010300020501030105 02030105010301050103000501030005010306050104aa05010401000102 010101000102010103000305060301050403000501030005020305050104 aa05010401000102010101000102010103001e050104aa05010401000102 010101000102010103000105080313050104aa0501040100010201010100 0102010103000105080313050104aa050104010001020101010001020101 03001e050104aa05010401000102010101000102010103001e050104aa05 010401000102010101000102010103001e050104aa050104010001020101 01000102010103002004aa05010401000102010101000102010102002104 aa0501040100010201010100010201010100300502030105020317050403 0d0501030005010301050103600501040100010201010100010201010100 300502030105020316050103020500031005010301050103600501040100 010201010100010201010100030504030105030302050403000502030105 03030f050203010502030105030302050503010501030305010303050003 010504030005020301050503000504035d05010401000102010101000102 010101000305010301050203020501030105010301050103010501030005 000301050003020501030a05020301050203000500030205010301050303 000500030105010303050303040501030105010301050103000501030005 010301050103010501035c05010401000102010101000102010101000305 01030105010301050303010501030105010301050303010501030e050103 000500030005020302050303010501030205000301050003050505030105 01030105010301050103000501030005010301050103010501035c050104 010001020101010001020101010003050103010501030005040301050103 01050103010507030e050103000501030005010301050403010501030205 010300050003080502030105010301050103010501030005010300050103 01050103010501035c050104010001020101010001020101010003050103 010503030105010301050103010501030105030312050103000501030005 010300050103010501030105010302050303040501030305010300050103 0105010301050103000501030005010301050103010501035c0501040100 010201010100010201010100030501030105030301050103010501030105 01030105010300050003010501030e050103000501030005010300050103 010501030105010303050103060500030305010300050103010501030105 0103000501030005010301050103010501035c0501040100010201010100 010201010100030501030105010300050403010501030105010301050103 00050303020501030a050103000501030005010301050403010501030305 010307050303020501030105010301050103000501030005020300050103 010501035c05010401000102010101000102010101004705010383050104 010001020101010001020101010046050103840501040100010201010100 010201010100cd0501040100010201010100010201010100cd0501040100 010201010100010201010100cd0501040100010201010100010201010100 cd0501040100010201010100010201010100cd0501040100010201010100 010201010100cd0501040100010201010100010201010100cd0501040100 01020101010001020101010&%0cd0501040100010201010100010201010100 cd0501040100010201010100010201010100cd0501040100010201010100 01020101010026050203010505039b050104010001020101010001020101 01002405010301050103040500039c050104010001020101010001020101 01000305030303050403000503030e05010301050103030501039c050104 010001020101010001020101010002050003020501030105000301050203 0005000301050003020501030d050103030500039d050104010001020101 010001020101010004050303000501030205030301050103100501030305 01039d050104010001020101010001020101010003050403000501030205 070311050103020500039e05010401000102010101000102010101000205 01030105010300050103020503031105010301050103020500039e050104 010001020101010001020101010002050103010501030105010300050203 00050003010501030d05010301050003020501039e050104010001020101 0100010201010100030504030105050300050303020501030a0503030205 01039e05010401000102010101000102010101000e050103bc0501040100 01020101010001020101010009050503bd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 0101010028050103010503030405010309050303020503030a0502030405 010305050103030501035d05010401000102010101000102010101002705 020300050103010501030305010309050003010501030105000301050103 07050103010501030305010304050203030501035d050104010001020101 01000102010101000305030302050303020504030f050003000501030005 010301050103010503030805010301050103000501030105010307050103 01050103010503030305000300050103010503035d050104010001020101 010001020101010002050103010501030005010301050103010501030105 0103000501030b0500030005010304050103030501030805010301050103 00050103010501030b050103030501030305000300050103030501035d05 010401000102010101000102010101000205010304050103050501030105 01030e05000300050103030501030405010309050303020503030b050103 040501030305000300050103030501035d05010401000102010101000102 01010100030503030205030302050103010501030d050003010501030205 020304050103020507030105010300050103010501030105050303050103 030501030205000301050103030501035d05010401000102010101000102 01010100060501030405010301050103010501030d050503000502030505 010308050103010501030005010301050103070501030105010303050103 02050503020501035d050104010001020101010001020101010002050103 010501030005010301050103010501030105010310050103010501030605 010308050103010500030105010301050003080501030105000304050103 05050103030501035d050104010001020101010001020101010003050303 020503030205010301050103000501030d05010300050503030501030905 030302050303090503030405010305050103030501035d05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 0101000004010100cd05010401000301040000010100cd05010404000001 01000102010101000a050103290501030305010302050403080504030105 0403010504030a0501030205030304050103020503034805010401000102 010101000102010101000a0501032805020303050103020500030c050003 05050003050500030e050103010501030105010303050103010501030105 010347050104010001020101010001020101010003050403010504030205 02030205040301050303100500030005010301050303020500030c050003 05050003050500030c050303010501030105010301050303010501030105 010347050104010001020101010001020101010003050103010501030005 010301050103000501030105000301050103010501030005000301050003 020501030b0500030005010303050103020500030c050003050500030505 00030e050103050501030305010305050103470501040100010201010100 010201010100030501030105010300050103010503030205010300050103 01050303010501030f050003000501030305010302050303090503030205 0303020503030b0501030405010304050103040501034805010401000102 01010100010201010100030501030105—&%#!0103000501030105030302050103 00050103010507030e050003010501030305010301050103010501030105 070301050103000501030105010300050103010501030105050302050103 030502030405010303050203480501040100010201010100010201010100 030501030105010300050103010503030205010300050103010503031205 050302050103050501030b05010304050103040501030a05010302050203 050501030205020349050104010001020101010001020101010003050103 010500030105010301050103000500030105010301050103010501030005 000301050103110501030305010301050103010500030805010301050003 010501030105000301050103010500030b05010302050103060501030205 01034a050104010001020101010001020101010003050403010501030105 010301050203020501030105010300050303020501030d05010303050103 020503030905030302050303020503030b05010301050503030501030105 050347050104010001020101010001020101010003050103c70501040100 01020101010001020101010003050103c705010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cf04010001020101010001020101 0000d004010001020101010001020101d30001020101010001020001d400 010201010100140200010000ab0200010000140201010100140200010000 ab020001000014020101010015010000ac01000016010000dc01 % % Run-length encoding savings = 80.4% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'ð€Œÿÿ€$ï'„ g,%d g,$¿5 T &&  =X=Xû ÿ2Modern|-!Title: tkShow1!Creator: xgrabsc!'CreationDate: Wed Mar 15 09:46:07 1995ð&%ÕÓ%MSEPS Preamble 0 0 88 61 0 0 88 61 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 88 def /pp_by2 61 def &&ü-úþÿÿ- =X'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkShow1 %%Pages: 1 %%BoundingBox: 0 0 88 61 %%CreationDate: Wed Mar 15 09:46:07 1995 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 88 61 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 88 61 8 [88 0 0 -61 0 61] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba drawcolormappedimage 6e0000012600000116000001010014020001000025020001000014020101 010014020001000025020001000014020101010001021301000026010000 1201010201010100010200014e0001020101010001020001000010020001 000012020001000010020001000010020001000001020101010001020001 000010020001000012020001000010020001000010020001000001020101 010001020001000010020001000012020001000010020001000010020001 000001020101010001020001000010020001000012020001000010020001 000002020a00020200010000010201010100010200010000100200010000 000201030302010309020001000010020001000002020000080200010202 000100000102010101000102000100001002000100000102010302020003 0a0200010000100200010000020200000802000102020001000001020101 010001020001000002020a00020200010000010201030102010301020303 020200030002000100000502030006020001000002020000080200010202 000100000102010101000102000100000202000008020001020200010000 010201030102010300020003020201030102000300020001000005020000 010200010602000100000202000008020001020200010000010201010100 010200010000020200000802000102020001000002020003010200030302 030301020003000200010000050200000102000106020001000002020000 080200010202000100000102010101000102000100000202000009010202 000100000202030302020403010200030002000100000502000002010602 000100000202000008020001020200010000010201010100010200010000 100200010000020203030102010301020103010200030002000100001002 000100000202000008020001020200010000010201010100010200010000 100200010000030201030202010301020103010200030002000100001002 000100000202000008020001020200010000010201010100010200010000 100200010000030201030302040301020003000200010000100200010000 020200000802000102020001000001020101000003010000100200010000 120200010000100200010000020200000901020200010000030105001002 000100001202000100001002000100001002000103000001010001020001 000010020001000012020001000010020001000010020001000001020101 010001020001000011010000130100001101000011010000010201010100 01024e010000010201010100010201014d00010201010100010201014a00 000401000102010101000102010101004705010401000102010101000102 010101004705010401000102010101000102010101004705010401000102 0101010001020101010047050104Ê&%‰‡01000102010101000102010101004705 010401000102010101000102010101004705010401000102010101000102 010101004705010401000102010101000102010101004705010401000102 010101000102010101004705010401000102010101000102010101000705 050300050103000501033305010401000102010101000102010101000705 010307050103330501040100010201010100010201010100070501030405 010300050103000503032e05010401000102010101000102010101000705 0103040501030005010300050003010500032e0501040100010201010100 010201010100070505030005010300050303010501032d05010401000102 01010000040101000705010304050103000507032d050104010003010400 000101000705010304050103000503033105010404000001010001020101 010007050103040501030005010300050003010501032d05010401000102 01010100010201010100070501030405010300050103000503032e050104 010001020101010001020101010047050104010001020101010001020101 010006050603390501040100010201010100010201010100060506033905 010401000102010101000102010101004705010401000102010101000102 010101004705010401000102010101000102010101004705010401000102 010101000102010101004705010401000102010101000102010101004705 010401000102010101000102010101004705010401000102010101000102 01010100490401000102010101000102010100004a040100010201010100 010201014d00010201010100010200014e00010201010100140200010000 250200010000140201010100140200010000250200010000140201010100 1501000026010000160100005601 % % Run-length encoding savings = 68.4% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$ï'Àèÿÿ€$ï'„ g,&t g,TGA€Ê…ï''ÿÿ (+.147:=@CFILORUX[^adgjmpsvy|‚…ˆ‹Ž‘’ ¯'é*d g,  @@``€€@ØÔ Ð@ð`€@Ø  Ð@ð`€@‚‚ÊÊ€€@Øk ÓCð`€@  Àµ  @@``€€@µØÔ Ð@ð`€@À` Û×#Ð@ð`€@Ô Ð@ð`€@Ø  ÒBð`€@€´'ï'ÿ.p”•–—˜™š›œ€5ТÿÿÖ£EТˆÁùþ=IŒ»ô~êÿÿþ?µ€ÿÿ_þ᛿&ìüùþW¹ÿÿˆˆ‡{ÿÿÿÿÿÿD„YŸ  ýÿddddd€XÿÿÿÿÿÿYh‘h‘h‘ÿÿ1²0uìüö(B%p=rè;†–0ˆÿÿ&—Q` ýÿddd7€XÿÿÿÿÿÿYh‘h‘h‘YDGa[òý3®ìüö(ØÎØÎØ΀ï'ÿ-'¡¢ì g, g,Ü g,²€$$$$$ÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿdd2€UuKd–ÿÿdd»ÿÿddUuAd–ÿÿdd2€     ÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿÿ2€•ddþÿ•ddþÿ•ddþÿ•ddþÿ•ddþÿ3€ÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿdd00€þ€ï'ÿ@7DQTimes New RomanÎ`/0o3ïo3 "Arial‚XÛ/0o3D˜Xµ=/0 XE/(1CouriergF$`›‡%$`°‡%Œ4 4UMonotype Sortsô$o &¶§ªgÏ m¼Times New Roman ·ä/.nd ¼ÿTimes New Roman ·ä/.®` ÿTimes New Roman/0~`À` {¼1Courier–\–\j9/'I/`z^. 5ôÿ,,{ Ÿ ÃÿÞÿ¹  Apple LaserWriter II NTPSCRIPTLPT1:T1:ÈApple LaserWriter II NT WD„[ê od,þXÂZZ¨eÓ&Àô÷@ p÷Àôp@ Úÿ %¨¾øŽõKBZ.“ž£ ¥¤¦à€€à§ÿÿÿÿ'LþÿU2íÞ­ ÐÏࡱá;þÿ  þÿÿÿþÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  !"#$%&þÿÿÿþÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿ à…ŸòùOh«‘+'³Ùà…ŸòùOh«‘+'³Ù0x xª´ÌÖ.j „ ’ ž ª¶¾à)Building User Interfaces With Tcl And TkJohn OusterhoutNThird of four talks in all-day Tcl/Tk tutorial. Discusses Tk's Tcl commands.4c:\msoffice\powerpnt\template\clrovrhd\sidebarc.pptSun Microsystems30@v{óËò¹@Ö)Û²¡¹@fËA'Ëò¹&Microsoft PowerPoint 4.0Gÿÿÿÿ8cjJ ¿5&ÿÿÿÿÀô÷@ p & ÿÿÿÿ&$ÿÿÿÿTNPPMicrosoft PowerPoint & TNPPf & ÿÿÿÿ&TNPP ÷Àô à€5÷u— ÿÿÿ€€€€€€€€€ÀÀÀÀÜÀ¦Êðÿûð  ¤€€€ÿÿÿÿÿÿÿÿÿÿÿÿ45üÿÿÿ-úÿÿÿ-qA ÷Àô&ÿÿÿÿpöÀú˜ (þûàþ¼Times New Romanf-.  u32 üÄøBuilding User Interfaces WithÀ PP P¡HÐp€Hp¡`€`€€pH P` ûàþ¼Times New Romanw -ð.  u2 tý7ý Tcl And TkÀ€PHР HÀ¡ & ÿÿÿÿ&ÿÿÿÿ÷ÿ8 xû@ÿ¼Times New Romanf-ð.  — 2 Úÿ`ýJohn Ousterhout``kk0•kJ@VUk`j@û@ÿ¼Times New Romanw -ð.  — 32 úýúSun Microsystems Laboratorieskkj0¶5UU`K`K@U K0€`j`V`@`U5UKûaÿ¼1Courierw -ð.  02 óûjohn.ousterhout@eng.sun.com```````````````````````````û@ÿ¼Times New Romanw -ðû@ÿ¼Times New Romanf-ð. ûpÿ¼ÿTimes New Romanw -ð. ûpÿ¼ÿTimes New Romanf-ð.  -2 ÈDýTcl/Tk Tutorial, Part IIIX@((XH$XP(H8(H($$XH8($888 & ÿÿÿÿ&TNPP & ÿÿÿÿ-ü-ðû ¼"System-ðÐÏࡱáSun MicrosystemsÐÏࡱá;þÿ  Current IDÔç &&&ÿÿÿÿÿÿÿÿÿÿÿÿ ç (´ç 12Q82+88888,8288ÿÿÿÿÿÿÿÿÿÿÿÿ  œç RR$Dç ÿÿÿÿÿÿÿÿÿÿÿÿ$2$ç \ç  ÿÿÿÿÿÿÿÿÿÿÿÿ”ç |:Ô@@|:Ô@ÐÏࡱá;þÿ  ÐÏࡱá;þÿ  1þÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿtut/tk.ps010077500630510000012000021215410573603522500134130ustar00ousterstaff00002300000036%!PS-Adobe-3.0 %%Creator: Windows PSCRIPT %%Title: PowerPoint - TK.PPT %%BoundingBox: 14 9 597 784 %%DocumentNeededResources: (atend) %%DocumentSuppliedResources: (atend) %%Pages: (atend) %%BeginResource: procset Win35Dict 3 1 /Win35Dict 290 dict def Win35Dict begin/bd{bind def}bind def/in{72 mul}bd/ed{exch def}bd/ld{load def}bd/tr/translate ld/gs/gsave ld/gr /grestore ld/M/moveto ld/L/lineto ld/rmt/rmoveto ld/rlt/rlineto ld /rct/rcurveto ld/st/stroke ld/n/newpath ld/sm/setmatrix ld/cm/currentmatrix ld/cp/closepath ld/ARC/arcn ld/TR{65536 div}bd/lj/setlinejoin ld/lc /setlinecap ld/ml/setmiterlimit ld/sl/setlinewidth ld/scignore false def/sc{scignore{pop pop pop}{0 index 2 index eq 2 index 4 index eq and{pop pop 255 div setgray}{3{255 div 3 1 roll}repeat setrgbcolor}ifelse}ifelse}bd /FC{bR bG bB sc}bd/fC{/bB ed/bG ed/bR ed}bd/HC{hR hG hB sc}bd/hC{ /hB ed/hG ed/hR ed}bd/PC{pR pG pB sc}bd/pC{/pB ed/pG ed/pR ed}bd/sM matrix def/PenW 1 def/iPen 5 def/mxF matrix def/mxE matrix def/mxUE matrix def/mxUF matrix def/fBE false def/iDevRes 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt def/fPP false def/SS{fPP{ /SV save def}{gs}ifelse}bd/RS{fPP{SV restore}{gr}ifelse}bd/EJ{gsave showpage grestore}bd/#C{userdict begin/#copies ed end}bd/FEbuf 2 string def/FEglyph(G )def/FE{1 exch{dup 16 FEbuf cvrs FEglyph exch 1 exch putinterval 1 index exch FEglyph cvn put}for}bd/SM{/iRes ed/cyP ed /cxPg ed/cyM ed/cxM ed 72 100 div dup scale dup 0 ne{90 eq{cyM exch 0 eq{cxM exch tr -90 rotate -1 1 scale}{cxM cxPg add exch tr +90 rotate}ifelse}{cyP cyM sub exch 0 ne{cxM exch tr -90 rotate}{cxM cxPg add exch tr -90 rotate 1 -1 scale}ifelse}ifelse}{pop cyP cyM sub exch 0 ne{cxM cxPg add exch tr 180 rotate}{cxM exch tr 1 -1 scale}ifelse}ifelse 100 iRes div dup scale 0 0 transform .25 add round .25 sub exch .25 add round .25 sub exch itransform translate}bd/SJ{1 index 0 eq{pop pop/fBE false def}{1 index/Break ed div/dxBreak ed/fBE true def}ifelse}bd/ANSIVec[ 16#0/grave 16#1/acute 16#2/circumflex 16#3/tilde 16#4/macron 16#5/breve 16#6/dotaccent 16#7/dieresis 16#8/ring 16#9/cedilla 16#A/hungarumlaut 16#B/ogonek 16#C/caron 16#D/dotlessi 16#27/quotesingle 16#60/grave 16#7C/bar 16#82/quotesinglbase 16#83/florin 16#84/quotedblbase 16#85 /ellipsis 16#86/dagger 16#87/daggerdbl 16#88/circumflex 16#89/perthousand 16#8A/Scaron 16#8B/guilsinglleft 16#8C/OE 16#91/quoteleft 16#92/quoteright 16#93/quotedblleft 16#94/quotedblright 16#95/bullet 16#96/endash 16#97 /emdash 16#98/tilde 16#99/trademark 16#9A/scaron 16#9B/guilsinglright 16#9C/oe 16#9F/Ydieresis 16#A0/space 16#A1/exclamdown 16#A4/currency 16#A5/yen 16#A6/brokenbar 16#A7/section 16#A8/dieresis 16#A9/copyright 16#AA/ordfeminine 16#AB/guillemotleft 16#AC/logicalnot 16#AD/hyphen 16#AE/registered 16#AF/macron 16#B0/degree 16#B1/plusminus 16#B2/twosuperior 16#B3/threesuperior 16#B4/acute 16#B5/mu 16#B6/paragraph 16#B7/periodcentered 16#B8/cedilla 16#B9/onesuperior 16#BA/ordmasculine 16#BB/guillemotright 16#BC/onequarter 16#BD/onehalf 16#BE/threequarters 16#BF/questiondown 16#C0/Agrave 16#C1/Aacute 16#C2/Acircumflex 16#C3/Atilde 16#C4/Adieresis 16#C5/Aring 16#C6/AE 16#C7/Ccedilla 16#C8/Egrave 16#C9/Eacute 16#CA /Ecircumflex 16#CB/Edieresis 16#CC/Igrave 16#CD/Iacute 16#CE/Icircumflex 16#CF/Idieresis 16#D0/Eth 16#D1/Ntilde 16#D2/Ograve 16#D3/Oacute 16#D4 /Ocircumflex 16#D5/Otilde 16#D6/Odieresis 16#D7/multiply 16#D8/Oslash 16#D9/Ugrave 16#DA/Uacute 16#DB/Ucircumflex 16#DC/Udieresis 16#DD/Yacute 16#DE/Thorn 16#DF/germandbls 16#E0/agrave 16#E1/aacute 16#E2/acircumflex 16#E3/atilde 16#E4/adieresis 16#E5/aring 16#E6/ae 16#E7/ccedilla 16#E8 /egrave 16#E9/eacute 16#EA/ecircumflex 16#EB/edieresis 16#EC/igrave 16#ED/iacute 16#EE/icircumflex 16#EF/idieresis 16#F0/eth 16#F1/ntilde 16#F2/ograve 16#F3/oacute 16#F4/ocircumflex 16#F5/otilde 16#F6/odieresis 16#F7/divide 16#F8/oslash 16#F9/ugrave 16#FA/uacute 16#FB/ucircumflex 16#FC/udieresis 16#FD/yacute 16#FE/thorn 16#FF/ydieresis ] def/reencdict 12 dict def/IsChar{basefontdict/CharStrings get exch known}bd/MapCh{dup IsChar not{pop/bullet}if newfont/Encoding get 3 1 roll put}bd/MapDegree{16#b0 /degree IsChar{/degree}{/ring}ifelse MapCh}bd/MapBB{16#a6/brokenbar IsChar{/brokenbar}{/bar}ifelse MapCh}bd/ANSIFont{reencdict begin/newfontname ed/basefontname ed FontDirectory newfontname known not{/basefontdict basefontname findfont def/newfont basefontdict maxlength dict def basefontdict{exch dup/FID ne{dup/Encoding eq{exch dup length array copy newfont 3 1 roll put}{exch newfont 3 1 roll put}ifelse}{pop pop}ifelse}forall newfont /FontName newfontname put 127 1 159{newfont/Encoding get exch/bullet put}for ANSIVec aload pop ANSIVec length 2 idiv{MapCh}repeat MapDegree MapBB newfontname newfont definefont pop}if newfontname end}bd/SB{FC /ULlen ed/str ed str length fBE not{dup 1 gt{1 sub}if}if/cbStr ed /dxGdi ed/y0 ed/x0 ed str stringwidth dup 0 ne{/y1 ed/x1 ed y1 y1 mul x1 x1 mul add sqrt dxGdi exch div 1 sub dup x1 mul cbStr div exch y1 mul cbStr div}{exch abs neg dxGdi add cbStr div exch}ifelse/dyExtra ed/dxExtra ed x0 y0 M fBE{dxBreak 0 BCh dxExtra dyExtra str awidthshow}{dxExtra dyExtra str ashow}ifelse fUL{x0 y0 M dxUL dyUL rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if fSO{x0 y0 M dxSO dySO rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if n/fBE false def}bd/font{/name ed/Ascent ed 0 ne/fT3 ed 0 ne/fSO ed 0 ne/fUL ed/Sy ed/Sx ed 10.0 div/ori ed -10.0 div/esc ed/BCh ed name findfont/xAscent 0 def/yAscent Ascent def/ULesc esc def ULesc mxUE rotate pop fT3{/esc 0 def xAscent yAscent mxUE transform /yAscent ed/xAscent ed}if [Sx 0 0 Sy neg xAscent yAscent] esc mxE rotate mxF concatmatrix makefont setfont [Sx 0 0 Sy neg 0 Ascent] mxUE mxUF concatmatrix pop fUL{currentfont dup/FontInfo get/UnderlinePosition known not{pop/Courier findfont}if/FontInfo get/UnderlinePosition get 1000 div 0 exch mxUF transform/dyUL ed/dxUL ed}if fSO{0 .3 mxUF transform /dySO ed/dxSO ed}if fUL fSO or{currentfont dup/FontInfo get/UnderlineThickness known not{pop/Courier findfont}if/FontInfo get/UnderlineThickness get 1000 div Sy mul/cyUL ed}if}bd/min{2 copy gt{exch}if pop}bd/max{2 copy lt{exch}if pop}bd/CP{/ft ed{{ft 0 eq{clip}{eoclip}ifelse}stopped{currentflat 1 add setflat}{exit}ifelse}loop}bd/patfont 10 dict def patfont begin /FontType 3 def/FontMatrix [1 0 0 -1 0 0] def/FontBBox [0 0 16 16] def/Encoding StandardEncoding def/BuildChar{pop pop 16 0 0 0 16 16 setcachedevice 16 16 false [1 0 0 1 .25 .25]{pat}imagemask}bd end/p{ /pat 32 string def{}forall 0 1 7{dup 2 mul pat exch 3 index put dup 2 mul 1 add pat exch 3 index put dup 2 mul 16 add pat exch 3 index put 2 mul 17 add pat exch 2 index put pop}for}bd/pfill{/PatFont patfont definefont setfont/ch(AAAA)def X0 64 X1{Y1 -16 Y0{1 index exch M ch show}for pop}for}bd/vert{X0 w X1{dup Y0 M Y1 L st}for}bd/horz{Y0 w Y1{dup X0 exch M X1 exch L st}for}bd/fdiag{X0 w X1{Y0 M X1 X0 sub dup rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup rlt st}for}bd/bdiag{X0 w X1{Y1 M X1 X0 sub dup neg rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup neg rlt st}for}bd/AU{1 add cvi 15 or}bd/AD{1 sub cvi -16 and}bd/SHR{pathbbox AU/Y1 ed AU/X1 ed AD/Y0 ed AD/X0 ed}bd/hfill{/w iRes 37.5 div round def 0.1 sl [] 0 setdash n dup 0 eq{horz}if dup 1 eq{vert}if dup 2 eq{fdiag}if dup 3 eq{bdiag}if dup 4 eq{horz vert}if 5 eq{fdiag bdiag}if}bd/F{/ft ed fm 256 and 0 ne{gs FC ft 0 eq{fill}{eofill}ifelse gr}if fm 1536 and 0 ne{SHR gs HC ft CP fm 1024 and 0 ne{/Tmp save def pfill Tmp restore}{fm 15 and hfill}ifelse gr}if}bd/S{PenW sl PC st}bd/m matrix def/GW{iRes 12 div PenW add cvi}bd/DoW{iRes 50 div PenW add cvi}bd/DW{iRes 8 div PenW add cvi}bd/SP{/PenW ed/iPen ed iPen 0 eq iPen 6 eq or{[] 0 setdash}if iPen 1 eq{[DW GW] 0 setdash}if iPen 2 eq{[DoW GW] 0 setdash}if iPen 3 eq{[DW GW DoW GW] 0 setdash}if iPen 4 eq{[DW GW DoW GW DoW GW] 0 setdash}if}bd/E{m cm pop tr scale 1 0 moveto 0 0 1 0 360 arc cp m sm}bd /AG{/sy ed/sx ed sx div 4 1 roll sy div 4 1 roll sx div 4 1 roll sy div 4 1 roll atan/a2 ed atan/a1 ed sx sy scale a1 a2 ARC}def/A{m cm pop tr AG m sm}def/P{m cm pop tr 0 0 M AG cp m sm}def/RRect{n 4 copy M 3 1 roll exch L 4 2 roll L L cp}bd/RRCC{/r ed/y1 ed/x1 ed/y0 ed/x0 ed x0 x1 add 2 div y0 M x1 y0 x1 y1 r arcto 4{pop}repeat x1 y1 x0 y1 r arcto 4{pop}repeat x0 y1 x0 y0 r arcto 4{pop}repeat x0 y0 x1 y0 r arcto 4{pop}repeat cp}bd/RR{2 copy 0 eq exch 0 eq or{pop pop RRect}{2 copy eq{pop RRCC}{m cm pop/y2 ed/x2 ed/ys y2 x2 div 1 max def/xs x2 y2 div 1 max def/y1 exch ys div def/x1 exch xs div def/y0 exch ys div def/x0 exch xs div def/r2 x2 y2 min def xs ys scale x0 x1 add 2 div y0 M x1 y0 x1 y1 r2 arcto 4{pop}repeat x1 y1 x0 y1 r2 arcto 4{pop}repeat x0 y1 x0 y0 r2 arcto 4{pop}repeat x0 y0 x1 y0 r2 arcto 4{pop}repeat m sm cp}ifelse}ifelse}bd/PP{{rlt}repeat}bd/OB{gs 0 ne{7 3 roll/y ed /x ed x y translate ULesc rotate x neg y neg translate x y 7 -3 roll}if sc B fill gr}bd/B{M/dy ed/dx ed dx 0 rlt 0 dy rlt dx neg 0 rlt cp}bd /CB{B clip n}bd/ErrHandler{errordict dup maxlength exch length gt dup{errordict begin}if/errhelpdict 12 dict def errhelpdict begin/stackunderflow(operand stack underflow)def /undefined(this name is not defined in a dictionary)def/VMerror(you have used up all the printer's memory)def /typecheck(operator was expecting a different type of operand)def /ioerror(input/output error occured)def end{end}if errordict begin /handleerror{$error begin newerror{/newerror false def showpage 72 72 scale/x .25 def/y 9.6 def/Helvetica findfont .2 scalefont setfont x y moveto(Offending Command = )show/command load{dup type/stringtype ne{(max err string)cvs}if show}exec/y y .2 sub def x y moveto(Error = )show errorname{dup type dup( max err string )cvs show( : )show/stringtype ne{( max err string )cvs}if show}exec errordict begin errhelpdict errorname known{x 1 add y .2 sub moveto errhelpdict errorname get show}if end /y y .4 sub def x y moveto(Stack =)show ostack{/y y .2 sub def x 1 add y moveto dup type/stringtype ne{( max err string )cvs}if show}forall showpage}if end}def end}bd end %%EndResource /SVDoc save def %%EndProlog %%BeginSetup Win35Dict begin ErrHandler statusdict begin 0 setjobtimeout end statusdict begin statusdict /jobname (PowerPoint - TK.PPT) put end /oldDictCnt countdictstack def {}stopped { countdictstack oldDictCnt lt { Win35Dict begin } {1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if /oldDictCnt countdictstack def {letter }stopped { countdictstack oldDictCnt lt { Win35Dict begin } {1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if [{ } /exec load currenttransfer /exec load] cvx settransfer %%EndSetup %%Page: 1 1 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 8 29 117 fC 650 556 1931 (Building User Interfaces With) 1931 SB 1243 736 742 (Tcl And Tk) 742 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 151 0 10 fC -1 1 SJ 1265 1101 726 (John Ousterhout) 726 SB 2 2 SJ 947 1251 1359 (Sun Microsystems Laboratories) 1359 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 952 1402 1350 (john.ousterhout@eng.sun.com) 1350 SB 32 0 0 75 75 0 0 0 68 /Times-BoldItalic /font30 ANSIFont font -3 3 SJ 1250 1783 758 (Tcl/Tk Tutorial, Part III) 758 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-BoldItalic %%Page: 2 2 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2172 2079 614 (December 1, 1994, slide 2) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 334 (Outli) 333 SB 653 266 83 (n) 84 SB 737 266 67 (e) 66 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 576 1965 (Basic structures: windows, widgets, processes.) 1965 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 788 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 3 SJ 433 756 1492 (Creating widgets: class commands.) 1492 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 968 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 7 6 SJ 433 936 2167 (Geometry management: the placer and the packer.) 2167 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1147 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 1 SJ 433 1115 820 (Widget commands.) 820 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1327 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1295 95 (Bi) 94 SB 527 1295 140 (ndi) 139 SB 666 1295 170 (ngs.) 170 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1507 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1475 2067 (Other commands: send, focus, selection, window) 2067 SB 2 1 SJ 433 1594 690 (manager, grabs.) 690 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1806 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 2 SJ 433 1774 666 (Two examples: ) 666 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1099 1780 480 (showVars) 480 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1579 1774 50 (, ) 50 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1629 1780 480 (mkDialog) 480 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 2109 1774 25 (.) 25 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 3 3 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2172 2079 614 (December 1, 1994, slide 3) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1977 (Structure Of A Tk Application) 1977 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 1 SJ 433 576 777 (Widget hierarchy.) 777 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 776 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 2 SJ 433 744 862 (One Tcl interpreter.) 862 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 944 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 2 SJ 433 912 544 (One process ) 544 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 3 7 SJ 978 914 1538 (\(can have > 1 application in a process\)) 1538 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 2519 912 25 (.) 25 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1111 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 151 0 10 fC 433 1079 344 (Widget:) 344 SB 0 0 0 fC 777 1079 1780 ( a window with a particular look and feel.) 1780 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1279 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 4 SJ 433 1247 1509 (Widget classes implemented by Tk:) 1509 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1369 254 (Frame) 254 SB 1220 1369 489 (Menubutton) 489 SB 1970 1369 294 (Canvas) 294 SB 470 1489 225 (Label) 225 SB 1220 1489 233 (Menu) 233 SB 1970 1489 366 (Scrollbar) 366 SB 470 1608 272 (Button) 272 SB 1220 1608 348 (Message) 348 SB 1970 1608 216 (Scale) 216 SB 470 1728 511 (Checkbutton) 511 SB 1220 1728 219 (Entry) 219 SB 1970 1728 305 (Listbox) 305 SB 470 1848 495 (Radiobutton) 495 SB 1220 1848 184 (Text) 184 SB 1970 1848 355 (Toplevel) 355 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 4 4 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2172 2079 614 (December 1, 1994, slide 4) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -4 2 SJ 320 266 1454 (The Widget Hierarchy) 1454 SB %MSEPS Preamble 0 0 185 237 0 0 185 237 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 185 def /pp_by2 237 def 0 lc 0 lj 0 0 0 pC 0 1 SP gs 577 739 491 509 CB 576 738 491 509 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier1 %%Pages: 1 %%BoundingBox: 0 0 185 237 %%CreationDate: Thu Dec 1 14:08:44 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 185 237 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 21 string def /drawcolormappedimage { 185 237 8 [185 0 0 -237 0 237] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba e2cbae pop pop drawcolormappedimage ce0000018900000115000001010013020001000088020001000013020101 010013020001000088020001000013020101010001021201000089010000 110101020101010001020001af000102010101000102000100000f020001 00007602000100000f02000100000f020001000001020101010001020001 00000f02000100007602000100000f02000100000f020001000001020101 01000102000100000f02000100007602000100000f02000100000f020001 00000102010101000102000100000f020001000028020403020201030902 01033702000100000f020001000002020900020200010000010201010100 0102000100000f0200010000270201030202010301020103090201033702 000100000f02000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010300020303010203030102 030301020303020203032902000100000f02000100000202000007020001 020200010000010201010100010200010000020209000202000100002802 020304020103010201030102010301020103010201030102010300020103 010201032802000100000502030005020001000002020000070200010202 000100000102010101000102000100000202000007020001020200010000 2a0202030202010305020103010201030102010301020103000202032b02 000100000502000001020001050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100002b02 020301020103020204030102010301020503020202032902000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000027020103020201030102 010301020103010201030102010301020103070202032802000100000502 000002010502000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010301020103000202030102 010301020103000202030102010300020103010201032802000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000280204030302010301020203000201030102010301020303 020203032902000100000f02000100000202000007020001020200010000 0102010101000102000100000f02000100007602000100000f0200010000 0202000008010202000100000102010101000102000100000f0200010000 7602000100000f02000100000f0200010000010201010100010200010000 0f02000100007602000100000f02000100000f0200010000010201010100 01020001000010010000770100001001000010010000010201010000b201 0000030104000001b1000001010001020101ab0000040100010201010100 010201010100a80501040100010201010100010201010100a80501040100 010201010100010201010100a80501040100010201010100010201010100 a80501040100010201010100010201010100a80501040100010201010100 010201010100a80501040100010201010100010201010100a80501040100 010201010100010201010100a80501040100010201010100010201010100 07050703000501037505010302050103070501030e050104010001020101 010001020101010007050103060501037505010302050103070501030e05 010401000102010101000102010101000705010303050103000501030105 03036f050103020501030105030301050103000501030005010308050104 010001020101010001020101010007050103030501030005010300050103 010501036e05010302050103000501030105010300050103000502030005 010307050104010001020101010001020101010007050403000501030005 010300050103010501036e05060300050103010501030005010300050103 010501030705010401000102010101000102010101000705010303050103 00050103000505036e050103020501030005050300050103000501030105 010307050104010001020101010001020101010007050103030501030005 010300050103720501030205010300050103040501030005010301050103 070501040100010201010100010201010100070501030305010300050103 00050103010501036e050103020501030005010301050103000501030005 020300050103070501040100010201010100010201010100070501030305 010300050103010503036f05010302050103010503030105010300050103 000501030805010401000102010101000102010101009a0501030b050104 01000102010101000102010101000605060379050803090501030b050104 01000102010101000102010101000605060379050803090501030b050104 0100010201010100010201010100a8050104010001020101010001020101 0100a80501040100010201010100010201010100a8050104010001020101 0100010201010100a80501040100010201010100010201010100a8050104 0100010201010100010201010100a8050104010001020101010001020101 0100aa040100010201010100010201010000ab0401000102010101000102 0101ac05010001020101010001020101ac05010001020101010001020101 010591040305120401050100010201010100010201010105900400000305 110400000105010001020101010001020101010501048d05010003050104 06060004060601000105010001020101010001020101010501048d050100 030501040506000000040606010001050100010201010100010201010105 01048d050100030501040506000001040506010001050100010201010100 010201010105010400050103020501031905010300050103660501000305 010404060100010405060100010501000102010101000102010101050104 000501030205010385050100030501040406010000050104040601000105 010001020101010001020101010501040005010302050103010503030105 010301050103010501030105030301050103000501036605010003050104 030601000105010404060100010501000102010101000102010101050104 000501030205010300050103010501030005010301050103010501030005 010301050103000501030005010366050100030501040306010002050104 030601000105010001020101010001020101010501040005060304050103 010501030005010300050103050501030005010300050103660501000305 010402060100030501040306010001050100010201010100010201010105 010400050103020501030105040301050103000501030005010302050403 000501030005010366050100030501040206010004050104020601000105 010001020101010001020101010501040005010302050103000501030105 010301050103000501030005010301050103010501030005010300050103 660501000305010401060100050501040206010001050100010201010100 010201010105010400050103020501030005010301050103020501030105 010302050103010501030005010300050103660501000305010401060100 060501040106010001050100010201010100010201010105010400050103 020501030105020300050103010501030105010303050203000503030005 010366050100030501040006010007050104010601000105010001020101 010001020101010501048d05010003050104000601000805010400060100 0105010001020101010001020101010501048d0501000305010401000b04 000601000105010001020101010001020101010501048d05010003050104 00000d0401000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e060100010501000102010101000102010101050104000501030405 01030705010379050100030501040e060100010501000102010101000102 01010105010400050103040501030705010379050100030501040e060100 010501000102010101000102010101050104000501030105010300050103 010503030105010300050103020503036f050100030501040e0601000105 010001020101010001020101010501040005010300050103000502030005 010301050103000502030005010300050103010501036e05010003050104 0e0601000105010001020101010001020101010501040005010300050103 0105010304050103000501030105010300050103010501036e0501000305 01040e060100010501000102010101000102010101050104000501030005 01030105010301050403000501030105010300050103010501036e050100 030501040e06010001050100010201010100010201010105010400050103 000501030105010300050103010501030005010301050103000501030105 01036e050100030501040e06010001050100010201010100010201010105 010400050103000501030005020300050103010501030005010301050103 00050103010501036e050100030501040e06010001050100010201010100 010201010105010400050103010501030005010301050203000503030105 0103010503036f050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 010101050104000501030005010300050103000501030e05010370050100 030501040e06010001050100010201010100010201010105010400050103 000501030005010384050100030501040e06010001050100010201010100 010201010105010400050103000501030005010300050103000501030005 01030205030301050103010503036a050100030501040e06010001050100 010201010100010201010105010400050103000501030005010300050103 000502030005010300050103010501030005010300050103010501036905 0100030501040e0601000105010001020101010001020101010501040005 010300050103000501030005010300050103010501030005010301050103 00050103000502036c050100030501040e06010001050100010201010100 010201010105010400050103000501030005010300050103000501030105 0103000501030105010300050103020502036a050100030501040e060100 010501000102010101000102010101050104000501030005010300050103 000501030005010301050103000501030105010300050103030502036905 010003050104100001050100010201010100010201010105010400050103 000501030005010300050103000501030105010300050103010501030005 0103000501030105010369050100030501040d0000040100010501000102 010101000102010101050104000501030005010300050103000501030005 0103010501030105030301050103010503036a0501000305010401000a05 010401000105010001020101010001020101010501048d05010003050104 01000a05010401000105010001020101010001020101010501048d050100 0305010401000a0501040100010501000102010101000102010101050104 8d0501000305010401000a05010401000105010001020101010001020101 010501048d0501000305010401000a050104010001050100010201010100 01020101010501048d0501000305010401000a0501040100010501000102 0101010001020101010501048d0501000305010401000a05010401000105 010001020101010001020101010501048d0501000305010401000a050104 01000105010001020101010001020101010501048d050100030501040100 0a0501040100010501000102010101000102010101050104000501030b05 010300050103790501000305010401000a05010401000105010001020101 01000102010101050104000501030b0501037c0501000305010401000a05 010401000105010001020101010001020101010501040005010300050103 000501030205010300050103000501030105030301050103000501030205 0303650501000305010401000a0501040100010501000102010101000102 010101050104000501030005020300050103000501030005020300050103 000501030105010300050203000501030005010301050103640501000305 010401000a05010401000105010001020101010001020101010501040005 010300050103010501030005010301050103000501030405010300050103 0105010304050103640501000305010401000a0501040100010501000102 010101000102010101050104000501030005010301050103000501030105 010300050103010504030005010301050103010504036405010003050104 01000a050104010001050100010201010100010201010105010400050103 000501030105010300050103010501030005010300050103010501030005 0103010501030005010301050103640501000305010401000a0501040100 010501000102010101000102010101050104000501030005010301050103 000501030005020300050103000501030105010300050103010501030005 010301050103640501000305010401000a05010401000105010001020101 010001020101010501040005010300050103010501030105010300050103 000501030105020300050303010501030105020300050103630501000305 010401000a05010401000105010001020101010001020101010501048d05 01000305010401000a050104010001050100010201010100010201010105 01048d0501000305010401000a0501040100010501000102010101000102 0101010501048d0501000305010401000a05010401000105010001020101 010001020101010501048d0501000305010401000a050104010001050100 01020101010001020101010501048d0501000305010401000a0501040100 0105010001020101010001020101010501048d0501000305010401000a05 010401000105010001020101010001020101010501048d05010003050104 01000c0401000105010001020101010001020101010501048d0501000305 010400000d04010001050100010201010100010201010105010400050103 8a050100030501040e060100010501000102010101000102010101050104 000501038a050100030501040e0601000105010001020101010001020101 010501040005010301050303010501030105010301050103010503037205 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030005010301050103010501030005010301050103 71050100030501040e060100010501000102010101000102010101050104 000501030005010301050103010501030005010300050103050501037105 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030105010300050103000501030205040371050100 030501040e06010001050100010201010100010201010105010400050103 000501030105010301050103000501030005010301050103010501037105 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030205010301050103020501030105010371050100 030501040e06010001050100010201010100010201010105010400050103 010503030305010301050103030502030005010370050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 010001050100010201010100010201010105010400050103020501038505 0100030501040e0601000105010001020101010001020101010501040005 01030105010386050100030501040e060100010501000102010101000102 010101050104000501030005010303050303010501030005010302050303 020503030205030363050100030501040e06010001050100010201010100 010201010105010400050303030501030105010300050203000501030005 010301050103000501030105010300050103010501036205010003050104 0e0601000105010001020101010001020101010501040005030307050103 000501030105010300050203070501030005020365050100030501040e06 010001050100010201010100010201010105010400050103000501030305 040300050103010501030205020302050403020502036305010003050104 0e0601000105010001020101010001020101010501040005010301050103 010501030105010300050103010501030305020300050103010501030305 020362050100030501040e06010001050100010201010100010201010105 010400050103020501030005010301050103000501030105010300050103 010501030005010301050103000501030105010362050100030501040e06 010001050100010201010100010201010105010400050103030501030005 020300050303010501030105030302050203000501030005030363050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e06010001050100010201010100010201010105010400050103 020501030f0501030f05010361050100030501040e060100010501000102 0101010001020101010501040005010301050103100501030f0501036105 0100030501040e0601000105010001020101010001020101010501040005 010300050103030503030105010300050103010503030005010301050103 010503030105010301050103000501030205010355050100030501040e06 010001050100010201010100010201010105010400050303030501030105 010300050203000501030105010301050103010501030005010301050103 0005010300050103010501030205010355050100030501040e0601000105 010001020101010001020101010501040005030303050103010501030005 010301050103010501030105010301050103000501030405030303050103 0005010356050100030501040e0601000105010001020101010001020101 010501040005010300050103020505030005010301050103010501030105 010301050103000501030405030303050103000501035605010003050104 0e0601000105010001020101010001020101010501040005010301050103 010501030405010301050103010501030105010301050103000501030405 0103000501030305020357050100030501040e0601000105010001020101 010001020101010501040005010302050103000501030105010300050103 010501030105010300050203000502030005010301050103000501030105 01030205020357050100030501040e060100010501000102010101000102 010101050104000501030305010300050303010501030105010302050103 010501030005010301050303010501030205010302050103570501000305 01040e060100010501000102010101000102010101050104330500035805 0100030501040e0601000105010001020101010001020101010501043205 010358050100030501040e06010001050100010201010100010201010105 01043105010359050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501040005010311050103070501036c050100030501040e060100 010501000102010101000102010101050104000501038a05010003050104 0e0601000105010001020101010001020101010501040005010304050303 010501030105010300050103010503030105010301050303010501030005 01030205030358050100030501040e060100010501000102010101000102 010101050104000501030305010301050103000501030105010300050103 000501030105010300050103000501030105010300050203000501030005 01030105010357050100030501040e060100010501000102010101000102 010101050104000501030305010301050103000501030105010300050103 000502030305010304050103000501030105010304050103570501000305 01040e060100010501000102010101000102010101050104000501030305 010301050103000501030105010300050103020502030105010301050403 00050103010501030105040357050100030501040e060100010501000102 010101000102010101050104000501030305010301050103000501030105 010300050103030502030005010300050103010501030005010301050103 000501030105010357050100030501040e06010001050100010201010100 010201010105010400050103030501030105010300050103000502030005 010300050103010501030005010300050103010501030005010301050103 000501030105010357050100030501040e06010001050100010201010100 010201010105010400050503000503030205010300050103000501030105 030301050103010502030005030301050103010502030005010356050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e06010001050100010201010100010201010105010400050103 040501030705010379050100030501040e06010001050100010201010100 0102010101050104000501030405010383050100030501040e0601000105 010001020101010001020101010501040005020302050203010503030105 01030005010300050103020503036c050100030501040e06010001050100 010201010100010201010105010400050203020502030005010301050103 00050103000502030005010300050103010501036b050100030501040e06 010001050100010201010100010201010105010400050303000503030405 010300050103000501030105010300050103010501036b05010003050104 0e0601000105010001020101010001020101010501040005010300050003 000500030005010301050403000501030005010301050103000505036b05 0100030501040e0601000105010001020101010001020101010501040005 010300050203000501030005010301050103000501030005010301050103 000501036f050100030501040e0601000105010001020101010001020101 010501040005010301050003010501030005010301050103000501030005 01030105010300050103010501036b050100030501040e06010001050100 010201010100010201010105010400050103010500030105010301050203 000503030005010301050103010503036c050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d05010003050104100001050100 010201010000040101050104000501030405010314050103120501035705 01000305010400060c000004010001050100030104000001010501040005 010304050103140501031205010357050100030501040006010008050104 000601000105040000010100010201010105010400050203020502030105 030301050103000503030205010300050103010503030105010300050103 020501030005010357050100030501040106010007050104000601000105 010001020101010001020101010501040005020302050203000501030105 010300050603020501030005010300050103010501030005020300050103 000501030005020357050100030501040106010006050104010601000105 010001020101010001020101010501040005030300050303040501030005 020302050103000501030105010304050103000501030105010300050103 010501035705010003050104020601000505010401060100010501000102 010101000102010101050104000501030005000300050003000501030105 040300050103030501030005010301050103010504030005010301050103 000501030105010357050100030501040206010004050104020601000105 010001020101010001020101010501040005010300050203000501030005 010301050103000501030405020302050103000501030105010300050103 010501030005010301050103570501000305010403060100030501040206 010001050100010201010100010201010105010400050103010500030105 010300050103010501030005010304050203020501030005010301050103 000501030105010300050103000502035705010003050104030601000205 010403060100010501000102010101000102010101050104000501030105 000301050103010502030005030305050103020501030105020300050303 010501030105010300050103570501000305010404060100010501040306 010001050100010201010100010201010105010419050003720501000305 010404060100000501040406010001050100010201010100010201010105 010418050103720501000305010405060000020404060100010501000102 010101000102010101050104170501037305010003050104050600000104 050601000105010001020101010001020101010501048d05010003050104 06060104050601000105010001020101010001020101010501048d050100 030501040606000406060100010501000102010101000102010101050104 8f0003050104100001050100010201010100010201010105000490000305 000411000105010001020101010001020101ac0501000102010101000102 0101ac05010001020101010001020101ae0001020101010001020001af00 010201010100130200010000880200010000130201010100130200010000 880200010000130201010100140100008901000015010000b701 % % Run-length encoding savings = 75.7% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 173 208 0 0 173 208 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 173 def /pp_by2 208 def gs 539 649 2068 586 CB 538 648 2068 586 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier2a %%Pages: 1 %%BoundingBox: 0 0 173 208 %%CreationDate: Thu Dec 1 14:08:40 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 173 208 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 3 string def /drawcolormappedimage { 173 208 8 [173 0 0 -208 0 208] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3d9ba pop pop drawcolormappedimage fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00fe00 fe00fe00fe00fe00fe00fe001c00 % % Run-length encoding savings = 99.2% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 173 30 0 0 173 30 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 173 def /pp_by2 30 def gs 539 92 2068 1339 CB 538 91 2068 1339 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier2b %%Pages: 1 %%BoundingBox: 0 0 173 30 %%CreationDate: Thu Dec 1 14:08:41 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 173 30 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 9 string def /drawcolormappedimage { 173 30 8 [173 0 0 -30 0 30] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 918270 f3d9ba pop pop drawcolormappedimage fe00590000010100a80201010100a80201010100a80201010100a8020101 0100a80201010100a80201010100a80201010100a80201010100a8020101 0100a80201010100a80201010100a80201010100a80201010100a8020101 0100a80201010100a80201010100a80201010100a80201010100a8020101 0100a80201010100a80201010100a80201010100a80201010100a8020101 0100a80201010100a80201010100aa010000ab01 % % Run-length encoding savings = 96.7% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 23 178 0 0 23 178 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 23 def /pp_by2 178 def gs 71 555 2752 758 CB 70 554 2752 758 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier2c %%Pages: 1 %%BoundingBox: 0 0 23 178 %%CreationDate: Thu Dec 1 14:08:41 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 23 178 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 12 string def /drawcolormappedimage { 23 178 8 [23 0 0 -178 0 178] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3d9ba 918270 f3f3f3 e2cbae pop pop drawcolormappedimage 2f0012010300110100020300010106030001060301020300010105030002 000106030102030001010503000201010503010203000101040301020101 050301020300010104030102000001010403010203000101030301020100 010104030102030001010303010202000101030301020300010102030102 030001010303010203000101020301020400010102030102030001010103 010205000101020301020300010101030102060001010103010203000101 000301020700010101030102030001010003010208000101000301020300 010101020b01000301020300010100020d010102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001010e030102030001010e030102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001011002030001010d02000101020300010101020a000101 01020300010101020a00010101020300010101020a000101010203000101 01020a00010101020300010101020a00010101020300010101020a000101 01020300010101020a00010101020300010101020a000101010203000101 01020a00010101020300010101020a00010101020300010101020a000101 01020300010101020a00010101020300010101020a000101010203000101 01020a00010101020300010101020a00010101020300010101020a000101 01020300010101020a00010101020300010101020a000101010203000101 01020a00010101020300010101020a00010101020300010101020a000101 01020300010101020a00010101020300010101020a000101010203000101 01020a00010101020300010101020c0101020300010100020d0101020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001010e030102030001010e030102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001010e030102030001010e030102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001010e030102030001010e030102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001010e030102030001010e030102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e030102030001010e030102030001010e03010203000101 0e030102030001010e030102030001010e030102030001010e0301020300 01010e030102030001010e030102030001010e030102030001010e030102 030001010e030102030001010e030102030001010e030102030001010e03 0102030001010e0301020300010110020300010100030c02000101020300 010100030102080001010003010203000101010301020700010100030102 030001010103010206000101010301020300010102030102050001010103 010203000101020301020400010102030102030001010303010203000101 020301020300010103030102020001010303010203000101040301020100 010103030102030001010403010200000101040301020300010105030002 020104030102030001010503000201010503010203000101060301010503 01020300010106030001060301020300010110020300000111022f00 % % Run-length encoding savings = 59.0% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 150 178 0 0 150 178 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 150 def /pp_by2 178 def gs 468 555 1453 758 CB 467 554 1453 758 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier2d %%Pages: 1 %%BoundingBox: 0 0 150 178 %%CreationDate: Thu Dec 1 14:08:42 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 150 178 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 12 string def /drawcolormappedimage { 150 178 8 [150 0 0 -178 0 178] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3d9ba 918270 f3f3f3 000000 pop pop drawcolormappedimage fe002e009101030090010002030001018d000102030001018d0001020300 01018d000102030001010000010302000103190001030000010366000102 030001010000010302000103850001020300010100000103020001030100 030301000103010001030100010301000303010001030000010366000102 030001010000010302000103000001030100010300000103010001030100 010300000103010001030000010300000103660001020300010100000603 040001030100010300000103000001030500010300000103000001036600 010203000101000001030200010301000403010001030000010300000103 020004030000010300000103660001020300010100000103020001030000 010301000103010001030000010300000103010001030100010300000103 000001036600010203000101000001030200010300000103010001030200 010301000103020001030100010300000103000001036600010203000101 000001030200010301000203000001030100010301000103030002030000 03030000010366000102030001018d000102030001018d00010203000101 8d000102030001018d000102030001018d000102030001018d0001020300 01018d000102030001018d00010203000101000001030400010307000103 790001020300010100000103040001030700010379000102030001010000 01030100010300000103010003030100010300000103020003036f000102 030001010000010300000103000002030000010301000103000002030000 010300000103010001036e00010203000101000001030000010301000103 04000103000001030100010300000103010001036e000102030001010000 010300000103010001030100040300000103010001030000010301000103 6e0001020300010100000103000001030100010300000103010001030000 01030100010300000103010001036e000102030001010000010300000103 000002030000010301000103000001030100010300000103010001036e00 010203000101000001030100010300000103010002030000030301000103 010003036f000102030001018d000102030001018d000102030001018d00 0102030001018d000102030001018d000102030001018d00010203000101 8d000102030001018d000102030001010000010300000103000001030000 01030e000103700001020300010100000103000001030000010384000102 030001010000010300000103000001030000010300000103000001030200 030301000103010003036a00010203000101000001030000010300000103 000001030000020300000103000001030100010300000103000001030100 010369000102030001010000010300000103000001030000010300000103 01000103000001030100010300000103000002036c000102030001010000 010300000103000001030000010300000103010001030000010301000103 00000103020002036a000102030001010000010300000103000001030000 010300000103010001030000010301000103000001030300020369000102 030001010000010300000103000001030000010300000103010001030000 010301000103000001030000010301000103690001020300010100000103 000001030000010300000103000001030100010301000303010001030100 03036a000102030001018d000102030001018d000102030001018d000102 030001018d000102030001018d000102030001018d000102030001018d00 0102030001018d00010203000101000001030b0001030000010379000102 03000101000001030b0001037c0001020300010100000103000001030000 010302000103000001030000010301000303010001030000010302000303 650001020300010100000103000002030000010300000103000002030000 010300000103010001030000020300000103000001030100010364000102 030001010000010300000103010001030000010301000103000001030400 010300000103010001030400010364000102030001010000010300000103 010001030000010301000103000001030100040300000103010001030100 040364000102030001010000010300000103010001030000010301000103 000001030000010301000103000001030100010300000103010001036400 010203000101000001030000010301000103000001030000020300000103 000001030100010300000103010001030000010301000103640001020300 010100000103000001030100010301000103000001030000010301000203 0000030301000103010002030000010363000102030001018d0001020300 01018d000102030001018d000102030001018d000102030001018d000102 030001018d000102030001018d000102030001018d000102030001010000 01038a00010203000101000001038a000102030001010000010301000303 010001030100010301000103010003037200010203000101000001030000 010301000103000001030100010301000103000001030100010371000102 030001010000010300000103010001030100010300000103000001030500 010371000102030001010000010300000103010001030100010300000103 000001030200040371000102030001010000010300000103010001030100 010300000103000001030100010301000103710001020300010100000103 000001030100010302000103010001030200010301000103710001020300 010100000103010003030300010301000103030002030000010370000102 030001018d000102030001018d000102030001018d000102030001018d00 0102030001018d000102030001018d000102030001018d00010203000101 8d0001020300010100000103020001038500010203000101000001030100 010386000102030001010000010300000103030003030100010300000103 020003030200030302000303630001020300010100000303030001030100 010300000203000001030000010301000103000001030100010300000103 010001036200010203000101000003030700010300000103010001030000 020307000103000002036500010203000101000001030000010303000403 000001030100010302000203020004030200020363000102030001010000 010301000103010001030100010300000103010001030300020300000103 010001030300020362000102030001010000010302000103000001030100 010300000103010001030000010301000103000001030100010300000103 010001036200010203000101000001030300010300000203000003030100 01030100030302000203000001030000030363000102030001018d000102 030001018d000102030001018d000102030001018d000102030001018d00 0102030001018d000102030001018d000102030001018d00010203000101 00000103020001030f0001030f0001036100010203000101000001030100 0103100001030f0001036100010203000101000001030000010303000303 010001030000010301000303000001030100010301000303010001030100 010300000103020001035500010203000101000003030300010301000103 000002030000010301000103010001030100010300000103010001030000 010300000103010001030200010355000102030001010000030303000103 010001030000010301000103010001030100010301000103000001030400 030303000103000001035600010203000101000001030000010302000503 000001030100010301000103010001030100010300000103040003030300 010300000103560001020300010100000103010001030100010304000103 010001030100010301000103010001030000010304000103000001030300 020357000102030001010000010302000103000001030100010300000103 010001030100010300000203000002030000010301000103000001030100 010302000203570001020300010100000103030001030000030301000103 010001030200010301000103000001030100030301000103020001030200 010357000102030001013300000358000102030001013200010358000102 030001013100010359000102030001018d000102030001018d0001020300 01018d000102030001018d000102030001018d0001020300010100000103 11000103070001036c00010203000101000001038a000102030001010000 010304000303010001030100010300000103010003030100010301000303 010001030000010302000303580001020300010100000103030001030100 010300000103010001030000010300000103010001030000010300000103 010001030000020300000103000001030100010357000102030001010000 010303000103010001030000010301000103000001030000020303000103 040001030000010301000103040001035700010203000101000001030300 010301000103000001030100010300000103020002030100010301000403 000001030100010301000403570001020300010100000103030001030100 010300000103010001030000010303000203000001030000010301000103 000001030100010300000103010001035700010203000101000001030300 010301000103000001030000020300000103000001030100010300000103 000001030100010300000103010001030000010301000103570001020300 010100000503000003030200010300000103000001030100030301000103 010002030000030301000103010002030000010356000102030001018d00 0102030001018d000102030001018d000102030001018d00010203000101 8d000102030001018d000102030001018d000102030001018d0001020300 010100000103040001030700010379000102030001010000010304000103 830001020300010100000203020002030100030301000103000001030000 0103020003036c0001020300010100000203020002030000010301000103 00000103000002030000010300000103010001036b000102030001010000 030300000303040001030000010300000103010001030000010301000103 6b0001020300010100000103000000030000000300000103010004030000 01030000010301000103000005036b000102030001010000010300000203 000001030000010301000103000001030000010301000103000001036f00 010203000101000001030100000301000103000001030100010300000103 000001030100010300000103010001036b00010203000101000001030100 00030100010301000203000003030000010301000103010003036c000102 030001018d000102030001018d000102030001018d000102030001018d00 0102030001018d000102030001018d000102030001018d00010203000101 8d0001020300010100000103040001031400010312000103570001020300 010100000103040001031400010312000103570001020300010100000203 020002030100030301000103000003030200010300000103010003030100 010300000103020001030000010357000102030001010000020302000203 000001030100010300000603020001030000010300000103010001030000 020300000103000001030000020357000102030001010000030300000303 040001030000020302000103000001030100010304000103000001030100 010300000103010001035700010203000101000001030000000300000003 000001030100040300000103030001030000010301000103010004030000 010301000103000001030100010357000102030001010000010300000203 000001030000010301000103000001030400020302000103000001030100 010300000103010001030000010301000103570001020300010100000103 010000030100010300000103010001030000010304000203020001030000 010301000103000001030100010300000103000002035700010203000101 000001030100000301000103010002030000030305000103020001030100 020300000303010001030100010300000103570001020300010119000003 720001020300010118000103720001020300010117000103730001020300 01018d000102030001018d000102030001018f02030000019002fe002e00 % % Run-length encoding savings = 83.1% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 34 26 0 0 34 26 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 34 def /pp_by2 26 def gs 105 80 1885 1469 CB 104 79 1885 1469 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier2e %%Pages: 1 %%BoundingBox: 0 0 34 26 %%CreationDate: Thu Dec 1 14:08:42 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 34 26 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 6 string def /drawcolormappedimage { 34 26 8 [34 0 0 -26 0 26] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3d9ba 000000 pop pop drawcolormappedimage fe0018000701000001011600010106000101160001010300010100000101 0100030110000101030001010000010100000101010001010f0004010000 01010000010100000101010001010f000101030001010000010100000501 0f0001010300010100000101000001011300010103000101000001010000 0101010001010f000101030001010000010101000301310006011a000601 df00 % % Run-length encoding savings = 82.8% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 40 26 0 0 40 26 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 40 def /pp_by2 26 def gs 124 80 2701 1469 CB 123 79 2701 1469 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier2f %%Pages: 1 %%BoundingBox: 0 0 40 26 %%CreationDate: Thu Dec 1 14:08:43 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 40 26 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 6 string def /drawcolormappedimage { 40 26 8 [40 0 0 -26 0 26] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3d9ba 000000 pop pop drawcolormappedimage fe0048000101020001010700010116000101020001010700010116000101 020001010100030101000101000001010000010110000101020001010000 0101010001010000010100000201000001010f0006010000010101000101 0000010100000101010001010f0001010200010100000501000001010000 0101010001010f0001010200010100000101040001010000010101000101 0f0001010200010100000101010001010000010100000201000001010f00 010102000101010003010100010100000101000001012200010112000801 090001011200080109000101fb00 % % Run-length encoding savings = 78.5% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 1 lc 1 lj 151 0 10 pC 6 4 SP gs 123 100 1996 1388 CB 2265 1263 M -450 375 1 PP S n gr 151 0 10 fC /fm 256 def 1966 1514 M -35 54 -24 -28 59 -26 3 PP 1 F n 6 4 SP gs 119 100 2565 1388 CB 2415 1263 M 450 375 1 PP S n gr /fm 256 def 2715 1514 M 59 26 -24 28 -35 -54 3 PP 1 F n 6 4 SP gs 3231 694 0 638 CB 2340 -87 M 0 2175 1 PP S n gr /fm 256 def 2340 1364 M 18 61 -36 0 18 -61 3 PP 1 F n 6 4 SP gs 194 2427 2565 0 CB 2340 888 M 675 225 1 PP S n gr /fm 256 def 2790 1038 M 64 2 -12 34 -52 -36 3 PP 1 F n 6 4 SP gs 198 2427 1921 0 CB 2340 888 M -675 225 1 PP S n gr /fm 256 def 1891 1038 M -53 37 -12 -34 65 -3 3 PP 1 F n 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 767 1307 45 (.) 45 SB 290 1882 450 (.menu.file) 450 SB 1007 1582 315 (.scroll) 315 SB 890 1882 450 (.menu.help) 450 SB 677 1582 225 (.menu) 225 SB 235 1582 360 (.listbox) 360 SB 0 0 0 pC 6 4 SP gs 304 204 515 1688 CB 1115 1488 M -900 600 1 PP S n gr gs 304 204 815 1688 CB 515 1488 M 900 600 1 PP S n gr gs 379 2427 790 0 CB 415 1238 M 1125 525 1 PP S n gr gs 3231 179 0 1413 CB 790 1238 M 0 525 1 PP S n gr gs 379 2427 415 0 CB 1165 1238 M -1125 525 1 PP S n gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 5 5 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2172 2079 614 (December 1, 1994, slide 5) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -2 2 SJ 320 266 1228 (Types Of Windows) 1228 SB %MSEPS Preamble 0 0 185 237 0 0 185 237 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 185 def /pp_by2 237 def 0 lc 0 lj 0 0 0 pC 0 1 SP gs 538 690 741 511 CB 537 689 741 511 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkHier1 %%Pages: 1 %%BoundingBox: 0 0 185 237 %%CreationDate: Thu Dec 1 14:08:44 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 185 237 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 21 string def /drawcolormappedimage { 185 237 8 [185 0 0 -237 0 237] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba e2cbae pop pop drawcolormappedimage ce0000018900000115000001010013020001000088020001000013020101 010013020001000088020001000013020101010001021201000089010000 110101020101010001020001af000102010101000102000100000f020001 00007602000100000f02000100000f020001000001020101010001020001 00000f02000100007602000100000f02000100000f020001000001020101 01000102000100000f02000100007602000100000f02000100000f020001 00000102010101000102000100000f020001000028020403020201030902 01033702000100000f020001000002020900020200010000010201010100 0102000100000f0200010000270201030202010301020103090201033702 000100000f02000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010300020303010203030102 030301020303020203032902000100000f02000100000202000007020001 020200010000010201010100010200010000020209000202000100002802 020304020103010201030102010301020103010201030102010300020103 010201032802000100000502030005020001000002020000070200010202 000100000102010101000102000100000202000007020001020200010000 2a0202030202010305020103010201030102010301020103000202032b02 000100000502000001020001050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100002b02 020301020103020204030102010301020503020202032902000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000027020103020201030102 010301020103010201030102010301020103070202032802000100000502 000002010502000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010301020103000202030102 010301020103000202030102010300020103010201032802000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000280204030302010301020203000201030102010301020303 020203032902000100000f02000100000202000007020001020200010000 0102010101000102000100000f02000100007602000100000f0200010000 0202000008010202000100000102010101000102000100000f0200010000 7602000100000f02000100000f0200010000010201010100010200010000 0f02000100007602000100000f02000100000f0200010000010201010100 01020001000010010000770100001001000010010000010201010000b201 0000030104000001b1000001010001020101ab0000040100010201010100 010201010100a80501040100010201010100010201010100a80501040100 010201010100010201010100a80501040100010201010100010201010100 a80501040100010201010100010201010100a80501040100010201010100 010201010100a80501040100010201010100010201010100a80501040100 010201010100010201010100a80501040100010201010100010201010100 07050703000501037505010302050103070501030e050104010001020101 010001020101010007050103060501037505010302050103070501030e05 010401000102010101000102010101000705010303050103000501030105 03036f050103020501030105030301050103000501030005010308050104 010001020101010001020101010007050103030501030005010300050103 010501036e05010302050103000501030105010300050103000502030005 010307050104010001020101010001020101010007050403000501030005 010300050103010501036e05060300050103010501030005010300050103 010501030705010401000102010101000102010101000705010303050103 00050103000505036e050103020501030005050300050103000501030105 010307050104010001020101010001020101010007050103030501030005 010300050103720501030205010300050103040501030005010301050103 070501040100010201010100010201010100070501030305010300050103 00050103010501036e050103020501030005010301050103000501030005 020300050103070501040100010201010100010201010100070501030305 010300050103010503036f05010302050103010503030105010300050103 000501030805010401000102010101000102010101009a0501030b050104 01000102010101000102010101000605060379050803090501030b050104 01000102010101000102010101000605060379050803090501030b050104 0100010201010100010201010100a8050104010001020101010001020101 0100a80501040100010201010100010201010100a8050104010001020101 0100010201010100a80501040100010201010100010201010100a8050104 0100010201010100010201010100a8050104010001020101010001020101 0100aa040100010201010100010201010000ab0401000102010101000102 0101ac05010001020101010001020101ac05010001020101010001020101 010591040305120401050100010201010100010201010105900400000305 110400000105010001020101010001020101010501048d05010003050104 06060004060601000105010001020101010001020101010501048d050100 030501040506000000040606010001050100010201010100010201010105 01048d050100030501040506000001040506010001050100010201010100 010201010105010400050103020501031905010300050103660501000305 010404060100010405060100010501000102010101000102010101050104 000501030205010385050100030501040406010000050104040601000105 010001020101010001020101010501040005010302050103010503030105 010301050103010501030105030301050103000501036605010003050104 030601000105010404060100010501000102010101000102010101050104 000501030205010300050103010501030005010301050103010501030005 010301050103000501030005010366050100030501040306010002050104 030601000105010001020101010001020101010501040005060304050103 010501030005010300050103050501030005010300050103660501000305 010402060100030501040306010001050100010201010100010201010105 010400050103020501030105040301050103000501030005010302050403 000501030005010366050100030501040206010004050104020601000105 010001020101010001020101010501040005010302050103000501030105 010301050103000501030005010301050103010501030005010300050103 660501000305010401060100050501040206010001050100010201010100 010201010105010400050103020501030005010301050103020501030105 010302050103010501030005010300050103660501000305010401060100 060501040106010001050100010201010100010201010105010400050103 020501030105020300050103010501030105010303050203000503030005 010366050100030501040006010007050104010601000105010001020101 010001020101010501048d05010003050104000601000805010400060100 0105010001020101010001020101010501048d0501000305010401000b04 000601000105010001020101010001020101010501048d05010003050104 00000d0401000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e060100010501000102010101000102010101050104000501030405 01030705010379050100030501040e060100010501000102010101000102 01010105010400050103040501030705010379050100030501040e060100 010501000102010101000102010101050104000501030105010300050103 010503030105010300050103020503036f050100030501040e0601000105 010001020101010001020101010501040005010300050103000502030005 010301050103000502030005010300050103010501036e05010003050104 0e0601000105010001020101010001020101010501040005010300050103 0105010304050103000501030105010300050103010501036e0501000305 01040e060100010501000102010101000102010101050104000501030005 01030105010301050403000501030105010300050103010501036e050100 030501040e06010001050100010201010100010201010105010400050103 000501030105010300050103010501030005010301050103000501030105 01036e050100030501040e06010001050100010201010100010201010105 010400050103000501030005020300050103010501030005010301050103 00050103010501036e050100030501040e06010001050100010201010100 010201010105010400050103010501030005010301050203000503030105 0103010503036f050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 010101050104000501030005010300050103000501030e05010370050100 030501040e06010001050100010201010100010201010105010400050103 000501030005010384050100030501040e06010001050100010201010100 010201010105010400050103000501030005010300050103000501030005 01030205030301050103010503036a050100030501040e06010001050100 010201010100010201010105010400050103000501030005010300050103 000502030005010300050103010501030005010300050103010501036905 0100030501040e0601000105010001020101010001020101010501040005 010300050103000501030005010300050103010501030005010301050103 00050103000502036c050100030501040e06010001050100010201010100 010201010105010400050103000501030005010300050103000501030105 0103000501030105010300050103020502036a050100030501040e060100 010501000102010101000102010101050104000501030005010300050103 000501030005010301050103000501030105010300050103030502036905 010003050104100001050100010201010100010201010105010400050103 000501030005010300050103000501030105010300050103010501030005 0103000501030105010369050100030501040d0000040100010501000102 010101000102010101050104000501030005010300050103000501030005 0103010501030105030301050103010503036a0501000305010401000a05 010401000105010001020101010001020101010501048d05010003050104 01000a05010401000105010001020101010001020101010501048d050100 0305010401000a0501040100010501000102010101000102010101050104 8d0501000305010401000a05010401000105010001020101010001020101 010501048d0501000305010401000a050104010001050100010201010100 01020101010501048d0501000305010401000a0501040100010501000102 0101010001020101010501048d0501000305010401000a05010401000105 010001020101010001020101010501048d0501000305010401000a050104 01000105010001020101010001020101010501048d050100030501040100 0a0501040100010501000102010101000102010101050104000501030b05 010300050103790501000305010401000a05010401000105010001020101 01000102010101050104000501030b0501037c0501000305010401000a05 010401000105010001020101010001020101010501040005010300050103 000501030205010300050103000501030105030301050103000501030205 0303650501000305010401000a0501040100010501000102010101000102 010101050104000501030005020300050103000501030005020300050103 000501030105010300050203000501030005010301050103640501000305 010401000a05010401000105010001020101010001020101010501040005 010300050103010501030005010301050103000501030405010300050103 0105010304050103640501000305010401000a0501040100010501000102 010101000102010101050104000501030005010301050103000501030105 010300050103010504030005010301050103010504036405010003050104 01000a050104010001050100010201010100010201010105010400050103 000501030105010300050103010501030005010300050103010501030005 0103010501030005010301050103640501000305010401000a0501040100 010501000102010101000102010101050104000501030005010301050103 000501030005020300050103000501030105010300050103010501030005 010301050103640501000305010401000a05010401000105010001020101 010001020101010501040005010300050103010501030105010300050103 000501030105020300050303010501030105020300050103630501000305 010401000a05010401000105010001020101010001020101010501048d05 01000305010401000a050104010001050100010201010100010201010105 01048d0501000305010401000a0501040100010501000102010101000102 0101010501048d0501000305010401000a05010401000105010001020101 010001020101010501048d0501000305010401000a050104010001050100 01020101010001020101010501048d0501000305010401000a0501040100 0105010001020101010001020101010501048d0501000305010401000a05 010401000105010001020101010001020101010501048d05010003050104 01000c0401000105010001020101010001020101010501048d0501000305 010400000d04010001050100010201010100010201010105010400050103 8a050100030501040e060100010501000102010101000102010101050104 000501038a050100030501040e0601000105010001020101010001020101 010501040005010301050303010501030105010301050103010503037205 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030005010301050103010501030005010301050103 71050100030501040e060100010501000102010101000102010101050104 000501030005010301050103010501030005010300050103050501037105 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030105010300050103000501030205040371050100 030501040e06010001050100010201010100010201010105010400050103 000501030105010301050103000501030005010301050103010501037105 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030205010301050103020501030105010371050100 030501040e06010001050100010201010100010201010105010400050103 010503030305010301050103030502030005010370050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 010001050100010201010100010201010105010400050103020501038505 0100030501040e0601000105010001020101010001020101010501040005 01030105010386050100030501040e060100010501000102010101000102 010101050104000501030005010303050303010501030005010302050303 020503030205030363050100030501040e06010001050100010201010100 010201010105010400050303030501030105010300050203000501030005 010301050103000501030105010300050103010501036205010003050104 0e0601000105010001020101010001020101010501040005030307050103 000501030105010300050203070501030005020365050100030501040e06 010001050100010201010100010201010105010400050103000501030305 040300050103010501030205020302050403020502036305010003050104 0e0601000105010001020101010001020101010501040005010301050103 010501030105010300050103010501030305020300050103010501030305 020362050100030501040e06010001050100010201010100010201010105 010400050103020501030005010301050103000501030105010300050103 010501030005010301050103000501030105010362050100030501040e06 010001050100010201010100010201010105010400050103030501030005 020300050303010501030105030302050203000501030005030363050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e06010001050100010201010100010201010105010400050103 020501030f0501030f05010361050100030501040e060100010501000102 0101010001020101010501040005010301050103100501030f0501036105 0100030501040e0601000105010001020101010001020101010501040005 010300050103030503030105010300050103010503030005010301050103 010503030105010301050103000501030205010355050100030501040e06 010001050100010201010100010201010105010400050303030501030105 010300050203000501030105010301050103010501030005010301050103 0005010300050103010501030205010355050100030501040e0601000105 010001020101010001020101010501040005030303050103010501030005 010301050103010501030105010301050103000501030405030303050103 0005010356050100030501040e0601000105010001020101010001020101 010501040005010300050103020505030005010301050103010501030105 010301050103000501030405030303050103000501035605010003050104 0e0601000105010001020101010001020101010501040005010301050103 010501030405010301050103010501030105010301050103000501030405 0103000501030305020357050100030501040e0601000105010001020101 010001020101010501040005010302050103000501030105010300050103 010501030105010300050203000502030005010301050103000501030105 01030205020357050100030501040e060100010501000102010101000102 010101050104000501030305010300050303010501030105010302050103 010501030005010301050303010501030205010302050103570501000305 01040e060100010501000102010101000102010101050104330500035805 0100030501040e0601000105010001020101010001020101010501043205 010358050100030501040e06010001050100010201010100010201010105 01043105010359050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501040005010311050103070501036c050100030501040e060100 010501000102010101000102010101050104000501038a05010003050104 0e0601000105010001020101010001020101010501040005010304050303 010501030105010300050103010503030105010301050303010501030005 01030205030358050100030501040e060100010501000102010101000102 010101050104000501030305010301050103000501030105010300050103 000501030105010300050103000501030105010300050203000501030005 01030105010357050100030501040e060100010501000102010101000102 010101050104000501030305010301050103000501030105010300050103 000502030305010304050103000501030105010304050103570501000305 01040e060100010501000102010101000102010101050104000501030305 010301050103000501030105010300050103020502030105010301050403 00050103010501030105040357050100030501040e060100010501000102 010101000102010101050104000501030305010301050103000501030105 010300050103030502030005010300050103010501030005010301050103 000501030105010357050100030501040e06010001050100010201010100 010201010105010400050103030501030105010300050103000502030005 010300050103010501030005010300050103010501030005010301050103 000501030105010357050100030501040e06010001050100010201010100 010201010105010400050503000503030205010300050103000501030105 030301050103010502030005030301050103010502030005010356050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e06010001050100010201010100010201010105010400050103 040501030705010379050100030501040e06010001050100010201010100 0102010101050104000501030405010383050100030501040e0601000105 010001020101010001020101010501040005020302050203010503030105 01030005010300050103020503036c050100030501040e06010001050100 010201010100010201010105010400050203020502030005010301050103 00050103000502030005010300050103010501036b050100030501040e06 010001050100010201010100010201010105010400050303000503030405 010300050103000501030105010300050103010501036b05010003050104 0e0601000105010001020101010001020101010501040005010300050003 000500030005010301050403000501030005010301050103000505036b05 0100030501040e0601000105010001020101010001020101010501040005 010300050203000501030005010301050103000501030005010301050103 000501036f050100030501040e0601000105010001020101010001020101 010501040005010301050003010501030005010301050103000501030005 01030105010300050103010501036b050100030501040e06010001050100 010201010100010201010105010400050103010500030105010301050203 000503030005010301050103010503036c050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d05010003050104100001050100 010201010000040101050104000501030405010314050103120501035705 01000305010400060c000004010001050100030104000001010501040005 010304050103140501031205010357050100030501040006010008050104 000601000105040000010100010201010105010400050203020502030105 030301050103000503030205010300050103010503030105010300050103 020501030005010357050100030501040106010007050104000601000105 010001020101010001020101010501040005020302050203000501030105 010300050603020501030005010300050103010501030005020300050103 000501030005020357050100030501040106010006050104010601000105 010001020101010001020101010501040005030300050303040501030005 020302050103000501030105010304050103000501030105010300050103 010501035705010003050104020601000505010401060100010501000102 010101000102010101050104000501030005000300050003000501030105 040300050103030501030005010301050103010504030005010301050103 000501030105010357050100030501040206010004050104020601000105 010001020101010001020101010501040005010300050203000501030005 010301050103000501030405020302050103000501030105010300050103 010501030005010301050103570501000305010403060100030501040206 010001050100010201010100010201010105010400050103010500030105 010300050103010501030005010304050203020501030005010301050103 000501030105010300050103000502035705010003050104030601000205 010403060100010501000102010101000102010101050104000501030105 000301050103010502030005030305050103020501030105020300050303 010501030105010300050103570501000305010404060100010501040306 010001050100010201010100010201010105010419050003720501000305 010404060100000501040406010001050100010201010100010201010105 010418050103720501000305010405060000020404060100010501000102 010101000102010101050104170501037305010003050104050600000104 050601000105010001020101010001020101010501048d05010003050104 06060104050601000105010001020101010001020101010501048d050100 030501040606000406060100010501000102010101000102010101050104 8f0003050104100001050100010201010100010201010105000490000305 000411000105010001020101010001020101ac0501000102010101000102 0101ac05010001020101010001020101ae0001020101010001020001af00 010201010100130200010000880200010000130201010100130200010000 880200010000130201010100140100008901000015010000b701 % % Run-length encoding savings = 75.7% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 188 155 0 0 188 155 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 188 def /pp_by2 155 def gs 548 451 1934 607 CB 547 450 1934 607 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkToplev %%Pages: 1 %%BoundingBox: 0 0 188 155 %%CreationDate: Thu Dec 1 14:11:55 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 188 155 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 188 155 8 [188 0 0 -155 0 155] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba pop pop drawcolormappedimage d10000018c0000011500000101001302000100008b020001000013020101 01001302000100008b02000100001302010101000102120100008c010000 110101020101010001020001b2000102010101000102000100000f020001 00007902000100000f02000100000f020001000001020101010001020001 00000f02000100007902000100000f02000100000f020001000001020101 01000102000100000f02000100007902000100000f02000100000f020001 00000102010101000102000100000f02000100002b020403020201030702 01033902000100000f020001000002020900020200010000010201010100 0102000100000f02000100002b020103010201030b020103390200010000 0f0200010000020200000702000102020001000001020101010001020001 00000f02000100002b020103020201030002010301020303010201030102 030302020103000201032b02000100000f02000100000202000007020001 020200010000010201010100010200010000020209000202000100002b02 010302020103000201030002010301020103000201030002010301020103 00020103000202032b020001000005020300050200010000020200000702 000102020001000001020101010001020001000002020000070200010202 000100002b02010302020103000201030402010300020103000201030102 010300020103010201032b02000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100002b02010302020103000201030102040300020103 000201030102010300020103010201032b02000100000502000001020001 050200010000020200000702000102020001000001020101010001020001 00000202000008010202000100002b020103020201030002010300020103 0102010300020103000201030102010300020103010201032b0200010000 050200000201050200010000020200000702000102020001000001020101 01000102000100000f02000100002b020103010201030102010300020103 0102010300020103000201030102010300020103000202032b0200010000 0f0200010000020200000702000102020001000001020101010001020001 00000f02000100002b020403020201030102020300020303010203030202 0103000201032b02000100000f0200010000020200000702000102020001 00000102010101000102000100000f02000100004b0201032b0200010000 0f0200010000020200000801020200010000010201010100010200010000 0f020001000047020103010201032b02000100000f02000100000f020001 00000102010101000102000100000f0200010000480203032c0200010000 0f02000100000f0200010000010201010100010200010000100100007a01 00001001000010010000010201010000b5010000030104000001b4000001 010001020101ae0000040100010201010100010201010100ab0501040100 010201010100010201010100ab0501040100010201010100010201010100 ab0501040100010201010100010201010100ab0501040100010201010100 010201010100ab0501040100010201010100010201010100ab0501040100 010201010100010201010100ab0501040100010201010100010201010100 ab0501040100010201010100010201010100ab0501040100010201010100 010201010100ab05010401000102010101000102010101000e0501035c05 01033b05010401000102010101000102010101000e050103570501030205 01030e0501032a05010401000102010101000102010101000d0503035605 0103020501030e0501032a05010401000102010101000102010101000d05 000301050003030501030005010301050303050501030305010302050203 030501030205010306050303020501030205010301050103000501030105 030305050403000501030005020303050303010504030305010303050103 0205020303050103020501030b0501040100010201010100010201010100 0c0501030105010302050403000501030105010304050103030501030105 010300050103020501030205010305050203000501030105010302050103 010504030005010301050103050501030205020300050203010501030105 010301050103050501030305010301050103000501030205010302050103 0b05010401000102010101000102010101000c0501030105010302050103 030501030105010305050103010501030105010302050103010501030205 010305050103050501030205010301050103030501030105010305050103 020501030205010305050103010501030605010301050103010501030205 010301050103020501030b05010401000102010101000102010101000b05 010303050103010501030305050305050103010501030105010302050103 010501030205010306050303020501030205010301050103030505030505 010302050103020501030205040301050103060501030105010301050103 0205010301050103020501030b0501040100010201010100010201010100 0b05070301050103030501030a0500030105000302050103020501030105 010302050103080502030105010302050103010501030305010309050103 020501030205010301050103010501030105010307050003010500030205 01030205010301050103020501030b050104010001020101010001020101 01000b0501030305010301050103030501030a0503030205010302050103 010501030205010309050103010501030205010301050103030501030905 010302050103020501030105010301050103010501030705030302050103 0205010301050103020501030b0501040100010201010100010201010100 0a0501030505010300050103030502030005010307050103040501030005 010302050203000502030505020300050103010502030005020301050103 030502030005010305050103000500030005010302050103010505030105 01030005000306050103040501030005010302050203000502030b050104 01000102010101000102010101000a050103050501030005010304050303 080501030505020304050203000501030605030303050203000501030105 010304050303070501030105010302050103020502030005010301050103 070501030505020304050203000501030b05010401000102010101000102 01010100290501035d0501031f0501040100010201010100010201010100 280501035d05010320050104010001020101010001020101010027050203 5c050203200501040100010201010100010201010100ab05010401000102 01010100010201010100ab05010401000102010101000102010101002105 01030105010348050103090501032c050104010001020101010001020101 010021050103010501032805010306050103140501030905010309050103 200501040100010201010100010201010100210501030105010328050103 060501031405010309050103090501032005010401000102010101000102 010101000b05010300050103010503030305030302050103010501030005 010303050103030501030105010301050103010503030205010300050203 010504030305040302050203090504030205030302050103020503030105 0403010503031805010401000102010101000102010101000b0504030005 010301050103010501030105010301050103010501030005010303050103 030501030105010301050103000501030105010301050203000502030105 010306050103030501030005010307050103000502030105010301050103 010501030105010301050103010501030205010301050103170501040100 0102010101000102010101000b0501030305010301050103050501030105 010301050103010501030105010304050103010501030105010304050103 010501030205010301050103060501030205010302050103050501030205 010301050103010501030105010301050103010501030105010302050103 010501031705010401000102010101000102010101000b05010303050503 020504030105010301050103010501030105010305050103000501030005 010302050403010501030205010301050103060501030205010302050103 050501030205010301050503010501030105050301050103020505031705 010401000102010101000102010101000b05010303050103050501030105 010301050103010501030205000301050003060501030005010300050103 010501030105010301050103020501030105010306050103020501030205 010305050103020501030105010305050103010501030505010302050103 1b05010401000102010101000102010101000b0501030305010305050103 010501030105010301050103020503030705010301050103020501030105 010301050103020501030105010306050103020501030205010305050103 0205010301050103050501030105010305050103020501031b0501040100 0102010101000102010101000b0501030305020300050103010505030105 010301050103030501030805010301050103020505030105010302050103 010501030005000304050103000500030105010300050103070501030005 020301050203000501030105010301050203000501030105010300050003 00050203000501031705010401000102010101000102010101000b050103 040503030305020300050103000501030105010303050103080501030105 010303050203000501030005010302050103020501030605010303050203 090501030005010302050303020501030205030303050103020503031805 010401000102010101000102010101002b0501037d050104010001020101 01000102010101002a0501037e0501040100010201010100010201010100 290502037e0501040100010201010100010201010100ab05010401000102 01010100010201010100ab05010401000102010101000102010101000b05 01030005010301050103030501032a050103000501030605020323050103 3005010401000102010101000102010101000b0501030005010301050103 020501032b05010300050103050501032005010302050103300501040100 0102010101000102010101000b0500030105000302050103010501032c05 000301050003060501032005010302050103300501040100010201010100 010201010100120501030005010305050303020501030005020303050303 03050303030503030c050303000501030005010302050203030501030005 010300050203050504030005010300050203030503032405010401000102 010101000102010101001205030305050103010501030105020300050203 0105020300050103010501030105010301050203000501030c0501030105 040301050103000501030205020300050203000501030505010302050203 000502030105010301050103230501040100010201010100010201010100 120503030905010301050103020501030105010309050103010501031005 010301050103030501030205010301050103010501030105010305050103 020501030205010301050103010501032305010401000102010101000102 010101001205010300050103050504030105010302050103020503030305 0403020503030d0501030105010303050103020501030105010301050103 010501030505010302050103020501030105050323050104010001020101 010001020101010012050103010501030305010301050103010501030205 0103040502030105010301050103040502030c0501030105010303050103 020501030105010301050103010501030505010302050103020501030105 010327050104010001020101010001020101010012050103020501030205 010301050103010501030205010305050103010501030105010305050103 0c0501030105010303050103020501030105010301050103010501030505 010302050103020501030105010327050104010001020101010001020101 010012050103030501030105050301050103020501030105020300050103 0105050301050203000501030c0501030105010304050103000501030205 010301050103010501030505010300050003000501030205010301050203 000501032305010401000102010101000102010101001205010304050103 010502030005010300050103020501030205030303050203000501030105 03030d050103010501030505020303050103010501030105010306050103 010501030205010302050303240501040100010201010100010201010100 ab0501040100010201010100010201010100ab0501040100010201010100 010201010100ab0501040100010201010100010201010100ab0501040100 010201010100010201010100ab0501040100010201010100010201010100 10050103160501031f0504035a0501040100010201010100010201010100 10050103090501030a0501031e0501030205010359050104010001020101 010001020101010010050103090501030a0501031e050103020501035905 010401000102010101000102010101000d05040302050303010504030105 030302050403040503030305030303050303070501035905010401000102 010101000102010101000c05010300050203010501030105010301050103 020501030105010301050203000501030205010301050103010502030005 01030105010301050103050501035a050104010001020101010001020101 01000b050103020501030505010301050103060501030105010302050103 05050103010501030505010301050103040501035b050104010001020101 01000102010101000b050103020501030205040301050103030504030105 010302050103020504030205030302050503030501035c05010401000102 010101000102010101000b05010302050103010501030105010301050103 020501030105010301050103020501030105010301050103040502030105 0103070501035c05010401000102010101000102010101000b0501030205 010301050103010501030105010302050103010501030105010302050103 010501030105010305050103010501036605010401000102010101000102 010101000c05010300050203010505030105010300050003000505030105 020300050103020505030105020300050103010502030005010303050103 5c05010401000102010101000102010101000d0501030005010302050203 000501030105010302050203000501030005010300050103040502030005 01030105030303050303040501035c050104010001020101010001020101 0100ab0501040100010201010100010201010100ab050104010001020101 0100010201010100ab0501040100010201010100010201010100ab050104 0100010201010100010201010100ab050104010001020101010001020101 0100ab0501040100010201010100010201010100ab050104010001020101 0100010201010100ab0501040100010201010100010201010100ab050104 0100010201010100010201010100ab050104010001020101010001020101 0100ab0501040100010201010100010201010100ad040100010201010100 010201010000ae04010001020101010001020101af050100010201010100 01020101af05010001020101010001020101af0501000102010101000102 0101af05010001020101010001020101af05010001020101010001020101 af05010001020101010001020101af050100010201010100010201011305 310028052b00140501000102010101000102010113053000000428052a00 00041405010001020101010001020101130501002d050104280501002705 01041405010001020101010001020101130501002d050104280501002705 01041405010001020101010001020101130501002d050104280501002705 01041405010001020101010001020101130501002d050104280501002705 01041405010001020101010001020101130501002d050104280501002705 01041405010001020101010001020101130501002d050104280501002705 01041405010001020101010001020101130501000a050103030501031a05 0104280501000b0501030205010314050104140501000102010101000102 0101130501000a050103030501031a050104280501000b05020301050103 140501041405010001020101010001020101130501000b05010301050103 01050303020503030e050104280501000b05020301050103010503030e05 01041405010001020101010001020101130501000b050103010501030005 01030105010300050103010501030d050104280501000b05010300050003 0005010300050103010501030d0501041405010001020101010001020101 130501000c05030301050103010501030005020310050104280501000b05 0103000500030005010300050103010501030d0501041405010001020101 010001020101130501000d05010302050503020502030e05010428050100 0b0501030105020300050103010501030d05010414050100010201010100 01020101130501000d05010302050103070502030d050104280501000b05 01030105020300050103010501030d050104140501000102010101000102 0101130501000d050103020501030105010300050103010501030d050104 280501000b0501030205010300050103010501030d050104140501000102 0101010001020101130501000d05010303050303020503030e0501042805 01000b05010302050103010503030e050104140501000102010100000401 130501002d05010428050100270501041405010003010400000113050100 2d0501042805010027050104140504000001010001020101130501002d05 010428050100270501041405010001020101010001020101130501002d05 010428050100270501041405010001020101010001020101130501002d05 010428050100270501041405010001020101010001020101130501002d05 010428050100270501041405010001020101010001020101130501002d05 010428050100270501041405010001020101010001020101130501002d05 010428050100270501041405010001020101010001020101130501002d05 010428050100270501041405010001020101010001020101130501002f04 280501002904140501000102010101000102010113050000300428050000 2a041405010001020101010001020101af05010001020101010001020101 af05010001020101010001020101af05010001020101010001020101af05 010001020101010001020101af05010001020101010001020101af050100 01020101010001020101af05010001020101010001020101b10001020101 010001020001b2000102010101001302000100008b020001000013020101 01001302000100008b0200010000130201010100140100008c0100001501 0000ba01 % % Run-length encoding savings = 76.1% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 515 1757 450 (.menu.file) 450 SB 1232 1507 315 (.scroll) 315 SB 1115 1757 450 (.menu.help) 450 SB 902 1507 225 (.menu) 225 SB 435 1507 360 (.listbox) 360 SB 1 lc 1 lj 6 4 SP gs 304 154 740 1613 CB 1340 1463 M -900 450 1 PP S n gr gs 304 154 1040 1613 CB 740 1463 M 900 450 1 PP S n gr gs 379 2427 1015 0 CB 640 1163 M 1125 525 1 PP S n gr gs 3231 179 0 1338 CB 1015 1163 M 0 525 1 PP S n gr gs 401 2427 618 0 CB 1412 1163 M -1191 525 1 PP S n gr 2407 1757 315 (.dlg.no) 315 SB 2060 1857 360 (.dlg.yes) 360 SB 1735 1757 360 (.dlg.msg) 360 SB 2150 1507 180 (.dlg) 180 SB gs 1229 2427 1015 0 CB -210 1163 M 3675 525 1 PP S n gr gs 329 2427 1915 0 CB 2565 1463 M -975 450 1 PP S n gr gs 329 2427 2240 0 CB 1915 1463 M 975 450 1 PP S n gr gs 3231 254 0 1613 CB 2240 1363 M 0 750 1 PP S n gr 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 151 0 10 fC 345 1171 75 (M) 74 SB 419 1171 102 (ain) 102 SB 345 1261 269 (window) 269 SB 2612 1221 323 (Top-level) 323 SB 2666 1311 269 (window) 269 SB 1660 1146 70 (In) 69 SB 1729 1146 23 (t) 24 SB 1753 1146 65 (er) 64 SB 1817 1146 102 (nal) 102 SB 1639 1236 209 (windo) 208 SB 1847 1236 60 (w) 61 SB 1908 1236 33 (s) 32 SB 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 992 1232 45 (.) 45 SB 151 0 10 pC gs 323 160 2321 1338 CB 2990 1163 M -1050 525 1 PP S n gr 151 0 10 fC /fm 256 def 2291 1514 M -47 44 -16 -32 63 -12 3 PP 1 F n 6 4 SP gs 344 2427 565 0 CB 190 1238 M 1125 75 1 PP S n gr /fm 256 def 940 1288 M 63 -14 -2 36 -61 -22 3 PP 1 F n 6 4 SP gs 198 130 1521 1338 CB 1940 1188 M -675 450 1 PP S n gr /fm 256 def 1491 1489 M -41 50 -20 -30 61 -20 3 PP 1 F n 6 4 SP gs 280 344 1489 1363 CB 2065 988 M -900 1125 1 PP S n gr /fm 256 def 1466 1739 M -25 59 -28 -22 53 -37 3 PP 1 F n 6 4 SP gs 3231 344 0 1363 CB 1790 988 M 75 1125 1 PP S n gr /fm 256 def 1840 1739 M 22 61 -36 2 14 -63 3 PP 1 F n 6 4 SP gs 329 469 1865 1338 CB 1515 838 M 1050 1500 1 PP S n gr /fm 256 def 2215 1839 M 50 40 -30 20 -20 -60 3 PP 1 F n 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%Page: 6 6 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2172 2079 614 (December 1, 1994, slide 6) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -1 1 SJ 320 266 1130 (Creating Widgets) 1130 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 576 796 (Each widget has a ) 796 SB 151 0 10 fC 1229 576 200 (class) 200 SB 0 0 0 fC 1429 576 1305 (: button, listbox, scrollbar, etc.) 1305 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 848 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 816 203 (One ) 203 SB 151 0 10 fC 1 1 SJ 637 816 645 (class command) 645 SB 0 0 0 fC 3 6 SJ 1282 816 1234 ( for each class, used to create) 1234 SB 433 936 422 (instances:) 422 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1092 2160 (button .a.b -text Quit -command exit) 2160 SB 470 1242 1860 (scrollbar .x -orient horizontal) 1860 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 151 0 10 fC 1 1 SJ 533 1578 363 (class name) 363 SB 1 1 SJ 855 1753 469 (window name) 469 SB -4 1 SJ 1557 1578 719 (configuration options) 719 SB 151 0 10 pC 6 4 SP gs 3231 98 0 1469 CB 715 1688 M 0 -375 1 PP S n gr /fm 256 def 715 1437 M -18 -62 36 0 -18 62 3 PP 1 F n 6 4 SP gs 3231 273 0 1469 CB 1090 2038 M 0 -900 1 PP S n gr /fm 256 def 1090 1437 M -18 -62 36 0 -18 62 3 PP 1 F n 6 4 SP gs 3231 98 0 1469 CB 1915 1688 M 0 -375 1 PP S n gr /fm 256 def 1915 1437 M -18 -62 36 0 -18 62 3 PP 1 F n 6 4 SP 0 0 1 1 28 -26 1 25 25 691 1414 A S n 0 0 1 28 1 1 28 25 25 941 1364 A S n 0 0 1 1 -26 28 1 25 25 491 1364 A S n 0 0 1 -26 1 1 -26 25 25 741 1414 A S n 0 0 1 1 28 -26 1 25 25 1066 1414 A S n 0 0 1 28 1 1 28 25 25 1166 1364 A S n 0 0 1 1 -26 28 1 25 25 1016 1364 A S n 0 0 1 -26 1 1 -26 25 25 1116 1414 A S n 0 0 1 1 28 -26 1 25 25 1891 1414 A S n 0 0 1 28 1 1 28 25 25 2591 1364 A S n 0 0 1 1 -26 28 1 25 25 1241 1364 A S n 0 0 1 -26 1 1 -26 25 25 1941 1414 A S n gs 204 2427 490 0 CB 290 1388 M 600 0 1 PP S n gr gs 204 2427 740 0 CB 540 1388 M 600 0 1 PP S n gr gs 54 2427 1015 0 CB 965 1388 M 150 0 1 PP S n gr gs 54 2427 1115 0 CB 1065 1388 M 150 0 1 PP S n gr gs 654 2427 1940 0 CB 1290 1388 M 1950 0 1 PP S n gr gs 654 2427 1240 0 CB 590 1388 M 1950 0 1 PP S n gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 7 7 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2172 2079 614 (December 1, 1994, slide 7) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 1 1 SJ 320 266 1454 (Configuration Options) 1454 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 558 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 526 1300 (Defined by class. For buttons:) 1300 SB 32 0 0 67 67 0 0 0 57 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 509 651 680 (-activebackground) 680 SB 1259 651 280 (-cursor) 280 SB 2064 651 240 (-image) 240 SB 2420 651 520 (-textvariable) 520 SB 509 732 680 (-activeforeground) 680 SB 1259 732 760 (-disabledforeground) 760 SB 2064 732 320 (-justify) 320 SB 2420 732 400 (-underline) 400 SB 509 812 280 (-anchor) 280 SB 1259 812 200 (-font) 200 SB 2064 812 200 (-padx) 200 SB 2420 812 240 (-width) 240 SB 509 892 440 (-background) 440 SB 1259 892 440 (-foreground) 440 SB 2064 892 200 (-pady) 200 SB 2420 892 440 (-wraplength) 440 SB 509 972 280 (-bitmap) 280 SB 1259 972 280 (-height) 280 SB 2064 972 280 (-relief) 280 SB 509 1052 480 (-borderwidth) 480 SB 1259 1052 600 (-highlightcolor) 600 SB 2064 1052 240 (-state) 240 SB 509 1133 320 (-command) 320 SB 1259 1133 760 (-highlightthickness) 760 SB 2064 1133 200 (-text) 200 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1287 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1255 2447 (If not specified in command, taken from option database:) 2447 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1407 50 (\226) 50 SB 520 1407 541 (Loaded from ) 541 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1061 1411 1020 (RESOURCE_MANAGER ) 1020 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 2081 1407 443 (property or) 443 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 509 1531 660 (.Xdefaults ) 660 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 1169 1527 158 (file.) 158 SB 470 1677 50 (\226) 50 SB 4 5 SJ 520 1677 1012 (May be set, queried with ) 1012 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1536 1681 360 (option) 360 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 1 1 SJ 1896 1677 444 ( command.) 444 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1875 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1843 2188 (If not in option database, default provided by class.) 2188 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 8 8 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2172 2079 614 (December 1, 1994, slide 8) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -4 1 SJ 320 266 1524 (Geometry Management) 1524 SB 32 0 0 71 71 0 0 0 57 /ZapfDingbats font 6 61 232 fC 320 603 56 (u) 56 SB 32 0 0 92 92 0 0 0 84 /Times-Bold /font29 ANSIFont font 0 0 0 fC -6 3 SJ 433 576 1069 (Widgets don't control their) 1069 SB -6 3 SJ 433 686 941 (own positions and sizes:) 941 SB 151 0 10 fC -4 2 SJ 433 796 799 (geometry managers ) 799 SB 0 0 0 fC 1228 796 120 (do.) 120 SB 32 0 0 71 71 0 0 0 57 /ZapfDingbats font 6 61 232 fC 320 999 56 (u) 56 SB 32 0 0 92 92 0 0 0 84 /Times-Bold /font29 ANSIFont font 0 0 0 fC -6 3 SJ 433 972 1052 (Widgets don't even appear) 1052 SB -3 3 SJ 433 1082 725 (on the screen until) 725 SB -3 3 SJ 433 1192 939 (managed by a geometry) 939 SB 433 1302 123 (ma) 122 SB 555 1302 225 (nager) 224 SB 779 1302 23 (.) 23 SB 32 0 0 71 71 0 0 0 57 /ZapfDingbats font 6 61 232 fC 320 1505 56 (u) 56 SB 32 0 0 92 92 0 0 0 84 /Times-Bold /font29 ANSIFont font 0 0 0 fC -4 2 SJ 433 1478 840 (Geometry manager =) 840 SB -6 2 SJ 433 1588 949 (algorithm for arranging) 949 SB 151 0 10 fC -4 2 SJ 433 1698 587 (slave windows ) 587 SB 0 0 0 fC -4 2 SJ 1016 1698 467 (relative to a) 467 SB 151 0 10 fC -7 1 SJ 433 1808 605 (master window) 605 SB 0 0 0 fC 1031 1808 23 (.) 23 SB 0 0 0 pC 6 4 SP 252 254 185 fC /fm 256 def 2067 1240 2566 1489 31 31 RR 1 F S n 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 0 0 0 fC 2148 1263 331 (Geometry) 331 SB 2166 1363 75 (M) 74 SB 2240 1363 222 (anager) 222 SB 8 29 117 fC -3 1 SJ 1641 846 500 (Requested size) 500 SB 1713 936 354 (from slave) 354 SB 0 150 136 fC 2038 596 553 (Parameters from) 553 SB -2 1 SJ 1978 686 675 (application designer) 675 SB 151 0 10 fC 2528 846 423 (Geometry of) 423 SB 2629 936 221 (master) 221 SB 8 29 117 fC -2 2 SJ 1603 1696 576 (Size and location) 576 SB -2 1 SJ 1759 1786 263 (of slave) 263 SB 151 0 10 fC -3 1 SJ 2491 1696 500 (Requested size) 500 SB -1 1 SJ 2569 1786 341 (for master) 341 SB 0 150 136 pC gs 3231 394 0 788 CB 2315 363 M 0 1275 1 PP S n gr 0 150 136 fC /fm 256 def 2315 1214 M 18 62 -36 0 18 -62 3 PP 1 F n 151 0 10 pC 6 4 SP 2740 1038 M -92 48 0 125 2 PP S n 151 0 10 fC /fm 256 def 2598 1239 M -45 46 -18 -32 63 -14 3 PP 1 F n 8 29 117 pC 6 4 SP 1896 1038 M 92 48 0 125 2 PP S n 8 29 117 fC /fm 256 def 2039 1239 M 64 14 -18 32 -46 -46 3 PP 1 F n 6 4 SP 1896 1630 M 143 -75 0 -67 2 PP S n /fm 256 def 1896 1689 M 18 63 -36 0 18 -63 3 PP 1 F n 151 0 10 pC 6 4 SP 2739 1630 M -143 -75 0 -67 2 PP S n 151 0 10 fC /fm 256 def 2739 1689 M 18 63 -36 0 18 -63 3 PP 1 F n 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 9 9 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2172 2079 614 (December 1, 1994, slide 9) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -2 1 SJ 320 266 698 (The Placer) 698 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 558 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 526 1276 (Simple but not very powerful.) 1276 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 708 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 7 SJ 433 676 2216 (Each slave placed individually relative to its master.) 2216 SB %MSEPS Preamble 0 0 189 135 0 0 189 135 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 189 def /pp_by2 135 def 0 lc 0 lj 0 0 0 pC 0 1 SP gs 786 562 2090 825 CB 785 561 2090 825 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPlace1 %%Pages: 1 %%BoundingBox: 0 0 189 135 %%CreationDate: Thu Dec 1 14:12:40 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 189 135 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 24 string def /drawcolormappedimage { 189 135 8 [189 0 0 -135 0 135] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 dbf3f3 f3d9ba 5d7988 9cc9e2 pop pop drawcolormappedimage d20000018d0000011500000101001302000100008c020001000013020101 01001302000100008c02000100001302010101000102120100008d010000 110101020101010001020001b3000102010101000102000100000f020001 00007a02000100000f02000100000f020001000001020101010001020001 00000f02000100007a02000100000f02000100000f020001000001020101 01000102000100000f02000100007a02000100000f02000100000f020001 00000102010101000102000100000f020001000039020103070201033402 000100000f02000100000202090002020001000001020101010001020001 00000f0200010000430201033402000100000f0200010000020200000702 00010202000100000102010101000102000100000f02000100002e020103 010201030102010300020103010203030102010300020103310200010000 0f0200010000020200000702000102020001000001020101010001020001 0000020209000202000100002e0201030102010301020103000201030002 010301020103000202030002010330020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100002f02010300020103000201030102010300020203 030201030102010330020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 00010202000100002f020103000201030002010301020103020202030102 010301020103300200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100002f02010300020103000201030102010303020203000201030102 010330020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100003002010301020103 02020103000201030102010300020103010201033002000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100003002010301020103020201030102030301020103010201033002 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100007a02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100007a0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 7a02000100000f02000100000f0200010000010201010100010200010000 100100007b0100001001000010010000010201010000b601000003010400 000134047b0504000001010001020101330400067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010430070106 7b050100010201010100010201010104300701067b050100010201010100 010201010104300701067b05010001020101010001020101010432067b05 010001020101010001020101000433067b05010001020101010001020101 b005010001020101010001020101b005010001020101010001020101b005 010001020101010001020101b005010001020101010001020101b0050100 01020101010001020101b005010001020101010001020101b00501000102 0101010001020101b005010001020101010001020101b005010001020101 010001020101b005010001020101010001020101b0050100010201010100 01020101b005010001020101010001020101b00501000102010101000102 0101b005010001020101010001020101b005010001020101010001020101 b005010001020101010001020101b005010001020101010001020101b005 010001020101010001020101b005010001020101010001020101b0050100 01020101010001020101b005010001020101010001020101b00501000102 0101010001020101b005010001020101010001020101b005010001020101 010001020101b005010001020101010001020101b0050100010201010100 01020101b005010001020101010001020101b00501000102010101000102 0101b005010001020101010001020101b005010001020101010001020101 b005010001020101010001020101b005010001020101010001020101b005 010001020101010001020101b005010001020101010001020101b0050100 01020101010001020101b005010001020101010001020101b00501000102 0101010001020101b005010001020101010001020101b005010001020101 010001020101b005010001020101010001020101b0050100010201010100 01020101b005010001020101010001020101b00501000102010101000102 0101b005010001020101010001020101b005010001020101010001020101 b005010001020101010001020101b005010001020101010001020101b005 010001020101010001020101b005010001020101010001020101b0050100 01020101010001020101b005010001020101010001020101b00501000102 0101010001020101b00501000102010100000401b0050100030104000001 b00504000001010001020101b005010001020101010001020101b0050100 01020101010001020101b005010001020101010001020101b00501000102 0101010001020101b005010001020101010001020101b005010001020101 010001020101b005010001020101010001020101b0050100010201010100 01020101b005010001020101010001020101b00501000102010101000102 0101b005010001020101010001020101b005010001020101010001020101 b005010001020101010001020101b005010001020101010001020101b005 010001020101010001020101b005010001020101010001020101b2000102 0101010001020001b3000102010101001302000100008c02000100001302 010101001302000100008c0200010000130201010100140100008d010000 15010000bb01 % % Run-length encoding savings = 89.3% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 189 135 0 0 189 135 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 189 def /pp_by2 135 def gs 786 561 2090 1451 CB 785 560 2090 1451 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPlace2 %%Pages: 1 %%BoundingBox: 0 0 189 135 %%CreationDate: Thu Dec 1 14:12:41 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 189 135 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 24 string def /drawcolormappedimage { 189 135 8 [189 0 0 -135 0 135] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba dbf3f3 5d7988 9cc9e2 pop pop drawcolormappedimage d20000018d0000011500000101001302000100008c020001000013020101 01001302000100008c02000100001302010101000102120100008d010000 110101020101010001020001b3000102010101000102000100000f020001 00007a02000100000f02000100000f020001000001020101010001020001 00000f02000100007a02000100000f02000100000f020001000001020101 01000102000100000f02000100007a02000100000f02000100000f020001 00000102010101000102000100000f020001000039020103070201033402 000100000f02000100000202090002020001000001020101010001020001 00000f0200010000430201033402000100000f0200010000020200000702 00010202000100000102010101000102000100000f02000100002e020103 010201030102010300020103010203030102010300020103310200010000 0f0200010000020200000702000102020001000001020101010001020001 0000020209000202000100002e0201030102010301020103000201030002 010301020103000202030002010330020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100002f02010300020103000201030102010300020203 030201030102010330020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 00010202000100002f020103000201030002010301020103020202030102 010301020103300200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100002f02010300020103000201030102010303020203000201030102 010330020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100003002010301020103 02020103000201030102010300020103010201033002000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100003002010301020103020201030102030301020103010201033002 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100007a02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100007a0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 7a02000100000f02000100000f0200010000010201010100010200010000 100100007b0100001001000010010000010201010000b601000003010400 0001b00404000001010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101220434055804 010001020101010001020101220433050006580401000102010101000102 010122040105300701065804010001020101010001020101220401053007 010658040100010201010100010201012204010530070106580401000102 010101000102010122040105300701065804010001020101010001020101 220401053007010658040100010201010100010201012204010530070106 580401000102010101000102010122040105300701065804010001020101 010001020101220401053007010658040100010201010100010201012204 010530070106580401000102010101000102010122040105300701065804 010001020101010001020101220401053007010658040100010201010100 010201012204010530070106580401000102010101000102010122040105 300701065804010001020101010001020101220401053007010658040100 010201010100010201012204010530070106580401000102010101000102 010122040105300701065804010001020101010001020101220401053007 010658040100010201010100010201012204010530070106580401000102 010101000102010122040105300701065804010001020101010001020101 220401053007010658040100010201010100010201012204010530070106 580401000102010101000102010122040105300701065804010001020101 010001020101220401053007010658040100010201010100010201012204 010530070106580401000102010101000102010122040105300701065804 010001020101010001020101220401053007010658040100010201010100 010201012204010530070106580401000102010101000102010122040105 300701065804010001020101010001020101220401053007010658040100 010201010100010201012204010530070106580401000102010101000102 010122040105300701065804010001020101010001020101220401053206 580401000102010101000102010122040005330658040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010100000401 b0040100030104000001b00404000001010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b20001020101010001020001b30001020101010013020001 00008c02000100001302010101001302000100008c020001000013020101 0100140100008d01000015010000bb01 % % Run-length encoding savings = 89.0% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 370 1057 810 (place .x -x 0 -y 0) 810 SB 370 1657 1620 (place .x -x 1.0c -rely 0.5 -anchor w) 1620 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 10 10 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 10) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -2 2 SJ 320 266 1174 (The Placer, cont'd) 1174 SB %MSEPS Preamble 0 0 189 135 0 0 189 135 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 189 def /pp_by2 135 def 0 lc 0 lj 0 0 0 pC 0 1 SP gs 786 561 2015 1276 CB 785 560 2015 1276 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPlace4 %%Pages: 1 %%BoundingBox: 0 0 189 135 %%CreationDate: Thu Dec 1 14:12:42 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 189 135 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 24 string def /drawcolormappedimage { 189 135 8 [189 0 0 -135 0 135] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba dbf3f3 5d7988 9cc9e2 pop pop drawcolormappedimage d20000018d0000011500000101001302000100008c020001000013020101 01001302000100008c02000100001302010101000102120100008d010000 110101020101010001020001b3000102010101000102000100000f020001 00007a02000100000f02000100000f020001000001020101010001020001 00000f02000100007a02000100000f02000100000f020001000001020101 01000102000100000f02000100007a02000100000f02000100000f020001 00000102010101000102000100000f020001000039020103070201033402 000100000f02000100000202090002020001000001020101010001020001 00000f0200010000430201033402000100000f0200010000020200000702 00010202000100000102010101000102000100000f02000100002e020103 010201030102010300020103010203030102010300020103310200010000 0f0200010000020200000702000102020001000001020101010001020001 0000020209000202000100002e0201030102010301020103000201030002 010301020103000202030002010330020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100002f02010300020103000201030102010300020203 030201030102010330020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 00010202000100002f020103000201030002010301020103020202030102 010301020103300200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100002f02010300020103000201030102010303020203000201030102 010330020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100003002010301020103 02020103000201030102010300020103010201033002000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100003002010301020103020201030102030301020103010201033002 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100007a02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100007a0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 7a02000100000f02000100000f0200010000010201010100010200010000 100100007b0100001001000010010000010201010000b601000003010400 0001b00404000001010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b0040100010201010100010201015805570401000102 010101000102010157050006570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010101000102010101055407 010657040100010201010100010201010105540701065704010001020101 010001020101010554070106570401000102010100000401010554070106 570401000301040000010105540701065704040000010100010201010105 540701065704010001020101010001020101010554070106570401000102 010101000102010101055407010657040100010201010100010201010105 540701065704010001020101010001020101010554070106570401000102 010101000102010101055407010657040100010201010100010201010105 540701065704010001020101010001020101010554070106570401000102 010101000102010101055407010657040100010201010100010201010105 540701065704010001020101010001020101010554070106570401000102 010101000102010101055407010657040100010201010100010201010105 540701065704010001020101010001020101010554070106570401000102 010101000102010101055606570401000102010101000102010100055706 5704010001020101010001020101b20001020101010001020001b3000102 010101001302000100008c02000100001302010101001302000100008c02 00010000130201010100140100008d01000015010000bb01 % % Run-length encoding savings = 88.9% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 189 135 0 0 189 135 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 189 def /pp_by2 135 def gs 786 562 2015 575 CB 785 561 2015 575 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPlace3 %%Pages: 1 %%BoundingBox: 0 0 189 135 %%CreationDate: Thu Dec 1 14:12:42 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 189 135 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 24 string def /drawcolormappedimage { 189 135 8 [189 0 0 -135 0 135] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba dbf3f3 5d7988 9cc9e2 pop pop drawcolormappedimage d20000018d0000011500000101001302000100008c020001000013020101 01001302000100008c02000100001302010101000102120100008d010000 110101020101010001020001b3000102010101000102000100000f020001 00007a02000100000f02000100000f020001000001020101010001020001 00000f02000100007a02000100000f02000100000f020001000001020101 01000102000100000f02000100007a02000100000f02000100000f020001 00000102010101000102000100000f020001000039020103070201033402 000100000f02000100000202090002020001000001020101010001020001 00000f0200010000430201033402000100000f0200010000020200000702 00010202000100000102010101000102000100000f02000100002e020103 010201030102010300020103010203030102010300020103310200010000 0f0200010000020200000702000102020001000001020101010001020001 0000020209000202000100002e0201030102010301020103000201030002 010301020103000202030002010330020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100002f02010300020103000201030102010300020203 030201030102010330020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 00010202000100002f020103000201030002010301020103020202030102 010301020103300200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100002f02010300020103000201030102010303020203000201030102 010330020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100003002010301020103 02020103000201030102010300020103010201033002000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100003002010301020103020201030102030301020103010201033002 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100007a02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100007a0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 7a02000100000f02000100000f0200010000010201010100010200010000 100100007b0100001001000010010000010201010000b601000003010400 0001b00404000001010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 0100010201010100010201013e0434053c04010001020101010001020101 3e04330500063c040100010201010100010201013e040105300701063c04 0100010201010100010201013e040105300701063c040100010201010100 010201013e040105300701063c040100010201010100010201013e040105 300701063c040100010201010100010201013e040105300701063c040100 010201010100010201013e040105300701063c0401000102010101000102 01013e040105300701063c040100010201010100010201013e0401053007 01063c040100010201010100010201013e040105300701063c0401000102 01010100010201013e040105300701063c04010001020101010001020101 3e040105300701063c040100010201010100010201013e04010530070106 3c040100010201010100010201013e040105300701063c04010001020101 0100010201013e040105300701063c040100010201010100010201013e04 0105300701063c040100010201010100010201013e040105300701063c04 0100010201010100010201013e040105300701063c040100010201010100 010201013e040105300701063c040100010201010100010201013e040105 300701063c040100010201010100010201013e040105300701063c040100 010201010100010201013e040105300701063c0401000102010101000102 01013e040105300701063c040100010201010100010201013e0401053007 01063c040100010201010100010201013e040105300701063c0401000102 01010100010201013e040105300701063c04010001020101010001020101 3e040105300701063c040100010201010100010201013e04010530070106 3c040100010201010100010201013e040105300701063c04010001020101 0100010201013e040105300701063c040100010201010100010201013e04 0105300701063c040100010201010100010201013e040105300701063c04 0100010201010100010201013e040105300701063c040100010201010100 010201013e040105300701063c040100010201010100010201013e040105 300701063c040100010201010100010201013e040105300701063c040100 010201010100010201013e040105300701063c0401000102010101000102 01013e040105300701063c040100010201010100010201013e0401053007 01063c040100010201010100010201013e040105300701063c0401000102 01010100010201013e040105300701063c04010001020101010001020101 3e040105300701063c040100010201010100010201013e04010530070106 3c040100010201010100010201013e040105300701063c04010001020101 0100010201013e040105300701063c040100010201010100010201013e04 0105300701063c040100010201010100010201013e040105300701063c04 0100010201010100010201013e040105300701063c040100010201010100 010201013e040105300701063c040100010201010100010201013e040105 300701063c040100010201010100010201013e040105300701063c040100 010201010100010201013e040105300701063c0401000102010101000102 01013e040105300701063c040100010201010100010201013e0401053007 01063c040100010201010100010201013e040105300701063c0401000102 01010100010201013e040105300701063c04010001020101010001020101 3e040105300701063c040100010201010100010201013e04010530070106 3c040100010201010100010201013e040105300701063c04010001020101 0100010201013e040105300701063c040100010201010100010201013e04 0105300701063c040100010201010100010201013e040105300701063c04 0100010201010100010201013e040105300701063c040100010201010100 010201013e040105300701063c040100010201010100010201013e040105 300701063c040100010201010100010201013e040105300701063c040100 010201010100010201013e040105300701063c0401000102010101000102 01013e040105300701063c040100010201010100010201013e0401053206 3c04010001020101000004013e04000533063c040100030104000001b004 04000001010001020101b004010001020101010001020101b00401000102 0101010001020101b004010001020101010001020101b004010001020101 010001020101b004010001020101010001020101b0040100010201010100 01020101b004010001020101010001020101b00401000102010101000102 0101b004010001020101010001020101b004010001020101010001020101 b004010001020101010001020101b004010001020101010001020101b004 010001020101010001020101b004010001020101010001020101b0040100 01020101010001020101b004010001020101010001020101b20001020101 010001020001b3000102010101001302000100008c020001000013020101 01001302000100008c0200010000130201010100140100008d0100001501 0000bb01 % % Run-length encoding savings = 87.9% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 395 757 1350 (place .x -relx 0.5 -rely 0.5 \\) 1350 SB 395 847 1125 (-height 2c -anchor center) 1125 SB 395 1457 1125 (place .x -relheight 0.5 \\) 1125 SB 395 1547 1395 (-relwidth 0.5 -relx 0 -rely 0.5) 1395 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 11 11 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 11) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -1 1 SJ 320 266 739 (The Packer) 739 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 576 1336 (More powerful than the placer.) 1336 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 758 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 5 SJ 433 726 1540 (Arranges groups of slaves together \() 1540 SB 151 0 10 fC 1974 726 493 (packing list) 493 SB 0 0 0 fC 2467 726 58 (\).) 58 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 908 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 6 SJ 433 876 1917 (Packs slaves around edges of master's cavity.) 1917 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1058 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 4 SJ 433 1026 1039 (For each slave, in order:) 1039 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 320 1338 723 (1. Pick side of cavity.) 723 SB 320 1741 63 (2.) 63 SB -4 2 SJ 414 1741 513 (Slice off parcel) 513 SB -2 1 SJ 414 1831 312 (for slave.) 312 SB 1695 1741 63 (4.) 63 SB -2 1 SJ 1789 1741 467 (Position slave) 467 SB -1 1 SJ 1789 1831 311 (in parcel.) 311 SB 1695 1296 63 (3.) 63 SB 1 2 SJ 1789 1296 740 (Optionally grow slave) 740 SB -2 2 SJ 1789 1386 430 (to fill parcel.) 430 SB 0 lc 0 lj 0 0 0 pC 6 4 SP 0 150 136 fC /fm 256 def 74 124 1542 1015 B 1 F S n 252 254 185 fC /fm 256 def 449 349 1092 1215 B 1 F S n 255 255 255 fC /fm 256 def 299 249 1142 1315 B 1 F S n 252 1 40 fC /fm 256 def 1392 1388 M -52 -52 52 -52 0 26 52 0 0 52 -52 0 0 26 7 PP 1 F n 0 0 0 fC /fm 256 def 1392 1388 M -4 -10 0 -20 52 0 0 -44 -52 0 0 -20 -42 42 42 42 4 10 -52 -52 52 -52 0 26 52 0 0 52 -52 0 0 26 16 PP 1 F n 6 4 SP 252 254 185 fC /fm 256 def 449 349 1092 1665 B 1 F S n 255 255 255 fC /fm 256 def 299 249 1142 1765 B 1 F S n 162 193 254 fC /fm 256 def 129 254 1315 1763 B 1 F n 6 4 SP 299 249 1142 1765 B S n 0 150 136 fC /fm 256 def 74 249 2667 1265 B 1 F S n 252 254 185 fC /fm 256 def 449 349 2517 1665 B 1 F S n 255 255 255 fC /fm 256 def 174 249 2567 1765 B 1 F S n 0 150 136 fC /fm 256 def 74 249 2792 1765 B 1 F S n 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 12 12 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 12) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1797 (The Packer: Choosing Sides) 1797 SB 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 295 632 855 (button .ok -text OK) 855 SB 295 722 1215 (button .cancel -text Cancel) 1215 SB 295 812 1035 (button .help -text Help) 1035 SB 295 902 1035 (pack .ok .cancel .help ) 1035 SB 151 0 10 fC 1330 902 450 (-side left) 450 SB %MSEPS Preamble 0 0 192 61 0 0 192 61 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 192 def /pp_by2 61 def 0 lc 0 lj 0 0 0 pC 0 1 SP gs 599 189 2164 716 CB 598 188 2164 716 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkSd1 %%Pages: 1 %%BoundingBox: 0 0 192 61 %%CreationDate: Thu Dec 1 14:21:10 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 192 61 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 192 61 8 [192 0 0 -61 0 61] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage d5000001900000011500000101001302000100008f020001000013020101 01001302000100008f020001000013020101010001021201000090010000 110101020101010001020001b6000102010101000102000100000f020001 00007d02000100000f02000100000f020001000001020101010001020001 00000f02000100007d02000100000f02000100000f020001000001020101 01000102000100000f02000100007d02000100000f02000100000f020001 00000102010101000102000100000f02000100003b020103070201033502 000100000f02000100000202090002020001000001020101010001020001 00000f0200010000450201033502000100000f0200010000020200000702 00010202000100000102010101000102000100000f020001000030020103 010201030102010300020103010203030102010300020103320200010000 0f0200010000020200000702000102020001000001020101010001020001 000002020900020200010000300201030102010301020103000201030002 010301020103000202030002010331020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100003102010300020103000201030102010300020203 030201030102010331020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 000102020001000031020103000201030002010301020103020202030102 010301020103310200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100003102010300020103000201030102010303020203000201030102 010331020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100003202010301020103 02020103000201030102010300020103010201033102000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100003202010301020103020201030102030301020103010201033102 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100007d02000100000f0200010000020200000801 020200010000010201010000030100000f02000100007d02000100000f02 000100000f0200010000030105000f02000100007d02000100000f020001 00000f020001030000010100010200010000100100007e01000010010000 100100000102010101000102b601000001020101010001020101b3040100 01020101010001020101b30401000102010101000102010101042e000304 420003043500010401000102010101000102010101042d00000503044100 00050304340000050104010001020101010001020101010401002a040105 030401003e04010503040100310401050104010001020101010001020101 010401002a040105030401003e0401050304010031040105010401000102 0101010001020101010401002a040105030401003e040105030401003104 01050104010001020101010001020101010401002a040105030401003e04 010503040100310401050104010001020101010001020101010401002a04 0105030401003e0401050304010031040105010401000102010101000102 0101010401002a040105030401003e040105030401003104010501040100 01020101010001020101010401000d04030303040103020401030d040105 030401000d0403031c0401030d040105030401000b040103020401030704 0103140401050104010001020101010001020101010401000c0401030104 010302040103010401030e040105030401000c040103010401031b040103 0d040105030401000b040103020401030704010314040105010401000102 0101010001020101010401000b0401030304010301040103000401030f04 0105030401000b0401030504030301040103000401030204030302040303 010401030d040105030401000b0401030204010301040303010401030004 0103000401030e0401050104010001020101010001020101010401000b04 0103030401030104030310040105030401000b0401030404010301040103 000402030004010300040103010401030004010301040103000401030d04 0105030401000b0401030204010300040103010401030004010300040203 000401030d0401050104010001020101010001020101010401000b040103 030401030104030310040105030401000b04010308040103000401030104 0103000401030404010301040103000401030d040105030401000b040603 00040103010401030004010300040103010401030d040105010401000102 0101010001020101010401000b0401030304010301040103000401030f04 0105030401000b0401030504040300040103010401030004010304040503 000401030d040105030401000b0401030204010300040503000401030004 0103010401030d0401050104010001020101010001020101010401000b04 01030304010301040103010401030e040105030401000b04010304040103 0104010300040103010401030004010304040103040401030d0401050304 01000b04010302040103000401030404010300040103010401030d040105 010401000102010100000401010401000c04010301040103020401030204 01030d040105030401000c04010301040303010401030004010301040103 00040103010401030004010301040103000401030d040105030401000b04 01030204010300040103010401030004010300040203000401030d040105 01040100030104000001010401000d04030303040103030401030c040105 030401000d04030301040203000403030104010301040303020403030104 01030d040105030401000b04010302040103010403030104010300040103 000401030e040105010404000001010001020101010401002a0401050304 01003e040105030401001d04010311040105010401000102010101000102 0101010401002a040105030401003e040105030401001d04010311040105 0104010001020101010001020101010401002a040105030401003e040105 030401001d04010311040105010401000102010101000102010101040100 2a040105030401003e040105030401003104010501040100010201010100 01020101010401002a040105030401003e04010503040100310401050104 010001020101010001020101010401002a040105030401003e0401050304 0100310401050104010001020101010001020101010401002a0401050304 01003e040105030401003104010501040100010201010100010201010104 01002a040105030401003e04010503040100310401050104010001020101 010001020101010401002a040105030401003e0401050304010031040105 0104010001020101010001020101010401002c0503040100400503040100 33050104010001020101010001020101010400002d050304000041050304 000034050104010001020101010001020101b30401000102010101000102 0101b304010001020101010001020101b50001020101010001020001b600 0102010101001302000100008f0200010000130201010100130200010000 8f0200010000130201010100140100009001000015010000be01 % % Run-length encoding savings = 76.7% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 254 61 0 0 254 61 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 254 def /pp_by2 61 def gs 793 189 2164 1190 CB 792 188 2164 1190 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkSd2 %%Pages: 1 %%BoundingBox: 0 0 254 61 %%CreationDate: Thu Dec 1 14:21:10 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 254 61 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 254 61 8 [254 0 0 -61 0 61] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe0014000001ce000001150000010100130200010000cd02000100001302 01010100130200010000cd0200010000130201010100010212010000ce01 0000110101020101010001020001f4000102010101000102000100000f02 00010000bb02000100000f02000100000f02000100000102010101000102 000100000f0200010000bb02000100000f02000100000f02000100000102 010101000102000100000f0200010000bb02000100000f02000100000f02 000100000102010101000102000100000f02000100005a02010307020103 5402000100000f0200010000020209000202000100000102010101000102 000100000f0200010000640201035402000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100004f02 010301020103010201030002010301020303010201030002010351020001 00000f020001000002020000070200010202000100000102010101000102 00010000020209000202000100004f020103010201030102010300020103 000201030102010300020203000201035002000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000500201030002010300020103010201030002 020303020103010201035002000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100005002010300020103000201030102010302020203 010201030102010350020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000500201030002010300020103010201030302020300020103 010201035002000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000510201030102 010302020103000201030102010300020103010201035002000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000510201030102010302020103010203030102010301020103 5002000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000bb02000100000f020001000002020000 0801020200010000010201010000030100000f0200010000bb0200010000 0f02000100000f0200010000030105000f0200010000bb02000100000f02 000100000f02000103000001010001020001000010010000bc0100001001 0000100100000102010101000102f401000001020101010001020101f104 010001020101010001020101f10401000102010101000102010101042e00 0304800003043500010401000102010101000102010101042d0000050304 7f0000050304340000050104010001020101010001020101010401002a04 0105030401007c0401050304010031040105010401000102010101000102 0101010401002a040105030401007c040105030401003104010501040100 01020101010001020101010401002a040105030401007c04010503040100 310401050104010001020101010001020101010401002a04010503040100 7c0401050304010031040105010401000102010101000102010101040100 2a040105030401007c040105030401003104010501040100010201010100 01020101010401002a040105030401007c04010503040100310401050104 010001020101010001020101010401000d04030303040103020401030d04 0105030401000d0403031c040103070403032f0401030d04010503040100 0b0401030204010307040103140401050104010001020101010001020101 010401000c0401030104010302040103010401030e040105030401000c04 0103010401031b04010306040103010401032e0401030d04010503040100 0b0401030204010307040103140401050104010001020101010001020101 010401000b0401030304010301040103000401030f040105030401000b04 010305040303010401030004010302040303020403030104010305040103 050403030104000300040203000402030104000300040203000402030204 0303010401030004010302040103000401030d040105030401000b040103 02040103010403030104010300040103000401030e040105010401000102 0101010001020101010401000b0401030304010301040303100401050304 01000b040103040401030104010300040203000401030004010301040103 000401030104010300040103050401030404010301040103000401030104 010301040103000401030104010301040103000401030104010300040203 0004010300040103000402030d040105030401000b040103020401030004 0103010401030004010300040203000401030d0401050104010001020101 010001020101010401000b04010303040103010403031004010503040100 0b0401030804010300040103010401030004010304040103010401030004 010305040103040401030104010300040103010401030104010300040103 010401030104010304040103000401030104010300040103010401030d04 0105030401000b0406030004010301040103000401030004010301040103 0d0401050104010001020101010001020101010401000b04010303040103 01040103000401030f040105030401000b04010305040403000401030104 010300040103040405030004010305040103040401030104010300040103 010401030104010300040103010401030104010301040403000401030104 010300040103010401030d040105030401000b0401030204010300040503 0004010300040103010401030d0401050104010001020101010001020101 010401000b0401030304010301040103010401030e040105030401000b04 010304040103010401030004010301040103000401030404010304040103 050401030404010301040103000401030104010301040103000401030104 010301040103000401030104010300040103010401030004010301040103 0d040105030401000b040103020401030004010304040103000401030104 01030d040105010401000102010100000401010401000c04010301040103 02040103020401030d040105030401000c04010301040303010401030004 010301040103000401030104010300040103010401030004010306040103 010403030104010300040103010401030104010300040103010401030104 01030004010301040103000401030104010300040103000402030d040105 030401000b04010302040103000401030104010300040103000402030004 01030d04010501040100030104000001010401000d040303030401030304 01030c040105030401000d04030301040203000403030104010301040303 020403030104010307040303010403030104010301040103010401030004 010301040103010401030104020300040303010401030104010300040103 0d040105030401000b040103020401030104030301040103000401030004 01030e040105010404000001010001020101010401002a04010503040100 7c040105030401001d040103110401050104010001020101010001020101 010401002a040105030401007c040105030401001d040103110401050104 010001020101010001020101010401002a040105030401007c0401050304 01001d040103110401050104010001020101010001020101010401002a04 0105030401007c0401050304010031040105010401000102010101000102 0101010401002a040105030401007c040105030401003104010501040100 01020101010001020101010401002a040105030401007c04010503040100 310401050104010001020101010001020101010401002a04010503040100 7c0401050304010031040105010401000102010101000102010101040100 2a040105030401007c040105030401003104010501040100010201010100 01020101010401002a040105030401007c04010503040100310401050104 010001020101010001020101010401002c05030401007e05030401003305 0104010001020101010001020101010400002d05030400007f0503040000 34050104010001020101010001020101f104010001020101010001020101 f104010001020101010001020101f30001020101010001020001f4000102 01010100130200010000cd0200010000130201010100130200010000cd02 0001000013020101010014010000ce01000015010000fc01 % % Run-length encoding savings = 79.7% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 145 125 0 0 145 125 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 145 def /pp_by2 125 def gs 452 389 2164 1566 CB 451 388 2164 1566 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkSd3 %%Pages: 1 %%BoundingBox: 0 0 145 125 %%CreationDate: Thu Dec 1 14:21:11 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 145 125 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 145 125 8 [145 0 0 -125 0 125] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage a60000016100000115000001010013020001000060020001000013020101 010013020001000060020001000013020101010001021201000061010000 11010102010101000102000187000102010101000102000100000f020001 00004e02000100000f02000100000f020001000001020101010001020001 00000f02000100004e02000100000f02000100000f020001000001020101 01000102000100000f02000100004e02000100000f02000100000f020001 00000102010101000102000100000f020001000023020103070201031e02 000100000f02000100000202090002020001000001020101010001020001 00000f02000100002d0201031e02000100000f0200010000020200000702 00010202000100000102010101000102000100000f020001000018020103 0102010301020103000201030102030301020103000201031b0200010000 0f0200010000020200000702000102020001000001020101010001020001 000002020900020200010000180201030102010301020103000201030002 01030102010300020203000201031a020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100001902010300020103000201030102010300020203 03020103010201031a020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 000102020001000019020103000201030002010301020103020202030102 0103010201031a0200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100001902010300020103000201030102010303020203000201030102 01031a020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100001a02010301020103 02020103000201030102010300020103010201031a02000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100001a02010301020103020201030102030301020103010201031a02 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100004e02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100004e0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 4e02000100000f02000100000f0200010000010201010100010200010000 100100004f01000010010000100100000102010100008a01000003010400 000184040400000101000102010184040100010201010100010201012a04 2e002a040100010201010100010201012a042d0000052a04010001020101 0100010201012a0401002a0401052a040100010201010100010201012a04 01002a0401052a040100010201010100010201012a0401002a0401052a04 0100010201010100010201012a0401002a0401052a040100010201010100 010201012a0401002a0401052a040100010201010100010201012a040100 2a0401052a040100010201010100010201012a0401000d04030303040103 020401030d0401052a040100010201010100010201012a0401000c040103 0104010302040103010401030e0401052a04010001020101010001020101 2a0401000b0401030304010301040103000401030f0401052a0401000102 01010100010201012a0401000b0401030304010301040303100401052a04 0100010201010100010201012a0401000b04010303040103010403031004 01052a040100010201010100010201012a0401000b040103030401030104 0103000401030f0401052a040100010201010100010201012a0401000b04 01030304010301040103010401030e0401052a0401000102010101000102 01012a0401000c0401030104010302040103020401030d0401052a040100 010201010100010201012a0401000d04030303040103030401030c040105 2a040100010201010100010201012a0401002a0401052a04010001020101 0100010201012a0401002a0401052a040100010201010100010201012a04 01002a0401052a040100010201010100010201012a0401002a0401052a04 0100010201010100010201012a0401002a0401052a040100010201010100 010201012a0401002a0401052a040100010201010100010201012a040100 2a0401052a040100010201010100010201012a0401002a0401052a040100 010201010100010201012a0401002a0401052a0401000102010101000102 01012a0401002c052a040100010201010100010201012a0400002d052a04 010001020101010001020101840401000102010101000102010184040100 010201010100010201018404010001020101010001020101840401000102 010101000102010101048000010401000102010101000102010101047f00 00050104010001020101010001020101010401007c040105010401000102 0101010001020101010401007c0401050104010001020101010001020101 010401007c0401050104010001020101010001020101010401007c040105 0104010001020101010001020101010401007c0401050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01000d0403031c040103070403032f0401030d0401050104010001020101 010001020101010401000c040103010401031b0401030604010301040103 2e0401030d0401050104010001020101010001020101010401000b040103 050403030104010300040103020403030204030301040103050401030504 030301040003000402030004020301040003000402030004020302040303 010401030004010302040103000401030d04010501040100010201010100 01020101010401000b040103040401030104010300040203000401030004 010301040103000401030104010300040103050401030404010301040103 000401030104010301040103000401030104010301040103000401030104 0103000402030004010300040103000402030d0401050104010001020101 010001020101010401000b04010308040103000401030104010300040103 040401030104010300040103050401030404010301040103000401030104 010301040103000401030104010301040103040401030004010301040103 00040103010401030d040105010401000102010101000102010101040100 0b0401030504040300040103010401030004010304040503000401030504 010304040103010401030004010301040103010401030004010301040103 0104010301040403000401030104010300040103010401030d0401050104 010001020101010001020101010401000b04010304040103010401030004 010301040103000401030404010304040103050401030404010301040103 000401030104010301040103000401030104010301040103000401030104 0103000401030104010300040103010401030d0401050104010001020101 010001020101010401000c04010301040303010401030004010301040103 000401030104010300040103010401030004010306040103010403030104 010300040103010401030104010300040103010401030104010300040103 01040103000401030104010300040103000402030d040105010401000102 0101010001020101010401000d0403030104020300040303010401030104 030302040303010401030704030301040303010401030104010301040103 000401030104010301040103010402030004030301040103010401030004 01030d0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401007c040105010401000102010101000102010101040100 7c0401050104010001020101010001020101010401007c04010501040100 01020101010001020101010401007c040105010401000102010101000102 0101010401007c0401050104010001020101010001020101010401007c04 01050104010001020101010001020101010401007c040105010401000102 0101010001020101010401007e0501040100010201010100010201010104 00007f050104010001020101010001020101840401000102010101000102 010184040100010201010100010201018404010001020101010001020101 840401000102010101000102010126043500270401000102010101000102 010126043400000527040100010201010100010201012604010031040105 270401000102010101000102010126040100310401052704010001020101 010001020101260401003104010527040100010201010100010201012604 010031040105270401000102010101000102010126040100310401052704 010001020101010001020101260401003104010527040100010201010100 01020101260401000b040103020401030704010314040105270401000102 0101010001020101260401000b0401030204010307040103140401052704 010001020101010001020101260401000b04010302040103010403030104 010300040103000401030e04010527040100010201010100010201012604 01000b040103020401030004010301040103000401030004020300040103 0d040105270401000102010100000401260401000b040603000401030104 01030004010300040103010401030d040105270401000301040000012604 01000b04010302040103000405030004010300040103010401030d040105 270404000001010001020101260401000b04010302040103000401030404 010300040103010401030d04010527040100010201010100010201012604 01000b040103020401030004010301040103000401030004020300040103 0d0401052704010001020101010001020101260401000b04010302040103 010403030104010300040103000401030e04010527040100010201010100 01020101260401001d040103110401052704010001020101010001020101 260401001d04010311040105270401000102010101000102010126040100 1d0401031104010527040100010201010100010201012604010031040105 270401000102010101000102010126040100310401052704010001020101 010001020101260401003104010527040100010201010100010201012604 010031040105270401000102010101000102010126040100310401052704 010001020101010001020101260401003104010527040100010201010100 010201012604010033052704010001020101010001020101260400003405 270401000102010101000102010184040100010201010100010201018404 010001020101010001020101860001020101010001020001870001020101 010013020001000060020001000013020101010013020001000060020001 00001302010101001401000061010000150100008f01 % % Run-length encoding savings = 77.7% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 0 150 136 fC 295 1241 1800 (.cancel configure -text "Cancel Command") 1800 SB 295 1717 1035 (pack .ok .cancel .help ) 1035 SB 151 0 10 fC 1330 1717 405 (-side top) 405 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 13 13 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 13) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -2 2 SJ 320 266 1360 (The Packer: Padding) 1360 SB 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 220 689 1575 (pack .ok .cancel .help -side left \\) 1575 SB 151 0 10 fC 220 779 765 (-padx 2m -pady 1m) 765 SB 0 150 136 fC 220 1164 1575 (pack .ok .cancel .help -side left \\) 1575 SB 151 0 10 fC 220 1254 855 (-ipadx 2m -ipady 1m) 855 SB 0 150 136 fC 220 1645 1575 (pack .ok .cancel .help -side left \\) 1575 SB 151 0 10 fC 220 1735 1665 (-padx 2m -pady 1m -ipadx 2m -ipady 1m) 1665 SB %MSEPS Preamble 0 0 234 69 0 0 234 69 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 234 def /pp_by2 69 def 0 lc 0 lj 0 0 0 pC 0 1 SP gs 730 214 2112 670 CB 729 213 2112 670 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkPad1 %%Pages: 1 %%BoundingBox: 0 0 234 69 %%CreationDate: Thu Dec 1 14:21:11 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 234 69 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 234 69 8 [234 0 0 -69 0 69] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe0000000001ba000001150000010100130200010000b902000100001302 01010100130200010000b90200010000130201010100010212010000ba01 0000110101020101010001020001e0000102010101000102000100000f02 00010000a702000100000f02000100000f02000100000102010101000102 000100000f0200010000a702000100000f02000100000f02000100000102 010101000102000100000f0200010000a702000100000f02000100000f02 000100000102010101000102000100000f02000100005002010307020103 4a02000100000f0200010000020209000202000100000102010101000102 000100000f02000100005a0201034a02000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100004502 010301020103010201030002010301020303010201030002010347020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000045020103010201030102010300020103 000201030102010300020203000201034602000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000460201030002010300020103010201030002 020303020103010201034602000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100004602010300020103000201030102010302020203 010201030102010346020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000460201030002010300020103010201030302020300020103 010201034602000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000470201030102 010302020103000201030102010300020103010201034602000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000470201030102010302020103010203030102010301020103 4602000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000a702000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000a7020001 00000f02000100000f02000100000102010101000102000100000f020001 0000a702000100000f02000100000f020001000001020101010001020001 000010010000a80100001001000010010000010201010000e30100000301 04000001dd0404000001010001020101dd04010001020101010001020101 dd04010001020101010001020101dd04010001020101010001020101dd04 010001020101010001020101dd0401000102010101000102010108042e00 1104420011043500080401000102010101000102010108042d0000051104 410000051104340000050804010001020101010001020101080401002a04 0105110401003e0401051104010031040105080401000102010101000102 0101080401002a040105110401003e040105110401003104010508040100 01020101010001020101080401002a040105110401003e04010511040100 310401050804010001020101010001020101080401002a04010511040100 3e0401051104010031040105080401000102010101000102010108040100 2a040105110401003e040105110401003104010508040100010201010100 01020101080401002a040105110401003e04010511040100310401050804 010001020101010001020101080401000d04030303040103020401030d04 0105110401000d0403031c0401030d040105110401000b04010302040103 07040103140401050804010001020101010001020101080401000c040103 0104010302040103010401030e040105110401000c040103010401031b04 01030d040105110401000b04010302040103070401031404010508040100 01020101010001020101080401000b040103030401030104010300040103 0f040105110401000b040103050403030104010300040103020403030204 0303010401030d040105110401000b040103020401030104030301040103 00040103000401030e040105080401000102010101000102010108040100 0b040103030401030104030310040105110401000b040103040401030104 010300040203000401030004010301040103000401030104010300040103 0d040105110401000b040103020401030004010301040103000401030004 0203000401030d0401050804010001020101010001020101080401000b04 0103030401030104030310040105110401000b0401030804010300040103 01040103000401030404010301040103000401030d040105110401000b04 060300040103010401030004010300040103010401030d04010508040100 01020101010001020101080401000b040103030401030104010300040103 0f040105110401000b040103050404030004010301040103000401030404 0503000401030d040105110401000b040103020401030004050300040103 00040103010401030d040105080401000102010101000102010108040100 0b0401030304010301040103010401030e040105110401000b0401030404 01030104010300040103010401030004010304040103040401030d040105 110401000b04010302040103000401030404010300040103010401030d04 01050804010001020101010001020101080401000c040103010401030204 0103020401030d040105110401000c040103010403030104010300040103 0104010300040103010401030004010301040103000401030d0401051104 01000b040103020401030004010301040103000401030004020300040103 0d040105080401000102010100000401080401000d040303030401030304 01030c040105110401000d04030301040203000403030104010301040303 02040303010401030d040105110401000b04010302040103010403030104 010300040103000401030e04010508040100030104000001080401002a04 0105110401003e040105110401001d040103110401050804040000010100 01020101080401002a040105110401003e040105110401001d0401031104 01050804010001020101010001020101080401002a040105110401003e04 0105110401001d0401031104010508040100010201010100010201010804 01002a040105110401003e04010511040100310401050804010001020101 010001020101080401002a040105110401003e0401051104010031040105 0804010001020101010001020101080401002a040105110401003e040105 11040100310401050804010001020101010001020101080401002a040105 110401003e04010511040100310401050804010001020101010001020101 080401002a040105110401003e0401051104010031040105080401000102 0101010001020101080401002a040105110401003e040105110401003104 01050804010001020101010001020101080401002c051104010040051104 010033050804010001020101010001020101080400002d05110400004105 1104000034050804010001020101010001020101dd040100010201010100 01020101dd04010001020101010001020101dd0401000102010101000102 0101dd04010001020101010001020101dd04010001020101010001020101 dd04010001020101010001020101df0001020101010001020001e0000102 01010100130200010000b90200010000130201010100130200010000b902 0001000013020101010014010000ba01000015010000e801 % % Run-length encoding savings = 82.4% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 234 69 0 0 234 69 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 234 def /pp_by2 69 def gs 730 214 2112 1145 CB 729 213 2112 1145 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkPad2 %%Pages: 1 %%BoundingBox: 0 0 234 69 %%CreationDate: Thu Dec 1 14:21:12 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 234 69 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 234 69 8 [234 0 0 -69 0 69] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe0000000001ba000001150000010100130200010000b902000100001302 01010100130200010000b90200010000130201010100010212010000ba01 0000110101020101010001020001e0000102010101000102000100000f02 00010000a702000100000f02000100000f02000100000102010101000102 000100000f0200010000a702000100000f02000100000f02000100000102 010101000102000100000f0200010000a702000100000f02000100000f02 000100000102010101000102000100000f02000100005002010307020103 4a02000100000f0200010000020209000202000100000102010101000102 000100000f02000100005a0201034a02000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100004502 010301020103010201030002010301020303010201030002010347020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000045020103010201030102010300020103 000201030102010300020203000201034602000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000460201030002010300020103010201030002 020303020103010201034602000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100004602010300020103000201030102010302020203 010201030102010346020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000460201030002010300020103010201030302020300020103 010201034602000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000470201030102 010302020103000201030102010300020103010201034602000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000470201030102010302020103010203030102010301020103 4602000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000a702000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000a7020001 00000f02000100000f02000100000102010101000102000100000f020001 0000a702000100000f02000100000f020001000001020101010001020001 000010010000a80100001001000010010000010201010000e30100000301 04000001dd0404000001010001020101dd04010001020101010001020101 01043c000304500003044300010401000102010101000102010101043b00 000503044f00000503044200000501040100010201010100010201010104 010038040105030401004c040105030401003f0401050104010001020101 0100010201010104010038040105030401004c040105030401003f040105 01040100010201010100010201010104010038040105030401004c040105 030401003f04010501040100010201010100010201010104010038040105 030401004c040105030401003f0401050104010001020101010001020101 0104010038040105030401004c040105030401003f040105010401000102 01010100010201010104010038040105030401004c040105030401003f04 010501040100010201010100010201010104010038040105030401004c04 0105030401003f0401050104010001020101010001020101010401003804 0105030401004c040105030401003f040105010401000102010101000102 01010104010038040105030401004c040105030401003f04010501040100 010201010100010201010104010038040105030401004c04010503040100 3f0401050104010001020101010001020101010401001404030303040103 020401031404010503040100140403031c04010314040105030401001204 010302040103070401031b04010501040100010201010100010201010104 010013040103010401030204010301040103150401050304010013040103 010401031b04010314040105030401001204010302040103070401031b04 010501040100010201010100010201010104010012040103030401030104 010300040103160401050304010012040103050403030104010300040103 020403030204030301040103140401050304010012040103020401030104 030301040103000401030004010315040105010401000102010101000102 010101040100120401030304010301040303170401050304010012040103 040401030104010300040203000401030004010301040103000401030104 010300040103140401050304010012040103020401030004010301040103 000401030004020300040103140401050104010001020101010001020101 010401001204010303040103010403031704010503040100120401030804 010300040103010401030004010304040103010401030004010314040105 030401001204060300040103010401030004010300040103010401031404 010501040100010201010100010201010104010012040103030401030104 010300040103160401050304010012040103050404030004010301040103 000401030404050300040103140401050304010012040103020401030004 050300040103000401030104010314040105010401000102010101000102 010101040100120401030304010301040103010401031504010503040100 120401030404010301040103000401030104010300040103040401030404 010314040105030401001204010302040103000401030404010300040103 010401031404010501040100010201010100010201010104010013040103 010401030204010302040103140401050304010013040103010403030104 010300040103010401030004010301040103000401030104010300040103 140401050304010012040103020401030004010301040103000401030004 020300040103140401050104010001020101000004010104010014040303 030401030304010313040105030401001404030301040203000403030104 010301040303020403030104010314040105030401001204010302040103 010403030104010300040103000401031504010501040100030104000001 0104010038040105030401004c0401050304010024040103180401050104 040000010100010201010104010038040105030401004c04010503040100 240401031804010501040100010201010100010201010104010038040105 030401004c04010503040100240401031804010501040100010201010100 010201010104010038040105030401004c040105030401003f0401050104 0100010201010100010201010104010038040105030401004c0401050304 01003f040105010401000102010101000102010101040100380401050304 01004c040105030401003f04010501040100010201010100010201010104 010038040105030401004c040105030401003f0401050104010001020101 0100010201010104010038040105030401004c040105030401003f040105 01040100010201010100010201010104010038040105030401004c040105 030401003f04010501040100010201010100010201010104010038040105 030401004c040105030401003f0401050104010001020101010001020101 0104010038040105030401004c040105030401003f040105010401000102 01010100010201010104010038040105030401004c040105030401003f04 010501040100010201010100010201010104010038040105030401004c04 0105030401003f0401050104010001020101010001020101010401003a05 030401004e05030401004105010401000102010101000102010101040000 3b05030400004f050304000042050104010001020101010001020101dd04 010001020101010001020101dd04010001020101010001020101df000102 0101010001020001e000010201010100130200010000b902000100001302 01010100130200010000b9020001000013020101010014010000ba010000 15010000e801 % % Run-length encoding savings = 81.2% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 276 77 0 0 276 77 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 276 def /pp_by2 77 def gs 861 239 2047 1614 CB 860 238 2047 1614 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkPad3 %%Pages: 1 %%BoundingBox: 0 0 276 77 %%CreationDate: Thu Dec 1 14:21:13 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 276 77 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 276 77 8 [276 0 0 -77 0 77] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe002a000001e4000001150000010100130200010000e302000100001302 01010100130200010000e30200010000130201010100010212010000e401 0000110101020101010001020001fe000b00010201010100010200010000 0f0200010000d102000100000f02000100000f0200010000010201010100 0102000100000f0200010000d102000100000f02000100000f0200010000 0102010101000102000100000f0200010000d102000100000f0200010000 0f02000100000102010101000102000100000f0200010000650201030702 01035f02000100000f020001000002020900020200010000010201010100 0102000100000f02000100006f0201035f02000100000f02000100000202 0000070200010202000100000102010101000102000100000f0200010000 5a0201030102010301020103000201030102030301020103000201035c02 000100000f02000100000202000007020001020200010000010201010100 010200010000020209000202000100005a02010301020103010201030002 0103000201030102010300020203000201035b0200010000050203000502 000100000202000007020001020200010000010201010100010200010000 02020000070200010202000100005b020103000201030002010301020103 0002020303020103010201035b0200010000050200000102000105020001 000002020000070200010202000100000102010101000102000100000202 0000070200010202000100005b0201030002010300020103010201030202 020301020103010201035b02000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 08010202000100005b020103000201030002010301020103030202030002 0103010201035b0200010000050200000201050200010000020200000702 00010202000100000102010101000102000100000f02000100005c020103 0102010302020103000201030102010300020103010201035b0200010000 0f0200010000020200000702000102020001000001020101010001020001 00000f02000100005c020103010201030202010301020303010201030102 01035b02000100000f020001000002020000070200010202000100000102 010101000102000100000f0200010000d102000100000f02000100000202 000008010202000100000102010101000102000100000f0200010000d102 000100000f02000100000f02000100000102010101000102000100000f02 00010000d102000100000f02000100000f02000100000102010101000102 0001000010010000d20100001001000010010000010201010000fe010e01 0000030104000001fe04080404000001010001020101fe04080401000102 0101010001020101fe040804010001020101010001020101fe0408040100 01020101010001020101fe040804010001020101010001020101fe040804 01000102010101000102010108043c001104500011044300080401000102 010101000102010108043b00000511044f00000511044200000508040100 010201010100010201010804010038040105110401004c04010511040100 3f0401050804010001020101010001020101080401003804010511040100 4c040105110401003f040105080401000102010101000102010108040100 38040105110401004c040105110401003f04010508040100010201010100 010201010804010038040105110401004c040105110401003f0401050804 0100010201010100010201010804010038040105110401004c0401051104 01003f040105080401000102010101000102010108040100380401051104 01004c040105110401003f04010508040100010201010100010201010804 010038040105110401004c040105110401003f0401050804010001020101 0100010201010804010038040105110401004c040105110401003f040105 08040100010201010100010201010804010038040105110401004c040105 110401003f04010508040100010201010100010201010804010038040105 110401004c040105110401003f0401050804010001020101010001020101 080401001404030303040103020401031404010511040100140403031c04 010314040105110401001204010302040103070401031b04010508040100 010201010100010201010804010013040103010401030204010301040103 150401051104010013040103010401031b04010314040105110401001204 010302040103070401031b04010508040100010201010100010201010804 010012040103030401030104010300040103160401051104010012040103 050403030104010300040103020403030204030301040103140401051104 010012040103020401030104030301040103000401030004010315040105 080401000102010101000102010108040100120401030304010301040303 170401051104010012040103040401030104010300040203000401030004 010301040103000401030104010300040103140401051104010012040103 020401030004010301040103000401030004020300040103140401050804 010001020101010001020101080401001204010303040103010403031704 010511040100120401030804010300040103010401030004010304040103 010401030004010314040105110401001204060300040103010401030004 010300040103010401031404010508040100010201010100010201010804 010012040103030401030104010300040103160401051104010012040103 050404030004010301040103000401030404050300040103140401051104 010012040103020401030004050300040103000401030104010314040105 080401000102010101000102010108040100120401030304010301040103 010401031504010511040100120401030404010301040103000401030104 010300040103040401030404010314040105110401001204010302040103 000401030404010300040103010401031404010508040100010201010100 010201010804010013040103010401030204010302040103140401051104 010013040103010403030104010300040103010401030004010301040103 000401030104010300040103140401051104010012040103020401030004 010301040103000401030004020300040103140401050804010001020101 010001020101080401001404030303040103030401031304010511040100 140403030104020300040303010401030104030302040303010401031404 010511040100120401030204010301040303010401030004010300040103 150401050804010001020101010001020101080401003804010511040100 4c0401051104010024040103180401050804010001020101010001020101 0804010038040105110401004c0401051104010024040103180401050804 0100010201010100010201010804010038040105110401004c0401051104 010024040103180401050804010001020101000004010804010038040105 110401004c040105110401003f0401050804010003010400000108040100 38040105110401004c040105110401003f04010508040400000101000102 01010804010038040105110401004c040105110401003f04010508040100 010201010100010201010804010038040105110401004c04010511040100 3f0401050804010001020101010001020101080401003804010511040100 4c040105110401003f040105080401000102010101000102010108040100 38040105110401004c040105110401003f04010508040100010201010100 010201010804010038040105110401004c040105110401003f0401050804 0100010201010100010201010804010038040105110401004c0401051104 01003f040105080401000102010101000102010108040100380401051104 01004c040105110401003f04010508040100010201010100010201010804 010038040105110401004c040105110401003f0401050804010001020101 010001020101080401003a05110401004e05110401004105080401000102 0101010001020101080400003b05110400004f0511040000420508040100 01020101010001020101fe040804010001020101010001020101fe040804 010001020101010001020101fe040804010001020101010001020101fe04 0804010001020101010001020101fe040804010001020101010001020101 fe040804010001020101010001020101fe000a0001020101010001020001 fe000b00010201010100130200010000e302000100001302010101001302 00010000e3020001000013020101010014010000e401000015010000fe01 1301 % % Run-length encoding savings = 85.0% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 14 14 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 14) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -2 2 SJ 320 266 1245 (The Packer: Filling) 1245 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 320 576 1272 (Stretch widgets to fill parcels:) 1272 SB %MSEPS Preamble 0 0 145 125 0 0 145 125 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 145 def /pp_by2 125 def 0 lc 0 lj 0 0 0 pC 0 1 SP gs 452 389 2235 816 CB 451 388 2235 816 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkFil1 %%Pages: 1 %%BoundingBox: 0 0 145 125 %%CreationDate: Thu Dec 1 14:22:48 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 145 125 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 145 125 8 [145 0 0 -125 0 125] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage a60000016100000115000001010013020001000060020001000013020101 010013020001000060020001000013020101010001021201000061010000 11010102010101000102000187000102010101000102000100000f020001 00004e02000100000f02000100000f020001000001020101010001020001 00000f02000100004e02000100000f02000100000f020001000001020101 01000102000100000f02000100004e02000100000f02000100000f020001 00000102010101000102000100000f020001000023020103070201031e02 000100000f02000100000202090002020001000001020101010001020001 00000f02000100002d0201031e02000100000f0200010000020200000702 00010202000100000102010101000102000100000f020001000018020103 0102010301020103000201030102030301020103000201031b0200010000 0f0200010000020200000702000102020001000001020101010001020001 000002020900020200010000180201030102010301020103000201030002 01030102010300020203000201031a020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100001902010300020103000201030102010300020203 03020103010201031a020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 000102020001000019020103000201030002010301020103020202030102 0103010201031a0200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100001902010300020103000201030102010303020203000201030102 01031a020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100001a02010301020103 02020103000201030102010300020103010201031a02000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100001a02010301020103020201030102030301020103010201031a02 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100004e02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100004e0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 4e02000100000f02000100000f0200010000010201010100010200010000 100100004f01000010010000100100000102010100008a01000003010400 000184040400000101000102010184040100010201010100010201012a04 2e002a040100010201010100010201012a042d0000052a04010001020101 0100010201012a0401002a0401052a040100010201010100010201012a04 01002a0401052a040100010201010100010201012a0401002a0401052a04 0100010201010100010201012a0401002a0401052a040100010201010100 010201012a0401002a0401052a040100010201010100010201012a040100 2a0401052a040100010201010100010201012a0401000d04030303040103 020401030d0401052a040100010201010100010201012a0401000c040103 0104010302040103010401030e0401052a04010001020101010001020101 2a0401000b0401030304010301040103000401030f0401052a0401000102 01010100010201012a0401000b0401030304010301040303100401052a04 0100010201010100010201012a0401000b04010303040103010403031004 01052a040100010201010100010201012a0401000b040103030401030104 0103000401030f0401052a040100010201010100010201012a0401000b04 01030304010301040103010401030e0401052a0401000102010101000102 01012a0401000c0401030104010302040103020401030d0401052a040100 010201010100010201012a0401000d04030303040103030401030c040105 2a040100010201010100010201012a0401002a0401052a04010001020101 0100010201012a0401002a0401052a040100010201010100010201012a04 01002a0401052a040100010201010100010201012a0401002a0401052a04 0100010201010100010201012a0401002a0401052a040100010201010100 010201012a0401002a0401052a040100010201010100010201012a040100 2a0401052a040100010201010100010201012a0401002a0401052a040100 010201010100010201012a0401002a0401052a0401000102010101000102 01012a0401002c052a040100010201010100010201012a0400002d052a04 010001020101010001020101840401000102010101000102010184040100 010201010100010201018404010001020101010001020101840401000102 010101000102010101048000010401000102010101000102010101047f00 00050104010001020101010001020101010401007c040105010401000102 0101010001020101010401007c0401050104010001020101010001020101 010401007c0401050104010001020101010001020101010401007c040105 0104010001020101010001020101010401007c0401050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01000d0403031c040103070403032f0401030d0401050104010001020101 010001020101010401000c040103010401031b0401030604010301040103 2e0401030d0401050104010001020101010001020101010401000b040103 050403030104010300040103020403030204030301040103050401030504 030301040003000402030004020301040003000402030004020302040303 010401030004010302040103000401030d04010501040100010201010100 01020101010401000b040103040401030104010300040203000401030004 010301040103000401030104010300040103050401030404010301040103 000401030104010301040103000401030104010301040103000401030104 0103000402030004010300040103000402030d0401050104010001020101 010001020101010401000b04010308040103000401030104010300040103 040401030104010300040103050401030404010301040103000401030104 010301040103000401030104010301040103040401030004010301040103 00040103010401030d040105010401000102010101000102010101040100 0b0401030504040300040103010401030004010304040503000401030504 010304040103010401030004010301040103010401030004010301040103 0104010301040403000401030104010300040103010401030d0401050104 010001020101010001020101010401000b04010304040103010401030004 010301040103000401030404010304040103050401030404010301040103 000401030104010301040103000401030104010301040103000401030104 0103000401030104010300040103010401030d0401050104010001020101 010001020101010401000c04010301040303010401030004010301040103 000401030104010300040103010401030004010306040103010403030104 010300040103010401030104010300040103010401030104010300040103 01040103000401030104010300040103000402030d040105010401000102 0101010001020101010401000d0403030104020300040303010401030104 030302040303010401030704030301040303010401030104010301040103 000401030104010301040103010402030004030301040103010401030004 01030d0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401007c040105010401000102010101000102010101040100 7c0401050104010001020101010001020101010401007c04010501040100 01020101010001020101010401007c040105010401000102010101000102 0101010401007c0401050104010001020101010001020101010401007c04 01050104010001020101010001020101010401007c040105010401000102 0101010001020101010401007e0501040100010201010100010201010104 00007f050104010001020101010001020101840401000102010101000102 010184040100010201010100010201018404010001020101010001020101 840401000102010101000102010126043500270401000102010101000102 010126043400000527040100010201010100010201012604010031040105 270401000102010101000102010126040100310401052704010001020101 010001020101260401003104010527040100010201010100010201012604 010031040105270401000102010101000102010126040100310401052704 010001020101010001020101260401003104010527040100010201010100 01020101260401000b040103020401030704010314040105270401000102 0101010001020101260401000b0401030204010307040103140401052704 010001020101010001020101260401000b04010302040103010403030104 010300040103000401030e04010527040100010201010100010201012604 01000b040103020401030004010301040103000401030004020300040103 0d040105270401000102010100000401260401000b040603000401030104 01030004010300040103010401030d040105270401000301040000012604 01000b04010302040103000405030004010300040103010401030d040105 270404000001010001020101260401000b04010302040103000401030404 010300040103010401030d04010527040100010201010100010201012604 01000b040103020401030004010301040103000401030004020300040103 0d0401052704010001020101010001020101260401000b04010302040103 010403030104010300040103000401030e04010527040100010201010100 01020101260401001d040103110401052704010001020101010001020101 260401001d04010311040105270401000102010101000102010126040100 1d0401031104010527040100010201010100010201012604010031040105 270401000102010101000102010126040100310401052704010001020101 010001020101260401003104010527040100010201010100010201012604 010031040105270401000102010101000102010126040100310401052704 010001020101010001020101260401003104010527040100010201010100 010201012604010033052704010001020101010001020101260400003405 270401000102010101000102010184040100010201010100010201018404 010001020101010001020101860001020101010001020001870001020101 010013020001000060020001000013020101010013020001000060020001 00001302010101001401000061010000150100008f01 % % Run-length encoding savings = 77.7% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 145 125 0 0 145 125 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 145 def /pp_by2 125 def gs 452 389 2235 1341 CB 451 388 2235 1341 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPFil2 %%Pages: 1 %%BoundingBox: 0 0 145 125 %%CreationDate: Thu Dec 1 14:22:48 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 145 125 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 145 125 8 [145 0 0 -125 0 125] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage a60000016100000115000001010013020001000060020001000013020101 010013020001000060020001000013020101010001021201000061010000 11010102010101000102000187000102010101000102000100000f020001 00004e02000100000f02000100000f020001000001020101010001020001 00000f02000100004e02000100000f02000100000f020001000001020101 01000102000100000f02000100004e02000100000f02000100000f020001 00000102010101000102000100000f020001000023020103070201031e02 000100000f02000100000202090002020001000001020101010001020001 00000f02000100002d0201031e02000100000f0200010000020200000702 00010202000100000102010101000102000100000f020001000018020103 0102010301020103000201030102030301020103000201031b0200010000 0f0200010000020200000702000102020001000001020101010001020001 000002020900020200010000180201030102010301020103000201030002 01030102010300020203000201031a020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100001902010300020103000201030102010300020203 03020103010201031a020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 000102020001000019020103000201030002010301020103020202030102 0103010201031a0200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100001902010300020103000201030102010303020203000201030102 01031a020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100001a02010301020103 02020103000201030102010300020103010201031a02000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100001a02010301020103020201030102030301020103010201031a02 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100004e02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100004e0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 4e02000100000f02000100000f0200010000010201010100010200010000 100100004f01000010010000100100000102010100008a01000003010400 000184040400000101000102010184040100010201010100010201010104 8000010401000102010101000102010101047f0000050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01007c0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401007c040105010401000102010101000102010101040100 7c0401050104010001020101010001020101010401003604030303040103 020401033604010501040100010201010100010201010104010035040103 010401030204010301040103370401050104010001020101010001020101 010401003404010303040103010401030004010338040105010401000102 010101000102010101040100340401030304010301040303390401050104 010001020101010001020101010401003404010303040103010403033904 010501040100010201010100010201010104010034040103030401030104 010300040103380401050104010001020101010001020101010401003404 010303040103010401030104010337040105010401000102010101000102 010101040100350401030104010302040103020401033604010501040100 010201010100010201010104010036040303030401030304010335040105 0104010001020101010001020101010401007c0401050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01007c0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401007c040105010401000102010101000102010101040100 7c0401050104010001020101010001020101010401007c04010501040100 01020101010001020101010401007c040105010401000102010101000102 0101010401007e050104010001020101010001020101010400007f050104 010001020101010001020101840401000102010101000102010184040100 010201010100010201018404010001020101010001020101840401000102 010101000102010101048000010401000102010101000102010101047f00 00050104010001020101010001020101010401007c040105010401000102 0101010001020101010401007c0401050104010001020101010001020101 010401007c0401050104010001020101010001020101010401007c040105 0104010001020101010001020101010401007c0401050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01000d0403031c040103070403032f0401030d0401050104010001020101 010001020101010401000c040103010401031b0401030604010301040103 2e0401030d0401050104010001020101010001020101010401000b040103 050403030104010300040103020403030204030301040103050401030504 030301040003000402030004020301040003000402030004020302040303 010401030004010302040103000401030d04010501040100010201010100 01020101010401000b040103040401030104010300040203000401030004 010301040103000401030104010300040103050401030404010301040103 000401030104010301040103000401030104010301040103000401030104 0103000402030004010300040103000402030d0401050104010001020101 010001020101010401000b04010308040103000401030104010300040103 040401030104010300040103050401030404010301040103000401030104 010301040103000401030104010301040103040401030004010301040103 00040103010401030d040105010401000102010101000102010101040100 0b0401030504040300040103010401030004010304040503000401030504 010304040103010401030004010301040103010401030004010301040103 0104010301040403000401030104010300040103010401030d0401050104 010001020101010001020101010401000b04010304040103010401030004 010301040103000401030404010304040103050401030404010301040103 000401030104010301040103000401030104010301040103000401030104 0103000401030104010300040103010401030d0401050104010001020101 010001020101010401000c04010301040303010401030004010301040103 000401030104010300040103010401030004010306040103010403030104 010300040103010401030104010300040103010401030104010300040103 01040103000401030104010300040103000402030d040105010401000102 0101010001020101010401000d0403030104020300040303010401030104 030302040303010401030704030301040303010401030104010301040103 000401030104010301040103010402030004030301040103010401030004 01030d0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401007c040105010401000102010101000102010101040100 7c0401050104010001020101010001020101010401007c04010501040100 01020101010001020101010401007c040105010401000102010101000102 0101010401007c0401050104010001020101010001020101010401007c04 01050104010001020101010001020101010401007c040105010401000102 0101010001020101010401007e0501040100010201010100010201010104 00007f050104010001020101010001020101840401000102010101000102 010184040100010201010100010201018404010001020101010001020101 840401000102010101000102010101048000010401000102010101000102 010101047f0000050104010001020101010001020101010401007c040105 0104010001020101010001020101010401007c0401050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01007c0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401003004010302040103070401033a040105010401000102 0101010001020101010401003004010302040103070401033a0401050104 010001020101010001020101010401003004010302040103010403030104 010300040103000401033404010501040100010201010100010201010104 010030040103020401030004010301040103000401030004020300040103 330401050104010001020101000004010104010030040603000401030104 010300040103000401030104010333040105010401000301040000010104 010030040103020401030004050300040103000401030104010333040105 010404000001010001020101010401003004010302040103000401030404 010300040103010401033304010501040100010201010100010201010104 010030040103020401030004010301040103000401030004020300040103 330401050104010001020101010001020101010401003004010302040103 010403030104010300040103000401033404010501040100010201010100 010201010104010042040103370401050104010001020101010001020101 010401004204010337040105010401000102010101000102010101040100 42040103370401050104010001020101010001020101010401007c040105 0104010001020101010001020101010401007c0401050104010001020101 010001020101010401007c04010501040100010201010100010201010104 01007c0401050104010001020101010001020101010401007c0401050104 010001020101010001020101010401007c04010501040100010201010100 01020101010401007e050104010001020101010001020101010400007f05 010401000102010101000102010184040100010201010100010201018404 010001020101010001020101860001020101010001020001870001020101 010013020001000060020001000013020101010013020001000060020001 00001302010101001401000061010000150100008f01 % % Run-length encoding savings = 77.7% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 320 957 1440 (pack .ok .cancel .help -side top) 1440 SB 320 1482 1485 (pack .ok .cancel .help -side top ) 1485 SB 151 0 10 fC 1805 1482 315 (-fill x) 315 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 15 15 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 15) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -3 3 SJ 320 266 1721 (The Packer: Filling, cont'd) 1721 SB %MSEPS Preamble 0 0 185 237 0 0 185 237 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 185 def /pp_by2 237 def 0 lc 0 lj 0 0 0 pC 0 1 SP gs 577 739 2099 514 CB 576 738 2099 514 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkFil3 %%Pages: 1 %%BoundingBox: 0 0 185 237 %%CreationDate: Thu Dec 1 14:22:49 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 185 237 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 21 string def /drawcolormappedimage { 185 237 8 [185 0 0 -237 0 237] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 e2cbae pop pop drawcolormappedimage ce0000018900000115000001010013020001000088020001000013020101 010013020001000088020001000013020101010001021201000089010000 110101020101010001020001af000102010101000102000100000f020001 00007602000100000f02000100000f020001000001020101010001020001 00000f02000100007602000100000f02000100000f020001000001020101 01000102000100000f02000100007602000100000f02000100000f020001 00000102010101000102000100000f020001000028020403020201030902 01033702000100000f020001000002020900020200010000010201010100 0102000100000f0200010000270201030202010301020103090201033702 000100000f02000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010300020303010203030102 030301020303020203032902000100000f02000100000202000007020001 020200010000010201010100010200010000020209000202000100002802 020304020103010201030102010301020103010201030102010300020103 010201032802000100000502030005020001000002020000070200010202 000100000102010101000102000100000202000007020001020200010000 2a0202030202010305020103010201030102010301020103000202032b02 000100000502000001020001050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100002b02 020301020103020204030102010301020503020202032902000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000027020103020201030102 010301020103010201030102010301020103070202032802000100000502 000002010502000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010301020103000202030102 010301020103000202030102010300020103010201032802000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000280204030302010301020203000201030102010301020303 020203032902000100000f02000100000202000007020001020200010000 0102010101000102000100000f02000100007602000100000f0200010000 0202000008010202000100000102010101000102000100000f0200010000 7602000100000f02000100000f0200010000010201010100010200010000 0f02000100007602000100000f02000100000f0200010000010201010100 01020001000010010000770100001001000010010000010201010000b201 00000301040000012e044d002f04040000010100010201012e044c000005 2f040100010201010100010201012e040100490401052f04010001020101 0100010201012e040100490401052f040100010201010100010201012e04 0100490401052f040100010201010100010201012e040100490401052f04 0100010201010100010201012e040100490401052f040100010201010100 010201012e040100490401052f040100010201010100010201012e040100 490401052f040100010201010100010201012e040100490401052f040100 010201010100010201012e04010007040703000401031604010302040103 070401030e0401052f040100010201010100010201012e04010007040103 060401031604010302040103070401030e0401052f040100010201010100 010201012e04010007040103030401030004010301040303100401030204 010301040303010401030004010300040103080401052f04010001020101 0100010201012e0401000704010303040103000401030004010301040103 0f0401030204010300040103010401030004010300040203000401030704 01052f040100010201010100010201012e04010007040403000401030004 010300040103010401030f04060300040103010401030004010300040103 01040103070401052f040100010201010100010201012e04010007040103 0304010300040103000405030f0401030204010300040503000401030004 010301040103070401052f040100010201010100010201012e0401000704 010303040103000401030004010313040103020401030004010304040103 0004010301040103070401052f040100010201010100010201012e040100 07040103030401030004010300040103010401030f040103020401030004 010301040103000401030004020300040103070401052f04010001020101 0100010201012e0401000704010303040103000401030104030310040103 0204010301040303010401030004010300040103080401052f0401000102 01010100010201012e0401003b0401030b0401052f040100010201010100 010201012e040100060406031a040803090401030b0401052f0401000102 01010100010201012e040100060406031a040803090401030b0401052f04 0100010201010100010201012e040100490401052f040100010201010100 010201012e040100490401052f040100010201010100010201012e040100 490401052f040100010201010100010201012e040100490401052f040100 010201010100010201012e040100490401052f0401000102010101000102 01012e040100490401052f040100010201010100010201012e0401004b05 2f040100010201010100010201012e0400004c052f040100010201010100 01020101ac04010001020101010001020101ac0401000102010101000102 010101049105180401000102010101000102010101049005000018040100 01020101010001020101010401058d040100180401000102010101000102 0101010401058d0401001804010001020101010001020101010401058d04 010018040100010201010100010201010104010500040103020401031904 010300040103660401001804010001020101010001020101010401050004 010302040103850401001804010001020101010001020101010401050004 010302040103010403030104010301040103010401030104030301040103 000401036604010018040100010201010100010201010104010500040103 020401030004010301040103000401030104010301040103000401030104 010300040103000401036604010018040100010201010100010201010104 010500040603040401030104010300040103000401030504010300040103 000401036604010018040100010201010100010201010104010500040103 020401030104040301040103000401030004010302040403000401030004 010366040100180401000102010101000102010101040105000401030204 010300040103010401030104010300040103000401030104010301040103 000401030004010366040100180401000102010101000102010101040105 000401030204010300040103010401030204010301040103020401030104 010300040103000401036604010018040100010201010100010201010104 010500040103020401030104020300040103010401030104010303040203 000403030004010366040100180401000102010101000102010101040105 8d0401001804010001020101010001020101010401058d04010018040100 01020101010001020101010401058d040100180401000102010101000102 0101010401058d0401001804010001020101010001020101010401058d04 01001804010001020101010001020101010401058d040100180401000102 0101010001020101010401058d0401001804010001020101010001020101 010401058d04010018040100010201010100010201010104010500040103 040401030704010379040100180401000102010101000102010101040105 000401030404010307040103790401001804010001020101010001020101 010401050004010301040103000401030104030301040103000401030204 03036f040100180401000102010101000102010101040105000401030004 010300040203000401030104010300040203000401030004010301040103 6e0401001804010001020101010001020101010401050004010300040103 0104010304040103000401030104010300040103010401036e0401001804 010001020101010001020101010401050004010300040103010401030104 0403000401030104010300040103010401036e0401001804010001020101 010001020101010401050004010300040103010401030004010301040103 000401030104010300040103010401036e04010018040100010201010100 010201010104010500040103000401030004020300040103010401030004 01030104010300040103010401036e040100180401000102010101000102 010101040105000401030104010300040103010402030004030301040103 010403036f0401001804010001020101010001020101010401058d040100 1804010001020101010001020101010401058d0401001804010001020101 010001020101010401058d04010018040100010201010100010201010104 01058d0401001804010001020101010001020101010401058d0401001804 010001020101010001020101010401058d04010018040100010201010100 01020101010401058d040100180401000102010101000102010101040105 8d0401001804010001020101010001020101010401050004010300040103 00040103000401030e040103700401001804010001020101010001020101 010401050004010300040103000401038404010018040100010201010100 010201010104010500040103000401030004010300040103000401030004 01030204030301040103010403036a040100180401000102010101000102 010101040105000401030004010300040103000401030004020300040103 000401030104010300040103000401030104010369040100180401000102 010101000102010101040105000401030004010300040103000401030004 010301040103000401030104010300040103000402036c04010018040100 010201010100010201010104010500040103000401030004010300040103 0004010301040103000401030104010300040103020402036a0401001804 010001020101010001020101010401050004010300040103000401030004 010300040103010401030004010301040103000401030304020369040100 180401000102010101000102010101040105000401030004010300040103 000401030004010301040103000401030104010300040103000401030104 010369040100180401000102010101000102010101040105000401030004 010300040103000401030004010301040103010403030104010301040303 6a0401001804010001020101010001020101010401058d04010018040100 01020101010001020101010401058d040100180401000102010101000102 0101010401058d0401001804010001020101010001020101010401058d04 01001804010001020101010001020101010401058d040100180401000102 0101010001020101010401058d0401001804010001020101010001020101 010401058d0401001804010001020101010001020101010401058d040100 180401000102010101000102010101040105000401030b04010300040103 79040100180401000102010101000102010101040105000401030b040103 7c0401001804010001020101010001020101010401050004010300040103 000401030204010300040103000401030104030301040103000401030204 030365040100180401000102010101000102010101040105000401030004 020300040103000401030004020300040103000401030104010300040203 000401030004010301040103640401001804010001020101010001020101 010401050004010300040103010401030004010301040103000401030404 010300040103010401030404010364040100180401000102010101000102 010101040105000401030004010301040103000401030104010300040103 010404030004010301040103010404036404010018040100010201010100 010201010104010500040103000401030104010300040103010401030004 010300040103010401030004010301040103000401030104010364040100 180401000102010101000102010101040105000401030004010301040103 000401030004020300040103000401030104010300040103010401030004 010301040103640401001804010001020101010001020101010401050004 010300040103010401030104010300040103000401030104020300040303 010401030104020300040103630401001804010001020101010001020101 010401058d0401001804010001020101010001020101010401058d040100 1804010001020101010001020101010401058d0401000304120501040100 01020101010001020101010401058d040100030411050000010401000102 0101010001020101010401058d0401000304010506060005060601000104 010001020101010001020101010401058d04010003040105050600000005 060601000104010001020101010001020101010401058d04010003040105 050600000105050601000104010001020101010001020101010401058d04 010003040105040601000105050601000104010001020101010001020101 01040105000401038a040100030401050406010000040105040601000104 01000102010101000102010101040105000401038a040100030401050306 010001040105040601000104010001020101010001020101010401050004 010301040303010401030104010301040103010403037204010003040105 030601000204010503060100010401000102010101000102010101040105 000401030004010301040103000401030104010301040103000401030104 010371040100030401050206010003040105030601000104010001020101 010001020101010401050004010300040103010401030104010300040103 000401030504010371040100030401050206010004040105020601000104 010001020101010001020101010401050004010300040103010401030104 010300040103000401030204040371040100030401050106010005040105 020601000104010001020101010001020101010401050004010300040103 010401030104010300040103000401030104010301040103710401000304 010501060100060401050106010001040100010201010100010201010104 010500040103000401030104010302040103010401030204010301040103 710401000304010500060100070401050106010001040100010201010100 010201010104010500040103010403030304010301040103030402030004 010370040100030401050006010008040105000601000104010001020101 010001020101010401058d0401000304010501000b050006010001040100 01020101010001020101010401058d0401000304010500000d0501000104 010001020101010001020101010401058d040100030401050e0601000104 010001020101010001020101010401058d04010003040105100001040100 01020101010001020101010401058d040100030401050d00000501000104 010001020101010001020101010401058d0401000304010501000c050100 0104010001020101010001020101010401058d0401000304010500000d05 01000104010001020101010001020101010401058d040100030401050e06 010001040100010201010100010201010104010500040103020401038504 010003040105100001040100010201010100010201010104010500040103 01040103860401000304010500060c000005010001040100010201010100 010201010104010500040103000401030304030301040103000401030204 030302040303020403036304010003040105000601000804010500060100 010401000102010101000102010101040105000403030304010301040103 000402030004010300040103010401030004010301040103000401030104 010362040100030401050106010007040105000601000104010001020101 010001020101010401050004030307040103000401030104010300040203 070401030004020365040100030401050106010006040105010601000104 010001020101010001020101010401050004010300040103030404030004 010301040103020402030204040302040203630401000304010502060100 050401050106010001040100010201010100010201010104010500040103 010401030104010301040103000401030104010303040203000401030104 010303040203620401000304010502060100040401050206010001040100 010201010100010201010104010500040103020401030004010301040103 000401030104010300040103010401030004010301040103000401030104 010362040100030401050306010003040105020601000104010001020101 010001020101010401050004010303040103000402030004030301040103 010403030204020300040103000403036304010003040105030601000204 0105030601000104010001020101010001020101010401058d0401000304 010504060100010401050306010001040100010201010100010201010104 01058d040100030401050406010000040105040601000104010001020101 010001020101010401058d04010003040105050600000205040601000104 010001020101010001020101010401058d04010003040105050600000105 050601000104010001020101010001020101010401058d04010003040105 06060105050601000104010001020101010001020101010401058d040100 030401050606000506060100010401000102010101000102010101040105 8d0401000304010510000104010001020101010001020101010401058d04 010003040005110001040100010201010100010201010104010500040103 020401030f0401030f040103610401001804010001020101010001020101 010401050004010301040103100401030f04010361040100180401000102 010101000102010101040105000401030004010303040303010401030004 010301040303000401030104010301040303010401030104010300040103 020401035504010018040100010201010100010201010104010500040303 030401030104010300040203000401030104010301040103010401030004 010301040103000401030004010301040103020401035504010018040100 010201010100010201010104010500040303030401030104010300040103 010401030104010301040103010401030004010304040303030401030004 010356040100180401000102010101000102010101040105000401030004 010302040503000401030104010301040103010401030104010300040103 040403030304010300040103560401001804010001020101010001020101 010401050004010301040103010401030404010301040103010401030104 010301040103000401030404010300040103030402035704010018040100 010201010100010201010104010500040103020401030004010301040103 000401030104010301040103000402030004020300040103010401030004 010301040103020402035704010018040100010201010100010201010104 010500040103030401030004030301040103010401030204010301040103 000401030104030301040103020401030204010357040100180401000102 010101000102010101040105330400035804010018040100010201010100 010201010104010532040103580401001804010001020101010001020101 010401053104010359040100180401000102010101000102010101040105 8d0401001804010001020101010001020101010401058d04010018040100 01020101010001020101010401058d040100180401000102010101000102 0101010401058d0401001804010001020101010001020101010401058d04 010018040100010201010100010201010104010500040103110401030704 01036c040100180401000102010101000102010101040105000401038a04 010018040100010201010100010201010104010500040103040403030104 010301040103000401030104030301040103010403030104010300040103 020403035804010018040100010201010100010201010104010500040103 030401030104010300040103010401030004010300040103010401030004 010300040103010401030004020300040103000401030104010357040100 180401000102010101000102010101040105000401030304010301040103 000401030104010300040103000402030304010304040103000401030104 010304040103570401001804010001020101010001020101010401050004 010303040103010401030004010301040103000401030204020301040103 010404030004010301040103010404035704010018040100010201010100 010201010104010500040103030401030104010300040103010401030004 010303040203000401030004010301040103000401030104010300040103 010401035704010018040100010201010100010201010104010500040103 030401030104010300040103000402030004010300040103010401030004 010300040103010401030004010301040103000401030104010357040100 180401000102010101000102010101040105000405030004030302040103 000401030004010301040303010401030104020300040303010401030104 020300040103560401001804010001020101010001020101010401058d04 01001804010001020101010001020101010401058d040100180401000102 0101010001020101010401058d0401001804010001020101010001020101 010401058d0401001804010001020101010001020101010401058d040100 1804010001020101010001020101010401058d0401001804010001020101 010001020101010401058d04010018040100010201010100010201010104 01058d040100180401000102010101000102010101040105000401030404 010307040103790401001804010001020101010001020101010401050004 010304040103830401001804010001020101010001020101010401050004 02030204020301040303010401030004010300040103020403036c040100 180401000102010101000102010101040105000402030204020300040103 0104010300040103000402030004010300040103010401036b0401001804 010001020101010001020101010401050004030300040303040401030004 0103000401030104010300040103010401036b0401001804010001020101 010001020101010401050004010300040003000400030004010301040403 000401030004010301040103000405036b04010018040100010201010100 010201010104010500040103000402030004010300040103010401030004 01030004010301040103000401036f040100180401000102010101000102 010101040105000401030104000301040103000401030104010300040103 000401030104010300040103010401036b04010018040100010201010100 010201010104010500040103010400030104010301040203000403030004 010301040103010403036c04010018040100010201010100010201010104 01058d0401001804010001020101010001020101010401058d0401001804 010001020101010001020101010401058d04010018040100010201010100 01020101010401058d040100180401000102010101000102010101040105 8d0401001804010001020101010001020101010401058d04010018040100 01020101010001020101010401058d040100180401000102010101000102 0101010401058d0401001804010001020101000004010104010500040103 040401031404010312040103570401001804010003010400000101040105 000401030404010314040103120401035704010018040400000101000102 010101040105000402030204020301040303010401030004030302040103 000401030104030301040103000401030204010300040103570401001804 010001020101010001020101010401050004020302040203000401030104 010300040603020401030004010300040103010401030004020300040103 000401030004020357040100180401000102010101000102010101040105 000403030004030304040103000402030204010300040103010401030404 010300040103010401030004010301040103570401001804010001020101 010001020101010401050004010300040003000400030004010301040403 000401030304010300040103010401030104040300040103010401030004 010301040103570401001804010001020101010001020101010401050004 010300040203000401030004010301040103000401030404020302040103 000401030104010300040103010401030004010301040103570401001804 010001020101010001020101010401050004010301040003010401030004 010301040103000401030404020302040103000401030104010300040103 010401030004010300040203570401001804010001020101010001020101 010401050004010301040003010401030104020300040303050401030204 010301040203000403030104010301040103000401035704010018040100 010201010100010201010104010519040003720401001804010001020101 010001020101010401051804010372040100180401000102010101000102 010101040105170401037304010018040100010201010100010201010104 01058d0401001804010001020101010001020101010401058d0401001804 010001020101010001020101010401058f00180401000102010101000102 01010104000590001804010001020101010001020101ac04010001020101 010001020101ac04010001020101010001020101ae000102010101000102 0001af000102010101001302000100008802000100001302010101001302 00010000880200010000130201010100140100008901000015010000b701 % % Run-length encoding savings = 78.1% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 185 237 0 0 185 237 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 185 def /pp_by2 237 def gs 577 739 2099 1289 CB 576 738 2099 1289 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkFil4 %%Pages: 1 %%BoundingBox: 0 0 185 237 %%CreationDate: Thu Dec 1 14:22:49 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 185 237 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 21 string def /drawcolormappedimage { 185 237 8 [185 0 0 -237 0 237] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba e2cbae pop pop drawcolormappedimage ce0000018900000115000001010013020001000088020001000013020101 010013020001000088020001000013020101010001021201000089010000 110101020101010001020001af000102010101000102000100000f020001 00007602000100000f02000100000f020001000001020101010001020001 00000f02000100007602000100000f02000100000f020001000001020101 01000102000100000f02000100007602000100000f02000100000f020001 00000102010101000102000100000f020001000028020403020201030902 01033702000100000f020001000002020900020200010000010201010100 0102000100000f0200010000270201030202010301020103090201033702 000100000f02000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010300020303010203030102 030301020303020203032902000100000f02000100000202000007020001 020200010000010201010100010200010000020209000202000100002802 020304020103010201030102010301020103010201030102010300020103 010201032802000100000502030005020001000002020000070200010202 000100000102010101000102000100000202000007020001020200010000 2a0202030202010305020103010201030102010301020103000202032b02 000100000502000001020001050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100002b02 020301020103020204030102010301020503020202032902000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000027020103020201030102 010301020103010201030102010301020103070202032802000100000502 000002010502000100000202000007020001020200010000010201010100 0102000100000f0200010000270201030202010301020103000202030102 010301020103000202030102010300020103010201032802000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000280204030302010301020203000201030102010301020303 020203032902000100000f02000100000202000007020001020200010000 0102010101000102000100000f02000100007602000100000f0200010000 0202000008010202000100000102010101000102000100000f0200010000 7602000100000f02000100000f0200010000010201010100010200010000 0f02000100007602000100000f02000100000f0200010000010201010100 01020001000010010000770100001001000010010000010201010000b201 0000030104000001b1000001010001020101ab0000040100010201010100 010201010100a80501040100010201010100010201010100a80501040100 010201010100010201010100a80501040100010201010100010201010100 a80501040100010201010100010201010100a80501040100010201010100 010201010100a80501040100010201010100010201010100a80501040100 010201010100010201010100a80501040100010201010100010201010100 07050703000501037505010302050103070501030e050104010001020101 010001020101010007050103060501037505010302050103070501030e05 010401000102010101000102010101000705010303050103000501030105 03036f050103020501030105030301050103000501030005010308050104 010001020101010001020101010007050103030501030005010300050103 010501036e05010302050103000501030105010300050103000502030005 010307050104010001020101010001020101010007050403000501030005 010300050103010501036e05060300050103010501030005010300050103 010501030705010401000102010101000102010101000705010303050103 00050103000505036e050103020501030005050300050103000501030105 010307050104010001020101010001020101010007050103030501030005 010300050103720501030205010300050103040501030005010301050103 070501040100010201010100010201010100070501030305010300050103 00050103010501036e050103020501030005010301050103000501030005 020300050103070501040100010201010100010201010100070501030305 010300050103010503036f05010302050103010503030105010300050103 000501030805010401000102010101000102010101009a0501030b050104 01000102010101000102010101000605060379050803090501030b050104 01000102010101000102010101000605060379050803090501030b050104 0100010201010100010201010100a8050104010001020101010001020101 0100a80501040100010201010100010201010100a8050104010001020101 0100010201010100a80501040100010201010100010201010100a8050104 0100010201010100010201010100a8050104010001020101010001020101 0100aa040100010201010100010201010000ab0401000102010101000102 0101ac05010001020101010001020101ac05010001020101010001020101 010591040305120401050100010201010100010201010105900400000305 110400000105010001020101010001020101010501048d05010003050104 06060004060601000105010001020101010001020101010501048d050100 030501040506000000040606010001050100010201010100010201010105 01048d050100030501040506000001040506010001050100010201010100 010201010105010400050103020501031905010300050103660501000305 010404060100010405060100010501000102010101000102010101050104 000501030205010385050100030501040406010000050104040601000105 010001020101010001020101010501040005010302050103010503030105 010301050103010501030105030301050103000501036605010003050104 030601000105010404060100010501000102010101000102010101050104 000501030205010300050103010501030005010301050103010501030005 010301050103000501030005010366050100030501040306010002050104 030601000105010001020101010001020101010501040005060304050103 010501030005010300050103050501030005010300050103660501000305 010402060100030501040306010001050100010201010100010201010105 010400050103020501030105040301050103000501030005010302050403 000501030005010366050100030501040206010004050104020601000105 010001020101010001020101010501040005010302050103000501030105 010301050103000501030005010301050103010501030005010300050103 660501000305010401060100050501040206010001050100010201010100 010201010105010400050103020501030005010301050103020501030105 010302050103010501030005010300050103660501000305010401060100 060501040106010001050100010201010100010201010105010400050103 020501030105020300050103010501030105010303050203000503030005 010366050100030501040006010007050104010601000105010001020101 010001020101010501048d05010003050104000601000805010400060100 0105010001020101010001020101010501048d0501000305010401000b04 000601000105010001020101010001020101010501048d05010003050104 00000d0401000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e0601000105010001020101010001020101010501048d0501000305 01040e060100010501000102010101000102010101050104000501030405 01030705010379050100030501040e060100010501000102010101000102 01010105010400050103040501030705010379050100030501040e060100 010501000102010101000102010101050104000501030105010300050103 010503030105010300050103020503036f050100030501040e0601000105 010001020101010001020101010501040005010300050103000502030005 010301050103000502030005010300050103010501036e05010003050104 0e0601000105010001020101010001020101010501040005010300050103 0105010304050103000501030105010300050103010501036e0501000305 01040e060100010501000102010101000102010101050104000501030005 01030105010301050403000501030105010300050103010501036e050100 030501040e06010001050100010201010100010201010105010400050103 000501030105010300050103010501030005010301050103000501030105 01036e050100030501040e06010001050100010201010100010201010105 010400050103000501030005020300050103010501030005010301050103 00050103010501036e050100030501040e06010001050100010201010100 010201010105010400050103010501030005010301050203000503030105 0103010503036f050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 010101050104000501030005010300050103000501030e05010370050100 030501040e06010001050100010201010100010201010105010400050103 000501030005010384050100030501040e06010001050100010201010100 010201010105010400050103000501030005010300050103000501030005 01030205030301050103010503036a050100030501040e06010001050100 010201010100010201010105010400050103000501030005010300050103 000502030005010300050103010501030005010300050103010501036905 0100030501040e0601000105010001020101010001020101010501040005 010300050103000501030005010300050103010501030005010301050103 00050103000502036c050100030501040e06010001050100010201010100 010201010105010400050103000501030005010300050103000501030105 0103000501030105010300050103020502036a050100030501040e060100 010501000102010101000102010101050104000501030005010300050103 000501030005010301050103000501030105010300050103030502036905 010003050104100001050100010201010100010201010105010400050103 000501030005010300050103000501030105010300050103010501030005 0103000501030105010369050100030501040d0000040100010501000102 010101000102010101050104000501030005010300050103000501030005 0103010501030105030301050103010503036a0501000305010401000a05 010401000105010001020101010001020101010501048d05010003050104 01000a05010401000105010001020101010001020101010501048d050100 0305010401000a0501040100010501000102010101000102010101050104 8d0501000305010401000a05010401000105010001020101010001020101 010501048d0501000305010401000a050104010001050100010201010100 01020101010501048d0501000305010401000a0501040100010501000102 0101010001020101010501048d0501000305010401000a05010401000105 010001020101010001020101010501048d0501000305010401000a050104 01000105010001020101010001020101010501048d050100030501040100 0a0501040100010501000102010101000102010101050104000501030b05 010300050103790501000305010401000a05010401000105010001020101 01000102010101050104000501030b0501037c0501000305010401000a05 010401000105010001020101010001020101010501040005010300050103 000501030205010300050103000501030105030301050103000501030205 0303650501000305010401000a0501040100010501000102010101000102 010101050104000501030005020300050103000501030005020300050103 000501030105010300050203000501030005010301050103640501000305 010401000a05010401000105010001020101010001020101010501040005 010300050103010501030005010301050103000501030405010300050103 0105010304050103640501000305010401000a0501040100010501000102 010101000102010101050104000501030005010301050103000501030105 010300050103010504030005010301050103010504036405010003050104 01000a050104010001050100010201010100010201010105010400050103 000501030105010300050103010501030005010300050103010501030005 0103010501030005010301050103640501000305010401000a0501040100 010501000102010101000102010101050104000501030005010301050103 000501030005020300050103000501030105010300050103010501030005 010301050103640501000305010401000a05010401000105010001020101 010001020101010501040005010300050103010501030105010300050103 000501030105020300050303010501030105020300050103630501000305 010401000a05010401000105010001020101010001020101010501048d05 01000305010401000a050104010001050100010201010100010201010105 01048d0501000305010401000a0501040100010501000102010101000102 0101010501048d0501000305010401000a05010401000105010001020101 010001020101010501048d0501000305010401000a050104010001050100 01020101010001020101010501048d0501000305010401000a0501040100 0105010001020101010001020101010501048d0501000305010401000a05 010401000105010001020101010001020101010501048d05010003050104 01000c0401000105010001020101010001020101010501048d0501000305 010400000d04010001050100010201010100010201010105010400050103 8a050100030501040e060100010501000102010101000102010101050104 000501038a050100030501040e0601000105010001020101010001020101 010501040005010301050303010501030105010301050103010503037205 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030005010301050103010501030005010301050103 71050100030501040e060100010501000102010101000102010101050104 000501030005010301050103010501030005010300050103050501037105 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030105010300050103000501030205040371050100 030501040e06010001050100010201010100010201010105010400050103 000501030105010301050103000501030005010301050103010501037105 0100030501040e0601000105010001020101010001020101010501040005 010300050103010501030205010301050103020501030105010371050100 030501040e06010001050100010201010100010201010105010400050103 010503030305010301050103030502030005010370050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 01000105010001020101010001020101010501048d050100030501040e06 010001050100010201010100010201010105010400050103020501038505 0100030501040e0601000105010001020101010001020101010501040005 01030105010386050100030501040e060100010501000102010101000102 010101050104000501030005010303050303010501030005010302050303 020503030205030363050100030501040e06010001050100010201010100 010201010105010400050303030501030105010300050203000501030005 010301050103000501030105010300050103010501036205010003050104 0e0601000105010001020101010001020101010501040005030307050103 000501030105010300050203070501030005020365050100030501040e06 010001050100010201010100010201010105010400050103000501030305 040300050103010501030205020302050403020502036305010003050104 0e0601000105010001020101010001020101010501040005010301050103 010501030105010300050103010501030305020300050103010501030305 020362050100030501040e06010001050100010201010100010201010105 010400050103020501030005010301050103000501030105010300050103 010501030005010301050103000501030105010362050100030501040e06 010001050100010201010100010201010105010400050103030501030005 020300050303010501030105030302050203000501030005030363050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e06010001050100010201010100010201010105010400050103 020501030f0501030f05010361050100030501040e060100010501000102 0101010001020101010501040005010301050103100501030f0501036105 0100030501040e0601000105010001020101010001020101010501040005 010300050103030503030105010300050103010503030005010301050103 010503030105010301050103000501030205010355050100030501040e06 010001050100010201010100010201010105010400050303030501030105 010300050203000501030105010301050103010501030005010301050103 0005010300050103010501030205010355050100030501040e0601000105 010001020101010001020101010501040005030303050103010501030005 010301050103010501030105010301050103000501030405030303050103 0005010356050100030501040e0601000105010001020101010001020101 010501040005010300050103020505030005010301050103010501030105 010301050103000501030405030303050103000501035605010003050104 0e0601000105010001020101010001020101010501040005010301050103 010501030405010301050103010501030105010301050103000501030405 0103000501030305020357050100030501040e0601000105010001020101 010001020101010501040005010302050103000501030105010300050103 010501030105010300050203000502030005010301050103000501030105 01030205020357050100030501040e060100010501000102010101000102 010101050104000501030305010300050303010501030105010302050103 010501030005010301050303010501030205010302050103570501000305 01040e060100010501000102010101000102010101050104330500035805 0100030501040e0601000105010001020101010001020101010501043205 010358050100030501040e06010001050100010201010100010201010105 01043105010359050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501048d050100030501040e060100010501000102010101000102 0101010501040005010311050103070501036c050100030501040e060100 010501000102010101000102010101050104000501038a05010003050104 0e0601000105010001020101010001020101010501040005010304050303 010501030105010300050103010503030105010301050303010501030005 01030205030358050100030501040e060100010501000102010101000102 010101050104000501030305010301050103000501030105010300050103 000501030105010300050103000501030105010300050203000501030005 01030105010357050100030501040e060100010501000102010101000102 010101050104000501030305010301050103000501030105010300050103 000502030305010304050103000501030105010304050103570501000305 01040e060100010501000102010101000102010101050104000501030305 010301050103000501030105010300050103020502030105010301050403 00050103010501030105040357050100030501040e060100010501000102 010101000102010101050104000501030305010301050103000501030105 010300050103030502030005010300050103010501030005010301050103 000501030105010357050100030501040e06010001050100010201010100 010201010105010400050103030501030105010300050103000502030005 010300050103010501030005010300050103010501030005010301050103 000501030105010357050100030501040e06010001050100010201010100 010201010105010400050503000503030205010300050103000501030105 030301050103010502030005030301050103010502030005010356050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e0601000105010001020101010001020101010501048d050100 030501040e06010001050100010201010100010201010105010400050103 040501030705010379050100030501040e06010001050100010201010100 0102010101050104000501030405010383050100030501040e0601000105 010001020101010001020101010501040005020302050203010503030105 01030005010300050103020503036c050100030501040e06010001050100 010201010100010201010105010400050203020502030005010301050103 00050103000502030005010300050103010501036b050100030501040e06 010001050100010201010100010201010105010400050303000503030405 010300050103000501030105010300050103010501036b05010003050104 0e0601000105010001020101010001020101010501040005010300050003 000500030005010301050403000501030005010301050103000505036b05 0100030501040e0601000105010001020101010001020101010501040005 010300050203000501030005010301050103000501030005010301050103 000501036f050100030501040e0601000105010001020101010001020101 010501040005010301050003010501030005010301050103000501030005 01030105010300050103010501036b050100030501040e06010001050100 010201010100010201010105010400050103010500030105010301050203 000503030005010301050103010503036c050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d050100030501040e0601000105 010001020101010001020101010501048d05010003050104100001050100 010201010000040101050104000501030405010314050103120501035705 01000305010400060c000004010001050100030104000001010501040005 010304050103140501031205010357050100030501040006010008050104 000601000105040000010100010201010105010400050203020502030105 030301050103000503030205010300050103010503030105010300050103 020501030005010357050100030501040106010007050104000601000105 010001020101010001020101010501040005020302050203000501030105 010300050603020501030005010300050103010501030005020300050103 000501030005020357050100030501040106010006050104010601000105 010001020101010001020101010501040005030300050303040501030005 020302050103000501030105010304050103000501030105010300050103 010501035705010003050104020601000505010401060100010501000102 010101000102010101050104000501030005000300050003000501030105 040300050103030501030005010301050103010504030005010301050103 000501030105010357050100030501040206010004050104020601000105 010001020101010001020101010501040005010300050203000501030005 010301050103000501030405020302050103000501030105010300050103 010501030005010301050103570501000305010403060100030501040206 010001050100010201010100010201010105010400050103010500030105 010300050103010501030005010304050203020501030005010301050103 000501030105010300050103000502035705010003050104030601000205 010403060100010501000102010101000102010101050104000501030105 000301050103010502030005030305050103020501030105020300050303 010501030105010300050103570501000305010404060100010501040306 010001050100010201010100010201010105010419050003720501000305 010404060100000501040406010001050100010201010100010201010105 010418050103720501000305010405060000020404060100010501000102 010101000102010101050104170501037305010003050104050600000104 050601000105010001020101010001020101010501048d05010003050104 06060104050601000105010001020101010001020101010501048d050100 030501040606000406060100010501000102010101000102010101050104 8f0003050104100001050100010201010100010201010105000490000305 000411000105010001020101010001020101ac0501000102010101000102 0101ac05010001020101010001020101ae0001020101010001020001af00 010201010100130200010000880200010000130201010100130200010000 880200010000130201010100140100008901000015010000b701 % % Run-length encoding savings = 75.7% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 345 732 900 (pack .menu -side top) 900 SB 345 822 1215 (pack .scrollbar -side right) 1215 SB 345 912 585 (pack .listbox) 585 SB 345 1507 945 (pack .menu -side top ) 945 SB 151 0 10 fC 1290 1507 315 (-fill x) 315 SB 0 150 136 fC 345 1597 1260 (pack .scrollbar -side right ) 1260 SB 151 0 10 fC 1605 1597 315 (-fill y) 315 SB 0 150 136 fC 345 1687 585 (pack .listbox) 585 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 16 16 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 16) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1501 (The Packer: Expansion) 1501 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 5 8 SJ 320 526 2222 (Increase parcel size to absorb extra space in master:) 2222 SB %MSEPS Preamble 0 0 260 100 0 0 260 100 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 260 def /pp_by2 100 def 0 lc 0 lj 0 0 0 pC 0 1 SP gs 811 311 1930 755 CB 810 310 1930 755 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkExp1 %%Pages: 1 %%BoundingBox: 0 0 260 100 %%CreationDate: Thu Dec 1 15:18:00 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 260 100 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 260 100 8 [260 0 0 -100 0 100] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe001a000001d4000001150000010100130200010000d302000100001302 01010100130200010000d30200010000130201010100010212010000d401 0000110101020101010001020001fa000102010101000102000100000f02 00010000c102000100000f02000100000f02000100000102010101000102 000100000f0200010000c102000100000f02000100000f02000100000102 010101000102000100000f0200010000c102000100000f02000100000f02 000100000102010101000102000100000f02000100005d02010307020103 5702000100000f0200010000020209000202000100000102010101000102 000100000f0200010000670201035702000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100005202 010301020103010201030002010301020303010201030002010354020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000052020103010201030102010300020103 000201030102010300020203000201035302000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000530201030002010300020103010201030002 020303020103010201035302000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100005302010300020103000201030102010302020203 010201030102010353020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000530201030002010300020103010201030302020300020103 010201035302000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000540201030102 010302020103000201030102010300020103010201035302000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000540201030102010302020103010203030102010301020103 5302000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000c102000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000c1020001 00000f02000100000f02000100000102010101000102000100000f020001 0000c102000100000f02000100000f020001000001020101010001020001 000010010000c20100001001000010010000010201010000fd0100000301 04000001f70404000001010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f70401000102010101000102010101042e00 0304420003043500450401000102010101000102010101042d0000050304 410000050304340000054504010001020101010001020101010401002a04 0105030401003e0401050304010031040105450401000102010101000102 0101010401002a040105030401003e040105030401003104010545040100 01020101010001020101010401002a040105030401003e04010503040100 310401054504010001020101010001020101010401002a04010503040100 3e0401050304010031040105450401000102010101000102010101040100 2a040105030401003e040105030401003104010545040100010201010100 01020101010401002a040105030401003e04010503040100310401054504 010001020101010001020101010401000d04030303040103020401030d04 0105030401000d0403031c0401030d040105030401000b04010302040103 07040103140401054504010001020101010001020101010401000c040103 0104010302040103010401030e040105030401000c040103010401031b04 01030d040105030401000b04010302040103070401031404010545040100 01020101010001020101010401000b040103030401030104010300040103 0f040105030401000b040103050403030104010300040103020403030204 0303010401030d040105030401000b040103020401030104030301040103 00040103000401030e040105450401000102010101000102010101040100 0b040103030401030104030310040105030401000b040103040401030104 010300040203000401030004010301040103000401030104010300040103 0d040105030401000b040103020401030004010301040103000401030004 0203000401030d0401054504010001020101010001020101010401000b04 0103030401030104030310040105030401000b0401030804010300040103 01040103000401030404010301040103000401030d040105030401000b04 060300040103010401030004010300040103010401030d04010545040100 01020101010001020101010401000b040103030401030104010300040103 0f040105030401000b040103050404030004010301040103000401030404 0503000401030d040105030401000b040103020401030004050300040103 00040103010401030d040105450401000102010101000102010101040100 0b0401030304010301040103010401030e040105030401000b0401030404 01030104010300040103010401030004010304040103040401030d040105 030401000b04010302040103000401030404010300040103010401030d04 01054504010001020101010001020101010401000c040103010401030204 0103020401030d040105030401000c040103010403030104010300040103 0104010300040103010401030004010301040103000401030d0401050304 01000b040103020401030004010301040103000401030004020300040103 0d0401054504010001020101010001020101010401000d04030303040103 030401030c040105030401000d0403030104020300040303010401030104 030302040303010401030d040105030401000b0401030204010301040303 0104010300040103000401030e0401054504010001020101010001020101 010401002a040105030401003e040105030401001d040103110401054504 010001020101010001020101010401002a040105030401003e0401050304 01001d040103110401054504010001020101010001020101010401002a04 0105030401003e040105030401001d040103110401054504010001020101 010001020101010401002a040105030401003e0401050304010031040105 4504010001020101010001020101010401002a040105030401003e040105 03040100310401054504010001020101010001020101010401002a040105 030401003e04010503040100310401054504010001020101010001020101 010401002a040105030401003e0401050304010031040105450401000102 0101010001020101010401002a040105030401003e040105030401003104 01054504010001020101010001020101010401002a040105030401003e04 010503040100310401054504010001020101010001020101010401002c05 030401004005030401003305450401000102010101000102010101040000 2d050304000041050304000034054504010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f70401000102010100000401f704010003010400 0001f70404000001010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f900 01020101010001020001fa00010201010100130200010000d30200010000 130201010100130200010000d3020001000013020101010014010000d401 000015010000fe010301 % % Run-length encoding savings = 87.4% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 260 100 0 0 260 100 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 260 def /pp_by2 100 def gs 811 311 1930 1706 CB 810 310 1930 1706 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkExp2 %%Pages: 1 %%BoundingBox: 0 0 260 100 %%CreationDate: Thu Dec 1 15:18:00 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 260 100 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 260 100 8 [260 0 0 -100 0 100] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe001a000001d4000001150000010100130200010000d302000100001302 01010100130200010000d30200010000130201010100010212010000d401 0000110101020101010001020001fa000102010101000102000100000f02 00010000c102000100000f02000100000f02000100000102010101000102 000100000f0200010000c102000100000f02000100000f02000100000102 010101000102000100000f0200010000c102000100000f02000100000f02 000100000102010101000102000100000f02000100005d02010307020103 5702000100000f0200010000020209000202000100000102010101000102 000100000f0200010000670201035702000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100005202 010301020103010201030002010301020303010201030002010354020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000052020103010201030102010300020103 000201030102010300020203000201035302000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000530201030002010300020103010201030002 020303020103010201035302000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100005302010300020103000201030102010302020203 010201030102010353020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000530201030002010300020103010201030302020300020103 010201035302000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000540201030102 010302020103000201030102010300020103010201035302000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000540201030102010302020103010203030102010301020103 5302000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000c102000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000c1020001 00000f02000100000f02000100000102010101000102000100000f020001 0000c102000100000f02000100000f020001000001020101010001020001 000010010000c20100001001000010010000010201010000fd0100000301 04000001f70404000001010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f70401000102010101000102010101042e00 0304420003047900010401000102010101000102010101042d0000050304 410000050304780000050104010001020101010001020101010401002a04 0105030401003e0401050304010075040105010401000102010101000102 0101010401002a040105030401003e040105030401007504010501040100 01020101010001020101010401002a040105030401003e04010503040100 750401050104010001020101010001020101010401002a04010503040100 3e0401050304010075040105010401000102010101000102010101040100 2a040105030401003e040105030401007504010501040100010201010100 01020101010401002a040105030401003e04010503040100750401050104 010001020101010001020101010401000d04030303040103020401030d04 0105030401000d0403031c0401030d040105030401002d04010302040103 07040103360401050104010001020101010001020101010401000c040103 0104010302040103010401030e040105030401000c040103010401031b04 01030d040105030401002d04010302040103070401033604010501040100 01020101010001020101010401000b040103030401030104010300040103 0f040105030401000b040103050403030104010300040103020403030204 0303010401030d040105030401002d040103020401030104030301040103 000401030004010330040105010401000102010101000102010101040100 0b040103030401030104030310040105030401000b040103040401030104 010300040203000401030004010301040103000401030104010300040103 0d040105030401002d040103020401030004010301040103000401030004 0203000401032f0401050104010001020101010001020101010401000b04 0103030401030104030310040105030401000b0401030804010300040103 01040103000401030404010301040103000401030d040105030401002d04 060300040103010401030004010300040103010401032f04010501040100 01020101010001020101010401000b040103030401030104010300040103 0f040105030401000b040103050404030004010301040103000401030404 0503000401030d040105030401002d040103020401030004050300040103 00040103010401032f040105010401000102010101000102010101040100 0b0401030304010301040103010401030e040105030401000b0401030404 01030104010300040103010401030004010304040103040401030d040105 030401002d04010302040103000401030404010300040103010401032f04 01050104010001020101010001020101010401000c040103010401030204 0103020401030d040105030401000c040103010403030104010300040103 0104010300040103010401030004010301040103000401030d0401050304 01002d040103020401030004010301040103000401030004020300040103 2f0401050104010001020101010001020101010401000d04030303040103 030401030c040105030401000d0403030104020300040303010401030104 030302040303010401030d040105030401002d0401030204010301040303 010401030004010300040103300401050104010001020101010001020101 010401002a040105030401003e040105030401003f040103330401050104 010001020101010001020101010401002a040105030401003e0401050304 01003f040103330401050104010001020101010001020101010401002a04 0105030401003e040105030401003f040103330401050104010001020101 010001020101010401002a040105030401003e0401050304010075040105 0104010001020101010001020101010401002a040105030401003e040105 03040100750401050104010001020101010001020101010401002a040105 030401003e04010503040100750401050104010001020101010001020101 010401002a040105030401003e0401050304010075040105010401000102 0101010001020101010401002a040105030401003e040105030401007504 01050104010001020101010001020101010401002a040105030401003e04 010503040100750401050104010001020101010001020101010401002c05 030401004005030401007705010401000102010101000102010101040000 2d050304000041050304000078050104010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f70401000102010100000401f704010003010400 0001f70404000001010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f900 01020101010001020001fa00010201010100130200010000d30200010000 130201010100130200010000d3020001000013020101010014010000d401 000015010000fe010301 % % Run-length encoding savings = 87.4% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 260 100 0 0 260 100 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 260 def /pp_by2 100 def gs 811 311 1930 1230 CB 810 310 1930 1230 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkExp3 %%Pages: 1 %%BoundingBox: 0 0 260 100 %%CreationDate: Thu Dec 1 15:18:01 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 260 100 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 260 100 8 [260 0 0 -100 0 100] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe001a000001d4000001150000010100130200010000d302000100001302 01010100130200010000d30200010000130201010100010212010000d401 0000110101020101010001020001fa000102010101000102000100000f02 00010000c102000100000f02000100000f02000100000102010101000102 000100000f0200010000c102000100000f02000100000f02000100000102 010101000102000100000f0200010000c102000100000f02000100000f02 000100000102010101000102000100000f02000100005d02010307020103 5702000100000f0200010000020209000202000100000102010101000102 000100000f0200010000670201035702000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100005202 010301020103010201030002010301020303010201030002010354020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000052020103010201030102010300020103 000201030102010300020203000201035302000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000530201030002010300020103010201030002 020303020103010201035302000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100005302010300020103000201030102010302020203 010201030102010353020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000530201030002010300020103010201030302020300020103 010201035302000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000540201030102 010302020103000201030102010300020103010201035302000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000540201030102010302020103010203030102010301020103 5302000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000c102000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000c1020001 00000f02000100000f02000100000102010101000102000100000f020001 0000c102000100000f02000100000f020001000001020101010001020001 000010010000c20100001001000010010000010201010000fd0100000301 04000001f70404000001010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f70401000102010101000102010101042e00 0304420025043500230401000102010101000102010101042d0000050304 410000052504340000052304010001020101010001020101010401002a04 0105030401003e0401052504010031040105230401000102010101000102 0101010401002a040105030401003e040105250401003104010523040100 01020101010001020101010401002a040105030401003e04010525040100 310401052304010001020101010001020101010401002a04010503040100 3e0401052504010031040105230401000102010101000102010101040100 2a040105030401003e040105250401003104010523040100010201010100 01020101010401002a040105030401003e04010525040100310401052304 010001020101010001020101010401000d04030303040103020401030d04 0105030401000d0403031c0401030d040105250401000b04010302040103 07040103140401052304010001020101010001020101010401000c040103 0104010302040103010401030e040105030401000c040103010401031b04 01030d040105250401000b04010302040103070401031404010523040100 01020101010001020101010401000b040103030401030104010300040103 0f040105030401000b040103050403030104010300040103020403030204 0303010401030d040105250401000b040103020401030104030301040103 00040103000401030e040105230401000102010101000102010101040100 0b040103030401030104030310040105030401000b040103040401030104 010300040203000401030004010301040103000401030104010300040103 0d040105250401000b040103020401030004010301040103000401030004 0203000401030d0401052304010001020101010001020101010401000b04 0103030401030104030310040105030401000b0401030804010300040103 01040103000401030404010301040103000401030d040105250401000b04 060300040103010401030004010300040103010401030d04010523040100 01020101010001020101010401000b040103030401030104010300040103 0f040105030401000b040103050404030004010301040103000401030404 0503000401030d040105250401000b040103020401030004050300040103 00040103010401030d040105230401000102010101000102010101040100 0b0401030304010301040103010401030e040105030401000b0401030404 01030104010300040103010401030004010304040103040401030d040105 250401000b04010302040103000401030404010300040103010401030d04 01052304010001020101010001020101010401000c040103010401030204 0103020401030d040105030401000c040103010403030104010300040103 0104010300040103010401030004010301040103000401030d0401052504 01000b040103020401030004010301040103000401030004020300040103 0d0401052304010001020101010001020101010401000d04030303040103 030401030c040105030401000d0403030104020300040303010401030104 030302040303010401030d040105250401000b0401030204010301040303 0104010300040103000401030e0401052304010001020101010001020101 010401002a040105030401003e040105250401001d040103110401052304 010001020101010001020101010401002a040105030401003e0401052504 01001d040103110401052304010001020101010001020101010401002a04 0105030401003e040105250401001d040103110401052304010001020101 010001020101010401002a040105030401003e0401052504010031040105 2304010001020101010001020101010401002a040105030401003e040105 25040100310401052304010001020101010001020101010401002a040105 030401003e04010525040100310401052304010001020101010001020101 010401002a040105030401003e0401052504010031040105230401000102 0101010001020101010401002a040105030401003e040105250401003104 01052304010001020101010001020101010401002a040105030401003e04 010525040100310401052304010001020101010001020101010401002c05 030401004005250401003305230401000102010101000102010101040000 2d050304000041052504000034052304010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f70401000102010100000401f704010003010400 0001f70404000001010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f900 01020101010001020001fa00010201010100130200010000d30200010000 130201010100130200010000d3020001000013020101010014010000d401 000015010000fe010301 % % Run-length encoding savings = 87.4% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 320 868 1485 (pack .ok .cancel .help -side left) 1485 SB 320 1728 1215 (pack .ok .cancel -side left) 1215 SB 320 1818 1035 (pack .help -side left \\) 1035 SB 320 1908 135 ( ) 135 SB 151 0 10 fC 455 1908 900 (-expand true -fill x) 900 SB 0 150 136 fC 320 1297 1215 (pack .ok .cancel -side left) 1215 SB 320 1388 990 (pack .help -side left ) 990 SB 151 0 10 fC 1310 1388 540 (-expand true) 540 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 17 17 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 17) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1977 (The Packer: Expansion, cont'd) 1977 SB %MSEPS Preamble 0 0 260 100 0 0 260 100 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 260 def /pp_by2 100 def 0 lc 0 lj 0 0 0 pC 0 1 SP gs 811 311 2055 705 CB 810 310 2055 705 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkExp4 %%Pages: 1 %%BoundingBox: 0 0 260 100 %%CreationDate: Thu Dec 1 15:18:02 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 260 100 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 260 100 8 [260 0 0 -100 0 100] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe001a000001d4000001150000010100130200010000d302000100001302 01010100130200010000d30200010000130201010100010212010000d401 0000110101020101010001020001fa000102010101000102000100000f02 00010000c102000100000f02000100000f02000100000102010101000102 000100000f0200010000c102000100000f02000100000f02000100000102 010101000102000100000f0200010000c102000100000f02000100000f02 000100000102010101000102000100000f02000100005d02010307020103 5702000100000f0200010000020209000202000100000102010101000102 000100000f0200010000670201035702000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100005202 010301020103010201030002010301020303010201030002010354020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000052020103010201030102010300020103 000201030102010300020203000201035302000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000530201030002010300020103010201030002 020303020103010201035302000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100005302010300020103000201030102010302020203 010201030102010353020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000530201030002010300020103010201030302020300020103 010201035302000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000540201030102 010302020103000201030102010300020103010201035302000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000540201030102010302020103010203030102010301020103 5302000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000c102000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000c1020001 00000f02000100000f02000100000102010101000102000100000f020001 0000c102000100000f02000100000f020001000001020101010001020001 000010010000c20100001001000010010000010201010000fd0100000301 04000001f70404000001010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f704 010001020101010001020101f7040100010201010100010201010c042e00 190442001a0435000d040100010201010100010201010c042d0000051904 410000051a04340000050d040100010201010100010201010c0401002a04 0105190401003e0401051a040100310401050d0401000102010101000102 01010c0401002a040105190401003e0401051a040100310401050d040100 010201010100010201010c0401002a040105190401003e0401051a040100 310401050d040100010201010100010201010c0401002a04010519040100 3e0401051a040100310401050d040100010201010100010201010c040100 2a040105190401003e0401051a040100310401050d040100010201010100 010201010c0401002a040105190401003e0401051a040100310401050d04 0100010201010100010201010c0401000d04030303040103020401030d04 0105190401000d0403031c0401030d0401051a0401000b04010302040103 07040103140401050d040100010201010100010201010c0401000c040103 0104010302040103010401030e040105190401000c040103010401031b04 01030d0401051a0401000b0401030204010307040103140401050d040100 010201010100010201010c0401000b040103030401030104010300040103 0f040105190401000b040103050403030104010300040103020403030204 0303010401030d0401051a0401000b040103020401030104030301040103 00040103000401030e0401050d040100010201010100010201010c040100 0b040103030401030104030310040105190401000b040103040401030104 010300040203000401030004010301040103000401030104010300040103 0d0401051a0401000b040103020401030004010301040103000401030004 0203000401030d0401050d040100010201010100010201010c0401000b04 0103030401030104030310040105190401000b0401030804010300040103 01040103000401030404010301040103000401030d0401051a0401000b04 060300040103010401030004010300040103010401030d0401050d040100 010201010100010201010c0401000b040103030401030104010300040103 0f040105190401000b040103050404030004010301040103000401030404 0503000401030d0401051a0401000b040103020401030004050300040103 00040103010401030d0401050d040100010201010100010201010c040100 0b0401030304010301040103010401030e040105190401000b0401030404 01030104010300040103010401030004010304040103040401030d040105 1a0401000b04010302040103000401030404010300040103010401030d04 01050d040100010201010100010201010c0401000c040103010401030204 0103020401030d040105190401000c040103010403030104010300040103 0104010300040103010401030004010301040103000401030d0401051a04 01000b040103020401030004010301040103000401030004020300040103 0d0401050d040100010201010100010201010c0401000d04030303040103 030401030c040105190401000d0403030104020300040303010401030104 030302040303010401030d0401051a0401000b0401030204010301040303 0104010300040103000401030e0401050d04010001020101010001020101 0c0401002a040105190401003e0401051a0401001d040103110401050d04 0100010201010100010201010c0401002a040105190401003e0401051a04 01001d040103110401050d040100010201010100010201010c0401002a04 0105190401003e0401051a0401001d040103110401050d04010001020101 0100010201010c0401002a040105190401003e0401051a04010031040105 0d040100010201010100010201010c0401002a040105190401003e040105 1a040100310401050d040100010201010100010201010c0401002a040105 190401003e0401051a040100310401050d04010001020101010001020101 0c0401002a040105190401003e0401051a040100310401050d0401000102 01010100010201010c0401002a040105190401003e0401051a0401003104 01050d040100010201010100010201010c0401002a040105190401003e04 01051a040100310401050d040100010201010100010201010c0401002c05 1904010040051a04010033050d040100010201010100010201010c040000 2d051904000041051a04000034050d04010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f70401000102010100000401f704010003010400 0001f70404000001010001020101f704010001020101010001020101f704 010001020101010001020101f704010001020101010001020101f7040100 01020101010001020101f704010001020101010001020101f70401000102 0101010001020101f704010001020101010001020101f704010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f704010001020101010001020101f70401000102010101000102 0101f704010001020101010001020101f704010001020101010001020101 f704010001020101010001020101f704010001020101010001020101f900 01020101010001020001fa00010201010100130200010000d30200010000 130201010100130200010000d3020001000013020101010014010000d401 000015010000fe010301 % % Run-length encoding savings = 87.4% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 260 100 0 0 260 100 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 260 def /pp_by2 100 def gs 811 311 2055 1359 CB 810 310 2055 1359 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkExp5 %%Pages: 1 %%BoundingBox: 0 0 260 100 %%CreationDate: Thu Dec 1 15:18:02 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 260 100 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 260 100 8 [260 0 0 -100 0 100] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe001a000001d4000001150000010100130200010000d302000100001302 01010100130200010000d30200010000130201010100010212010000d401 0000110101020101010001020001fa000102010101000102000100000f02 00010000c102000100000f02000100000f02000100000102010101000102 000100000f0200010000c102000100000f02000100000f02000100000102 010101000102000100000f0200010000c102000100000f02000100000f02 000100000102010101000102000100000f02000100005d02010307020103 5702000100000f0200010000020209000202000100000102010101000102 000100000f0200010000670201035702000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100005202 010301020103010201030002010301020303010201030002010354020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000052020103010201030102010300020103 000201030102010300020203000201035302000100000502030005020001 000002020000070200010202000100000102010101000102000100000202 000007020001020200010000530201030002010300020103010201030002 020303020103010201035302000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100005302010300020103000201030102010302020203 010201030102010353020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000801 020200010000530201030002010300020103010201030302020300020103 010201035302000100000502000002010502000100000202000007020001 0202000100000102010101000102000100000f0200010000540201030102 010302020103000201030102010300020103010201035302000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000540201030102010302020103010203030102010301020103 5302000100000f0200010000020200000702000102020001000001020101 01000102000100000f0200010000c102000100000f020001000002020000 08010202000100000102010101000102000100000f0200010000c1020001 00000f02000100000f02000100000102010101000102000100000f020001 0000c102000100000f02000100000f020001000001020101010001020001 000010010000c20100001001000010010000010201010000fd0100000301 04000001f70404000001010001020101f704010001020101010001020101 010444000304590003044c00010401000102010101000102010101044300 000503045800000503044b00000501040100010201010100010201010104 010040040105030401005504010503040100480401050104010001020101 010001020101010401004004010503040100550401050304010048040105 010401000102010101000102010101040100400401050304010055040105 030401004804010501040100010201010100010201010104010040040105 030401005504010503040100480401050104010001020101010001020101 010401004004010503040100550401050304010048040105010401000102 010101000102010101040100400401050304010055040105030401004804 010501040100010201010100010201010104010040040105030401005504 010503040100480401050104010001020101010001020101010401004004 010503040100550401050304010048040105010401000102010101000102 010101040100400401050304010055040105030401004804010501040100 010201010100010201010104010040040105030401005504010503040100 480401050104010001020101010001020101010401004004010503040100 550401050304010048040105010401000102010101000102010101040100 400401050304010055040105030401004804010501040100010201010100 010201010104010040040105030401005504010503040100480401050104 010001020101010001020101010401004004010503040100550401050304 010048040105010401000102010101000102010101040100400401050304 010055040105030401004804010501040100010201010100010201010104 010040040105030401005504010503040100480401050104010001020101 010001020101010401004004010503040100550401050304010048040105 010401000102010101000102010101040100400401050304010055040105 030401004804010501040100010201010100010201010104010040040105 030401005504010503040100480401050104010001020101010001020101 010401004004010503040100550401050304010048040105010401000102 010101000102010101040100400401050304010055040105030401004804 010501040100010201010100010201010104010040040105030401005504 010503040100480401050104010001020101010001020101010401004004 010503040100550401050304010048040105010401000102010101000102 010101040100400401050304010055040105030401004804010501040100 010201010100010201010104010040040105030401005504010503040100 480401050104010001020101010001020101010401001804030303040103 020401031804010503040100180403031c04010319040105030401001604 010302040103070401032004010501040100010201010100010201010104 010017040103010401030204010301040103190401050304010017040103 010401031b04010319040105030401001604010302040103070401032004 010501040100010201010100010201010104010016040103030401030104 0103000401031a0401050304010016040103050403030104010300040103 020403030204030301040103190401050304010016040103020401030104 03030104010300040103000401031a040105010401000102010101000102 0101010401001604010303040103010403031b0401050304010016040103 040401030104010300040203000401030004010301040103000401030104 010300040103190401050304010016040103020401030004010301040103 000401030004020300040103190401050104010001020101010001020101 010401001604010303040103010403031b04010503040100160401030804 010300040103010401030004010304040103010401030004010319040105 030401001604060300040103010401030004010300040103010401031904 010501040100010201010100010201010104010016040103030401030104 0103000401031a0401050304010016040103050404030004010301040103 000401030404050300040103190401050304010016040103020401030004 050300040103000401030104010319040105010401000102010101000102 010101040100160401030304010301040103010401031904010503040100 160401030404010301040103000401030104010300040103040401030404 010319040105030401001604010302040103000401030404010300040103 010401031904010501040100010201010100010201010104010017040103 010401030204010302040103180401050304010017040103010403030104 010300040103010401030004010301040103000401030104010300040103 190401050304010016040103020401030004010301040103000401030004 020300040103190401050104010001020101010001020101010401001804 030303040103030401031704010503040100180403030104020300040303 010401030104030302040303010401031904010503040100160401030204 0103010403030104010300040103000401031a0401050104010001020101 010001020101010401004004010503040100550401050304010028040103 1d0401050104010001020101010001020101010401004004010503040100 5504010503040100280401031d0401050104010001020101010001020101 0104010040040105030401005504010503040100280401031d0401050104 010001020101010001020101010401004004010503040100550401050304 010048040105010401000102010101000102010101040100400401050304 010055040105030401004804010501040100010201010100010201010104 010040040105030401005504010503040100480401050104010001020101 010001020101010401004004010503040100550401050304010048040105 010401000102010101000102010101040100400401050304010055040105 030401004804010501040100010201010100010201010104010040040105 030401005504010503040100480401050104010001020101010001020101 010401004004010503040100550401050304010048040105010401000102 010101000102010101040100400401050304010055040105030401004804 010501040100010201010100010201010104010040040105030401005504 010503040100480401050104010001020101010001020101010401004004 010503040100550401050304010048040105010401000102010101000102 010101040100400401050304010055040105030401004804010501040100 010201010100010201010104010040040105030401005504010503040100 480401050104010001020101000004010104010040040105030401005504 010503040100480401050104010003010400000101040100400401050304 010055040105030401004804010501040400000101000102010101040100 400401050304010055040105030401004804010501040100010201010100 010201010104010040040105030401005504010503040100480401050104 010001020101010001020101010401004004010503040100550401050304 010048040105010401000102010101000102010101040100400401050304 010055040105030401004804010501040100010201010100010201010104 010040040105030401005504010503040100480401050104010001020101 010001020101010401004004010503040100550401050304010048040105 010401000102010101000102010101040100400401050304010055040105 030401004804010501040100010201010100010201010104010040040105 030401005504010503040100480401050104010001020101010001020101 010401004004010503040100550401050304010048040105010401000102 010101000102010101040100400401050304010055040105030401004804 010501040100010201010100010201010104010040040105030401005504 010503040100480401050104010001020101010001020101010401004004 010503040100550401050304010048040105010401000102010101000102 0101010401004205030401005705030401004a0501040100010201010100 01020101010400004305030400005805030400004b050104010001020101 010001020101f704010001020101010001020101f7040100010201010100 01020101f90001020101010001020001fa00010201010100130200010000 d30200010000130201010100130200010000d30200010000130201010100 14010000d401000015010000fe010301 % % Run-length encoding savings = 83.8% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 345 772 1575 (pack .ok .cancel .help -side left \\) 1575 SB 345 863 180 ( ) 180 SB 151 0 10 fC 525 863 540 (-expand true) 540 SB 0 150 136 fC 345 1426 1575 (pack .ok .cancel .help -side left \\) 1575 SB 345 1516 180 ( ) 180 SB 151 0 10 fC 525 1516 900 (-expand 1 -fill both) 900 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 18 18 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 18) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -4 1 SJ 320 266 1366 (Hierarchical Packing) 1366 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 9 7 SJ 320 526 2599 (Use additional frames to create more complex arrangements:) 2599 SB 32 0 0 67 67 0 0 0 57 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 345 700 440 (frame .left) 440 SB 345 773 1560 (pack .left -side left -padx 3m -pady 3m) 1560 SB 345 845 480 (frame .right) 480 SB 345 917 1640 (pack .right -side right -padx 3m -pady 3m) 1640 SB 345 990 1200 (foreach size {8 10 12 18 24} {) 1200 SB 345 1062 1640 ( radiobutton .pts$size -variable pts \\) 1640 SB 345 1135 1640 ( -value $size -text "$size points") 1640 SB 345 1207 40 (}) 40 SB 345 1279 1600 (pack .pts8 .pts10 .pts12 .pts18 .pts24 \\) 1600 SB 345 1352 1320 ( -in .left -side top -anchor w) 1320 SB 345 1424 1200 (checkbutton .bold -text Bold \\) 1200 SB 345 1497 720 ( -variable bold) 720 SB 345 1569 1360 (checkbutton .italic -text Italic \\) 1360 SB 345 1641 800 ( -variable italic) 800 SB 345 1714 1600 (checkbutton .underline -text Underline \\) 1600 SB 345 1786 920 ( -variable underline) 920 SB 345 1859 1240 (pack .bold .italic .underline \\) 1240 SB 345 1931 1360 ( -in .right -side top -anchor w) 1360 SB %MSEPS Preamble 0 0 224 171 0 0 224 171 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 224 def /pp_by2 171 def 0 lc 0 lj 0 0 0 pC 0 1 SP gs 699 533 2161 1092 CB 698 532 2161 1092 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkPkHr %%Pages: 1 %%BoundingBox: 0 0 224 171 %%CreationDate: Thu Dec 1 15:51:53 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 224 171 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 21 string def /drawcolormappedimage { 224 171 8 [224 0 0 -171 0 171] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 a72d5b pop pop drawcolormappedimage f5000001b0000001150000010100130200010000af020001000013020101 0100130200010000af0200010000130201010100010212010000b0010000 110101020101010001020001d6000102010101000102000100000f020001 00009d02000100000f02000100000f020001000001020101010001020001 00000f02000100009d02000100000f02000100000f020001000001020101 01000102000100000f02000100009d02000100000f02000100000f020001 00000102010101000102000100000f02000100004b020103070201034502 000100000f02000100000202090002020001000001020101010001020001 00000f0200010000550201034502000100000f0200010000020200000702 00010202000100000102010101000102000100000f020001000040020103 010201030102010300020103010203030102010300020103420200010000 0f0200010000020200000702000102020001000001020101010001020001 000002020900020200010000400201030102010301020103000201030002 010301020103000202030002010341020001000005020300050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100004102010300020103000201030102010300020203 030201030102010341020001000005020000010200010502000100000202 000007020001020200010000010201010100010200010000020200000702 000102020001000041020103000201030002010301020103020202030102 010301020103410200010000050200000102000105020001000002020000 070200010202000100000102010101000102000100000202000008010202 000100004102010300020103000201030102010303020203000201030102 010341020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100004202010301020103 02020103000201030102010300020103010201034102000100000f020001 000002020000070200010202000100000102010101000102000100000f02 000100004202010301020103020201030102030301020103010201034102 000100000f02000100000202000007020001020200010000010201010100 0102000100000f02000100009d02000100000f0200010000020200000801 0202000100000102010101000102000100000f02000100009d0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 9d02000100000f02000100000f0200010000010201010100010200010000 100100009e0100001001000010010000010201010000d901000003010400 0001d30404000001010001020101d304010001020101010001020101d304 010001020101010001020101d304010001020101010001020101d3040100 01020101010001020101d304010001020101010001020101d30401000102 0101010001020101d304010001020101010001020101d304010001020101 010001020101d304010001020101010001020101d3040100010201010100 01020101d304010001020101010001020101d30401000102010101000102 0101d304010001020101010001020101d304010001020101010001020101 d304010001020101010001020101d3040100010201010100010201011504 0100bb04010001020101010001020101140403000c040303130401030804 01038804010001020101010001020101130405000a040103010401031d04 010388040100010201010100010201011204020001040200090401030104 010304040103000401030204030301040103000401030004010301040303 010403038104010001020101010001020101110402000304020009040303 050402030004010300040103010401030004010300040203000401030104 010301040103010401038004010001020101010001020101100402000504 020007040103010401030404010301040103000401030104010300040103 000401030104010301040103010402038304010001020101010001020101 0f0402050704020506040103010401030404010301040103000401030104 010300040103000401030104010301040103030402038104010001020101 010001020101100402050504020507040103010401030404010301040103 000401030104010300040103000401030104010301040103040402038004 010001020101010001020101110402050304020508040103010401030404 020300040103000401030104010300040103000401030104010301040103 000402030104010380040100010201010100010201011204020501040205 0a0403030504010300040103020403030104010300040103010401030204 01030104030381040100010201010100010201011304050515040103a104 0100010201010100010201011404030516040103a1040100010201010100 010201011504010517040103a104010001020101010001020101d3040100 01020101010001020101d304010001020101010001020101d30401000102 0101010001020101d304010001020101010001020101d304010001020101 010001020101d304010001020101010001020101d3040100010201010100 01020101d304010001020101010001020101d30401000102010101000102 0101d304010001020101010001020101d304010001020101010001020101 15040105bb04010001020101010001020101140403050d04010303040303 130401030804010328040a000704050308040103040401032d0401000102 0101010001020101130405050a04030302040103010401031d0401032804 09000005070401030204010307040103040401032d040100010201010100 0102010112040205010602050b0401030204010301040103040401030004 010302040303010401030004010300040103010403030104030321040100 060401050704010302040103010403030104010301040103000401032d04 01000102010101000102010111040205030602050a040103020401030104 010304040203000401030004010301040103000401030004020300040103 010401030104010301040103200401000604010507040103020401030004 0103010401030004010300040103000402032d0401000102010101000102 010110040205050602050904010302040103010401030404010301040103 000401030104010300040103000401030104010301040103010402032304 010006040105070405030104010301040103000401030004010301040103 2d040100010201010100010201010f040200070602000804010302040103 010401030404010301040103000401030104010300040103000401030104 010301040103030402032104010006040105070401030204010300040103 010401030004010300040103010401032d04010001020101010001020101 100402000506020009040103020401030104010304040103010401030004 010301040103000401030004010301040103010401030404020320040100 060401050704010302040103000401030104010300040103000401030104 01032d0401000102010101000102010111040200030602000a0401030204 010301040103040402030004010300040103010401030004010300040103 010401030104010300040203010401032004010006040105070401030204 010300040103010401030004010300040103000402032d04010001020101 01000102010112040200010602000b040103030403030504010300040103 020403030104010300040103010401030204010301040303210401000604 010507040503020403030104010301040103000401032d04010001020101 010001020101130405001c0401034104010008054d040100010201010100 01020101140403001d0401034104000009054d0401000102010101000102 0101150401001e0401039a04010001020101010001020101d30401000102 0101010001020101d304010001020101010001020101d304010001020101 010001020101d304010001020101010001020101d3040100010201010100 01020101d304010001020101010001020101d30401000102010101000102 0101d304010001020101010001020101d304010001020101010001020101 d304010001020101010001020101d3040100010201010100010201011504 0100bb04010001020101010001020101140403000d040103030403031304 01030804010328040a050704010301040103080401030004010331040100 01020101010001020101130405000a04030302040103010401031d040103 280409050000070401030104010308040103340401000102010101000102 010112040200010402000b04010306040103040401030004010302040303 010401030004010300040103010403030104030321040105060601000704 010300040303010403030104010300040103010403032b04010001020101 01000102010111040200030402000a040103050401030504020300040103 000401030104010300040103000402030004010301040103010401030104 010320040105060601000704010301040103010401030104010300040103 0004010300040103010401032a0401000102010101000102010110040200 050402000904010304040103060401030104010300040103010401030004 010300040103010401030104010301040203230401050606010007040103 01040103050401030004010300040103000401032e040100010201010100 010201010f04020507040205080401030304010307040103010401030004 010301040103000401030004010301040103010401030304020321040105 060601000704010301040103020404030004010300040103000401032e04 010001020101010001020101100402050504020509040103020401030804 010301040103000401030104010300040103000401030104010301040103 040402032004010506060100070401030104010301040103010401030004 010300040103000401032e04010001020101010001020101110402050304 02050a040103020401030804020300040103000401030104010300040103 000401030104010301040103000402030104010320040105060601000704 010301040103000402030104010300040103000401030004010301040103 2a0401000102010101000102010112040205010402050b04010302040503 040401030004010302040303010401030004010301040103020401030104 030321040105060601000704010302040103010402030004030300040103 010403032b04010001020101010001020101130405051c04010341040105 08004d04010001020101010001020101140403051d040103410400050900 4d04010001020101010001020101150401051e0401039a04010001020101 010001020101d304010001020101010001020101d3040100010201010100 01020101d304010001020101010001020101d30401000102010101000102 0101d304010001020101010001020101d304010001020101010001020101 d304010001020101010001020101d304010001020101010001020101d304 010001020101010001020101d304010001020101010001020101d3040100 0102010101000102010115040100bb040100010201010100010201011404 03000d04010303040303130401030804010328040a050704010302040103 0b0401030c040103000401031e0401000102010101000102010113040500 0a04030302040103010401031d0401032804090500000704010302040103 0b0401030c04010321040100010201010100010201011204020001040200 0b0401030204010301040103040401030004010302040303010401030004 010300040103010403030104030321040105060601000704010302040103 000401030004010302040103000401030104030301040103000403030004 010300040103000401030204030311040100010201010100010201011104 0200030402000a0401030304030305040203000401030004010301040103 000401030004020300040103010401030104010301040103200401050606 010007040103020401030004020300040103000401030004020300040103 010401030004060300040103000402030004010300040103010401031004 010001020101010001020101100402000504020009040103020401030104 010304040103010401030004010301040103000401030004010301040103 010401030104020323040105060601000704010302040103000401030104 010300040103010401030004010301040103000402030104010300040103 000401030104010300040103010401031004010001020101010001020101 0f0402050704020508040103020401030104010304040103010401030004 010301040103000401030004010301040103010401030304020321040105 060601000704010302040103000401030104010300040103010401030004 050300040103020401030004010300040103010401030004050310040100 010201010100010201011004020505040205090401030204010301040103 040401030104010300040103010401030004010300040103010401030104 010304040203200401050606010007040103020401030004010301040103 000401030104010300040103040401030204010300040103000401030104 010300040103140401000102010101000102010111040205030402050a04 010302040103010401030404020300040103000401030104010300040103 000401030104010301040103000402030104010320040105060601000804 010300040103010401030104010300040103000402030004010301040103 000401030204010300040103000401030104010300040103010401031004 01000102010101000102010112040205010402050b040103030403030504 010300040103020403030104010300040103010401030204010301040303 210401050606010008040403010401030104010301040103000401030104 030301040103020401030004010300040103010401030104030311040100 01020101010001020101130405051c0401034104010508004d0401000102 0101010001020101140403051d0401034104000509004d04010001020101 010001020101150401051e0401039a04010001020101010001020101d304 010001020101010001020101d304010001020101010001020101d3040100 01020101010001020101d304010001020101010001020101d30401000102 0101010001020101d304010001020101010001020101d304010001020101 010001020101d304010001020101010001020101d3040100010201010100 01020101d304010001020101010001020101d30401000102010101000102 010115040100bb04010001020101010001020101140403000c0403030504 010312040103080401038104010001020101010001020101130405000a04 010301040103030402031d04010381040100010201010100010201011204 0200010402000d0401030204000300040103040401030004010302040303 01040103000401030004010301040303010403037a040100010201010100 0102010111040200030402000b0401030304000300040103040402030004 010300040103010401030004010300040203000401030104010301040103 010401037904010001020101010001020101100402000504020009040103 030400030104010304040103010401030004010301040103000401030004 01030104010301040103010402037c040100010201010100010201010f04 020507040205070401030304000302040103040401030104010300040103 0104010300040103000401030104010301040103030402037a0401000102 010101000102010110040205050402050704010304040603030401030104 010300040103010401030004010300040103010401030104010304040203 790401000102010101000102010111040205030402050804010308040103 040402030004010300040103010401030004010300040103010401030104 010300040203010401037904010001020101010001020101120402050104 020509040503040401030404010300040103020403030104010300040103 0104010302040103010403037a0401000102010101000102010113040505 1c0401039a0401000102010100000401140403051d0401039a0401000301 04000001150401051e0401039a0404000001010001020101d30401000102 0101010001020101d304010001020101010001020101d304010001020101 010001020101d304010001020101010001020101d3040100010201010100 01020101d304010001020101010001020101d30401000102010101000102 0101d304010001020101010001020101d304010001020101010001020101 d304010001020101010001020101d304010001020101010001020101d304 010001020101010001020101d304010001020101010001020101d3040100 01020101010001020101d304010001020101010001020101d30401000102 0101010001020101d50001020101010001020001d6000102010101001302 00010000af0200010000130201010100130200010000af02000100001302 0101010014010000b001000015010000de01 % % Run-length encoding savings = 83.5% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 19 19 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 19) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 1 1 SJ 320 266 1237 (Widget Commands) 1237 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 7 SJ 433 576 2167 (Tcl command for each widget, named after widget.) 2167 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 788 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 4 SJ 433 756 1713 (Used to reconfigure, manipulate widget:) 1713 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 903 550 (button .a.b) 550 SB 470 998 1450 (.a.b configure -relief sunken) 1450 SB 470 1093 500 (.a.b flash) 500 SB 470 1212 600 (scrollbar .x) 600 SB 470 1307 700 (.x set 0.2 0.7) 700 SB 470 1402 300 (.x get) 300 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1586 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 7 SJ 433 1554 2299 (Widget command is deleted when widget is destroyed.) 2299 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1766 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1734 2139 (Principle: all state should be readable, modifiable,) 2139 SB 433 1854 368 (anytime.) 368 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 20 20 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 20) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 791 (Connections) 791 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 533 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 501 2285 (How to make widgets work together with application,) 2285 SB 433 621 675 (other widgets? ) 675 SB 151 0 10 fC 1108 621 472 (Tcl scripts.) 472 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 803 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 4 SJ 433 771 1480 (Widget actions are Tcl commands:) 1480 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 918 1250 (button .a.b -command exit) 1250 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1252 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 5 7 SJ 433 1220 2298 (Widgets use Tcl commands to communicate with each) 2298 SB 433 1340 260 (other:) 260 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1487 1750 (scrollbar .s -command ".text yview") 1750 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1822 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 4 5 SJ 433 1790 2199 (Application uses widget commands to communicate) 2199 SB -2 1 SJ 433 1910 563 (with widgets.) 563 SB 145 145 145 fC /fm 256 def 1292 1050 M -77 -52 77 -52 0 26 77 0 0 52 -77 0 0 26 7 PP 1 F n 0 0 0 fC /fm 256 def 1292 1050 M -4 -8 0 -22 77 0 0 -44 -77 0 0 -22 -66 44 66 44 4 8 -77 -52 77 -52 0 26 77 0 0 52 -77 0 0 26 16 PP 1 F n 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 1445 1059 180 (exit) 180 SB 0 0 0 pC 6 4 SP 252 254 185 fC /fm 256 def 467 1040 1116 1164 15 15 RR 1 F S n 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 0 0 0 fC -2 1 SJ 558 1050 467 (button release) 467 SB 145 145 145 fC /fm 256 def 1292 1626 M -77 -52 77 -52 0 26 77 0 0 52 -77 0 0 26 7 PP 1 F n 0 0 0 fC /fm 256 def 1292 1626 M -4 -8 0 -22 77 0 0 -44 -77 0 0 -22 -66 44 66 44 4 8 -77 -52 77 -52 0 26 77 0 0 52 -77 0 0 26 16 PP 1 F n 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 1445 1634 1125 (.text yview scroll 1 unit) 1125 SB 6 4 SP 252 254 185 fC /fm 256 def 467 1615 1116 1739 15 15 RR 1 F S n 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 0 0 0 fC 550 1626 482 (click on arrow) 482 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 21 21 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 21) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 566 (Bindings) 566 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 5 SJ 433 576 1507 (Associate Tcl scripts with X events:) 1507 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 732 2040 (bind .b {backspace .t}) 2040 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1177 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1145 180 (Use ) 180 SB 151 0 10 fC 614 1145 172 (tags) 172 SB 0 0 0 fC 3 6 SJ 786 1145 1337 ( to select one or more windows:) 1337 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1279 50 (\226) 50 SB 1 3 SJ 564 1279 746 (Name of window: ) 746 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 1311 1283 120 (.b) 120 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 470 1411 50 (\226) 50 SB 1 2 SJ 564 1411 566 (Widget class: ) 566 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 1131 1415 240 (Text) 240 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 470 1543 50 (\226) 50 SB 564 1543 567 (All windows: ) 567 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 1131 1547 180 (all) 180 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 470 1675 50 (\226) 50 SB 2 2 SJ 564 1675 673 (Arbitrary string: ) 673 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 1240 1679 180 (foo) 180 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 2 1 SJ 1420 1675 50 (, ) 50 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 1471 1679 180 (bar) 180 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 1 1 SJ 1651 1675 125 (, ...) 125 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 151 0 10 fC 652 953 144 (Win) 143 SB 795 953 205 (dow\(s) 204 SB 999 953 28 (\)) 28 SB 1167 953 194 (Event) 194 SB 1990 953 47 (S) 46 SB 2036 953 153 (cript) 153 SB 151 0 10 pC 6 4 SP gs 3231 98 0 869 CB 840 1088 M 0 -375 1 PP S n gr /fm 256 def 840 837 M -18 -62 36 0 -18 62 3 PP 1 F n 6 4 SP gs 3231 98 0 869 CB 1265 1088 M 0 -375 1 PP S n gr /fm 256 def 1265 837 M -18 -62 36 0 -18 62 3 PP 1 F n 6 4 SP gs 3231 98 0 869 CB 2090 1088 M 0 -375 1 PP S n gr /fm 256 def 2090 837 M -18 -62 36 0 -18 62 3 PP 1 F n 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 22 22 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 22) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1793 (Bindings: Specifying Events) 1793 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC -1 1 SJ 433 576 770 (Specifying events:) 770 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 732 1800 () 1800 SB 470 1211 180 (<3>) 180 SB 470 1361 840 () 840 SB 470 1511 60 (a) 60 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 151 0 10 fC 750 1028 75 (M) 74 SB 824 1028 84 (od) 83 SB 907 1028 23 (i) 24 SB 931 1028 29 (f) 27 SB 958 1028 121 (iers) 121 SB 1667 1021 194 (Event) 194 SB 1679 1111 170 (Type) 170 SB -2 1 SJ 2031 1021 319 (Button or) 319 SB 2051 1111 273 (Keysym) 273 SB 151 0 10 pC 6 4 SP gs 3231 148 0 869 CB 1765 1188 M 0 -525 1 PP S n gr /fm 256 def 1765 837 M -18 -62 36 0 -18 62 3 PP 1 F n 6 4 SP gs 3231 148 0 869 CB 2190 1188 M 0 -525 1 PP S n gr /fm 256 def 2190 837 M -18 -62 36 0 -18 62 3 PP 1 F n 6 4 SP 865 1013 M 0 -67 -175 0 0 -50 3 PP S n /fm 256 def 690 837 M -18 -63 36 0 -18 63 3 PP 1 F n 6 4 SP 965 1013 M 0 -67 175 0 0 -50 3 PP S n /fm 256 def 1140 837 M -18 -63 36 0 -18 63 3 PP 1 F n 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 23 23 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 23) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 2 1 SJ 320 266 1494 (Bindings: Substitutions) 1494 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC -4 4 SJ 433 576 1477 (% substitutions in binding scripts:) 1477 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 728 50 (\226) 50 SB 1 3 SJ 564 728 996 (Coordinates from event: ) 996 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 1560 732 180 (%x ) 180 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 1740 728 169 (and ) 169 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 1909 732 120 (%y) 120 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 2029 728 25 (.) 25 SB 470 878 50 (\226) 50 SB -1 1 SJ 564 878 398 (Window: ) 398 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 961 882 120 (%W) 120 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 1081 878 25 (.) 25 SB 470 1028 50 (\226) 50 SB 2 3 SJ 564 1028 900 (Character from event: ) 900 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 1466 1032 120 (%A) 120 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 1586 1028 25 (.) 25 SB 470 1178 50 (\226) 50 SB 4 1 SJ 564 1178 535 (Many more...) 535 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1358 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1326 449 (Examples:) 449 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1482 1920 (bind .c {move %x %y}) 1920 SB 470 1632 1800 (bind .t {insert %A}) 1800 SB 470 1782 1500 (bind all {help %W}) 1500 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 24 24 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 24) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -1 1 SJ 320 266 947 (Binding Order) 947 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 576 1823 (What if multiple bindings match an event?) 1823 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 702 780 (bind .t a ...) 780 SB 470 822 1380 (bind all ...) 1380 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1027 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 6 SJ 433 995 1846 (One binding triggers per tag: most specific.) 1846 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1207 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1175 1911 (Default order of tags: class, widget, toplevel, ) 1911 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 2344 1181 180 (all) 180 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 2524 1175 25 (.) 25 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1387 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 4 SJ 433 1355 940 (Can change tags with ) 940 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1374 1361 480 (bindtags) 480 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1854 1355 478 ( command:) 478 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1481 1980 (bindtags .b {MyButton .b foo all}) 1980 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1686 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1654 367 (Can use ) 367 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 800 1660 300 (break) 300 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 150 136 fC 1100 1654 25 ( ) 25 SB 0 0 0 fC 1125 1654 733 (to skip later tags.) 733 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1866 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 151 0 10 fC 433 1834 1614 (Note: these rules apply only to Tk 4.0.) 1614 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 25 25 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 25) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1193 (More On Bindings) 1193 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 576 2271 (Text and canvas widgets support bindings internally:) 2271 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 728 50 (\226) 50 SB 3 5 SJ 564 728 1450 (Associate tags with text or graphics:) 1450 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 564 852 1320 (.t tag add foo 1.0 2.0) 1320 SB 564 972 2160 (.c create rect 1c 1c 2c 2c -tags foo) 2160 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 470 1118 50 (\226) 50 SB 2 3 SJ 564 1118 1173 (Associate bindings with tags:) 1173 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 564 1242 1260 (.t bind foo <1> {...}) 1260 SB 564 1361 1500 (.c bind foo {...}) 1500 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1627 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1595 1682 (Bindings always execute at global level:) 1682 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1747 50 (\226) 50 SB 10 6 SJ 564 1747 1955 (If binding created in procedure, procedure's local) 1955 SB 5 4 SJ 564 1867 1560 (variables aren't available at event-time.) 1560 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 26 26 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 26) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -2 1 SJ 320 266 831 (Quoting Hell) 831 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 558 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 526 2154 (Often want binding script to use some information) 2154 SB 7 4 SJ 433 646 1782 (from binding-time, some from event-time.) 1782 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 828 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 5 5 SJ 433 796 1623 (Use list commands to generate scripts.) 1623 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 978 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 6 5 SJ 433 946 2158 (Use procedures to separate event-time information) 2158 SB 2 2 SJ 433 1066 1212 (from bind-time information.) 1212 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1184 1700 (bind .x <1> {set y [expr $a + $b]}) 1700 SB 470 1444 1700 (bind .x <1> "set y [expr $a + $b]") 1700 SB 470 1584 650 (proc sety a {) 650 SB 470 1674 700 ( global b y) 700 SB 470 1764 1200 ( set y [expr $a + $b]) 1200 SB 470 1855 50 (}) 50 SB 470 1945 1300 (bind .x <1> [list sety $a]) 1300 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 151 0 10 fC 1 2 SJ 784 1328 675 (Use bind-time value) 675 SB 2 2 SJ 2320 1328 706 (Use event-time value) 706 SB 151 0 10 pC 6 4 SP 1490 1388 M 0 -67 275 0 2 PP S n /fm 256 def 1765 1262 M -18 -63 36 0 -18 63 3 PP 1 F n 6 4 SP 2290 1388 M 0 -67 -275 0 2 PP S n /fm 256 def 2015 1262 M -18 -63 36 0 -18 63 3 PP 1 F n 174 1328 107 (Wr) 106 SB 280 1328 125 (ong) 125 SB 6 4 SP gs 94 61 440 1306 CB 315 1438 M 375 -225 1 PP S n gr /fm 256 def 565 1287 M 44 -47 18 30 -62 17 3 PP 1 F n 6 4 SP gs 94 57 440 1388 CB 315 1313 M 375 225 1 PP S n gr /fm 256 def 565 1464 M 62 17 -18 30 -44 -47 3 PP 1 F n 197 1753 185 (Right) 185 SB 6 4 SP 0 0 1 -39 1 0 -26 25 37 466 1627 A S n 0 0 1 0 -26 39 1 25 37 466 2002 A S n 0 0 1 0 28 -39 1 25 37 416 1852 A S n gs 3231 154 0 1851 CB 440 1701 M 0 450 1 PP S n gr gs 3231 154 0 1626 CB 440 1476 M 0 450 1 PP S n gr 0 0 1 39 1 0 28 25 37 416 1777 A S n 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 27 27 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 27) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1375 (Other Tk Commands) 1375 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 558 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 1 SJ 433 526 591 (The selection:) 591 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 652 780 (selection get) 780 SB 470 772 1380 (selection get FILE_NAME) 1380 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 977 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 5 SJ 433 945 1875 (Issuing commands to other Tk applications:) 1875 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1071 1800 (send tgdb "break tkEval.c:200") 1800 SB 470 1191 780 (winfo interps) 780 SB 32 0 0 101 101 0 0 0 81 /ZapfDingbats font 0 0 0 fC 470 1316 70 (\355) 70 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 540 1311 60 ( ) 60 SB 151 0 10 fC 600 1311 900 (wish tgdb ppres) 900 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1517 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC -1 1 SJ 433 1485 932 (Window information:) 932 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1610 840 (winfo width .x) 840 SB 470 1730 960 (winfo children .) 960 SB 470 1850 1320 (winfo containing $x $y) 1320 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 28 28 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 28) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -4 4 SJ 320 266 1823 (Access To Other X Facilities) 1823 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 576 708 (Keyboard focus:) 708 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 702 600 (focus .x.y) 600 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 878 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 846 1697 (Communication with window manager:) 1697 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 972 1620 (wm title . "Editing main.c") 1620 SB 470 1092 1260 (wm geometry . 300x200) 1260 SB 470 1211 720 (wm iconify .) 720 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1387 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC -2 1 SJ 433 1355 788 (Deleting windows:) 788 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1481 600 (destroy .x) 600 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1657 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1625 299 (Grabs:) 299 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1751 420 (grab .x) 420 SB 470 1871 900 (grab release .x) 900 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 29 29 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 29) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 843 (Example #1: ) 843 SB 32 0 0 150 150 0 0 0 128 /Courier-Bold /font9 ANSIFont font 1163 275 720 (showVars) 720 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 576 1978 (Displays values of one or more values, updates) 1978 SB 433 696 615 (automatically:) 615 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 882 1980 (showVars .vars name age ssn phone) 1980 SB %MSEPS Preamble 0 0 222 176 0 0 222 176 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 222 def /pp_by2 176 def 0 lc 0 lj 0 0 0 pC 0 1 SP gs 924 732 1002 1170 CB 923 731 1002 1170 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkShow3 %%Pages: 1 %%BoundingBox: 0 0 222 176 %%CreationDate: Wed Mar 15 09:46:09 1995 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 222 176 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 24 string def /drawcolormappedimage { 222 176 8 [222 0 0 -176 0 176] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba 887a68 e2cbae pop pop drawcolormappedimage f4000001ac000001160000010100140200010000ab020001000014020101 0100140200010000ab0200010000140201010100010213010000ac010000 120101020101010001020001d40001020101010001020001000010020001 000098020001000010020001000010020001000001020101010001020001 000010020001000098020001000010020001000010020001000001020101 010001020001000010020001000098020001000010020001000010020001 000001020101010001020001000010020001000098020001000010020001 000002020a00020200010000010201010100010200010000100200010000 1f020103030201030c020103070201030402010318020103350200010000 100200010000020200000802000102020001000001020101010001020001 000010020001000020020103020200031702010304020103180201033502 000100001002000100000202000008020001020200010000010201010100 01020001000002020a000202000100002002010301020103010203030202 030300020103000203030202040301020103000203030402010301020103 010203030202010300020103010201030002030302020303220200010000 050203000602000100000202000008020001020200010000010201010100 010200010000020200000802000102020001000020020103010201030002 000302020103010203030002020302020103010201030102010300020103 000200030102000305020003010200030102000302020103010201030002 010301020103000200030102000301020103010201032102000100000502 000001020001060200010000020200000802000102020001000001020101 010001020001000002020000080200010202000100002102000301020003 030203030102010302020103010203030102010301020103000203030102 010304020003010200030302030301020103000201030102030301020103 000201032502000100000502000001020001060200010000020200000802 000102020001000001020101010001020001000002020000090102020001 000021020303020204030102010302020103000204030102010301020103 000207030402000301020003020204030102010300020103010207030102 030322020001000005020000020106020001000002020000080200010202 000100000102010101000102000100001002000100002102030301020103 010201030102010302020303010201030102010301020103000203030802 010300020003010201030102010301020103000201030102030308020103 210200010000100200010000020200000802000102020001000001020101 010001020001000010020001000022020103020201030102010301020103 020203030102010301020103010200030102010300020003010201030502 010302020103010201030102010300020103010201030002000301020103 000201030102010321020001000010020001000002020000080200010202 000100000102010101000102000100001002000100002202010303020403 010201030202010300020403010204030102010300020303060201030302 040301020103010204030002030302020303220200010000100200010000 020200000802000102020001000001020101010001020001000010020001 000098020001000010020001000002020000090102020001000001020101 010001020001000010020001000098020001000010020001000010020001 000001020101010001020001000010020001000098020001000010020001 000010020001000001020101010001020001000011010000990100001101 000011010000010201010000d7010000030104000001d600000101000102 0101d00000040100010201010100010201012300ab050104010001020101 01000102010122000006ab05010401000102010101000102010103001d07 0106ab05010401000102010101000102010103001d070106ab0501040100 0102010101000102010103001d070106ab05010401000102010101000102 010103001d070106ab05010401000102010101000102010103001d070106 ab05010401000102010101000102010103001d070106ab05010401000102 010101000102010103001d070106ab050104010001020101010001020101 03000507050300070103000701030b070106ab0501040100010201010100 01020101030005070103070701030b070106ab0501040100010201010100 0102010103000507010304070103000701030007030306070106ab050104 010001020101010001020101030005070103040701030007010300070003 0107000306070106ab050104010001020101010001020101030005070503 00070103000703030107010305070106ab05010401000102010101000102 0101030005070103040701030007070305070106ab050104010001020101 010001020101030005070103040701030007030309070106ab0501040100 010201010100010201010300050701030407010300070103000700030107 010305070106ab0501040100010201010100010201010300050701030407 0103000701030007030306070106ab050104010001020101010001020101 03001d070106ab0501040100010201010100010201010300040706031107 0106ab05010401000102010101000102010103000407060311070106ab05 010401000102010101000102010103001d070106ab050104010001020101 01000102010103001d070106ab0501040100010201010100010201010300 1d070106ab05010401000102010101000102010103001d070106ab050104 01000102010101000102010103001f06ab05010401000102010101000102 010102002006ab0501040100010201010100010201012400ac0401000102 0101010001020101000000042100ad040100010201010100010201010300 1e050104ae000102010101000102010103001e050104ab00000401000102 010101000102010103001e050104aa050104010001020101010001020101 03001e050104aa05010401000102010101000102010103001e050104aa05 010401000102010101000102010103000304050505040505050402050104 aa0501040100010201010100010201010800030507000305070001050104 aa05010401000102010101000102010103001e050104aa05010401000102 010101000102010103001e050104aa050104010001020101010001020101 03001e0501040405010306050103100501030b0501030705010323050103 4905010401000102010101000102010103001e0501040505000306050003 110501030b05010307050103230501034905010401000102010101000102 010103001e05010405050103040501031f05010307050103230501034905 010401000102010101000102010103001e05010405050103040501030305 030303050103000501030005010303050303030501030005020303050103 030503030705010304050103020503030305010301050103030501030305 0303050502032e05010401000102010101000102010103001e0501040605 000304050003030501030205010301050203020501030205010302050103 010502030105010302050103020501030105010307050003040500030205 010302050103010501030105010303050103020501030105010303050003 02050003030501032705010401000102010101000102010103001e050104 060501030205010302050103030501030105010303050103010501030305 010301050103030500030205010302050003030500030705010302050103 010501030305010301050103010501030305010302050003030500030205 010302050103020501032705010401000102010101000102010103001e05 010406050103020501030805010301050103030501030705010301050103 030501030105010301050103030501030605010302050103070501030105 010301050103030501030105010303050103010501033105010401000102 010101000102010103001e05010407050003020500030505050301050103 030501030305050301050103030501030105010301050103030501030705 000302050003040505030105010301050103030501030105010303050103 020503032e05010401000102010101000102010103001e05010407050103 000501030305030301050103010501030305010301050303010501030105 010303050103010501030105070307050103000501030205030301050103 01050103010501030305010301050703040503032c050104010001020101 010001020101030004050303090501030005010306050104070501030005 010302050103040501030105010303050103000501030405010301050103 0305010301050103010501030d0501030005010301050103040501030105 01030105010303050103010501030d0501032b0501040100010201010100 01020101030002050103020501030b050103060501040805000300050003 030501030405010301050103030501030005010304050103010501030305 000302050103010501030305010308050003000500030205010304050103 010501030105010303050103010501030305010300050103040501032b05 010401000102010101000102010103000205000304050003010501030105 010300050503050501040805020304050003030502030105010303050103 010500030305020301050203010501030205010302050103010501030905 020303050003030502030105010301050103020502030205010301050103 020501030205010302050103270501040100010201010100010201010300 010501030405010300050103010501030005010300050103060501040805 020305050303010501030005010303050103020503030105010300050503 03050103030503030a050103050503030105010300050103020503030005 010303050303040504030305010327050104010001020101010001020101 030001050103040501030005010301050103000501030005010306050104 aa0501040100010201010100010201010300010501030405010300050103 01050103000501030005010306050104aa05010401000102010101000102 010103000205000302050003000501030005010301050103000501030005 010306050104aa0501040100010201010100010201010300020501030105 02030105010301050103000501030005010306050104aa05010401000102 010101000102010103000305060301050403000501030005020305050104 aa05010401000102010101000102010103001e050104aa05010401000102 010101000102010103000105080313050104aa0501040100010201010100 0102010103000105080313050104aa050104010001020101010001020101 03001e050104aa05010401000102010101000102010103001e050104aa05 010401000102010101000102010103001e050104aa050104010001020101 01000102010103002004aa05010401000102010101000102010102002104 aa0501040100010201010100010201010100300502030105020317050403 0d0501030005010301050103600501040100010201010100010201010100 300502030105020316050103020500031005010301050103600501040100 010201010100010201010100030504030105030302050403000502030105 03030f050203010502030105030302050503010501030305010303050003 010504030005020301050503000504035d05010401000102010101000102 010101000305010301050203020501030105010301050103010501030005 000301050003020501030a05020301050203000500030205010301050303 000500030105010303050303040501030105010301050103000501030005 010301050103010501035c05010401000102010101000102010101000305 01030105010301050303010501030105010301050303010501030e050103 000500030005020302050303010501030205000301050003050505030105 01030105010301050103000501030005010301050103010501035c050104 010001020101010001020101010003050103010501030005040301050103 01050103010507030e050103000501030005010301050403010501030205 010300050003080502030105010301050103010501030005010300050103 01050103010501035c050104010001020101010001020101010003050103 010503030105010301050103010501030105030312050103000501030005 010300050103010501030105010302050303040501030305010300050103 0105010301050103000501030005010301050103010501035c0501040100 010201010100010201010100030501030105030301050103010501030105 01030105010300050003010501030e050103000501030005010300050103 010501030105010303050103060500030305010300050103010501030105 0103000501030005010301050103010501035c0501040100010201010100 010201010100030501030105010300050403010501030105010301050103 00050303020501030a050103000501030005010301050403010501030305 010307050303020501030105010301050103000501030005020300050103 010501035c05010401000102010101000102010101004705010383050104 010001020101010001020101010046050103840501040100010201010100 010201010100cd0501040100010201010100010201010100cd0501040100 010201010100010201010100cd0501040100010201010100010201010100 cd0501040100010201010100010201010100cd0501040100010201010100 010201010100cd0501040100010201010100010201010100cd0501040100 010201010100010201010100cd0501040100010201010100010201010100 cd0501040100010201010100010201010100cd0501040100010201010100 01020101010026050203010505039b050104010001020101010001020101 01002405010301050103040500039c050104010001020101010001020101 01000305030303050403000503030e05010301050103030501039c050104 010001020101010001020101010002050003020501030105000301050203 0005000301050003020501030d050103030500039d050104010001020101 010001020101010004050303000501030205030301050103100501030305 01039d050104010001020101010001020101010003050403000501030205 070311050103020500039e05010401000102010101000102010101000205 01030105010300050103020503031105010301050103020500039e050104 010001020101010001020101010002050103010501030105010300050203 00050003010501030d05010301050003020501039e050104010001020101 0100010201010100030504030105050300050303020501030a0503030205 01039e05010401000102010101000102010101000e050103bc0501040100 01020101010001020101010009050503bd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 0101010028050103010503030405010309050303020503030a0502030405 010305050103030501035d05010401000102010101000102010101002705 020300050103010501030305010309050003010501030105000301050103 07050103010501030305010304050203030501035d050104010001020101 01000102010101000305030302050303020504030f050003000501030005 010301050103010503030805010301050103000501030105010307050103 01050103010503030305000300050103010503035d050104010001020101 010001020101010002050103010501030005010301050103010501030105 0103000501030b0500030005010304050103030501030805010301050103 00050103010501030b050103030501030305000300050103030501035d05 010401000102010101000102010101000205010304050103050501030105 01030e05000300050103030501030405010309050303020503030b050103 040501030305000300050103030501035d05010401000102010101000102 01010100030503030205030302050103010501030d050003010501030205 020304050103020507030105010300050103010501030105050303050103 030501030205000301050103030501035d05010401000102010101000102 01010100060501030405010301050103010501030d050503000502030505 010308050103010501030005010301050103070501030105010303050103 02050503020501035d050104010001020101010001020101010002050103 010501030005010301050103010501030105010310050103010501030605 010308050103010500030105010301050003080501030105000304050103 05050103030501035d050104010001020101010001020101010003050303 020503030205010301050103000501030d05010300050503030501030905 030302050303090503030405010305050103030501035d05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 0101000004010100cd05010401000301040000010100cd05010404000001 01000102010101000a050103290501030305010302050403080504030105 0403010504030a0501030205030304050103020503034805010401000102 010101000102010101000a0501032805020303050103020500030c050003 05050003050500030e050103010501030105010303050103010501030105 010347050104010001020101010001020101010003050403010504030205 02030205040301050303100500030005010301050303020500030c050003 05050003050500030c050303010501030105010301050303010501030105 010347050104010001020101010001020101010003050103010501030005 010301050103000501030105000301050103010501030005000301050003 020501030b0500030005010303050103020500030c050003050500030505 00030e050103050501030305010305050103470501040100010201010100 010201010100030501030105010300050103010503030205010300050103 01050303010501030f050003000501030305010302050303090503030205 0303020503030b0501030405010304050103040501034805010401000102 010101000102010101000305010301050103000501030105030302050103 00050103010507030e050003010501030305010301050103010501030105 070301050103000501030105010300050103010501030105050302050103 030502030405010303050203480501040100010201010100010201010100 030501030105010300050103010503030205010300050103010503031205 050302050103050501030b05010304050103040501030a05010302050203 050501030205020349050104010001020101010001020101010003050103 010500030105010301050103000500030105010301050103010501030005 000301050103110501030305010301050103010500030805010301050003 010501030105000301050103010500030b05010302050103060501030205 01034a050104010001020101010001020101010003050403010501030105 010301050203020501030105010300050303020501030d05010303050103 020503030905030302050303020503030b05010301050503030501030105 050347050104010001020101010001020101010003050103c70501040100 01020101010001020101010003050103c705010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cf04010001020101010001020101 0000d004010001020101010001020101d30001020101010001020001d400 010201010100140200010000ab0200010000140201010100140200010000 ab020001000014020101010015010000ac01000016010000dc01 % % Run-length encoding savings = 80.4% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 30 30 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 30) 643 SB 32 0 0 150 150 0 0 0 128 /Courier-Bold /font9 ANSIFont font 320 275 720 (showVars) 720 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -1 1 SJ 1040 266 476 (, cont'd) 476 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 320 582 1200 (proc showVars {w args} {) 1200 SB 320 682 750 ( toplevel $w) 750 SB 320 782 1650 ( wm title $w "Variable values") 1650 SB 320 882 1900 ( frame $w.menu -relief raised -bd 2) 1900 SB 320 982 1700 ( pack $w.menu -side top -fill x) 1700 SB 320 1082 2000 ( menubutton $w.menu.file -text File \\) 2000 SB 320 1182 2050 ( -menu $w.menu.file.m -underline 0) 2050 SB 320 1282 1600 ( pack $w.menu.file -side left) 1600 SB 320 1382 1150 ( menu $w.menu.file.m) 1150 SB 320 1482 2200 ( $w.menu.file.m add command -label Quit \\) 2200 SB 320 1582 2100 ( -command "destroy $w" -underline 0) 2100 SB 320 1682 350 ( ...) 350 SB 320 1782 50 (}) 50 SB %MSEPS Preamble 0 0 88 61 0 0 88 61 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 88 def /pp_by2 61 def 0 lc 0 lj 0 0 0 pC 0 1 SP gs 365 253 1383 1785 CB 364 252 1383 1785 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkShow1 %%Pages: 1 %%BoundingBox: 0 0 88 61 %%CreationDate: Wed Mar 15 09:46:07 1995 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 88 61 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 88 61 8 [88 0 0 -61 0 61] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba pop pop drawcolormappedimage 6e0000012600000116000001010014020001000025020001000014020101 010014020001000025020001000014020101010001021301000026010000 1201010201010100010200014e0001020101010001020001000010020001 000012020001000010020001000010020001000001020101010001020001 000010020001000012020001000010020001000010020001000001020101 010001020001000010020001000012020001000010020001000010020001 000001020101010001020001000010020001000012020001000010020001 000002020a00020200010000010201010100010200010000100200010000 000201030302010309020001000010020001000002020000080200010202 000100000102010101000102000100001002000100000102010302020003 0a0200010000100200010000020200000802000102020001000001020101 010001020001000002020a00020200010000010201030102010301020303 020200030002000100000502030006020001000002020000080200010202 000100000102010101000102000100000202000008020001020200010000 010201030102010300020003020201030102000300020001000005020000 010200010602000100000202000008020001020200010000010201010100 010200010000020200000802000102020001000002020003010200030302 030301020003000200010000050200000102000106020001000002020000 080200010202000100000102010101000102000100000202000009010202 000100000202030302020403010200030002000100000502000002010602 000100000202000008020001020200010000010201010100010200010000 100200010000020203030102010301020103010200030002000100001002 000100000202000008020001020200010000010201010100010200010000 100200010000030201030202010301020103010200030002000100001002 000100000202000008020001020200010000010201010100010200010000 100200010000030201030302040301020003000200010000100200010000 020200000802000102020001000001020101000003010000100200010000 120200010000100200010000020200000901020200010000030105001002 000100001202000100001002000100001002000103000001010001020001 000010020001000012020001000010020001000010020001000001020101 010001020001000011010000130100001101000011010000010201010100 01024e010000010201010100010201014d00010201010100010201014a00 000401000102010101000102010101004705010401000102010101000102 010101004705010401000102010101000102010101004705010401000102 010101000102010101004705010401000102010101000102010101004705 010401000102010101000102010101004705010401000102010101000102 010101004705010401000102010101000102010101004705010401000102 010101000102010101004705010401000102010101000102010101000705 050300050103000501033305010401000102010101000102010101000705 010307050103330501040100010201010100010201010100070501030405 010300050103000503032e05010401000102010101000102010101000705 0103040501030005010300050003010500032e0501040100010201010100 010201010100070505030005010300050303010501032d05010401000102 01010000040101000705010304050103000507032d050104010003010400 000101000705010304050103000503033105010404000001010001020101 010007050103040501030005010300050003010501032d05010401000102 01010100010201010100070501030405010300050103000503032e050104 010001020101010001020101010047050104010001020101010001020101 010006050603390501040100010201010100010201010100060506033905 010401000102010101000102010101004705010401000102010101000102 010101004705010401000102010101000102010101004705010401000102 010101000102010101004705010401000102010101000102010101004705 010401000102010101000102010101004705010401000102010101000102 01010100490401000102010101000102010100004a040100010201010100 010201014d00010201010100010200014e00010201010100140200010000 250200010000140201010100140200010000250200010000140201010100 1501000026010000160100005601 % % Run-length encoding savings = 68.4% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 31 31 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 31) 643 SB 32 0 0 150 150 0 0 0 128 /Courier-Bold /font9 ANSIFont font 320 275 720 (showVars) 720 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -1 1 SJ 1040 266 476 (, cont'd) 476 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 320 582 1200 (proc showVars {w args} {) 1200 SB 320 682 350 ( ...) 350 SB 320 782 1850 ( frame $w.bot -relief raised -bd 2) 1850 SB 320 882 1950 ( pack $w.bot -side bottom -fill both) 1950 SB 320 982 2450 ( label $w.bot.title -width 20 -anchor center \\) 2450 SB 320 1082 2000 ( -text "Variable values:" -font \\) 2000 SB 320 1182 400 ( ) 400 SB 32 0 0 67 67 0 0 0 57 /Courier-Bold /font9 ANSIFont font 720 1196 2080 (-Adobe-Helvetica-Medium-r-normal--*-180-*-*-*-*-*-*-) 2080 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 2800 1182 100 ( \\) 100 SB 320 1282 1100 ( -anchor center) 1100 SB 320 1382 1950 ( pack $w.bot.title -side top -fill x) 1950 SB 320 1482 350 ( ...) 350 SB 320 1582 50 (}) 50 SB %MSEPS Preamble 0 0 222 92 0 0 222 92 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 222 def /pp_by2 92 def 0 lc 0 lj 0 0 0 pC 0 1 SP gs 924 382 1152 1645 CB 923 381 1152 1645 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkShow2 %%Pages: 1 %%BoundingBox: 0 0 222 92 %%CreationDate: Wed Mar 15 09:46:08 1995 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 222 92 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 222 92 8 [222 0 0 -92 0 92] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba pop pop drawcolormappedimage f4000001ac000001160000010100140200010000ab020001000014020101 0100140200010000ab0200010000140201010100010213010000ac010000 120101020101010001020001d40001020101010001020001000010020001 000098020001000010020001000010020001000001020101010001020001 000010020001000098020001000010020001000010020001000001020101 010001020001000010020001000098020001000010020001000010020001 000001020101010001020001000010020001000098020001000010020001 000002020a00020200010000010201010100010200010000100200010000 1f020103030201030c020103070201030402010318020103350200010000 100200010000020200000802000102020001000001020101010001020001 000010020001000020020103020200031702010304020103180201033502 000100001002000100000202000008020001020200010000010201010100 01020001000002020a000202000100002002010301020103010203030202 030300020103000203030202040301020103000203030402010301020103 010203030202010300020103010201030002030302020303220200010000 050203000602000100000202000008020001020200010000010201010100 010200010000020200000802000102020001000020020103010201030002 000302020103010203030002020302020103010201030102010300020103 000200030102000305020003010200030102000302020103010201030002 010301020103000200030102000301020103010201032102000100000502 000001020001060200010000020200000802000102020001000001020101 010001020001000002020000080200010202000100002102000301020003 030203030102010302020103010203030102010301020103000203030102 010304020003010200030302030301020103000201030102030301020103 000201032502000100000502000001020001060200010000020200000802 000102020001000001020101010001020001000002020000090102020001 000021020303020204030102010302020103000204030102010301020103 000207030402000301020003020204030102010300020103010207030102 030322020001000005020000020106020001000002020000080200010202 000100000102010101000102000100001002000100002102030301020103 010201030102010302020303010201030102010301020103000203030802 010300020003010201030102010301020103000201030102030308020103 210200010000100200010000020200000802000102020001000001020101 010001020001000010020001000022020103020201030102010301020103 020203030102010301020103010200030102010300020003010201030502 010302020103010201030102010300020103010201030002000301020103 000201030102010321020001000010020001000002020000080200010202 000100000102010101000102000100001002000100002202010303020403 010201030202010300020403010204030102010300020303060201030302 040301020103010204030002030302020303220200010000100200010000 020200000802000102020001000001020101010001020001000010020001 000098020001000010020001000002020000090102020001000001020101 010001020001000010020001000098020001000010020001000010020001 000001020101010001020001000010020001000098020001000010020001 000010020001000001020101010001020001000011010000990100001101 000011010000010201010000d7010000030104000001d600000101000102 0101d00000040100010201010100010201010100cd050104010001020101 0100010201010100cd0501040100010201010100010201010100cd050104 0100010201010100010201010100cd050104010001020101010001020101 0100cd0501040100010201010100010201010100cd050104010001020101 0100010201010100cd0501040100010201010100010201010100cd050104 0100010201010100010201010100cd050104010001020101010001020101 0100070505030005010300050103b9050104010001020101010001020101 01000705010307050103b905010401000102010101000102010101000705 0103040501030005010300050303b4050104010001020101010001020101 01000705010304050103000501030005000301050003b405010401000102 0101010001020101010007050503000501030005030301050103b3050104 0100010201010100010201010100070501030405010300050703b3050104 0100010201010100010201010100070501030405010300050303b7050104 010001020101010001020101010007050103040501030005010300050003 01050103b305010401000102010101000102010101000705010304050103 0005010300050303b40501040100010201010100010201010100cd050104 010001020101010001020101010006050603bf0501040100010201010100 01020101010006050603bf0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cf04010001020101010001020101 0000d004010001020101010001020101d30001020101010001020101d000 00040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd05010401000102010101000102010101002705010306050103 100501030b05010307050103230501034905010401000102010101000102 010101002805000306050003110501030b05010307050103230501034905 0104010001020101010001020101010028050103040501031f0501030705 010323050103490501040100010201010000040101002805010304050103 030503030305010300050103000501030305030303050103000502030305 010303050303070501030405010302050303030501030105010303050103 03050303050502032e050104010003010400000101002905000304050003 030501030205010301050203020501030205010302050103010502030105 010302050103020501030105010307050003040500030205010302050103 010501030105010303050103020501030105010303050003020500030305 010327050104040000010100010201010100290501030205010302050103 030501030105010303050103010501030305010301050103030500030205 010302050003030500030705010302050103010501030305010301050103 010501030305010302050003030500030205010302050103020501032705 010401000102010101000102010101002905010302050103080501030105 010303050103070501030105010303050103010501030105010303050103 060501030205010307050103010501030105010303050103010501030305 0103010501033105010401000102010101000102010101002a0500030205 000305050503010501030305010303050503010501030305010301050103 010501030305010307050003020500030405050301050103010501030305 01030105010303050103020503032e050104010001020101010001020101 01002a050103000501030305030301050103010501030305010301050303 010501030105010303050103010501030105070307050103000501030205 03030105010301050103010501030305010301050703040503032c050104 01000102010101000102010101002a050103000501030205010304050103 010501030305010300050103040501030105010303050103010501030105 01030d050103000501030105010304050103010501030105010303050103 010501030d0501032b05010401000102010101000102010101002b050003 000500030305010304050103010501030305010300050103040501030105 010303050003020501030105010303050103080500030005000302050103 040501030105010301050103030501030105010303050103000501030405 01032b05010401000102010101000102010101002b050203040500030305 020301050103030501030105000303050203010502030105010302050103 020501030105010309050203030500030305020301050103010501030205 020302050103010501030205010302050103020501032705010401000102 010101000102010101002b05020305050303010501030005010303050103 02050303010501030005050303050103030503030a050103050503030105 010300050103020503030005010303050303040504030305010327050104 0100010201010100010201010100cd050104010001020101010001020101 0100cd0501040100010201010100010201010100cd050104010001020101 0100010201010100cd0501040100010201010100010201010100cd050104 0100010201010100010201010100cd050104010001020101010001020101 0100cd0501040100010201010100010201010100cf040100010201010100 010201010000d004010001020101010001020101d3000102010101000102 0001d400010201010100140200010000ab02000100001402010101001402 00010000ab020001000014020101010015010000ac01000016010000dc01 % % Run-length encoding savings = 82.4% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 32 32 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 32) 643 SB 32 0 0 150 150 0 0 0 128 /Courier-Bold /font9 ANSIFont font 320 275 720 (showVars) 720 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -1 1 SJ 1040 266 476 (, cont'd) 476 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 320 525 1200 (proc showVars {w args} {) 1200 SB 320 615 350 ( ...) 350 SB 320 705 1050 ( foreach i $args {) 1050 SB 320 795 1150 ( frame $w.bot.$i) 1150 SB 320 885 2100 ( pack $w.bot.$i -side top -anchor w) 2100 SB 320 975 2050 ( label $w.bot.$i.name -text "$i: ") 2050 SB 320 1065 2300 ( label $w.bot.$i.value -textvariable $i) 2300 SB 320 1156 1900 ( pack $w.bot.$i.name -side left) 1900 SB 320 1246 1950 ( pack $w.bot.$i.value -side left) 1950 SB 320 1361 250 ( }) 250 SB 320 1476 50 (}) 50 SB 320 1591 1650 (showVars .vars name age ssn phone) 1650 SB %MSEPS Preamble 0 0 222 176 0 0 222 176 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 222 def /pp_by2 176 def 0 lc 0 lj 0 0 0 pC 0 1 SP gs 688 547 2178 1420 CB 687 546 2178 1420 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkShow3 %%Pages: 1 %%BoundingBox: 0 0 222 176 %%CreationDate: Wed Mar 15 09:46:09 1995 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 222 176 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 24 string def /drawcolormappedimage { 222 176 8 [222 0 0 -176 0 176] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 918270 f3d9ba 887a68 e2cbae pop pop drawcolormappedimage f4000001ac000001160000010100140200010000ab020001000014020101 0100140200010000ab0200010000140201010100010213010000ac010000 120101020101010001020001d40001020101010001020001000010020001 000098020001000010020001000010020001000001020101010001020001 000010020001000098020001000010020001000010020001000001020101 010001020001000010020001000098020001000010020001000010020001 000001020101010001020001000010020001000098020001000010020001 000002020a00020200010000010201010100010200010000100200010000 1f020103030201030c020103070201030402010318020103350200010000 100200010000020200000802000102020001000001020101010001020001 000010020001000020020103020200031702010304020103180201033502 000100001002000100000202000008020001020200010000010201010100 01020001000002020a000202000100002002010301020103010203030202 030300020103000203030202040301020103000203030402010301020103 010203030202010300020103010201030002030302020303220200010000 050203000602000100000202000008020001020200010000010201010100 010200010000020200000802000102020001000020020103010201030002 000302020103010203030002020302020103010201030102010300020103 000200030102000305020003010200030102000302020103010201030002 010301020103000200030102000301020103010201032102000100000502 000001020001060200010000020200000802000102020001000001020101 010001020001000002020000080200010202000100002102000301020003 030203030102010302020103010203030102010301020103000203030102 010304020003010200030302030301020103000201030102030301020103 000201032502000100000502000001020001060200010000020200000802 000102020001000001020101010001020001000002020000090102020001 000021020303020204030102010302020103000204030102010301020103 000207030402000301020003020204030102010300020103010207030102 030322020001000005020000020106020001000002020000080200010202 000100000102010101000102000100001002000100002102030301020103 010201030102010302020303010201030102010301020103000203030802 010300020003010201030102010301020103000201030102030308020103 210200010000100200010000020200000802000102020001000001020101 010001020001000010020001000022020103020201030102010301020103 020203030102010301020103010200030102010300020003010201030502 010302020103010201030102010300020103010201030002000301020103 000201030102010321020001000010020001000002020000080200010202 000100000102010101000102000100001002000100002202010303020403 010201030202010300020403010204030102010300020303060201030302 040301020103010204030002030302020303220200010000100200010000 020200000802000102020001000001020101010001020001000010020001 000098020001000010020001000002020000090102020001000001020101 010001020001000010020001000098020001000010020001000010020001 000001020101010001020001000010020001000098020001000010020001 000010020001000001020101010001020001000011010000990100001101 000011010000010201010000d7010000030104000001d600000101000102 0101d00000040100010201010100010201012300ab050104010001020101 01000102010122000006ab05010401000102010101000102010103001d07 0106ab05010401000102010101000102010103001d070106ab0501040100 0102010101000102010103001d070106ab05010401000102010101000102 010103001d070106ab05010401000102010101000102010103001d070106 ab05010401000102010101000102010103001d070106ab05010401000102 010101000102010103001d070106ab050104010001020101010001020101 03000507050300070103000701030b070106ab0501040100010201010100 01020101030005070103070701030b070106ab0501040100010201010100 0102010103000507010304070103000701030007030306070106ab050104 010001020101010001020101030005070103040701030007010300070003 0107000306070106ab050104010001020101010001020101030005070503 00070103000703030107010305070106ab05010401000102010101000102 0101030005070103040701030007070305070106ab050104010001020101 010001020101030005070103040701030007030309070106ab0501040100 010201010100010201010300050701030407010300070103000700030107 010305070106ab0501040100010201010100010201010300050701030407 0103000701030007030306070106ab050104010001020101010001020101 03001d070106ab0501040100010201010100010201010300040706031107 0106ab05010401000102010101000102010103000407060311070106ab05 010401000102010101000102010103001d070106ab050104010001020101 01000102010103001d070106ab0501040100010201010100010201010300 1d070106ab05010401000102010101000102010103001d070106ab050104 01000102010101000102010103001f06ab05010401000102010101000102 010102002006ab0501040100010201010100010201012400ac0401000102 0101010001020101000000042100ad040100010201010100010201010300 1e050104ae000102010101000102010103001e050104ab00000401000102 010101000102010103001e050104aa050104010001020101010001020101 03001e050104aa05010401000102010101000102010103001e050104aa05 010401000102010101000102010103000304050505040505050402050104 aa0501040100010201010100010201010800030507000305070001050104 aa05010401000102010101000102010103001e050104aa05010401000102 010101000102010103001e050104aa050104010001020101010001020101 03001e0501040405010306050103100501030b0501030705010323050103 4905010401000102010101000102010103001e0501040505000306050003 110501030b05010307050103230501034905010401000102010101000102 010103001e05010405050103040501031f05010307050103230501034905 010401000102010101000102010103001e05010405050103040501030305 030303050103000501030005010303050303030501030005020303050103 030503030705010304050103020503030305010301050103030501030305 0303050502032e05010401000102010101000102010103001e0501040605 000304050003030501030205010301050203020501030205010302050103 010502030105010302050103020501030105010307050003040500030205 010302050103010501030105010303050103020501030105010303050003 02050003030501032705010401000102010101000102010103001e050104 060501030205010302050103030501030105010303050103010501030305 010301050103030500030205010302050003030500030705010302050103 010501030305010301050103010501030305010302050003030500030205 010302050103020501032705010401000102010101000102010103001e05 010406050103020501030805010301050103030501030705010301050103 030501030105010301050103030501030605010302050103070501030105 010301050103030501030105010303050103010501033105010401000102 010101000102010103001e05010407050003020500030505050301050103 030501030305050301050103030501030105010301050103030501030705 000302050003040505030105010301050103030501030105010303050103 020503032e05010401000102010101000102010103001e05010407050103 000501030305030301050103010501030305010301050303010501030105 010303050103010501030105070307050103000501030205030301050103 01050103010501030305010301050703040503032c050104010001020101 010001020101030004050303090501030005010306050104070501030005 010302050103040501030105010303050103000501030405010301050103 0305010301050103010501030d0501030005010301050103040501030105 01030105010303050103010501030d0501032b0501040100010201010100 01020101030002050103020501030b050103060501040805000300050003 030501030405010301050103030501030005010304050103010501030305 000302050103010501030305010308050003000500030205010304050103 010501030105010303050103010501030305010300050103040501032b05 010401000102010101000102010103000205000304050003010501030105 010300050503050501040805020304050003030502030105010303050103 010500030305020301050203010501030205010302050103010501030905 020303050003030502030105010301050103020502030205010301050103 020501030205010302050103270501040100010201010100010201010300 010501030405010300050103010501030005010300050103060501040805 020305050303010501030005010303050103020503030105010300050503 03050103030503030a050103050503030105010300050103020503030005 010303050303040504030305010327050104010001020101010001020101 030001050103040501030005010301050103000501030005010306050104 aa0501040100010201010100010201010300010501030405010300050103 01050103000501030005010306050104aa05010401000102010101000102 010103000205000302050003000501030005010301050103000501030005 010306050104aa0501040100010201010100010201010300020501030105 02030105010301050103000501030005010306050104aa05010401000102 010101000102010103000305060301050403000501030005020305050104 aa05010401000102010101000102010103001e050104aa05010401000102 010101000102010103000105080313050104aa0501040100010201010100 0102010103000105080313050104aa050104010001020101010001020101 03001e050104aa05010401000102010101000102010103001e050104aa05 010401000102010101000102010103001e050104aa050104010001020101 01000102010103002004aa05010401000102010101000102010102002104 aa0501040100010201010100010201010100300502030105020317050403 0d0501030005010301050103600501040100010201010100010201010100 300502030105020316050103020500031005010301050103600501040100 010201010100010201010100030504030105030302050403000502030105 03030f050203010502030105030302050503010501030305010303050003 010504030005020301050503000504035d05010401000102010101000102 010101000305010301050203020501030105010301050103010501030005 000301050003020501030a05020301050203000500030205010301050303 000500030105010303050303040501030105010301050103000501030005 010301050103010501035c05010401000102010101000102010101000305 01030105010301050303010501030105010301050303010501030e050103 000500030005020302050303010501030205000301050003050505030105 01030105010301050103000501030005010301050103010501035c050104 010001020101010001020101010003050103010501030005040301050103 01050103010507030e050103000501030005010301050403010501030205 010300050003080502030105010301050103010501030005010300050103 01050103010501035c050104010001020101010001020101010003050103 010503030105010301050103010501030105030312050103000501030005 010300050103010501030105010302050303040501030305010300050103 0105010301050103000501030005010301050103010501035c0501040100 010201010100010201010100030501030105030301050103010501030105 01030105010300050003010501030e050103000501030005010300050103 010501030105010303050103060500030305010300050103010501030105 0103000501030005010301050103010501035c0501040100010201010100 010201010100030501030105010300050403010501030105010301050103 00050303020501030a050103000501030005010301050403010501030305 010307050303020501030105010301050103000501030005020300050103 010501035c05010401000102010101000102010101004705010383050104 010001020101010001020101010046050103840501040100010201010100 010201010100cd0501040100010201010100010201010100cd0501040100 010201010100010201010100cd0501040100010201010100010201010100 cd0501040100010201010100010201010100cd0501040100010201010100 010201010100cd0501040100010201010100010201010100cd0501040100 010201010100010201010100cd0501040100010201010100010201010100 cd0501040100010201010100010201010100cd0501040100010201010100 01020101010026050203010505039b050104010001020101010001020101 01002405010301050103040500039c050104010001020101010001020101 01000305030303050403000503030e05010301050103030501039c050104 010001020101010001020101010002050003020501030105000301050203 0005000301050003020501030d050103030500039d050104010001020101 010001020101010004050303000501030205030301050103100501030305 01039d050104010001020101010001020101010003050403000501030205 070311050103020500039e05010401000102010101000102010101000205 01030105010300050103020503031105010301050103020500039e050104 010001020101010001020101010002050103010501030105010300050203 00050003010501030d05010301050003020501039e050104010001020101 0100010201010100030504030105050300050303020501030a0503030205 01039e05010401000102010101000102010101000e050103bc0501040100 01020101010001020101010009050503bd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 0101010028050103010503030405010309050303020503030a0502030405 010305050103030501035d05010401000102010101000102010101002705 020300050103010501030305010309050003010501030105000301050103 07050103010501030305010304050203030501035d050104010001020101 01000102010101000305030302050303020504030f050003000501030005 010301050103010503030805010301050103000501030105010307050103 01050103010503030305000300050103010503035d050104010001020101 010001020101010002050103010501030005010301050103010501030105 0103000501030b0500030005010304050103030501030805010301050103 00050103010501030b050103030501030305000300050103030501035d05 010401000102010101000102010101000205010304050103050501030105 01030e05000300050103030501030405010309050303020503030b050103 040501030305000300050103030501035d05010401000102010101000102 01010100030503030205030302050103010501030d050003010501030205 020304050103020507030105010300050103010501030105050303050103 030501030205000301050103030501035d05010401000102010101000102 01010100060501030405010301050103010501030d050503000502030505 010308050103010501030005010301050103070501030105010303050103 02050503020501035d050104010001020101010001020101010002050103 010501030005010301050103010501030105010310050103010501030605 010308050103010500030105010301050003080501030105000304050103 05050103030501035d050104010001020101010001020101010003050303 020503030205010301050103000501030d05010300050503030501030905 030302050303090503030405010305050103030501035d05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cd05010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 0101000004010100cd05010401000301040000010100cd05010404000001 01000102010101000a050103290501030305010302050403080504030105 0403010504030a0501030205030304050103020503034805010401000102 010101000102010101000a0501032805020303050103020500030c050003 05050003050500030e050103010501030105010303050103010501030105 010347050104010001020101010001020101010003050403010504030205 02030205040301050303100500030005010301050303020500030c050003 05050003050500030c050303010501030105010301050303010501030105 010347050104010001020101010001020101010003050103010501030005 010301050103000501030105000301050103010501030005000301050003 020501030b0500030005010303050103020500030c050003050500030505 00030e050103050501030305010305050103470501040100010201010100 010201010100030501030105010300050103010503030205010300050103 01050303010501030f050003000501030305010302050303090503030205 0303020503030b0501030405010304050103040501034805010401000102 010101000102010101000305010301050103000501030105030302050103 00050103010507030e050003010501030305010301050103010501030105 070301050103000501030105010300050103010501030105050302050103 030502030405010303050203480501040100010201010100010201010100 030501030105010300050103010503030205010300050103010503031205 050302050103050501030b05010304050103040501030a05010302050203 050501030205020349050104010001020101010001020101010003050103 010500030105010301050103000500030105010301050103010501030005 000301050103110501030305010301050103010500030805010301050003 010501030105000301050103010500030b05010302050103060501030205 01034a050104010001020101010001020101010003050403010501030105 010301050203020501030105010300050303020501030d05010303050103 020503030905030302050303020503030b05010301050503030501030105 050347050104010001020101010001020101010003050103c70501040100 01020101010001020101010003050103c705010401000102010101000102 01010100cd0501040100010201010100010201010100cd05010401000102 01010100010201010100cd0501040100010201010100010201010100cd05 01040100010201010100010201010100cf04010001020101010001020101 0000d004010001020101010001020101d30001020101010001020001d400 010201010100140200010000ab0200010000140201010100140200010000 ab020001000014020101010015010000ac01000016010000dc01 % % Run-length encoding savings = 80.4% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 33 33 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 33) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 843 (Example #2: ) 843 SB 32 0 0 150 150 0 0 0 128 /Courier-Bold /font9 ANSIFont font 1163 275 720 (mkDialog) 720 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 320 576 2599 (Creates dialog box, waits until button pressed, returns index.) 2599 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 952 2100 (mkdialog .d "File Modified" $msg warning \\) 2100 SB 470 1052 2400 ("Save File" "Discard Changes" "Return To Editor") 2400 SB %MSEPS Preamble 0 0 428 187 0 0 428 187 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 428 def /pp_by2 187 def 0 lc 0 lj 0 0 0 pC 0 1 SP gs 1336 583 968 1393 CB 1335 582 968 1393 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkDlg3 %%Pages: 1 %%BoundingBox: 0 0 428 187 %%CreationDate: Thu Dec 1 15:58:04 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 428 187 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 428 187 8 [428 0 0 -187 0 187] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe00c2000001fe007d000001150000010100130200010000fe027c020001 0000130201010100130200010000fe027c02000100001302010101000102 12010000fe017d010000110101020101010001020001fe00a30001020101 01000102000100000f0200010000fe026a02000100000f02000100000f02 000100000102010101000102000100000f0200010000fe026a0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 fe026a02000100000f02000100000f020001000001020101010001020001 00000f020001000090020703000201030c020103040201030b0201030002 0103020204030b0201039002000100000f02000100000202090002020001 00000102010101000102000100000f020001000090020103060201030c02 0103040201030b020103040201030f0201039002000100000f0200010000 02020000070200010202000100000102010101000102000100000f020001 000090020103030201030002010301020303060202030202020301020303 020201030002010300020103000203030002010301020303020201030002 01039002000100000f020001000002020000070200010202000100000102 010101000102000100000202090002020001000090020103030201030002 010300020103010201030502020302020203000201030102010300020103 000202030002010301020103010201030002010301020103000201030002 020390020001000005020300050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100009002 040300020103000201030002010301020103050203030002030300020103 010201030002010301020103000201030102010301020103000201030102 010300020103010201039002000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100009002010303020103000201030002050305020103 000200030002000300020103000201030102010300020103010201030002 010301020103010201030002050300020103010201039002000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000090020103030201030002 010300020103090201030002020300020103000201030102010300020103 010201030002010301020103010201030002010304020103010201039002 000100000502000002010502000100000202000007020001020200010000 0102010101000102000100000f0200010000900201030302010300020103 000201030102010305020103010200030102010300020103010201030002 010300020203000201030102010301020103000201030102010300020103 000202039002000100000f02000100000202000007020001020200010000 0102010101000102000100000f0200010000900201030302010300020103 010203030602010301020003010201030102030302020103000201030002 010301020103010201030102030302020103000201039002000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000fe026a02000100000f020001000002020000080102020001 00000102010101000102000100000f0200010000fe026a02000100000f02 000100000f02000100000102010101000102000100000f0200010000fe02 6a02000100000f02000100000f0200010000010201010100010200010000 10010000fe016b0100001001000010010000010201010000fe01a6010000 030104000001fe00a50000010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e04000501000102010101000102010100005c040803010401030104 02030e040103010401030e04020305040203070401030104010304040203 190402033f0402030204010304040203000401030d0402030c0401035804 000501000102010101000102010100005d04010303040103010401030204 01030e040103010401030f04010306040103070401030104010305040103 1a04010340040103020401030304010300040003000401030e0401030c04 01035804000501000102010101000102010100005d040103040400030604 01030e04010301040103020400030b040103060401030704010301040103 050401031a04010340040103080400031404010367040005010001020101 01000102010100005d0401030c0401030e04000302040003020401030b04 0103060401030704000302040003060401031a0401034004010307040103 140401036704000501000102010101000102010100005d04010306040203 02040103030403030d040403020403030204010306040103010401030f04 010301040103040403030304010300040003050401030004020303040303 030403030104020301040103060402030104010302040103040403030404 040301040203010404030004020303040303030404030604010300040003 00040203010402030104010304040303030403033e040005010001020101 01000102010100005d040103030400030204010302040103020401030104 01030d04010303040103010401030104010306040103000403030e040103 000403030204010301040103010401030004010305040203000402030104 010301040103010401030104010301040103000403030604010300040303 000403030204010301040103020401030104010302040103020401030304 010302040103010401030104010301040103050401030004010301040103 0204010300040303020401030104010301040103010401033d0400050100 0102010101000102010100005d0406030204010302040103010401030304 01030c04010302040103020401030104010306040203010401030e040203 010401030204010301040103010401030104000305040103020401030004 010303040303030401030004020301040103060402030104020301040103 010401030304010300040103020401030204010302040103030401030104 010303040303020401030504010301040003010401030204020301040103 010401030204010300040103030401033c04000501000102010101000102 010100005d040103030400030204010302040103010407030c0401030204 01030604010306040103020401030e040103020401030504020301040203 070401030204010300040f03000401030204010306040103020401030204 010301040103030401030004010302040103020401030204010303040103 010409030204010305040203030401030204010302040103010401030504 07033c04000501000102010101000102010100005d040103070401030204 01030104010312040103020401030604010306040103020401030e040103 020401030304010300040103020402030604010302040103000401030504 010306040103020401030604010302040103020401030104010303040103 000401030204010302040103020401030304010301040103050401030204 010306040203020401030204010302040103010401030504010342040005 01000102010101000102010100005d040103070401030204010301040103 12040103020401030604010306040103020401030e040103020401030204 010301040103030402030504010302040103000401030504010306040103 020401030604010302040103020401030104010303040103000401030204 010302040103020401030304010301040103050401030204010307040203 010401030204010302040103010401030504010342040005010001020101 01000102010100005d040103070401030204010301040203030400030c04 0103020401030604010306040103020401030e0401030204010302040103 010401030104000301040103050401030204010300040203030403030304 000300040103020401030604010302040103020401030104010303040103 000401030204010302040103020401030304010301040203030402030204 010305040003010401030104010302040103020401030104010305040203 030400033c04000501000102010101000102010100005d04010307040103 0204010302040203000401030d0402030004000300040103020400030104 01030204010301040103020401030e040103020401030204050301040103 000401030504020300040103020402030004010301040203000401030104 010302040103060401030204010302040103020401030104010302040103 010401030204010302040103030401030204020300040103010401030104 010305040103000401030104010302040103020401030204010302040003 01040203000401033d04000501000102010101000102010100005c040303 0504030300040303020403030f0402030204030301040303010401030004 0303010402030c0403030104020302040103010401030004000300040103 070403030404030303040303010403030104020304040303000403030004 030302040303040405030004030300040303010403030204030303040503 040400030004010301040303000403030104020302040303030403033e04 00050100010201010100010201010000fe049e0400050100010201010100 010201010000fe049e0400050100010201010100010201010000fe049e04 00050100010201010100010201010000fe049e0400050100010201010100 010201010000fe049e0400050100010201010100010201010000fe049e04 000501000102010101000102010100006104020312040203210401031d04 01034e0402030e0407037504000501000102010101000102010100006204 010313040103210401031d0401034f0401030f0401030204020374040005 01000102010101000102010100005d040003030401031304010312040003 08040003290400034a0401030f0401030404010373040005010001020101 01000102010100005c040103030401031304010311040103070401032804 01034a0401030f0401030404010373040005010001020101010001020101 00005b040403010401030104010304040303060401030304030303040103 000400030004040304040403000402030104020301040103020401030404 030305040203010404030304020301040203010402030104030303040103 000400030504010300040003020403030104030301040203020403030304 04030f040103050401030204030305040303010402030104030301040203 010402034c04000501000102010101000102010100005c04010303040103 000403030204010301040103050401030204010301040103010401030004 010301040103070401030304010302040103000403030004030302040103 010401030504010302040103060401030104010302040103010401030104 010301040103000401030404010300040103010401030104010301040103 02040103020401030104010301040103010401030f040103050401030104 010301040103050401030304000301040103010401030104010302040103 4c04000501000102010101000102010100005c0401030304020301040103 010401030304010304040103020401030104010301040103010400030104 010307040103030401030204020301040203010401030104010303040103 040401030204010306040103020400030104010302040103010401030104 010301040003040401030104000301040103010401030104010302040003 0204010303040303020401030f0401030504010300040103030401030404 020301040103000401030304010300040103020401034c04000501000102 010101000102010100000e0401034b040103030401030204010301040703 040401030504020301040203030401030704010303040103020401030204 010302040103010407030404010302040103070401030004010301040103 050402030104020306040203060402030204010301040003020409030204 01030f040103050401030004010303040103050401030104000301040103 0304010300040103020401034c0400050100010201010100010201010000 0d040103000400034a0401030304010302040103010401030a0401030304 010300040103020402030204010307040103030401030204010302040103 02040103010401030a040103020401030704010300040203000401030304 010300040103020402030604020303040103000401030204010300040103 0204010305040103020401030f0401030504010300040103030401030504 010300040103010401030304010300040103020401034c04000501000102 010101000102010100000c04010300040003000400034904010303040103 02040103010401030a040103020401030104010303040203010401030704 010303040103020401030204010302040103010401030a04010302040103 080402030004000300040003030401030104010303040203060402030104 01030104010303040003000400030304010305040103020401030f040103 040401030104010303040103060402030204010303040103000401030204 01034c04000501000102010101000102010100000c040003000400030004 00034a040103030401030204010301040203030400030404010302040103 010401030104000301040103010401030704010303040103020401030204 010302040103010402030304000304040103020401030804020300040203 030401030104010301040003010401030404000301040103010401030104 0103030402030304020303040203020401030f0401030404010301040103 0304010306040203020401030304010300040103020401034c0400050100 0102010101000102010100000c0401030004000300040003490402030004 000300040103020401030204020300040103050401030204050301040103 000401030104020300040003040402030004000300040103020401030204 010302040103020402030004010305040103020402030004000306040003 020400030404050301040103000401030404010300040103010405030404 000305040203000401030104010301040103020401030a04010302040203 030401030104010308040103030401030104010301040203000402034c04 000501000102010101000102010100000c04000300040003000400034b04 020300040303010402030204030305040303020401030104010300040003 000401030304020306040203000403030004030300040303000403030204 030305040303020402030704000302040003050401030104010300040003 000401030504000300040103030401030104010303040003060403030304 050301040103090407030504030308040103050403030304020300040203 4b04000501000102010101000102010100000c0401030004000300040003 fe04280401036004000501000102010101000102010100000d0401030004 0003fe04290400036104000501000102010101000102010100000d040003 00040003fe04270403036104000501000102010101000102010100000d04 010300040003fe0426040203620400050100010201010100010201010000 0d04000300040003fe048d04000501000102010101000102010100000d04 010300040003fe048c04000501000102010101000102010100000d040003 00040003ab0401030b040203100402032d040103080401031d0402035f04 00050100010201010100010201010000bc0401030c0401030f0401030004 00032d040103080401031e0401035f040005010001020101010001020101 00007c040003080400033a040003070401030f040003360400031f040003 030401035f04000501000102010101000102010100000d04030369040103 0704010339040103070401030e040103350401031e040103030401035f04 000501000102010101000102010100000d04000300040003490402030104 020301040203010403030204020301040103020404030404040302040303 070401030004000302040303010403030104020302040303050402030104 040305040103000402030304030301040403020403030204020300040103 020403030704030300040203020402030004020301040403000402030104 020301040103040404030404040301040103010401030404030352040005 01000102010101000102010100000d040103000400034904010301040103 020401030104010301040103020401030004030302040103070401030304 010301040103050401030004010301040103010401030104010302040103 020401030104010305040103020401030704020300040203010401030104 010301040103030401030104010302040103000401030104010301040103 050401030104010300040103020401030204010302040103030401030204 010300040303010401030104010306040103030401030004030302040103 010401035104000501000102010101000102010100000d04000300040003 4a0401030204000301040103020401030104010302040203010401030204 010307040103020401030304010304040103010400030104010301040103 010401030204000302040103030401030404010302040103070401030204 010300040103030401030004010302040103030401030104020302040103 030401030304010303040103000401030004010303040103020401030304 010302040203010401030104010302040003060401030304020301040103 01040103030401035004000501000102010101000102010100005c040103 000401030104010305040203020401030204010302040103070401030204 010303040103040402030604020302040103010400030204070304040103 020401030704010302040103000407030004010302040103030401030104 010303040703030407030104020304040103020401030304010302040103 020401030104010302040003060401030304010302040103010407035004 000501000102010101000102010100005c04010300040203000401030304 010300040103020401030204010302040103070401030204010303040103 0504020303040103000401030204010300040103020401030a0401030204 010307040103020401030004010306040103020401030304010301040103 030401030904010308040103040401030204010303040103020401030204 010301040103010401030604010303040103020401030104010356040005 01000102010101000102010100005d040203000400030004000303040103 010401030204010302040103020401030704010302040103030401030604 020301040103010401030304000300040003030401030a04010302040103 070401030204010300040103060401030204010303040103010401030304 010309040103070402030404010302040103030401030204010302040103 020403030704010303040103020401030104010356040005010001020101 01000102010100005d040203000402030304010301040103020401030204 010302040103070401030204010303040103040400030104010301040103 010401030304020303040203030400030404010302040103070401030204 010300040203030400030004010302040103030401030104010303040203 030400030304020303040003000401030004010303040103020401030304 01030204010302040103020400030a040103030401030204010301040203 030400035004000501000102010101000102010100005e04000302040003 040405030204010302040103020402030004000304040203000400030004 010301040103050401030004010301040503040400030504020300040103 050401030204020300040003040402030004010302040203000401030104 010303040103010401030204010304040203000401030504020300040103 000401030204010302040103020402030004000300040103020401030204 010302040403060402030004000300040103020401030204020300040103 5104000501000102010101000102010100005e0400030204000305040103 010401030004030301040203020402030604020302040303060400030004 010303040103010401030304000306040303050403030204020306040303 040403030104030303040303020403030404030307040303000402030204 020300040303020402030004030300040303010402030104060305040203 000403030104020302040303520400050100010201010100010201010000 fe0429040003040401036c0400050100010201010100010201010000fe04 29040103040400036c0400050100010201010100010201010000fe042904 0203020400036d0400050100010201010100010201010000fe042a040403 6e0400050100010201010100010201010000fe049e040005010001020101 0100010201010000fe049e04000501000102010101000102010100007604 0203020401031904010316040303e7040005010001020101010001020101 00007704010302040103190401031504000302040103e604000501000102 0101010001020101000077040103190400031b04010302040003e6040005 010001020101010001020101000077040103180401031b04010301040103 e604000501000102010101000102010100005d0403030204020300040203 010402030004020302040103010402030304030303040303020404030004 020303040303020402030104010307040103e60400050100010201010100 0102010100005c0401030104010302040203000402030104020300040203 010401030204010302040103010401030104010301040103020401030304 01030204010301040103020401030004030305040103e704000501000102 010101000102010100005c04010301040103020401030204010301040103 020401030104010302040103010401030204010301040103010401030204 0103030401030104010303040103010402030104010305040103e7040005 01000102010101000102010100005f040203020401030204010301040103 020401030104010302040103010401030904020302040103030401030104 010303040103010401030204010304040103e80400050100010201010100 0102010100005d0401030004010302040103020401030104010302040103 010401030204010301040103070401030004010302040103030401030104 010303040103010401030204010304040003e90400050100010201010100 0102010100005c0401030104010302040103020401030104010302040103 010401030204010301040103060401030104010302040103030401030104 010303040103010401030204010304040003e90400050100010201010100 0102010100005c0401030104010302040103020401030104010302040103 010401030204010301040103060401030104010302040103030401030104 0103030401030104010302040103ef040005010001020101010001020101 00005c040503020402030004010302040203000401030204010302040103 020401030204000301040503020402030004000300040103020401030104 0103020401030204010304040103e8040005010001020101010001020101 00005d040103010401030104010300040103030401030004010302040303 000403030204030303040103010401030204020300040303020403030204 03030104020303040103e804000501000102010101000102010100006504 010306040103fe042d040005010001020101010001020101000065040103 06040103fe042d0400050100010201010100010201010000650401030604 0103fe042d04000501000102010101000102010100006404030304040303 fe042c0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe059f05010001020101010001020101fe00a200 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 0102010101000102010100000c04520019047e0019047d000c0400050100 0102010101000102010100000c045100000519047d00000519047c000005 0c04000501000102010101000102010100000c0401004e04010519040100 7a04010519040100790401050c0400050100010201010100010201010000 0c0401004e040105190401007a04010519040100790401050c0400050100 0102010101000102010100000c0401004e040105190401007a0401051904 0100790401050c04000501000102010101000102010100000c0401004e04 0105190401007a04010519040100790401050c0400050100010201010100 0102010100000c0401004e040105190401007a0401051904010079040105 0c04000501000102010101000102010100000c0401004e04010519040100 7a04010519040100790401050c0400050100010201010100010201010000 0c0401000c0404031c0407030004010314040105190401000b0404030204 01031e040103070403030004010334040105190401000b04050309040103 180407030b0405030404010300040103010401031a0401050c0400050100 0102010101000102010100000c0401000b040103020401031b0401030604 010314040105190401000b04010301040103220401030604010301040303 34040105190401000b04010302040103080401031b0401030e0401030804 0103040401031a0401050c04000501000102010101000102010100000c04 01000b040103020401030104030301040103020401030104030306040103 0304010300040103010403030e040105190401000b040103020401030004 010301040303020403030204030301040103000401030004010300040103 050401030404010300040103020403030104010300040103020401030004 010301040303020403030e040105190401000b0401030204010301040303 010403030004010301040103000401030004030300040103080401030304 030306040103050401030004010300040103000403030104030301040103 000401030c0401050c04000501000102010101000102010100000c040100 0c0402030304010301040103000401030204010300040103010401030504 0103030401030004010300040103010401030d040105190401000b040103 020401030004010300040103010401030004010301040103000401030104 010300040603000402030504010304040203000401030004010301040103 000402030004010300040103000402030004010301040103000401030104 01030d040105190401000b04010302040103000401030104010301040103 010401030104010300040703000401030704010302040103010401030504 010304040103000402030004010301040103010401030104010300040403 0c0401050c04000501000102010101000102010100000c0401000e040203 050401030104010300040103010401030104010305040403000401030004 010300040103010401030d040105190401000b0401030204010300040103 000402030304010308040103000402030104010301040103050401030404 010301040103040401030004010301040103000401030104010300040103 010401030004020310040105190401000b04050301040103010401030104 010301040103010401030004020301040103010401030704010302040103 010401030504050300040103010401030004010301040103010401030104 0103000402030e0401050c04000501000102010101000102010100000c04 01000f040203010404030104010300040103010405030504010303040103 00040103000405030d040105190401000b04010302040103000401030204 020301040103050404030004010302040103010401030504010304040103 010401030104040300040103010401030004010301040103000405030204 02030e040105190401000b04010301040103010405030104010301040103 010401030004010302040103010401030704010302040103010401030504 010304040103010401030004010301040103010401030104010300040103 0f0401050c04000501000102010101000102010100000c0401000b040103 020401030004010301040103020402030204010309040103030401030004 01030004010311040105190401000b040103020401030004010303040203 000401030404010301040103000401030204010301040103050401030404 010301040103000401030104010300040103010401030004010301040103 00040103070402030d040105190401000b04010302040103000401030504 010301040103010401030004010302040103010401030704010302040103 010401030504010304040103010401030004010301040103010401030104 0103000401030f0401050c04000501000102010101000102010100000c04 01000b040103020401030004010301040103020402030204010301040103 05040103030401030004010300040103010401030d040105190401000b04 010301040103010401030004010301040103000401030104010300040103 010401030004010302040103000402030604010301040303010401030004 010301040103000401030104010300040103000402030004010301040103 00040103010401030d040105190401000b04010302040103000401030104 010301040103000402030004020300040103020401030104010307040103 020401030104010305040103040401030004020300040103010401030004 020301040103000401030f0401050c040005010001020101010001020101 00000c0401000c0404030204020300040103020400030404030306040103 0304010300040103010403030e040105190401000b040403020401030104 030302040303020402030004030303040103000401030704030300040103 010401030104020300040303010401030104010300040103010403030204 03030e040105190401000b04010302040103010403030304010301040103 000401030004010302040103010401030704010303040303060405030104 010300040103000401030204010301040303010401030f0401050c040005 01000102010101000102010100000c0401004e040105190401005c040103 1b04010519040100790401050c0400050100010201010100010201010000 0c0401004e0401051904010058040103010401031b040105190401007904 01050c04000501000102010101000102010100000c0401004e0401051904 0100590403031c04010519040100790401050c0400050100010201010000 040100000c0401004e040105190401007a04010519040100790401050c04 0005010003010400000100000c0401004e040105190401007a0401051904 0100790401050c0400050400000101000102010100000c0401004e040105 190401007a04010519040100790401050c04000501000102010101000102 010100000c0401004e040105190401007a04010519040100790401050c04 000501000102010101000102010100000c0401004e040105190401007a04 010519040100790401050c04000501000102010101000102010100000c04 01004e040105190401007a04010519040100790401050c04000501000102 010101000102010100000c0401005005190401007c05190401007b050c04 000501000102010101000102010100000c0400005105190400007d051904 00007c050c0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe059f0501000102 0101010001020101fe00a20001020101010001020001fe00a30001020101 0100130200010000fe027c0200010000130201010100130200010000fe02 7c020001000013020101010014010000fe017d01000015010000fe01ab01 % % Run-length encoding savings = 84.3% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 32 0 0 67 67 0 0 0 60 /Times-Roman /font32 ANSIFont font 151 0 10 fC 775 729 405 (Window Name) 405 SB 1364 729 125 (Title) 125 SB 1870 729 233 (Message) 233 SB 2179 729 45 (B) 44 SB 2223 729 90 (itm) 89 SB 2312 729 64 (ap) 63 SB 1 lc 1 lj 151 0 10 pC 6 4 SP gs 3231 119 0 813 CB 1427 663 M 0 450 1 PP S n gr 151 0 10 fC /fm 256 def 1427 964 M 18 62 -36 0 18 -62 3 PP 1 F n 6 4 SP gs 3231 119 0 813 CB 1990 663 M 0 450 1 PP S n gr /fm 256 def 1990 964 M 18 62 -36 0 18 -62 3 PP 1 F n 6 4 SP gs 3231 119 0 813 CB 977 663 M 0 450 1 PP S n gr /fm 256 def 977 964 M 18 62 -36 0 18 -62 3 PP 1 F n 6 4 SP gs 3231 119 0 813 CB 2278 663 M 0 450 1 PP S n gr /fm 256 def 2278 964 M 18 62 -36 0 18 -62 3 PP 1 F n 6 4 SP gs 523 2427 921 0 CB 1990 1388 M -1650 -375 1 PP S n gr /fm 256 def 891 1138 M -64 4 8 -36 56 32 3 PP 1 F n -1 1 SJ 1464 1254 377 (Button Labels) 377 SB 6 4 SP gs 3231 73 0 1169 CB 1640 1338 M -75 -300 1 PP S n gr /fm 256 def 1590 1137 M -32 -56 34 -8 -2 64 3 PP 1 F n 6 4 SP gs 444 2427 1865 0 CB 1390 1388 M 1425 -375 1 PP S n gr /fm 256 def 2340 1138 M 54 -33 10 34 -64 -1 3 PP 1 F n 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%Page: 34 34 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 34) 643 SB 32 0 0 150 150 0 0 0 128 /Courier-Bold /font9 ANSIFont font 320 275 720 (mkDialog) 720 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -1 1 SJ 1040 266 476 (, cont'd) 476 SB 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 320 525 1890 (proc mkDialog {w title text bitmap args} {) 1890 SB 320 606 675 ( toplevel $w) 675 SB 320 688 990 ( wm title $w $title) 990 SB 320 769 1755 ( wm protocol $w WM_DELETE_WINDOW { }) 1755 SB 320 850 1665 ( frame $w.top -relief raised -bd 1) 1665 SB 320 931 1620 ( pack $w.top -side top -fill both) 1620 SB 320 1013 1665 ( frame $w.bot -relief raised -bd 1) 1665 SB 320 1094 1755 ( pack $w.bot -side bottom -fill both) 1755 SB 320 1175 2025 ( label $w.msg -wraplength 3i -text $text \\) 2025 SB 320 1256 1305 ( -justify left -font \\) 1305 SB 320 1338 360 ( ) 360 SB 32 0 0 67 67 0 0 0 57 /Courier-Bold /font9 ANSIFont font 680 1345 1880 (-Adobe-Times-Medium-R-Normal--*-180-*-*-*-*-*-*) 1880 SB 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font 320 1419 1800 ( pack $w.msg -in $w.top -side right \\) 1800 SB 320 1500 2070 ( -expand 1 -fill both -padx 3m -pady 3m) 2070 SB 320 1581 315 ( ...) 315 SB 320 1663 45 (}) 45 SB %MSEPS Preamble 0 0 315 140 0 0 315 140 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 315 def /pp_by2 140 def 0 lc 0 lj 0 0 0 pC 0 1 SP gs 983 436 1144 1616 CB 982 435 1144 1616 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkDlg1 %%Pages: 1 %%BoundingBox: 0 0 315 140 %%CreationDate: Thu Dec 1 15:58:02 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 315 140 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 315 140 8 [315 0 0 -140 0 140] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe0051000001fe000c000001150000010100130200010000fe020b020001 0000130201010100130200010000fe020b02000100001302010101000102 12010000fe010c010000110101020101010001020001fe00320001020101 01000102000100000f0200010000f802000100000f02000100000f020001 00000102010101000102000100000f0200010000f802000100000f020001 00000f02000100000102010101000102000100000f0200010000f8020001 00000f02000100000f02000100000102010101000102000100000f020001 000057020703000201030c020103040201030b0201030002010302020403 0b0201035802000100000f02000100000202090002020001000001020101 01000102000100000f020001000057020103060201030c02010304020103 0b020103040201030f0201035802000100000f0200010000020200000702 00010202000100000102010101000102000100000f020001000057020103 030201030002010301020303060202030202020301020303020201030002 010300020103000203030002010301020303020201030002010358020001 00000f020001000002020000070200010202000100000102010101000102 000100000202090002020001000057020103030201030002010300020103 010201030502020302020203000201030102010300020103000202030002 010301020103010201030002010301020103000201030002020358020001 000005020300050200010000020200000702000102020001000001020101 010001020001000002020000070200010202000100005702040300020103 000201030002010301020103050203030002030300020103010201030002 010301020103000201030102010301020103000201030102010300020103 010201035802000100000502000001020001050200010000020200000702 000102020001000001020101010001020001000002020000070200010202 000100005702010303020103000201030002050305020103000200030002 000300020103000201030102010300020103010201030002010301020103 010201030002050300020103010201035802000100000502000001020001 050200010000020200000702000102020001000001020101010001020001 000002020000080102020001000057020103030201030002010300020103 090201030002020300020103000201030102010300020103010201030002 010301020103010201030002010304020103010201035802000100000502 000002010502000100000202000007020001020200010000010201010100 0102000100000f0200010000570201030302010300020103000201030102 010305020103010200030102010300020103010201030002010300020203 000201030102010301020103000201030102010300020103000202035802 000100000f02000100000202000007020001020200010000010201010100 0102000100000f0200010000570201030302010300020103010203030602 010301020003010201030102030302020103000201030002010301020103 010201030102030302020103000201035802000100000f02000100000202 0000070200010202000100000102010101000102000100000f0200010000 f802000100000f0200010000020200000801020200010000010201010100 0102000100000f0200010000f802000100000f02000100000f0200010000 0102010101000102000100000f0200010000f802000100000f0200010000 0f020001000001020101010001020001000010010000f901000010010000 10010000010201010000fe0135010000030104000001fe00340000010100 010201010000fe042d0400050100010201010100010201010000fe042d04 00050100010201010100010201010000fe042d0400050100010201010100 010201010000fe042d0400050100010201010100010201010000fe042d04 00050100010201010100010201010000fe042d0400050100010201010100 010201010000fe042d0400050100010201010100010201010000fe042d04 00050100010201010100010201010000fe042d0400050100010201010100 010201010000fe042d0400050100010201010100010201010000fe042d04 00050100010201010100010201010000fe042d0400050100010201010100 010201010000fe042d0400050100010201010100010201010000fe042d04 00050100010201010100010201010000fe042d0400050100010201010100 010201010000fe042d0400050100010201010100010201010000fe042d04 00050100010201010100010201010000fe042d0400050100010201010100 0102010100001404080301040103010402030e040103010401030e040203 05040203070401030104010304040203190402033f040203020401030404 0203000401030d0402030c0401032f040005010001020101010001020101 0000150401030304010301040103020401030e040103010401030f040103 060401030704010301040103050401031a04010340040103020401030304 010300040003000401030e0401030c0401032f0400050100010201010100 0102010100001504010304040003060401030e0401030104010302040003 0b040103060401030704010301040103050401031a040103400401030804 0003140401033e0400050100010201010100010201010000150401030c04 01030e04000302040003020401030b040103060401030704000302040003 060401031a0401034004010307040103140401033e040005010001020101 0100010201010000150401030604020302040103030403030d0404030204 03030204010306040103010401030f040103010401030404030303040103 000400030504010300040203030403030304030301040203010401030604 020301040103020401030404030304040403010402030104040300040203 030403030304040306040103000400030004020301040203010401030404 030303040303150400050100010201010100010201010000150401030304 0003020401030204010302040103010401030d0401030304010301040103 0104010306040103000403030e0401030004030302040103010401030104 010300040103050402030004020301040103010401030104010301040103 010401030004030306040103000403030004030302040103010401030204 010301040103020401030204010303040103020401030104010301040103 010401030504010300040103010401030204010300040303020401030104 010301040103010401031404000501000102010101000102010100001504 0603020401030204010301040103030401030c0401030204010302040103 0104010306040203010401030e0402030104010302040103010401030104 010301040003050401030204010300040103030403030304010300040203 010401030604020301040203010401030104010303040103000401030204 010302040103020401030304010301040103030403030204010305040103 010400030104010302040203010401030104010302040103000401030304 010313040005010001020101010001020101000015040103030400030204 010302040103010407030c04010302040103060401030604010302040103 0e040103020401030504020301040203070401030204010300040f030004 010302040103060401030204010302040103010401030304010300040103 020401030204010302040103030401030104090302040103050402030304 010302040103020401030104010305040703130400050100010201010100 010201010000150401030704010302040103010401031204010302040103 0604010306040103020401030e0401030204010303040103000401030204 020306040103020401030004010305040103060401030204010306040103 020401030204010301040103030401030004010302040103020401030204 010303040103010401030504010302040103060402030204010302040103 020401030104010305040103190400050100010201010100010201010000 150401030704010302040103010401031204010302040103060401030604 0103020401030e0401030204010302040103010401030304020305040103 020401030004010305040103060401030204010306040103020401030204 010301040103030401030004010302040103020401030204010303040103 010401030504010302040103070402030104010302040103020401030104 010305040103190400050100010201010100010201010000150401030704 01030204010301040203030400030c040103020401030604010306040103 020401030e04010302040103020401030104010301040003010401030504 010302040103000402030304030303040003000401030204010306040103 020401030204010301040103030401030004010302040103020401030204 010303040103010402030304020302040103050400030104010301040103 020401030204010301040103050402030304000313040005010001020101 010001020101000015040103070401030204010302040203000401030d04 020300040003000401030204000301040103020401030104010302040103 0e0401030204010302040503010401030004010305040203000401030204 020300040103010402030004010301040103020401030604010302040103 020401030204010301040103020401030104010302040103020401030304 010302040203000401030104010301040103050401030004010301040103 020401030204010302040103020400030104020300040103140400050100 010201010100010201010000140403030504030300040303020403030f04 020302040303010403030104010300040303010402030c04030301040203 020401030104010300040003000401030704030304040303030403030104 030301040203040403030004030300040303020403030404050300040303 000403030104030302040303030405030404000300040103010403030004 030301040203020403030304030315040005010001020101010001020101 0000fe042d0400050100010201010100010201010000fe042d0400050100 010201010100010201010000fe042d040005010001020101010001020101 0000fe042d0400050100010201010100010201010000fe042d0400050100 010201010100010201010000fe042d040005010001020101010001020101 00001904020312040203210401031d0401034e0402030e0407034c040005 01000102010101000102010100001a04010313040103210401031d040103 4f0401030f040103020402034b0400050100010201010100010201010000 1504000303040103130401031204000308040003290400034a0401030f04 0103040401034a0400050100010201010100010201010000140401030304 0103130401031104010307040103280401034a0401030f04010304040103 4a0400050100010201010100010201010000130404030104010301040103 040403030604010303040303030401030004000300040403040404030004 020301040203010401030204010304040303050402030104040303040203 010402030104020301040303030401030004000305040103000400030204 0303010403030104020302040303030404030f0401030504010302040303 050403030104020301040303010402030104020323040005010001020101 010001020101000014040103030401030004030302040103010401030504 010302040103010401030104010300040103010401030704010303040103 020401030004030300040303020401030104010305040103020401030604 010301040103020401030104010301040103010401030004010304040103 000401030104010301040103010401030204010302040103010401030104 0103010401030f0401030504010301040103010401030504010303040003 010401030104010301040103020401032304000501000102010101000102 010100001404010303040203010401030104010303040103040401030204 010301040103010401030104000301040103070401030304010302040203 010402030104010301040103030401030404010302040103060401030204 000301040103020401030104010301040103010400030404010301040003 010401030104010301040103020400030204010303040303020401030f04 010305040103000401030304010304040203010401030004010303040103 000401030204010323040005010001020101010001020101000014040103 030401030204010301040703040401030504020301040203030401030704 010303040103020401030204010302040103010407030404010302040103 070401030004010301040103050402030104020306040203060402030204 01030104000302040903020401030f040103050401030004010303040103 050401030104000301040103030401030004010302040103230400050100 010201010100010201010000140401030304010302040103010401030a04 010303040103000401030204020302040103070401030304010302040103 0204010302040103010401030a0401030204010307040103000402030004 010303040103000401030204020306040203030401030004010302040103 000401030204010305040103020401030f04010305040103000401030304 010305040103000401030104010303040103000401030204010323040005 010001020101010001020101000014040103030401030204010301040103 0a0401030204010301040103030402030104010307040103030401030204 01030204010302040103010401030a040103020401030804020300040003 000400030304010301040103030402030604020301040103010401030304 0003000400030304010305040103020401030f0401030404010301040103 030401030604020302040103030401030004010302040103230400050100 010201010100010201010000140401030304010302040103010402030304 000304040103020401030104010301040003010401030104010307040103 030401030204010302040103020401030104020303040003040401030204 010308040203000402030304010301040103010400030104010304040003 010401030104010301040103030402030304020303040203020401030f04 010304040103010401030304010306040203020401030304010300040103 020401032304000501000102010101000102010100001404020300040003 000401030204010302040203000401030504010302040503010401030004 010301040203000400030404020300040003000401030204010302040103 020401030204020300040103050401030204020300040003060400030204 000304040503010401030004010304040103000401030104050304040003 05040203000401030104010301040103020401030a040103020402030304 010301040103080401030304010301040103010402030004020323040005 010001020101010001020101000015040203000403030104020302040303 050403030204010301040103000400030004010303040203060402030004 030300040303000403030004030302040303050403030204020307040003 020400030504010301040103000400030004010305040003000401030304 010301040103030400030604030303040503010401030904070305040303 080401030504030303040203000402032204000501000102010101000102 01010000f2040103370400050100010201010100010201010000f2040003 380400050100010201010100010201010000ef0403033804000501000102 01010100010201010000ef04020339040005010001020101010001020101 0000fe042d0400050100010201010100010201010000fe042d0400050100 010201010100010201010000740401030b040203100402032d0401030804 01031d040203360400050100010201010100010201010000740401030c04 01030f040103000400032d040103080401031e0401033604000501000102 0101010001020101000034040003080400033a040003070401030f040003 360400031f04000303040103360400050100010201010100010201010000 330401030704010339040103070401030e040103350401031e0401030304 010336040005010001020101010001020101000012040203010402030104 020301040303020402030104010302040403040404030204030307040103 000400030204030301040303010402030204030305040203010404030504 010300040203030403030104040302040303020402030004010302040303 070403030004020302040203000402030104040300040203010402030104 010304040403040404030104010301040103040403032904000501000102 010101000102010100001304010301040103020401030104010301040103 020401030004030302040103070401030304010301040103050401030004 010301040103010401030104010302040103020401030104010305040103 020401030704020300040203010401030104010301040103030401030104 010302040103000401030104010301040103050401030104010300040103 020401030204010302040103030401030204010300040303010401030104 010306040103030401030004030302040103010401032804000501000102 010101000102010100001304010302040003010401030204010301040103 020402030104010302040103070401030204010303040103040401030104 000301040103010401030104010302040003020401030304010304040103 020401030704010302040103000401030304010300040103020401030304 010301040203020401030304010303040103030401030004010300040103 030401030204010303040103020402030104010301040103020400030604 010303040203010401030104010303040103270400050100010201010100 010201010000140401030004010301040103050402030204010302040103 020401030704010302040103030401030404020306040203020401030104 000302040703040401030204010307040103020401030004070300040103 020401030304010301040103030407030304070301040203040401030204 010303040103020401030204010301040103020400030604010303040103 020401030104070327040005010001020101010001020101000014040103 000402030004010303040103000401030204010302040103020401030704 010302040103030401030504020303040103000401030204010300040103 020401030a04010302040103070401030204010300040103060401030204 010303040103010401030304010309040103080401030404010302040103 030401030204010302040103010401030104010306040103030401030204 0103010401032d0400050100010201010100010201010000150402030004 000300040003030401030104010302040103020401030204010307040103 020401030304010306040203010401030104010303040003000400030304 01030a040103020401030704010302040103000401030604010302040103 030401030104010303040103090401030704020304040103020401030304 010302040103020401030204030307040103030401030204010301040103 2d0400050100010201010100010201010000150402030004020303040103 010401030204010302040103020401030704010302040103030401030404 000301040103010401030104010303040203030402030304000304040103 020401030704010302040103000402030304000300040103020401030304 010301040103030402030304000303040203030400030004010300040103 0304010302040103030401030204010302040103020400030a0401030304 010302040103010402030304000327040005010001020101010001020101 000016040003020400030404050302040103020401030204020300040003 040402030004000300040103010401030504010300040103010405030404 000305040203000401030504010302040203000400030404020300040103 020402030004010301040103030401030104010302040103040402030004 010305040203000401030004010302040103020401030204020300040003 000401030204010302040103020404030604020300040003000401030204 010302040203000401032804000501000102010101000102010100001604 000302040003050401030104010300040303010402030204020306040203 020403030604000300040103030401030104010303040003060403030504 030302040203060403030404030301040303030403030204030304040303 070403030004020302040203000403030204020300040303000403030104 020301040603050402030004030301040203020403032904000501000102 01010100010201010000e004000304040103430400050100010201010100 010201010000e00401030404000343040005010001020101010001020101 0000e004020302040003440400050100010201010100010201010000e104 0403450400050100010201010100010201010000fe042d04000501000102 01010100010201010000fe042d0400050100010201010100010201010000 2e040203020401031904010316040303be04000501000102010101000102 010100002f04010302040103190401031504000302040103bd0400050100 0102010101000102010100002f040103190400031b04010302040003bd04 000501000102010101000102010100002f040103180401031b0401030104 0103bd040005010001020101010001020101000015040303020402030004 020301040203000402030204010301040203030403030304030302040403 0004020303040303020402030104010307040103bd040005010001020101 010001020101000014040103010401030204020300040203010402030004 020301040103020401030204010301040103010401030104010302040103 030401030204010301040103020401030004030305040103be0400050100 010201010100010201010000140401030104010302040103020401030104 010302040103010401030204010301040103020401030104010301040103 02040103030401030104010303040103010402030104010305040103be04 000501000102010101000102010100001704020302040103020401030104 010302040103010401030204010301040103090402030204010303040103 0104010303040103010401030204010304040103bf040005010001020101 010001020101000015040103000401030204010302040103010401030204 010301040103020401030104010307040103000401030204010303040103 0104010303040103010401030204010304040003c0040005010001020101 010001020101000014040103010401030204010302040103010401030204 010301040103020401030104010306040103010401030204010303040103 0104010303040103010401030204010304040003c0040005010001020101 010001020101000014040103010401030204010302040103010401030204 010301040103020401030104010306040103010401030204010303040103 01040103030401030104010302040103c604000501000102010101000102 010100001404050302040203000401030204020300040103020401030204 010302040103020400030104050302040203000400030004010302040103 01040103020401030204010304040103bf04000501000102010101000102 010100001504010301040103010401030004010303040103000401030204 030300040303020403030304010301040103020402030004030302040303 020403030104020303040103bf0400050100010201010100010201010000 1d04010306040103fe040404000501000102010101000102010100001d04 010306040103fe040404000501000102010101000102010100001d040103 06040103fe040404000501000102010101000102010100001c0403030404 0303fe0403040005010001020101000004010000fe042d04000501000301 040000010000fe042d040005040000010100010201010000fe042d040005 0100010201010100010201010000fe042d04000501000102010101000102 01010000fe042d0400050100010201010100010201010000fe042d040005 0100010201010100010201010000fe042d04000501000102010101000102 01010000fe042d0400050100010201010100010201010000fe042d040005 0100010201010100010201010000fe042d04000501000102010101000102 01010000fe042d0400050100010201010100010201010000fe042d040005 0100010201010100010201010000fe042d04000501000102010101000102 01010000fe042d0400050100010201010100010201010000fe042d040005 0100010201010100010201010000fe042d04000501000102010101000102 01010000fe052e05010001020101010001020101fe042f04010001020101 010001020101fe00310001020101010001020001fe003200010201010100 130200010000fe020b0200010000130201010100130200010000fe020b02 0001000013020101010014010000fe010c01000015010000fe013a01 % % Run-length encoding savings = 78.9% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 35 35 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 35) 643 SB 32 0 0 150 150 0 0 0 128 /Courier-Bold /font9 ANSIFont font 320 275 720 (mkDialog) 720 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -1 1 SJ 1040 266 476 (, cont'd) 476 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 320 575 2100 (proc mkdialog {w title text bitmap args} {) 2100 SB 320 665 350 ( ...) 350 SB 320 755 1200 ( if {$bitmap != ""} {) 1200 SB 320 845 1950 ( label $w.bitmap -bitmap $bitmap) 1950 SB 320 935 2300 ( pack $w.bitmap -in $w.top -side left \\) 2300 SB 320 1025 1450 ( -padx 3m -pady 3m) 1450 SB 320 1115 250 ( }) 250 SB 320 1206 350 ( ...) 350 SB 320 1296 50 (}) 50 SB %MSEPS Preamble 0 0 347 140 0 0 347 140 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 347 def /pp_by2 140 def 0 lc 0 lj 0 0 0 pC 0 1 SP gs 1083 436 1071 1466 CB 1082 435 1071 1466 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkDlg2 %%Pages: 1 %%BoundingBox: 0 0 347 140 %%CreationDate: Thu Dec 1 15:58:03 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 347 140 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 347 140 8 [347 0 0 -140 0 140] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe0071000001fe002c000001150000010100130200010000fe022b020001 0000130201010100130200010000fe022b02000100001302010101000102 12010000fe012c010000110101020101010001020001fe00520001020101 01000102000100000f0200010000fe021902000100000f02000100000f02 000100000102010101000102000100000f0200010000fe02190200010000 0f02000100000f02000100000102010101000102000100000f0200010000 fe021902000100000f02000100000f020001000001020101010001020001 00000f020001000067020703000201030c020103040201030b0201030002 0103020204030b0201036802000100000f02000100000202090002020001 00000102010101000102000100000f020001000067020103060201030c02 0103040201030b020103040201030f0201036802000100000f0200010000 02020000070200010202000100000102010101000102000100000f020001 000067020103030201030002010301020303060202030202020301020303 020201030002010300020103000203030002010301020303020201030002 01036802000100000f020001000002020000070200010202000100000102 010101000102000100000202090002020001000067020103030201030002 010300020103010201030502020302020203000201030102010300020103 000202030002010301020103010201030002010301020103000201030002 020368020001000005020300050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100006702 040300020103000201030002010301020103050203030002030300020103 010201030002010301020103000201030102010301020103000201030102 010300020103010201036802000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100006702010303020103000201030002050305020103 000200030002000300020103000201030102010300020103010201030002 010301020103010201030002050300020103010201036802000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000067020103030201030002 010300020103090201030002020300020103000201030102010300020103 010201030002010301020103010201030002010304020103010201036802 000100000502000002010502000100000202000007020001020200010000 0102010101000102000100000f0200010000670201030302010300020103 000201030102010305020103010200030102010300020103010201030002 010300020203000201030102010301020103000201030102010300020103 000202036802000100000f02000100000202000007020001020200010000 0102010101000102000100000f0200010000670201030302010300020103 010203030602010301020003010201030102030302020103000201030002 010301020103010201030102030302020103000201036802000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000fe021902000100000f020001000002020000080102020001 00000102010101000102000100000f0200010000fe021902000100000f02 000100000f02000100000102010101000102000100000f0200010000fe02 1902000100000f02000100000f0200010000010201010100010200010000 10010000fe011a0100001001000010010000010201010000fe0155010000 030104000001fe00540000010100010201010000fe044d04000501000102 01010100010201010000fe044d0400050100010201010100010201010000 fe044d0400050100010201010100010201010000fe044d04000501000102 01010100010201010000fe044d0400050100010201010100010201010000 fe044d0400050100010201010100010201010000fe044d04000501000102 01010100010201010000fe044d0400050100010201010100010201010000 fe044d0400050100010201010100010201010000fe044d04000501000102 01010100010201010000fe044d0400050100010201010100010201010000 fe044d0400050100010201010100010201010000fe044d04000501000102 01010100010201010000fe044d0400050100010201010100010201010000 fe044d0400050100010201010100010201010000fe044d04000501000102 01010100010201010000fe044d0400050100010201010100010201010000 fe044d040005010001020101010001020101000034040803010401030104 02030e040103010401030e04020305040203070401030104010304040203 190402033f0402030204010304040203000401030d0402030c0401032f04 000501000102010101000102010100003504010303040103010401030204 01030e040103010401030f04010306040103070401030104010305040103 1a04010340040103020401030304010300040003000401030e0401030c04 01032f040005010001020101010001020101000035040103040400030604 01030e04010301040103020400030b040103060401030704010301040103 050401031a0401034004010308040003140401033e040005010001020101 0100010201010000350401030c0401030e04000302040003020401030b04 0103060401030704000302040003060401031a0401034004010307040103 140401033e04000501000102010101000102010100003504010306040203 02040103030403030d040403020403030204010306040103010401030f04 010301040103040403030304010300040003050401030004020303040303 030403030104020301040103060402030104010302040103040403030404 040301040203010404030004020303040303030404030604010300040003 000402030104020301040103040403030304030315040005010001020101 010001020101000035040103030400030204010302040103020401030104 01030d04010303040103010401030104010306040103000403030e040103 000403030204010301040103010401030004010305040203000402030104 010301040103010401030104010301040103000403030604010300040303 000403030204010301040103020401030104010302040103020401030304 010302040103010401030104010301040103050401030004010301040103 020401030004030302040103010401030104010301040103140400050100 010201010100010201010000350406030204010302040103010401030304 01030c04010302040103020401030104010306040203010401030e040203 010401030204010301040103010401030104000305040103020401030004 010303040303030401030004020301040103060402030104020301040103 010401030304010300040103020401030204010302040103030401030104 010303040303020401030504010301040003010401030204020301040103 010401030204010300040103030401031304000501000102010101000102 0101000035040103030400030204010302040103010407030c0401030204 01030604010306040103020401030e040103020401030504020301040203 070401030204010300040f03000401030204010306040103020401030204 010301040103030401030004010302040103020401030204010303040103 010409030204010305040203030401030204010302040103010401030504 070313040005010001020101010001020101000035040103070401030204 01030104010312040103020401030604010306040103020401030e040103 020401030304010300040103020402030604010302040103000401030504 010306040103020401030604010302040103020401030104010303040103 000401030204010302040103020401030304010301040103050401030204 010306040203020401030204010302040103010401030504010319040005 010001020101010001020101000035040103070401030204010301040103 12040103020401030604010306040103020401030e040103020401030204 010301040103030402030504010302040103000401030504010306040103 020401030604010302040103020401030104010303040103000401030204 010302040103020401030304010301040103050401030204010307040203 010401030204010302040103010401030504010319040005010001020101 010001020101000035040103070401030204010301040203030400030c04 0103020401030604010306040103020401030e0401030204010302040103 010401030104000301040103050401030204010300040203030403030304 000300040103020401030604010302040103020401030104010303040103 000401030204010302040103020401030304010301040203030402030204 010305040003010401030104010302040103020401030104010305040203 030400031304000501000102010101000102010100003504010307040103 0204010302040203000401030d0402030004000300040103020400030104 01030204010301040103020401030e040103020401030204050301040103 000401030504020300040103020402030004010301040203000401030104 010302040103060401030204010302040103020401030104010302040103 010401030204010302040103030401030204020300040103010401030104 010305040103000401030104010302040103020401030204010302040003 010402030004010314040005010001020101010001020101000034040303 0504030300040303020403030f0402030204030301040303010401030004 0303010402030c0403030104020302040103010401030004000300040103 070403030404030303040303010403030104020304040303000403030004 030302040303040405030004030300040303010403030204030303040503 040400030004010301040303000403030104020302040303030403031504 00050100010201010100010201010000fe044d0400050100010201010100 010201010000fe044d0400050100010201010100010201010000fe044d04 00050100010201010100010201010000fe044d0400050100010201010100 010201010000fe044d0400050100010201010100010201010000fe044d04 000501000102010101000102010100003904020312040203210401031d04 01034e0402030e0407034c04000501000102010101000102010100003a04 010313040103210401031d0401034f0401030f040103020402034b040005 010001020101010001020101000035040003030401031304010312040003 08040003290400034a0401030f040103040401034a040005010001020101 010001020101000034040103030401031304010311040103070401032804 01034a0401030f040103040401034a040005010001020101010001020101 000033040403010401030104010304040303060401030304030303040103 000400030004040304040403000402030104020301040103020401030404 030305040203010404030304020301040203010402030104030303040103 000400030504010300040003020403030104030301040203020403030304 04030f040103050401030204030305040303010402030104030301040203 010402032304000501000102010101000102010100003404010303040103 000403030204010301040103050401030204010301040103010401030004 010301040103070401030304010302040103000403030004030302040103 010401030504010302040103060401030104010302040103010401030104 010301040103000401030404010300040103010401030104010301040103 02040103020401030104010301040103010401030f040103050401030104 010301040103050401030304000301040103010401030104010302040103 230400050100010201010100010201010000340401030304020301040103 010401030304010304040103020401030104010301040103010400030104 010307040103030401030204020301040203010401030104010303040103 040401030204010306040103020400030104010302040103010401030104 010301040003040401030104000301040103010401030104010302040003 0204010303040303020401030f0401030504010300040103030401030404 020301040103000401030304010300040103020401032304000501000102 010101000102010100000e04010323040103030401030204010301040703 040401030504020301040203030401030704010303040103020401030204 010302040103010407030404010302040103070401030004010301040103 050402030104020306040203060402030204010301040003020409030204 01030f040103050401030004010303040103050401030104000301040103 030401030004010302040103230400050100010201010100010201010000 0d04010300040003220401030304010302040103010401030a0401030304 010300040103020402030204010307040103030401030204010302040103 02040103010401030a040103020401030704010300040203000401030304 010300040103020402030604020303040103000401030204010300040103 0204010305040103020401030f0401030504010300040103030401030504 010300040103010401030304010300040103020401032304000501000102 010101000102010100000c04010300040003000400032104010303040103 02040103010401030a040103020401030104010303040203010401030704 010303040103020401030204010302040103010401030a04010302040103 080402030004000300040003030401030104010303040203060402030104 01030104010303040003000400030304010305040103020401030f040103 040401030104010303040103060402030204010303040103000401030204 01032304000501000102010101000102010100000c040003000400030004 000322040103030401030204010301040203030400030404010302040103 010401030104000301040103010401030704010303040103020401030204 010302040103010402030304000304040103020401030804020300040203 030401030104010301040003010401030404000301040103010401030104 0103030402030304020303040203020401030f0401030404010301040103 030401030604020302040103030401030004010302040103230400050100 0102010101000102010100000c0401030004000300040003210402030004 000300040103020401030204020300040103050401030204050301040103 000401030104020300040003040402030004000300040103020401030204 010302040103020402030004010305040103020402030004000306040003 020400030404050301040103000401030404010300040103010405030404 000305040203000401030104010301040103020401030a04010302040203 030401030104010308040103030401030104010301040203000402032304 000501000102010101000102010100000c04000300040003000400032304 020300040303010402030204030305040303020401030104010300040003 000401030304020306040203000403030004030300040303000403030204 030305040303020402030704000302040003050401030104010300040003 000401030504000300040103030401030104010303040003060403030304 050301040103090407030504030308040103050403030304020300040203 2204000501000102010101000102010100000c0401030004000300040003 fe04000401033704000501000102010101000102010100000d0401030004 0003fe04010400033804000501000102010101000102010100000d040003 00040003fe0403033804000501000102010101000102010100000d040103 00040003fd0402033904000501000102010101000102010100000d040003 00040003fe043c04000501000102010101000102010100000d0401030004 0003fe043b04000501000102010101000102010100000d04000300040003 830401030b040203100402032d040103080401031d040203360400050100 010201010100010201010000940401030c0401030f040103000400032d04 0103080401031e0401033604000501000102010101000102010100005404 0003080400033a040003070401030f040003360400031f04000303040103 3604000501000102010101000102010100000d0403034104010307040103 39040103070401030e040103350401031e04010303040103360400050100 0102010101000102010100000d0400030004000321040203010402030104 020301040303020402030104010302040403040404030204030307040103 000400030204030301040303010402030204030305040203010404030504 010300040203030403030104040302040303020402030004010302040303 070403030004020302040203000402030104040300040203010402030104 010304040403040404030104010301040103040403032904000501000102 010101000102010100000d04010300040003210401030104010302040103 010401030104010302040103000403030204010307040103030401030104 010305040103000401030104010301040103010401030204010302040103 010401030504010302040103070402030004020301040103010401030104 010303040103010401030204010300040103010401030104010305040103 010401030004010302040103020401030204010303040103020401030004 030301040103010401030604010303040103000403030204010301040103 2804000501000102010101000102010100000d0400030004000322040103 020400030104010302040103010401030204020301040103020401030704 010302040103030401030404010301040003010401030104010301040103 020400030204010303040103040401030204010307040103020401030004 010303040103000401030204010303040103010402030204010303040103 030401030304010300040103000401030304010302040103030401030204 020301040103010401030204000306040103030402030104010301040103 030401032704000501000102010101000102010100003404010300040103 010401030504020302040103020401030204010307040103020401030304 010304040203060402030204010301040003020407030404010302040103 070401030204010300040703000401030204010303040103010401030304 070303040703010402030404010302040103030401030204010302040103 010401030204000306040103030401030204010301040703270400050100 010201010100010201010000340401030004020300040103030401030004 010302040103020401030204010307040103020401030304010305040203 03040103000401030204010300040103020401030a040103020401030704 010302040103000401030604010302040103030401030104010303040103 090401030804010304040103020401030304010302040103020401030104 010301040103060401030304010302040103010401032d04000501000102 010101000102010100003504020300040003000400030304010301040103 020401030204010302040103070401030204010303040103060402030104 0103010401030304000300040003030401030a0401030204010307040103 020401030004010306040103020401030304010301040103030401030904 010307040203040401030204010303040103020401030204010302040303 070401030304010302040103010401032d04000501000102010101000102 010100003504020300040203030401030104010302040103020401030204 010307040103020401030304010304040003010401030104010301040103 030402030304020303040003040401030204010307040103020401030004 020303040003000401030204010303040103010401030304020303040003 030402030304000300040103000401030304010302040103030401030204 010302040103020400030a04010303040103020401030104020303040003 270400050100010201010100010201010000360400030204000304040503 020401030204010302040203000400030404020300040003000401030104 010305040103000401030104050304040003050402030004010305040103 020402030004000304040203000401030204020300040103010401030304 010301040103020401030404020300040103050402030004010300040103 020401030204010302040203000400030004010302040103020401030204 040306040203000400030004010302040103020402030004010328040005 010001020101010001020101000036040003020400030504010301040103 000403030104020302040203060402030204030306040003000401030304 010301040103030400030604030305040303020402030604030304040303 010403030304030302040303040403030704030300040203020402030004 030302040203000403030004030301040203010406030504020300040303 0104020302040303290400050100010201010100010201010000fe040104 000304040103430400050100010201010100010201010000fe0401040103 04040003430400050100010201010100010201010000fe04010402030204 0003440400050100010201010100010201010000fe040204040345040005 0100010201010100010201010000fe044d04000501000102010101000102 01010000fe044d04000501000102010101000102010100004e0402030204 01031904010316040303be04000501000102010101000102010100004f04 010302040103190401031504000302040103bd0400050100010201010100 0102010100004f040103190400031b04010302040003bd04000501000102 010101000102010100004f040103180401031b04010301040103bd040005 010001020101010001020101000035040303020402030004020301040203 000402030204010301040203030403030304030302040403000402030304 0303020402030104010307040103bd040005010001020101010001020101 000034040103010401030204020300040203010402030004020301040103 020401030204010301040103010401030104010302040103030401030204 010301040103020401030004030305040103be0400050100010201010100 010201010000340401030104010302040103020401030104010302040103 010401030204010301040103020401030104010301040103020401030304 01030104010303040103010402030104010305040103be04000501000102 010101000102010100003704020302040103020401030104010302040103 010401030204010301040103090402030204010303040103010401030304 0103010401030204010304040103bf040005010001020101010001020101 000035040103000401030204010302040103010401030204010301040103 020401030104010307040103000401030204010303040103010401030304 0103010401030204010304040003c0040005010001020101010001020101 000034040103010401030204010302040103010401030204010301040103 020401030104010306040103010401030204010303040103010401030304 0103010401030204010304040003c0040005010001020101010001020101 000034040103010401030204010302040103010401030204010301040103 020401030104010306040103010401030204010303040103010401030304 01030104010302040103c604000501000102010101000102010100003404 050302040203000401030204020300040103020401030204010302040103 020400030104050302040203000400030004010302040103010401030204 01030204010304040103bf04000501000102010101000102010100003504 010301040103010401030004010303040103000401030204030300040303 020403030304010301040103020402030004030302040303020403030104 020303040103bf04000501000102010101000102010100003d0401030604 0103fe040404000501000102010101000102010100003d04010306040103 fe040404000501000102010101000102010100003d04010306040103fe04 0404000501000102010101000102010100003c04030304040303fe040304 0005010001020101000004010000fe044d04000501000301040000010000 fe044d040005040000010100010201010000fe044d040005010001020101 0100010201010000fe044d0400050100010201010100010201010000fe04 4d0400050100010201010100010201010000fe044d040005010001020101 0100010201010000fe044d0400050100010201010100010201010000fe04 4d0400050100010201010100010201010000fe044d040005010001020101 0100010201010000fe044d0400050100010201010100010201010000fe04 4d0400050100010201010100010201010000fe044d040005010001020101 0100010201010000fe044d0400050100010201010100010201010000fe04 4d0400050100010201010100010201010000fe044d040005010001020101 0100010201010000fe044d0400050100010201010100010201010000fe05 4e05010001020101010001020101fe044f04010001020101010001020101 fe00510001020101010001020001fe005200010201010100130200010000 fe022b0200010000130201010100130200010000fe022b02000100001302 0101010014010000fe012c01000015010000fe015a01 % % Run-length encoding savings = 80.5% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 36 36 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 36) 643 SB 32 0 0 150 150 0 0 0 128 /Courier-Bold /font9 ANSIFont font 320 275 720 (mkDialog) 720 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -1 1 SJ 1040 266 476 (, cont'd) 476 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 320 575 2100 (proc mkDialog {w title text bitmap args} {) 2100 SB 320 665 350 ( ...) 350 SB 320 755 550 ( set i 0) 550 SB 320 845 1150 ( foreach but $args {) 1150 SB 320 935 1950 ( button $w.button$i -text $but \\) 1950 SB 320 1025 1800 ( -command "set button $i") 1800 SB 320 1115 2400 ( pack $w.button$i -in $w.bot -side left \\) 2400 SB 320 1206 1950 ( -expand 1 -padx 3m -pady 2m) 1950 SB 320 1296 700 ( incr i) 700 SB 320 1386 250 ( }) 250 SB 320 1476 350 ( ...) 350 SB 320 1566 50 (}) 50 SB %MSEPS Preamble 0 0 428 187 0 0 428 187 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 428 def /pp_by2 187 def 0 lc 0 lj 0 0 0 pC 0 1 SP gs 1336 583 1018 1443 CB 1335 582 1018 1443 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: tkDlg3 %%Pages: 1 %%BoundingBox: 0 0 428 187 %%CreationDate: Thu Dec 1 15:58:04 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 428 187 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 428 187 8 [428 0 0 -187 0 187] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage fe00c2000001fe007d000001150000010100130200010000fe027c020001 0000130201010100130200010000fe027c02000100001302010101000102 12010000fe017d010000110101020101010001020001fe00a30001020101 01000102000100000f0200010000fe026a02000100000f02000100000f02 000100000102010101000102000100000f0200010000fe026a0200010000 0f02000100000f02000100000102010101000102000100000f0200010000 fe026a02000100000f02000100000f020001000001020101010001020001 00000f020001000090020703000201030c020103040201030b0201030002 0103020204030b0201039002000100000f02000100000202090002020001 00000102010101000102000100000f020001000090020103060201030c02 0103040201030b020103040201030f0201039002000100000f0200010000 02020000070200010202000100000102010101000102000100000f020001 000090020103030201030002010301020303060202030202020301020303 020201030002010300020103000203030002010301020303020201030002 01039002000100000f020001000002020000070200010202000100000102 010101000102000100000202090002020001000090020103030201030002 010300020103010201030502020302020203000201030102010300020103 000202030002010301020103010201030002010301020103000201030002 020390020001000005020300050200010000020200000702000102020001 000001020101010001020001000002020000070200010202000100009002 040300020103000201030002010301020103050203030002030300020103 010201030002010301020103000201030102010301020103000201030102 010300020103010201039002000100000502000001020001050200010000 020200000702000102020001000001020101010001020001000002020000 070200010202000100009002010303020103000201030002050305020103 000200030002000300020103000201030102010300020103010201030002 010301020103010201030002050300020103010201039002000100000502 000001020001050200010000020200000702000102020001000001020101 010001020001000002020000080102020001000090020103030201030002 010300020103090201030002020300020103000201030102010300020103 010201030002010301020103010201030002010304020103010201039002 000100000502000002010502000100000202000007020001020200010000 0102010101000102000100000f0200010000900201030302010300020103 000201030102010305020103010200030102010300020103010201030002 010300020203000201030102010301020103000201030102010300020103 000202039002000100000f02000100000202000007020001020200010000 0102010101000102000100000f0200010000900201030302010300020103 010203030602010301020003010201030102030302020103000201030002 010301020103010201030102030302020103000201039002000100000f02 000100000202000007020001020200010000010201010100010200010000 0f0200010000fe026a02000100000f020001000002020000080102020001 00000102010101000102000100000f0200010000fe026a02000100000f02 000100000f02000100000102010101000102000100000f0200010000fe02 6a02000100000f02000100000f0200010000010201010100010200010000 10010000fe016b0100001001000010010000010201010000fe01a6010000 030104000001fe00a50000010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e04000501000102010101000102010100005c040803010401030104 02030e040103010401030e04020305040203070401030104010304040203 190402033f0402030204010304040203000401030d0402030c0401035804 000501000102010101000102010100005d04010303040103010401030204 01030e040103010401030f04010306040103070401030104010305040103 1a04010340040103020401030304010300040003000401030e0401030c04 01035804000501000102010101000102010100005d040103040400030604 01030e04010301040103020400030b040103060401030704010301040103 050401031a04010340040103080400031404010367040005010001020101 01000102010100005d0401030c0401030e04000302040003020401030b04 0103060401030704000302040003060401031a0401034004010307040103 140401036704000501000102010101000102010100005d04010306040203 02040103030403030d040403020403030204010306040103010401030f04 010301040103040403030304010300040003050401030004020303040303 030403030104020301040103060402030104010302040103040403030404 040301040203010404030004020303040303030404030604010300040003 00040203010402030104010304040303030403033e040005010001020101 01000102010100005d040103030400030204010302040103020401030104 01030d04010303040103010401030104010306040103000403030e040103 000403030204010301040103010401030004010305040203000402030104 010301040103010401030104010301040103000403030604010300040303 000403030204010301040103020401030104010302040103020401030304 010302040103010401030104010301040103050401030004010301040103 0204010300040303020401030104010301040103010401033d0400050100 0102010101000102010100005d0406030204010302040103010401030304 01030c04010302040103020401030104010306040203010401030e040203 010401030204010301040103010401030104000305040103020401030004 010303040303030401030004020301040103060402030104020301040103 010401030304010300040103020401030204010302040103030401030104 010303040303020401030504010301040003010401030204020301040103 010401030204010300040103030401033c04000501000102010101000102 010100005d040103030400030204010302040103010407030c0401030204 01030604010306040103020401030e040103020401030504020301040203 070401030204010300040f03000401030204010306040103020401030204 010301040103030401030004010302040103020401030204010303040103 010409030204010305040203030401030204010302040103010401030504 07033c04000501000102010101000102010100005d040103070401030204 01030104010312040103020401030604010306040103020401030e040103 020401030304010300040103020402030604010302040103000401030504 010306040103020401030604010302040103020401030104010303040103 000401030204010302040103020401030304010301040103050401030204 010306040203020401030204010302040103010401030504010342040005 01000102010101000102010100005d040103070401030204010301040103 12040103020401030604010306040103020401030e040103020401030204 010301040103030402030504010302040103000401030504010306040103 020401030604010302040103020401030104010303040103000401030204 010302040103020401030304010301040103050401030204010307040203 010401030204010302040103010401030504010342040005010001020101 01000102010100005d040103070401030204010301040203030400030c04 0103020401030604010306040103020401030e0401030204010302040103 010401030104000301040103050401030204010300040203030403030304 000300040103020401030604010302040103020401030104010303040103 000401030204010302040103020401030304010301040203030402030204 010305040003010401030104010302040103020401030104010305040203 030400033c04000501000102010101000102010100005d04010307040103 0204010302040203000401030d0402030004000300040103020400030104 01030204010301040103020401030e040103020401030204050301040103 000401030504020300040103020402030004010301040203000401030104 010302040103060401030204010302040103020401030104010302040103 010401030204010302040103030401030204020300040103010401030104 010305040103000401030104010302040103020401030204010302040003 01040203000401033d04000501000102010101000102010100005c040303 0504030300040303020403030f0402030204030301040303010401030004 0303010402030c0403030104020302040103010401030004000300040103 070403030404030303040303010403030104020304040303000403030004 030302040303040405030004030300040303010403030204030303040503 040400030004010301040303000403030104020302040303030403033e04 00050100010201010100010201010000fe049e0400050100010201010100 010201010000fe049e0400050100010201010100010201010000fe049e04 00050100010201010100010201010000fe049e0400050100010201010100 010201010000fe049e0400050100010201010100010201010000fe049e04 000501000102010101000102010100006104020312040203210401031d04 01034e0402030e0407037504000501000102010101000102010100006204 010313040103210401031d0401034f0401030f0401030204020374040005 01000102010101000102010100005d040003030401031304010312040003 08040003290400034a0401030f0401030404010373040005010001020101 01000102010100005c040103030401031304010311040103070401032804 01034a0401030f0401030404010373040005010001020101010001020101 00005b040403010401030104010304040303060401030304030303040103 000400030004040304040403000402030104020301040103020401030404 030305040203010404030304020301040203010402030104030303040103 000400030504010300040003020403030104030301040203020403030304 04030f040103050401030204030305040303010402030104030301040203 010402034c04000501000102010101000102010100005c04010303040103 000403030204010301040103050401030204010301040103010401030004 010301040103070401030304010302040103000403030004030302040103 010401030504010302040103060401030104010302040103010401030104 010301040103000401030404010300040103010401030104010301040103 02040103020401030104010301040103010401030f040103050401030104 010301040103050401030304000301040103010401030104010302040103 4c04000501000102010101000102010100005c0401030304020301040103 010401030304010304040103020401030104010301040103010400030104 010307040103030401030204020301040203010401030104010303040103 040401030204010306040103020400030104010302040103010401030104 010301040003040401030104000301040103010401030104010302040003 0204010303040303020401030f0401030504010300040103030401030404 020301040103000401030304010300040103020401034c04000501000102 010101000102010100000e0401034b040103030401030204010301040703 040401030504020301040203030401030704010303040103020401030204 010302040103010407030404010302040103070401030004010301040103 050402030104020306040203060402030204010301040003020409030204 01030f040103050401030004010303040103050401030104000301040103 0304010300040103020401034c0400050100010201010100010201010000 0d040103000400034a0401030304010302040103010401030a0401030304 010300040103020402030204010307040103030401030204010302040103 02040103010401030a040103020401030704010300040203000401030304 010300040103020402030604020303040103000401030204010300040103 0204010305040103020401030f0401030504010300040103030401030504 010300040103010401030304010300040103020401034c04000501000102 010101000102010100000c04010300040003000400034904010303040103 02040103010401030a040103020401030104010303040203010401030704 010303040103020401030204010302040103010401030a04010302040103 080402030004000300040003030401030104010303040203060402030104 01030104010303040003000400030304010305040103020401030f040103 040401030104010303040103060402030204010303040103000401030204 01034c04000501000102010101000102010100000c040003000400030004 00034a040103030401030204010301040203030400030404010302040103 010401030104000301040103010401030704010303040103020401030204 010302040103010402030304000304040103020401030804020300040203 030401030104010301040003010401030404000301040103010401030104 0103030402030304020303040203020401030f0401030404010301040103 0304010306040203020401030304010300040103020401034c0400050100 0102010101000102010100000c0401030004000300040003490402030004 000300040103020401030204020300040103050401030204050301040103 000401030104020300040003040402030004000300040103020401030204 010302040103020402030004010305040103020402030004000306040003 020400030404050301040103000401030404010300040103010405030404 000305040203000401030104010301040103020401030a04010302040203 030401030104010308040103030401030104010301040203000402034c04 000501000102010101000102010100000c04000300040003000400034b04 020300040303010402030204030305040303020401030104010300040003 000401030304020306040203000403030004030300040303000403030204 030305040303020402030704000302040003050401030104010300040003 000401030504000300040103030401030104010303040003060403030304 050301040103090407030504030308040103050403030304020300040203 4b04000501000102010101000102010100000c0401030004000300040003 fe04280401036004000501000102010101000102010100000d0401030004 0003fe04290400036104000501000102010101000102010100000d040003 00040003fe04270403036104000501000102010101000102010100000d04 010300040003fe0426040203620400050100010201010100010201010000 0d04000300040003fe048d04000501000102010101000102010100000d04 010300040003fe048c04000501000102010101000102010100000d040003 00040003ab0401030b040203100402032d040103080401031d0402035f04 00050100010201010100010201010000bc0401030c0401030f0401030004 00032d040103080401031e0401035f040005010001020101010001020101 00007c040003080400033a040003070401030f040003360400031f040003 030401035f04000501000102010101000102010100000d04030369040103 0704010339040103070401030e040103350401031e040103030401035f04 000501000102010101000102010100000d04000300040003490402030104 020301040203010403030204020301040103020404030404040302040303 070401030004000302040303010403030104020302040303050402030104 040305040103000402030304030301040403020403030204020300040103 020403030704030300040203020402030004020301040403000402030104 020301040103040404030404040301040103010401030404030352040005 01000102010101000102010100000d040103000400034904010301040103 020401030104010301040103020401030004030302040103070401030304 010301040103050401030004010301040103010401030104010302040103 020401030104010305040103020401030704020300040203010401030104 010301040103030401030104010302040103000401030104010301040103 050401030104010300040103020401030204010302040103030401030204 010300040303010401030104010306040103030401030004030302040103 010401035104000501000102010101000102010100000d04000300040003 4a0401030204000301040103020401030104010302040203010401030204 010307040103020401030304010304040103010400030104010301040103 010401030204000302040103030401030404010302040103070401030204 010300040103030401030004010302040103030401030104020302040103 030401030304010303040103000401030004010303040103020401030304 010302040203010401030104010302040003060401030304020301040103 01040103030401035004000501000102010101000102010100005c040103 000401030104010305040203020401030204010302040103070401030204 010303040103040402030604020302040103010400030204070304040103 020401030704010302040103000407030004010302040103030401030104 010303040703030407030104020304040103020401030304010302040103 020401030104010302040003060401030304010302040103010407035004 000501000102010101000102010100005c04010300040203000401030304 010300040103020401030204010302040103070401030204010303040103 0504020303040103000401030204010300040103020401030a0401030204 010307040103020401030004010306040103020401030304010301040103 030401030904010308040103040401030204010303040103020401030204 010301040103010401030604010303040103020401030104010356040005 01000102010101000102010100005d040203000400030004000303040103 010401030204010302040103020401030704010302040103030401030604 020301040103010401030304000300040003030401030a04010302040103 070401030204010300040103060401030204010303040103010401030304 010309040103070402030404010302040103030401030204010302040103 020403030704010303040103020401030104010356040005010001020101 01000102010100005d040203000402030304010301040103020401030204 010302040103070401030204010303040103040400030104010301040103 010401030304020303040203030400030404010302040103070401030204 010300040203030400030004010302040103030401030104010303040203 030400030304020303040003000401030004010303040103020401030304 01030204010302040103020400030a040103030401030204010301040203 030400035004000501000102010101000102010100005e04000302040003 040405030204010302040103020402030004000304040203000400030004 010301040103050401030004010301040503040400030504020300040103 050401030204020300040003040402030004010302040203000401030104 010303040103010401030204010304040203000401030504020300040103 000401030204010302040103020402030004000300040103020401030204 010302040403060402030004000300040103020401030204020300040103 5104000501000102010101000102010100005e0400030204000305040103 010401030004030301040203020402030604020302040303060400030004 010303040103010401030304000306040303050403030204020306040303 040403030104030303040303020403030404030307040303000402030204 020300040303020402030004030300040303010402030104060305040203 000403030104020302040303520400050100010201010100010201010000 fe0429040003040401036c0400050100010201010100010201010000fe04 29040103040400036c0400050100010201010100010201010000fe042904 0203020400036d0400050100010201010100010201010000fe042a040403 6e0400050100010201010100010201010000fe049e040005010001020101 0100010201010000fe049e04000501000102010101000102010100007604 0203020401031904010316040303e7040005010001020101010001020101 00007704010302040103190401031504000302040103e604000501000102 0101010001020101000077040103190400031b04010302040003e6040005 010001020101010001020101000077040103180401031b04010301040103 e604000501000102010101000102010100005d0403030204020300040203 010402030004020302040103010402030304030303040303020404030004 020303040303020402030104010307040103e60400050100010201010100 0102010100005c0401030104010302040203000402030104020300040203 010401030204010302040103010401030104010301040103020401030304 01030204010301040103020401030004030305040103e704000501000102 010101000102010100005c04010301040103020401030204010301040103 020401030104010302040103010401030204010301040103010401030204 0103030401030104010303040103010402030104010305040103e7040005 01000102010101000102010100005f040203020401030204010301040103 020401030104010302040103010401030904020302040103030401030104 010303040103010401030204010304040103e80400050100010201010100 0102010100005d0401030004010302040103020401030104010302040103 010401030204010301040103070401030004010302040103030401030104 010303040103010401030204010304040003e90400050100010201010100 0102010100005c0401030104010302040103020401030104010302040103 010401030204010301040103060401030104010302040103030401030104 010303040103010401030204010304040003e90400050100010201010100 0102010100005c0401030104010302040103020401030104010302040103 010401030204010301040103060401030104010302040103030401030104 0103030401030104010302040103ef040005010001020101010001020101 00005c040503020402030004010302040203000401030204010302040103 020401030204000301040503020402030004000300040103020401030104 0103020401030204010304040103e8040005010001020101010001020101 00005d040103010401030104010300040103030401030004010302040303 000403030204030303040103010401030204020300040303020403030204 03030104020303040103e804000501000102010101000102010100006504 010306040103fe042d040005010001020101010001020101000065040103 06040103fe042d0400050100010201010100010201010000650401030604 0103fe042d04000501000102010101000102010100006404030304040303 fe042c0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe049e0400050100010201010100010201010000 fe049e0400050100010201010100010201010000fe049e04000501000102 01010100010201010000fe059f05010001020101010001020101fe00a200 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 0102010101000102010100000c04520019047e0019047d000c0400050100 0102010101000102010100000c045100000519047d00000519047c000005 0c04000501000102010101000102010100000c0401004e04010519040100 7a04010519040100790401050c0400050100010201010100010201010000 0c0401004e040105190401007a04010519040100790401050c0400050100 0102010101000102010100000c0401004e040105190401007a0401051904 0100790401050c04000501000102010101000102010100000c0401004e04 0105190401007a04010519040100790401050c0400050100010201010100 0102010100000c0401004e040105190401007a0401051904010079040105 0c04000501000102010101000102010100000c0401004e04010519040100 7a04010519040100790401050c0400050100010201010100010201010000 0c0401000c0404031c0407030004010314040105190401000b0404030204 01031e040103070403030004010334040105190401000b04050309040103 180407030b0405030404010300040103010401031a0401050c0400050100 0102010101000102010100000c0401000b040103020401031b0401030604 010314040105190401000b04010301040103220401030604010301040303 34040105190401000b04010302040103080401031b0401030e0401030804 0103040401031a0401050c04000501000102010101000102010100000c04 01000b040103020401030104030301040103020401030104030306040103 0304010300040103010403030e040105190401000b040103020401030004 010301040303020403030204030301040103000401030004010300040103 050401030404010300040103020403030104010300040103020401030004 010301040303020403030e040105190401000b0401030204010301040303 010403030004010301040103000401030004030300040103080401030304 030306040103050401030004010300040103000403030104030301040103 000401030c0401050c04000501000102010101000102010100000c040100 0c0402030304010301040103000401030204010300040103010401030504 0103030401030004010300040103010401030d040105190401000b040103 020401030004010300040103010401030004010301040103000401030104 010300040603000402030504010304040203000401030004010301040103 000402030004010300040103000402030004010301040103000401030104 01030d040105190401000b04010302040103000401030104010301040103 010401030104010300040703000401030704010302040103010401030504 010304040103000402030004010301040103010401030104010300040403 0c0401050c04000501000102010101000102010100000c0401000e040203 050401030104010300040103010401030104010305040403000401030004 010300040103010401030d040105190401000b0401030204010300040103 000402030304010308040103000402030104010301040103050401030404 010301040103040401030004010301040103000401030104010300040103 010401030004020310040105190401000b04050301040103010401030104 010301040103010401030004020301040103010401030704010302040103 010401030504050300040103010401030004010301040103010401030104 0103000402030e0401050c04000501000102010101000102010100000c04 01000f040203010404030104010300040103010405030504010303040103 00040103000405030d040105190401000b04010302040103000401030204 020301040103050404030004010302040103010401030504010304040103 010401030104040300040103010401030004010301040103000405030204 02030e040105190401000b04010301040103010405030104010301040103 010401030004010302040103010401030704010302040103010401030504 010304040103010401030004010301040103010401030104010300040103 0f0401050c04000501000102010101000102010100000c0401000b040103 020401030004010301040103020402030204010309040103030401030004 01030004010311040105190401000b040103020401030004010303040203 000401030404010301040103000401030204010301040103050401030404 010301040103000401030104010300040103010401030004010301040103 00040103070402030d040105190401000b04010302040103000401030504 010301040103010401030004010302040103010401030704010302040103 010401030504010304040103010401030004010301040103010401030104 0103000401030f0401050c04000501000102010101000102010100000c04 01000b040103020401030004010301040103020402030204010301040103 05040103030401030004010300040103010401030d040105190401000b04 010301040103010401030004010301040103000401030104010300040103 010401030004010302040103000402030604010301040303010401030004 010301040103000401030104010300040103000402030004010301040103 00040103010401030d040105190401000b04010302040103000401030104 010301040103000402030004020300040103020401030104010307040103 020401030104010305040103040401030004020300040103010401030004 020301040103000401030f0401050c040005010001020101010001020101 00000c0401000c0404030204020300040103020400030404030306040103 0304010300040103010403030e040105190401000b040403020401030104 030302040303020402030004030303040103000401030704030300040103 010401030104020300040303010401030104010300040103010403030204 03030e040105190401000b04010302040103010403030304010301040103 000401030004010302040103010401030704010303040303060405030104 010300040103000401030204010301040303010401030f0401050c040005 01000102010101000102010100000c0401004e040105190401005c040103 1b04010519040100790401050c0400050100010201010100010201010000 0c0401004e0401051904010058040103010401031b040105190401007904 01050c04000501000102010101000102010100000c0401004e0401051904 0100590403031c04010519040100790401050c0400050100010201010000 040100000c0401004e040105190401007a04010519040100790401050c04 0005010003010400000100000c0401004e040105190401007a0401051904 0100790401050c0400050400000101000102010100000c0401004e040105 190401007a04010519040100790401050c04000501000102010101000102 010100000c0401004e040105190401007a04010519040100790401050c04 000501000102010101000102010100000c0401004e040105190401007a04 010519040100790401050c04000501000102010101000102010100000c04 01004e040105190401007a04010519040100790401050c04000501000102 010101000102010100000c0401005005190401007c05190401007b050c04 000501000102010101000102010100000c0400005105190400007d051904 00007c050c0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe049e0400050100 010201010100010201010000fe049e040005010001020101010001020101 0000fe049e0400050100010201010100010201010000fe059f0501000102 0101010001020101fe00a20001020101010001020001fe00a30001020101 0100130200010000fe027c0200010000130201010100130200010000fe02 7c020001000013020101010014010000fe017d01000015010000fe01ab01 % % Run-length encoding savings = 84.3% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 37 37 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 37) 643 SB 32 0 0 150 150 0 0 0 128 /Courier-Bold /font9 ANSIFont font 320 275 720 (mkDialog) 720 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -1 1 SJ 1040 266 476 (, cont'd) 476 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 320 625 2100 (proc mkDialog {w title text bitmap args} {) 2100 SB 320 715 850 ( global button) 850 SB 320 805 350 ( ...) 350 SB 320 895 550 ( grab $w) 550 SB 320 985 1200 ( set oldFocus [focus]) 1200 SB 320 1075 600 ( focus $w) 600 SB 320 1165 1300 ( tkwait variable button) 1300 SB 320 1256 700 ( destroy $w) 700 SB 320 1346 950 ( focus $oldFocus) 950 SB 320 1436 900 ( return $button) 900 SB 320 1526 50 (}) 50 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 38 38 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 862 (Tcl/Tk Tutorial Part III: Tk Scripting) 862 SB 2143 2079 643 (December 1, 1994, slide 38) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 166 (Su) 167 SB 487 266 392 (mmar) 391 SB 878 266 76 (y) 75 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 576 1514 (Creating interfaces with Tk is easy:) 1514 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 698 50 (\226) 50 SB 2 1 SJ 564 698 620 (Create widgets.) 620 SB 470 818 50 (\226) 50 SB 9 3 SJ 564 818 1357 (Arrange with geometry managers.) 1357 SB 470 938 50 (\226) 50 SB 2 4 SJ 564 938 1392 (Connect to application, each other.) 1392 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1183 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 4 SJ 433 1151 1621 (Power from single scripting language:) 1621 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1273 50 (\226) 50 SB 8 3 SJ 564 1273 1164 (For specifying user interface.) 1164 SB 470 1393 50 (\226) 50 SB 2 4 SJ 564 1393 1367 (For widgets to invoke application.) 1367 SB 470 1513 50 (\226) 50 SB 4 6 SJ 564 1513 1804 (For widgets to communicate with each other.) 1804 SB 470 1632 50 (\226) 50 SB 2 4 SJ 564 1632 1556 (For communcating with outside world.) 1556 SB 470 1752 50 (\226) 50 SB 13 3 SJ 564 1752 1436 (For changing anything dynamically.) 1436 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Trailer SVDoc restore end %%Pages: 38 % TrueType font name key: % MSTT31c1c2 = 366fDTimes New RomanF00000000000002bc0000 % MSTT31c1cf = 366fDTimes New RomanF00000064000002bc0000 % MSTT31c1dc = 366fDTimes New RomanF0000004b000002bc00ff % MSTT31c1e9 = 366fDTimes New RomanF0000003a0000019000ff % MSTT31c1f6 = 366fDMonotype SortsF0000004b000001900000 % MSTT31c203 = 366fDTimes New RomanF00000064000001900000 % MSTT31c210 = 366fDTimes New RomanF00000054000001900000 % MSTT31c21d = 366fDTimes New RomanF0000005c000002bc0000 % MSTT31c22a = 366fDMonotype SortsF00000047000001900000 % MSTT31c23f = 366fDMonotype SortsF00000000000001900000 % MSTT31c24c = 366fDTimes New RomanF00000043000001900000 %%DocumentSuppliedResources: procset Win35Dict 3 1 %%DocumentNeededResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-BoldItalic %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%EOF 0050100010201010100010201010000 0c0401004e040105190401007a04010519040100790401050c0400050100 0102010101000102010100000c0401004e040105190401007a0401051904 01007tut/tclc.2up010077500630510000012000002322520573603524200140050ustar00ousterstaff00002300000036%!PS-Adobe-3.0 %%Creator: Windows PSCRIPT %%Title: PowerPoint - TCLC.PPT %%BoundingBox: 14 9 597 784 %%DocumentNeededResources: (atend) %%DocumentSuppliedResources: (atend) %%Pages: (atend) %%BeginResource: procset Win35Dict 3 1 /Win35Dict 290 dict def Win35Dict begin/bd{bind def}bind def/in{72 mul}bd/ed{exch def}bd/ld{load def}bd/tr/translate ld/gs/gsave ld/gr /grestore ld/M/moveto ld/L/lineto ld/rmt/rmoveto ld/rlt/rlineto ld /rct/rcurveto ld/st/stroke ld/n/newpath ld/sm/setmatrix ld/cm/currentmatrix ld/cp/closepath ld/ARC/arcn ld/TR{65536 div}bd/lj/setlinejoin ld/lc /setlinecap ld/ml/setmiterlimit ld/sl/setlinewidth ld/scignore false def/sc{scignore{pop pop pop}{0 index 2 index eq 2 index 4 index eq and{pop pop 255 div setgray}{3{255 div 3 1 roll}repeat setrgbcolor}ifelse}ifelse}bd /FC{bR bG bB sc}bd/fC{/bB ed/bG ed/bR ed}bd/HC{hR hG hB sc}bd/hC{ /hB ed/hG ed/hR ed}bd/PC{pR pG pB sc}bd/pC{/pB ed/pG ed/pR ed}bd/sM matrix def/PenW 1 def/iPen 5 def/mxF matrix def/mxE matrix def/mxUE matrix def/mxUF matrix def/fBE false def/iDevRes 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt def/fPP false def/SS{fPP{ /SV save def}{gs}ifelse}bd/RS{fPP{SV restore}{gr}ifelse}bd/EJ{gsave showpage grestore}bd/#C{userdict begin/#copies ed end}bd/FEbuf 2 string def/FEglyph(G )def/FE{1 exch{dup 16 FEbuf cvrs FEglyph exch 1 exch putinterval 1 index exch FEglyph cvn put}for}bd/SM{/iRes ed/cyP ed /cxPg ed/cyM ed/cxM ed 72 100 div dup scale dup 0 ne{90 eq{cyM exch 0 eq{cxM exch tr -90 rotate -1 1 scale}{cxM cxPg add exch tr +90 rotate}ifelse}{cyP cyM sub exch 0 ne{cxM exch tr -90 rotate}{cxM cxPg add exch tr -90 rotate 1 -1 scale}ifelse}ifelse}{pop cyP cyM sub exch 0 ne{cxM cxPg add exch tr 180 rotate}{cxM exch tr 1 -1 scale}ifelse}ifelse 100 iRes div dup scale 0 0 transform .25 add round .25 sub exch .25 add round .25 sub exch itransform translate}bd/SJ{1 index 0 eq{pop pop/fBE false def}{1 index/Break ed div/dxBreak ed/fBE true def}ifelse}bd/ANSIVec[ 16#0/grave 16#1/acute 16#2/circumflex 16#3/tilde 16#4/macron 16#5/breve 16#6/dotaccent 16#7/dieresis 16#8/ring 16#9/cedilla 16#A/hungarumlaut 16#B/ogonek 16#C/caron 16#D/dotlessi 16#27/quotesingle 16#60/grave 16#7C/bar 16#82/quotesinglbase 16#83/florin 16#84/quotedblbase 16#85 /ellipsis 16#86/dagger 16#87/daggerdbl 16#88/circumflex 16#89/perthousand 16#8A/Scaron 16#8B/guilsinglleft 16#8C/OE 16#91/quoteleft 16#92/quoteright 16#93/quotedblleft 16#94/quotedblright 16#95/bullet 16#96/endash 16#97 /emdash 16#98/tilde 16#99/trademark 16#9A/scaron 16#9B/guilsinglright 16#9C/oe 16#9F/Ydieresis 16#A0/space 16#A1/exclamdown 16#A4/currency 16#A5/yen 16#A6/brokenbar 16#A7/section 16#A8/dieresis 16#A9/copyright 16#AA/ordfeminine 16#AB/guillemotleft 16#AC/logicalnot 16#AD/hyphen 16#AE/registered 16#AF/macron 16#B0/degree 16#B1/plusminus 16#B2/twosuperior 16#B3/threesuperior 16#B4/acute 16#B5/mu 16#B6/paragraph 16#B7/periodcentered 16#B8/cedilla 16#B9/onesuperior 16#BA/ordmasculine 16#BB/guillemotright 16#BC/onequarter 16#BD/onehalf 16#BE/threequarters 16#BF/questiondown 16#C0/Agrave 16#C1/Aacute 16#C2/Acircumflex 16#C3/Atilde 16#C4/Adieresis 16#C5/Aring 16#C6/AE 16#C7/Ccedilla 16#C8/Egrave 16#C9/Eacute 16#CA /Ecircumflex 16#CB/Edieresis 16#CC/Igrave 16#CD/Iacute 16#CE/Icircumflex 16#CF/Idieresis 16#D0/Eth 16#D1/Ntilde 16#D2/Ograve 16#D3/Oacute 16#D4 /Ocircumflex 16#D5/Otilde 16#D6/Odieresis 16#D7/multiply 16#D8/Oslash 16#D9/Ugrave 16#DA/Uacute 16#DB/Ucircumflex 16#DC/Udieresis 16#DD/Yacute 16#DE/Thorn 16#DF/germandbls 16#E0/agrave 16#E1/aacute 16#E2/acircumflex 16#E3/atilde 16#E4/adieresis 16#E5/aring 16#E6/ae 16#E7/ccedilla 16#E8 /egrave 16#E9/eacute 16#EA/ecircumflex 16#EB/edieresis 16#EC/igrave 16#ED/iacute 16#EE/icircumflex 16#EF/idieresis 16#F0/eth 16#F1/ntilde 16#F2/ograve 16#F3/oacute 16#F4/ocircumflex 16#F5/otilde 16#F6/odieresis 16#F7/divide 16#F8/oslash 16#F9/ugrave 16#FA/uacute 16#FB/ucircumflex 16#FC/udieresis 16#FD/yacute 16#FE/thorn 16#FF/ydieresis ] def/reencdict 12 dict def/IsChar{basefontdict/CharStrings get exch known}bd/MapCh{dup IsChar not{pop/bullet}if newfont/Encoding get 3 1 roll put}bd/MapDegree{16#b0 /degree IsChar{/degree}{/ring}ifelse MapCh}bd/MapBB{16#a6/brokenbar IsChar{/brokenbar}{/bar}ifelse MapCh}bd/ANSIFont{reencdict begin/newfontname ed/basefontname ed FontDirectory newfontname known not{/basefontdict basefontname findfont def/newfont basefontdict maxlength dict def basefontdict{exch dup/FID ne{dup/Encoding eq{exch dup length array copy newfont 3 1 roll put}{exch newfont 3 1 roll put}ifelse}{pop pop}ifelse}forall newfont /FontName newfontname put 127 1 159{newfont/Encoding get exch/bullet put}for ANSIVec aload pop ANSIVec length 2 idiv{MapCh}repeat MapDegree MapBB newfontname newfont definefont pop}if newfontname end}bd/SB{FC /ULlen ed/str ed str length fBE not{dup 1 gt{1 sub}if}if/cbStr ed /dxGdi ed/y0 ed/x0 ed str stringwidth dup 0 ne{/y1 ed/x1 ed y1 y1 mul x1 x1 mul add sqrt dxGdi exch div 1 sub dup x1 mul cbStr div exch y1 mul cbStr div}{exch abs neg dxGdi add cbStr div exch}ifelse/dyExtra ed/dxExtra ed x0 y0 M fBE{dxBreak 0 BCh dxExtra dyExtra str awidthshow}{dxExtra dyExtra str ashow}ifelse fUL{x0 y0 M dxUL dyUL rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if fSO{x0 y0 M dxSO dySO rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if n/fBE false def}bd/font{/name ed/Ascent ed 0 ne/fT3 ed 0 ne/fSO ed 0 ne/fUL ed/Sy ed/Sx ed 10.0 div/ori ed -10.0 div/esc ed/BCh ed name findfont/xAscent 0 def/yAscent Ascent def/ULesc esc def ULesc mxUE rotate pop fT3{/esc 0 def xAscent yAscent mxUE transform /yAscent ed/xAscent ed}if [Sx 0 0 Sy neg xAscent yAscent] esc mxE rotate mxF concatmatrix makefont setfont [Sx 0 0 Sy neg 0 Ascent] mxUE mxUF concatmatrix pop fUL{currentfont dup/FontInfo get/UnderlinePosition known not{pop/Courier findfont}if/FontInfo get/UnderlinePosition get 1000 div 0 exch mxUF transform/dyUL ed/dxUL ed}if fSO{0 .3 mxUF transform /dySO ed/dxSO ed}if fUL fSO or{currentfont dup/FontInfo get/UnderlineThickness known not{pop/Courier findfont}if/FontInfo get/UnderlineThickness get 1000 div Sy mul/cyUL ed}if}bd/min{2 copy gt{exch}if pop}bd/max{2 copy lt{exch}if pop}bd/CP{/ft ed{{ft 0 eq{clip}{eoclip}ifelse}stopped{currentflat 1 add setflat}{exit}ifelse}loop}bd/patfont 10 dict def patfont begin /FontType 3 def/FontMatrix [1 0 0 -1 0 0] def/FontBBox [0 0 16 16] def/Encoding StandardEncoding def/BuildChar{pop pop 16 0 0 0 16 16 setcachedevice 16 16 false [1 0 0 1 .25 .25]{pat}imagemask}bd end/p{ /pat 32 string def{}forall 0 1 7{dup 2 mul pat exch 3 index put dup 2 mul 1 add pat exch 3 index put dup 2 mul 16 add pat exch 3 index put 2 mul 17 add pat exch 2 index put pop}for}bd/pfill{/PatFont patfont definefont setfont/ch(AAAA)def X0 64 X1{Y1 -16 Y0{1 index exch M ch show}for pop}for}bd/vert{X0 w X1{dup Y0 M Y1 L st}for}bd/horz{Y0 w Y1{dup X0 exch M X1 exch L st}for}bd/fdiag{X0 w X1{Y0 M X1 X0 sub dup rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup rlt st}for}bd/bdiag{X0 w X1{Y1 M X1 X0 sub dup neg rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup neg rlt st}for}bd/AU{1 add cvi 15 or}bd/AD{1 sub cvi -16 and}bd/SHR{pathbbox AU/Y1 ed AU/X1 ed AD/Y0 ed AD/X0 ed}bd/hfill{/w iRes 37.5 div round def 0.1 sl [] 0 setdash n dup 0 eq{horz}if dup 1 eq{vert}if dup 2 eq{fdiag}if dup 3 eq{bdiag}if dup 4 eq{horz vert}if 5 eq{fdiag bdiag}if}bd/F{/ft ed fm 256 and 0 ne{gs FC ft 0 eq{fill}{eofill}ifelse gr}if fm 1536 and 0 ne{SHR gs HC ft CP fm 1024 and 0 ne{/Tmp save def pfill Tmp restore}{fm 15 and hfill}ifelse gr}if}bd/S{PenW sl PC st}bd/m matrix def/GW{iRes 12 div PenW add cvi}bd/DoW{iRes 50 div PenW add cvi}bd/DW{iRes 8 div PenW add cvi}bd/SP{/PenW ed/iPen ed iPen 0 eq iPen 6 eq or{[] 0 setdash}if iPen 1 eq{[DW GW] 0 setdash}if iPen 2 eq{[DoW GW] 0 setdash}if iPen 3 eq{[DW GW DoW GW] 0 setdash}if iPen 4 eq{[DW GW DoW GW DoW GW] 0 setdash}if}bd/E{m cm pop tr scale 1 0 moveto 0 0 1 0 360 arc cp m sm}bd /AG{/sy ed/sx ed sx div 4 1 roll sy div 4 1 roll sx div 4 1 roll sy div 4 1 roll atan/a2 ed atan/a1 ed sx sy scale a1 a2 ARC}def/A{m cm pop tr AG m sm}def/P{m cm pop tr 0 0 M AG cp m sm}def/RRect{n 4 copy M 3 1 roll exch L 4 2 roll L L cp}bd/RRCC{/r ed/y1 ed/x1 ed/y0 ed/x0 ed x0 x1 add 2 div y0 M x1 y0 x1 y1 r arcto 4{pop}repeat x1 y1 x0 y1 r arcto 4{pop}repeat x0 y1 x0 y0 r arcto 4{pop}repeat x0 y0 x1 y0 r arcto 4{pop}repeat cp}bd/RR{2 copy 0 eq exch 0 eq or{pop pop RRect}{2 copy eq{pop RRCC}{m cm pop/y2 ed/x2 ed/ys y2 x2 div 1 max def/xs x2 y2 div 1 max def/y1 exch ys div def/x1 exch xs div def/y0 exch ys div def/x0 exch xs div def/r2 x2 y2 min def xs ys scale x0 x1 add 2 div y0 M x1 y0 x1 y1 r2 arcto 4{pop}repeat x1 y1 x0 y1 r2 arcto 4{pop}repeat x0 y1 x0 y0 r2 arcto 4{pop}repeat x0 y0 x1 y0 r2 arcto 4{pop}repeat m sm cp}ifelse}ifelse}bd/PP{{rlt}repeat}bd/OB{gs 0 ne{7 3 roll/y ed /x ed x y translate ULesc rotate x neg y neg translate x y 7 -3 roll}if sc B fill gr}bd/B{M/dy ed/dx ed dx 0 rlt 0 dy rlt dx neg 0 rlt cp}bd /CB{B clip n}bd/ErrHandler{errordict dup maxlength exch length gt dup{errordict begin}if/errhelpdict 12 dict def errhelpdict begin/stackunderflow(operand stack underflow)def /undefined(this name is not defined in a dictionary)def/VMerror(you have used up all the printer's memory)def /typecheck(operator was expecting a different type of operand)def /ioerror(input/output error occured)def end{end}if errordict begin /handleerror{$error begin newerror{/newerror false def showpage 72 72 scale/x .25 def/y 9.6 def/Helvetica findfont .2 scalefont setfont x y moveto(Offending Command = )show/command load{dup type/stringtype ne{(max err string)cvs}if show}exec/y y .2 sub def x y moveto(Error = )show errorname{dup type dup( max err string )cvs show( : )show/stringtype ne{( max err string )cvs}if show}exec errordict begin errhelpdict errorname known{x 1 add y .2 sub moveto errhelpdict errorname get show}if end /y y .4 sub def x y moveto(Stack =)show ostack{/y y .2 sub def x 1 add y moveto dup type/stringtype ne{( max err string )cvs}if show}forall showpage}if end}def end}bd end %%EndResource /SVDoc save def %%EndProlog %%BeginSetup Win35Dict begin ErrHandler statusdict begin 0 setjobtimeout end statusdict begin statusdict /jobname (PowerPoint - TCLC.PPT) put end /oldDictCnt countdictstack def {}stopped { countdictstack oldDictCnt lt { Win35Dict begin } {1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if /oldDictCnt countdictstack def {letter }stopped { countdictstack oldDictCnt lt { Win35Dict begin } {1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if [{ } /exec load currenttransfer /exec load] cvx settransfer %%EndSetup %%Page: 1 1 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 5 4 SJ 624 697 1174 (Writing Tcl-Based Applications In C) 1174 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1038 906 363 (John Ousterhout) 363 SB gr gs 1500 1125 463 400 CB 3 2 SJ 879 996 677 (Sun Microsystems Laboratories) 677 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 882 1084 675 (john.ousterhout@eng.sun.com) 675 SB gr 32 0 0 38 38 0 0 0 36 /Times-BoldItalic /font30 ANSIFont font gs 1500 1125 463 400 CB -9 3 SJ 1033 1332 382 (Tcl/Tk Tutorial, Part IV) 382 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 3 6 SJ 566 2699 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 1705 CB 1492 2699 306 (December 1, 1994, slide 2) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 566 1793 240 (Outline) 240 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1965 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 3 SJ 622 1949 454 (Philosophy: focus on ) 454 SB gr gs 1500 1125 463 1705 CB 1077 1949 215 (primitives) 215 SB gr gs 1500 1125 463 1705 CB 1292 1949 13 (.) 13 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2054 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 3 SJ 622 2038 809 (Basics: interpreters, executing scripts.) 809 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2144 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 2 SJ 622 2128 652 (Implementing new commands.) 652 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2234 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2218 581 (Managing the result string.) 581 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2324 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 8 5 SJ 622 2308 1072 (Useful library procedures: parsing, variables, lists,) 1072 SB gr gs 1500 1125 463 1705 CB 622 2368 250 (hash tables.) 250 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2474 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 622 2461 330 (Tcl_AppInit) 330 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 952 2458 13 (.) 13 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2564 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 1 SJ 622 2548 407 (Creating packages.) 407 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-BoldItalic %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 2 2 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 3 6 SJ 566 1394 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 400 CB 1492 1394 306 (December 1, 1994, slide 3) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 566 488 352 (Philosophy) 352 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 635 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 8 SJ 622 619 998 (Usually better to write Tcl scripts than C code:) 998 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 679 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 15 5 SJ 688 679 1000 (Faster development \(higher level, no compilation\).) 1000 SB gr gs 1500 1125 463 400 CB 641 739 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 8 1 SJ 688 739 278 (More flexible.) 278 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 838 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 822 300 (Why write C?) 300 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 883 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 12 5 SJ 688 883 899 (Need access to low-level facilities \(sockets?\).) 899 SB gr gs 1500 1125 463 400 CB 641 943 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 18 3 SJ 688 943 854 (Efficiency concerns \(iterative calculations\).) 854 SB gr gs 1500 1125 463 400 CB 641 1003 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 1 5 SJ 688 1003 790 (Need more structure \(code is complex\).) 790 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1102 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 4 8 SJ 622 1086 1204 (Implement new Tcl commands that provide a few simple) 1204 SB gr gs 1500 1125 463 400 CB 2 1 SJ 622 1146 245 (orthogonal ) 245 SB gr gs 1500 1125 463 400 CB 869 1146 215 (primitives) 215 SB gr gs 1500 1125 463 400 CB 1084 1146 17 (:) 17 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 1207 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 11 8 SJ 688 1207 1190 (Low-level to provide independent access to all key features.) 1190 SB gr gs 1500 1125 463 400 CB 641 1266 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 22 6 SJ 688 1266 1057 (High-level to hide unimportant details, allow efficient) 1057 SB gr gs 1500 1125 463 400 CB 688 1326 318 (implementation.) 318 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 3 6 SJ 566 2699 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 1705 CB 1492 2699 306 (December 1, 1994, slide 4) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 7 2 SJ 566 1793 872 (Example: Weather Reports) 872 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1927 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 12 7 SJ 622 1911 1232 (Goal: retrieve weather reports over network from servers.) 1232 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2017 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 3 SJ 622 2001 442 (Tcl command set #1:) 442 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2062 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 688 2062 642 (Retrieve report, format, print on) 642 SB gr gs 1500 1125 463 1705 CB -4 1 SJ 688 2122 326 (standard output.) 326 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2227 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 3 SJ 622 2211 442 (Tcl command set #2:) 442 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2271 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 688 2271 621 (Open socket to weather server.) 621 SB gr gs 1500 1125 463 1705 CB 641 2331 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 688 2331 280 (Select station.) 280 SB gr gs 1500 1125 463 1705 CB 641 2391 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 4 4 SJ 688 2391 582 (Retrieve first line of report....) 582 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2496 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 3 SJ 622 2480 442 (Tcl command set #3:) 442 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2541 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 11 4 SJ 688 2541 624 (Return list of available stations.) 624 SB gr gs 1500 1125 463 1705 CB 641 2601 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 4 4 SJ 688 2601 707 (Given station name, retrieve report.) 707 SB gr 6 4 SP 0 0 1 1 14 -10 0 12 9 1414 2078 A S n 0 0 1 12 0 1 14 12 9 1414 2171 A S n 0 0 1 -11 0 0 -14 12 9 1439 2134 A S n gs 1500 41 463 2133 CB 1425 2096 M 0 111 1 PP S n gr gs 1500 41 463 2077 CB 1425 2040 M 0 111 1 PP S n gr 0 0 1 0 -14 11 0 12 9 1439 2115 A S n 0 0 1 0 14 -16 0 12 14 1414 2296 A S n 0 0 1 16 0 0 14 12 14 1414 2441 A S n 0 0 1 -16 0 0 -14 12 14 1439 2383 A S n gs 1500 62 463 2382 CB 1425 2324 M 0 174 1 PP S n gr gs 1500 62 463 2294 CB 1425 2236 M 0 174 1 PP S n gr 0 0 1 0 -14 16 0 12 14 1439 2354 A S n 0 0 1 0 14 -11 0 12 9 1414 2552 A S n 0 0 1 11 0 0 14 12 9 1414 2646 A S n 0 0 1 -10 0 1 -14 12 9 1439 2608 A S n gs 1500 42 463 2607 CB 1425 2569 M 0 114 1 PP S n gr gs 1500 41 463 2551 CB 1425 2514 M 0 111 1 PP S n gr 0 0 1 0 -14 11 0 12 9 1439 2590 A S n 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB -2 2 SJ 1453 2099 447 (Too high-level \(inflexible\)) 447 SB gr gs 1500 1125 463 1705 CB 2 2 SJ 1453 2342 391 (Too low-level \(tedious\)) 391 SB gr gs 1500 1125 463 1705 CB -4 1 SJ 1453 2574 158 (Just right) 158 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 3 3 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 3 6 SJ 566 1394 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 400 CB 1492 1394 306 (December 1, 1994, slide 5) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 7 2 SJ 566 488 856 (Designing New Commands) 856 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 635 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 4 SJ 622 619 717 (Choose textual names for objects:) 717 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 688 681 420 (.dlg.bottom.ok) 420 SB gr gs 1500 1125 463 400 CB 688 741 420 (file3 or stdin) 420 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 799 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 688 799 779 (Use hash tables to map to C structures.) 779 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 892 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 876 598 (Object-oriented commands:) 598 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 688 939 960 (.dlg.bottom.ok configure -fg red) 960 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 997 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 16 6 SJ 688 997 957 (Good for small numbers of well-defined objects.) 957 SB gr gs 1500 1125 463 400 CB 641 1057 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 5 3 SJ 688 1057 554 (Doesn't pollute name space.) 554 SB gr gs 1500 1125 463 400 CB 641 1117 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 21 5 SJ 688 1117 926 (Allows similar commands for different objects.) 926 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1210 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 1 SJ 622 1194 595 (Action-oriented commands:) 595 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 688 1257 600 (string compare $x $y) 600 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 1314 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 9 6 SJ 688 1314 873 (Good if many objects or short-lived objects.) 873 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 3 6 SJ 566 2699 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 1705 CB 1492 2699 306 (December 1, 1994, slide 6) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 8 3 SJ 566 1793 1092 (Designing New Commands, cont'd) 1092 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1965 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 4 2 SJ 622 1949 635 (Formatting command results:) 635 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2009 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 5 7 SJ 688 2009 829 (Make them easy to parse with Tcl scripts:) 829 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 688 2071 1140 (tmp 53 hi 68 lo 37 precip .02 sky part) 1140 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2129 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 13 6 SJ 688 2129 958 (Make them symbolic wherever possible, e.g. not) 958 SB gr gs 1500 1125 463 1705 CB 688 2189 290 (53 68 37 .02 7) 290 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2294 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 1 SJ 622 2278 90 (Use ) 90 SB gr gs 1500 1125 463 1705 CB 1 2 SJ 712 2278 366 (package prefixes ) 366 SB gr gs 1500 1125 463 1705 CB 3 4 SJ 1080 2278 649 (in command names and global) 649 SB gr gs 1500 1125 463 1705 CB 622 2338 209 (variables:) 209 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 688 2401 390 (wthr_stations) 390 SB gr gs 1500 1125 463 1705 CB 688 2461 330 (wthr_report) 330 SB gr gs 1500 1125 463 1705 CB 688 2521 270 (midi_play) 270 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2579 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 9 6 SJ 688 2579 992 (Allows packages to coexist without name clashes.) 992 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 4 4 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 3 6 SJ 566 1394 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 400 CB 1492 1394 306 (December 1, 1994, slide 7) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 566 488 388 (Interpreters) 388 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 622 647 330 (Tcl_Interp ) 330 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 3 SJ 953 644 821 (structure encapsulates execution state:) 821 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 704 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 688 704 199 (Variables.) 199 SB gr gs 1500 1125 463 400 CB 641 764 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 14 3 SJ 688 764 597 (Commands implemented in C.) 597 SB gr gs 1500 1125 463 400 CB 641 824 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 688 824 311 (Tcl procedures.) 311 SB gr gs 1500 1125 463 400 CB 641 884 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 688 884 330 (Execution stack.) 330 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 989 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 7 SJ 622 973 1078 (Can have many interpreters in a single application) 1078 SB gr gs 1500 1125 463 400 CB 622 1033 466 (\(but usually just one\).) 466 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1139 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 3 SJ 622 1123 746 (Creating and deleting interpreters:) 746 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 1186 570 (Tcl_Interp *interp;) 570 SB gr gs 1500 1125 463 400 CB 641 1246 840 (interp = Tcl_CreateInterp\(\);) 840 SB gr gs 1500 1125 463 400 CB 641 1305 750 (Tcl_DeleteInterp\(interp\);) 750 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 3 6 SJ 566 2699 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 1705 CB 1492 2699 306 (December 1, 1994, slide 8) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 2 SJ 566 1793 687 (Executing Tcl Scripts) 687 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 566 1952 270 (int code;) 270 SB gr gs 1500 1125 463 1705 CB 566 2011 1050 (code = Tcl_Eval\(interp, "set a 1"\);) 1050 SB gr gs 1500 1125 463 1705 CB 566 2071 1200 (code = Tcl_EvalFile\(interp, "init.tcl"\);) 1200 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2174 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 622 2161 120 (code) 120 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 4 SJ 742 2158 594 ( indicates success or failure:) 594 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2219 25 (\226) 25 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 688 2221 180 (TCL_OK) 180 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 6 2 SJ 868 2219 412 (: normal completion.) 412 SB gr gs 1500 1125 463 1705 CB 641 2279 25 (\226) 25 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 688 2281 270 (TCL_ERROR) 270 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB -4 2 SJ 958 2279 328 (: error occurred.) 328 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2384 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 622 2371 420 (interp->result) 420 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 1 SJ 1042 2368 13 ( ) 13 SB gr gs 1500 1125 463 1705 CB 3 5 SJ 1055 2368 655 (points to string: result or error) 655 SB gr gs 1500 1125 463 1705 CB 622 2428 186 (message.) 186 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2534 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 7 7 SJ 622 2518 1138 (Application should display result or message for user.) 1138 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 5 5 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 3 6 SJ 566 1394 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 400 CB 1492 1394 306 (December 1, 1994, slide 9) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 9 4 SJ 566 488 1003 (Where Do Scripts Come From?) 1003 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 685 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 669 897 (Read from standard input \(see tclMain.c\).) 897 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 864 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 5 SJ 622 848 777 (Read from script file \(see tclMain.c\).) 777 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1044 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 1028 1008 (Associate with X events, wait for events, invoke) 1008 SB gr gs 1500 1125 463 400 CB 622 1088 699 (associated scripts \(see tkMain.c\).) 699 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 3 6 SJ 566 2699 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 10) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 7 3 SJ 566 1793 945 (Creating New Tcl Commands) 945 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1940 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 4 SJ 622 1924 698 (Write command procedure in C:) 698 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 1987 1075 (int EqCmd\(ClientData clientData, Tcl_Interp) 1075 SB gr gs 1500 1125 463 1705 CB 641 2037 1025 ( *interp, int argc, char **argv\) {) 1025 SB gr gs 1500 1125 463 1705 CB 641 2087 500 ( if \(argc != 3\) {) 500 SB gr gs 1500 1125 463 1705 CB 641 2137 1000 ( interp->result = "wrong # args";) 1000 SB gr gs 1500 1125 463 1705 CB 641 2187 625 ( return TCL_ERROR;) 625 SB gr gs 1500 1125 463 1705 CB 641 2237 125 ( }) 125 SB gr gs 1500 1125 463 1705 CB 641 2287 1000 ( if \(strcmp\(argv[1], argv[2]\) == 0\) {) 1000 SB gr gs 1500 1125 463 1705 CB 641 2337 725 ( interp->result = "1";) 725 SB gr gs 1500 1125 463 1705 CB 641 2387 300 ( } else {) 300 SB gr gs 1500 1125 463 1705 CB 641 2437 725 ( interp->result = "0";) 725 SB gr gs 1500 1125 463 1705 CB 641 2487 125 ( }) 125 SB gr gs 1500 1125 463 1705 CB 641 2537 450 ( return TCL_OK;) 450 SB gr gs 1500 1125 463 1705 CB 641 2587 25 (}) 25 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 6 6 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 3 6 SJ 566 1394 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 11) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 9 4 SJ 566 488 1181 (Creating New Tcl Commands, cont'd) 1181 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 710 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 2 SJ 622 694 547 (Register with interpreter:) 547 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 757 950 (Tcl_CreateCommand\(interp, "eq", EqCmd,) 950 SB gr gs 1500 1125 463 400 CB 641 807 800 ( \(ClientData\) NULL, ...\);) 800 SB gr gs 1500 1125 463 400 CB 641 857 800 (Tcl_DeleteCommand\(interp, "eq"\);) 800 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1009 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 2 SJ 622 993 361 (Once registered, ) 361 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 984 996 150 (EqCmd) 150 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 5 SJ 1134 993 518 ( will be called whenever ) 518 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1655 996 60 (eq) 60 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 1053 506 (command is invoked in ) 506 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1128 1056 180 (interp) 180 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1308 1053 13 (.) 13 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 3 6 SJ 566 2699 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 12) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 566 1793 348 (ClientData) 348 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 622 1935 950 (Tcl_CreateCommand\(interp, "eq", EqCmd,) 950 SB gr gs 1500 1125 463 1705 CB 622 1987 200 ( ) 200 SB gr gs 1500 1125 463 1705 CB 822 1987 250 (clientData) 250 SB gr gs 1500 1125 463 1705 CB 1072 1987 175 (, ...\);) 175 SB gr gs 1500 1125 463 1705 CB 622 2037 250 (int EqCmd\() 250 SB gr gs 1500 1125 463 1705 CB 872 2037 525 (ClientData clientData) 525 SB gr gs 1500 1125 463 1705 CB 1397 2037 300 (, ...\) {...}) 300 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2129 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2113 974 (Used to pass any one-word value to command) 974 SB gr gs 1500 1125 463 1705 CB 4 3 SJ 622 2173 676 (procedures and other callbacks.) 676 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2279 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 622 2266 300 (clientData) 300 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 7 SJ 922 2263 787 ( is usually a pointer to data structure) 787 SB gr gs 1500 1125 463 1705 CB 1 2 SJ 622 2323 578 (manipulated by procedure.) 578 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2429 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2413 583 (Cast pointers in and out of ) 583 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1205 2416 300 (ClientData) 300 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1505 2413 122 ( type:) 122 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2473 21 (\226) 21 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 688 2476 1100 (Tcl_CreateCommand\(... \(ClientData\) gizmoPtr,) 1100 SB gr gs 1500 1125 463 1705 CB 688 2526 325 ( ...\);) 325 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2573 21 (\226) 21 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 688 2576 800 (gizmoPtr = \(Gizmo *\) clientData;) 800 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 7 7 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 3 6 SJ 566 1394 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 13) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 3 SJ 566 488 909 (Managing The Result String) 909 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 644 462 (Need conventions for ) 462 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1084 647 420 (interp->result) 420 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1504 644 17 (:) 17 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 704 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 8 4 SJ 688 704 557 (Permit results of any length.) 557 SB gr gs 1500 1125 463 400 CB 641 764 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 3 1 SJ 688 764 135 (Avoid ) 135 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 825 766 180 (malloc) 180 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 8 3 SJ 1005 764 439 ( overheads if possible.) 439 SB gr gs 1500 1125 463 400 CB 641 824 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 8 3 SJ 688 824 733 (Avoid storage reclamation problems.) 733 SB gr gs 1500 1125 463 400 CB 641 884 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 11 4 SJ 688 884 537 (Keep as simple as possible.) 537 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 989 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 4 6 SJ 622 973 1130 (Normal state of interpreter \(e.g., whenever command) 1130 SB gr gs 1500 1125 463 400 CB 1 2 SJ 622 1033 479 (procedure is invoked\):) 479 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1318 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 4 SJ 622 1302 862 (Default: command returns empty string.) 862 SB gr 6 4 SP 252 254 185 fC /fm 256 def 1265 1077 1663 1275 25 25 RR 1 F S n 0 lc 0 lj 255 255 255 fC /fm 256 def 124 36 1502 1102 B 1 F S n 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 1291 1096 138 (result) 138 SB gr 255 255 255 fC /fm 256 def 273 36 1353 1226 B 1 F S n 0 0 0 fC gs 1500 1125 463 400 CB 1368 1223 46 ("") 46 SB gr 255 255 255 fC /fm 256 def 124 36 1502 1151 B 1 F S n 0 0 0 fC gs 1500 1125 463 400 CB 1291 1146 184 (freeProc) 184 SB gr 1 lc 1 lj gs 20 1125 1312 400 CB 1274 1245 M 114 0 1 PP S n gr /fm 256 def 1350 1245 M 37 -11 0 23 -37 -12 3 PP 1 F n 6 4 SP 0 0 1 0 14 -14 0 12 12 1626 1134 A S n 0 0 1 0 -14 14 0 12 12 1314 1234 A S n 0 0 1 -14 0 0 -14 12 12 1314 1221 A S n gs 316 1125 1312 400 CB 1000 1207 M 936 0 1 PP S n gr 0 0 1 14 0 0 14 12 12 1626 1196 A S n gs 1500 67 463 1132 CB 1637 1258 M 0 -189 1 PP S n gr gs 66 1125 1562 400 CB 1500 1120 M 186 0 1 PP S n gr 0 0 0 fC /fm 256 def 6 6 1562 1120 E 1 F S n gs 1500 16 463 1220 CB 1300 1208 M 0 36 1 PP S n gr gs 1500 1125 463 400 CB 1013 1096 138 (interp) 138 SB gr gs 82 1125 1163 400 CB 1063 1117 M 300 0 1 PP S n gr /fm 256 def 1263 1117 M 37 -11 0 23 -37 -12 3 PP 1 F n 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 3 6 SJ 566 2699 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 14) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 2 SJ 566 1793 658 (Result String, cont'd) 658 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1965 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 1949 639 (Option 1: \(semi-\) static result.) 639 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2012 525 (interp->result = "0";) 525 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2344 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2328 919 (Option 2: use pre-allocated space in interp.) 919 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2391 1050 (sprintf\(interp->result, "Value is %d", i\);) 1050 SB gr 6 4 SP 252 254 185 fC /fm 256 def 1028 2082 1426 2281 25 25 RR 1 F S n 0 lc 0 lj 255 255 255 fC /fm 256 def 124 37 1265 2106 B 1 F S n 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 1053 2101 138 (result) 138 SB gr 255 255 255 fC /fm 256 def 274 37 1115 2231 B 1 F S n 0 0 0 fC gs 1500 1125 463 1705 CB 1131 2228 46 ("") 46 SB gr 255 255 255 fC /fm 256 def 124 37 1265 2156 B 1 F S n 0 0 0 fC gs 1500 1125 463 1705 CB 1053 2151 184 (freeProc) 184 SB gr 1 lc 1 lj /fm 256 def 5 6 1325 2126 E 1 F S n gs 1500 1125 463 1705 CB 776 2101 138 (interp) 138 SB gr gs 82 1125 926 1705 CB 826 2122 M 300 0 1 PP S n gr /fm 256 def 1026 2122 M 37 -11 0 23 -37 -12 3 PP 1 F n 6 4 SP 252 254 185 fC /fm 256 def 1028 2456 1426 2655 25 25 RR 1 F S n 0 lc 0 lj 255 255 255 fC /fm 256 def 124 36 1265 2481 B 1 F S n 0 0 0 fC gs 1500 1125 463 1705 CB 1053 2476 138 (result) 138 SB gr 255 255 255 fC /fm 256 def 274 36 1115 2606 B 1 F S n 0 0 0 fC gs 1500 1125 463 1705 CB 1116 2603 276 ("Value is 2") 276 SB gr 255 255 255 fC /fm 256 def 124 36 1265 2531 B 1 F S n 0 0 0 fC gs 1500 1125 463 1705 CB 1053 2526 184 (freeProc) 184 SB gr 1 lc 1 lj gs 19 1125 1075 1705 CB 1038 2625 M 111 0 1 PP S n gr /fm 256 def 1112 2625 M 37 -11 0 23 -37 -12 3 PP 1 F n 6 4 SP 0 0 1 0 14 -14 0 12 12 1389 2514 A S n 0 0 1 0 -14 14 0 12 12 1076 2614 A S n 0 0 1 -14 0 0 -14 12 12 1076 2601 A S n gs 316 1125 1075 1705 CB 763 2587 M 936 0 1 PP S n gr 0 0 1 14 0 0 14 12 12 1389 2576 A S n gs 1500 67 463 2512 CB 1400 2638 M 0 -189 1 PP S n gr gs 66 1125 1325 1705 CB 1263 2500 M 186 0 1 PP S n gr 0 0 0 fC /fm 256 def 5 6 1325 2500 E 1 F S n gs 1500 16 463 2600 CB 1062 2588 M 0 36 1 PP S n gr gs 1500 1125 463 1705 CB 776 2476 138 (interp) 138 SB gr gs 82 1125 926 1705 CB 826 2497 M 300 0 1 PP S n gr /fm 256 def 1026 2497 M 37 -11 0 23 -37 -12 3 PP 1 F n 6 4 SP gs 143 1125 1326 1705 CB 1165 2124 M 483 0 1 PP S n gr /fm 256 def 1487 2124 M 37 -11 0 23 -37 -12 3 PP 1 F n gs 1500 1125 463 1705 CB 1491 2104 69 ("0") 69 SB gr 6 4 SP gs 86 1125 1418 1705 CB 1600 2624 M -300 0 1 PP S n gr /fm 256 def 1401 2624 M -37 12 0 -23 37 11 3 PP 1 F n 32 0 0 38 38 0 0 0 34 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB -2 1 SJ 1528 2602 167 (~200 bytes) 167 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 8 8 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 3 6 SJ 566 1394 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 15) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 2 SJ 566 488 658 (Result String, cont'd) 658 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 635 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 6 SJ 622 619 830 (Option 3: allocate new space for result.) 830 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 682 750 (interp->result = malloc\(2000\);) 750 SB gr gs 1500 1125 463 400 CB 641 732 75 (...) 75 SB gr gs 1500 1125 463 400 CB 641 782 600 (interp->freeProc = free;) 600 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1132 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 3 SJ 622 1116 256 (Tcl will call ) 256 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 878 1119 240 (freeProc) 240 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 6 SJ 1118 1116 588 ( \(if not NULL\) to dispose of) 588 SB gr gs 1500 1125 463 400 CB 622 1176 133 (result.) 133 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1282 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 1266 1067 (Mechanism supports storage allocators other than) 1067 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 622 1329 180 (malloc) 180 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 802 1326 14 (/) 14 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 816 1329 120 (free) 120 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 936 1326 13 (.) 13 SB gr 6 4 SP 252 254 185 fC /fm 256 def 1040 851 1438 1051 25 25 RR 1 F S n 0 lc 0 lj 255 255 255 fC /fm 256 def 123 37 1278 876 B 1 F S n 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 1066 871 138 (result) 138 SB gr 255 255 255 fC /fm 256 def 274 36 1127 1002 B 1 F S n 0 0 0 fC gs 1500 1125 463 400 CB 1143 998 46 ("") 46 SB gr 255 255 255 fC /fm 256 def 123 37 1278 926 B 1 F S n 0 0 0 fC gs 1500 1125 463 400 CB 1293 923 92 (free) 92 SB gr gs 1500 1125 463 400 CB 1066 921 184 (freeProc) 184 SB gr 1 lc 1 lj /fm 256 def 6 6 1338 896 E 1 F S n gs 1500 1125 463 400 CB 788 871 138 (interp) 138 SB gr gs 81 1125 939 400 CB 840 892 M 297 0 1 PP S n gr /fm 256 def 1038 892 M 37 -11 0 23 -37 -12 3 PP 1 F n 6 4 SP gs 144 1125 1338 400 CB 1176 895 M 486 0 1 PP S n gr /fm 256 def 1500 895 M 37 -11 0 23 -37 -12 3 PP 1 F n 6 4 SP 252 254 185 fC /fm 256 def 1502 834 1638 1113 17 17 RR 1 F S n 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 3 6 SJ 566 2699 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 16) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 4 3 SJ 566 1793 1060 (Procedures For Managing Result) 1060 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1965 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 4 SJ 622 1949 710 (Option 4: use library procedures.) 710 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2071 1050 (Tcl_SetResult\(interp, string, ...\);) 1050 SB gr gs 1500 1125 463 1705 CB 641 2191 960 (Tcl_AppendResult\(interp, string,) 960 SB gr gs 1500 1125 463 1705 CB 641 2251 1170 ( string, ... string, \(char *\) NULL\);) 1170 SB gr gs 1500 1125 463 1705 CB 641 2371 1020 (Tcl_AppendElement\(interp, string\);) 1020 SB gr gs 1500 1125 463 1705 CB 641 2491 720 (Tcl_ResetResult\(interp\);) 720 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 9 9 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 3 6 SJ 566 1394 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 17) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 2 SJ 566 488 872 (Utility Procedures: Parsing) 872 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 4 6 SJ 622 644 1082 (Used by command procedures to parse arguments:) 1082 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 707 400 (int value, code;) 400 SB gr gs 1500 1125 463 400 CB 641 757 1075 (code = Tcl_GetInt\(interp, argv[1], &value\);) 1075 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 849 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 833 362 (Stores integer in ) 362 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 984 836 150 (value) 150 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1134 833 13 (.) 13 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 939 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 923 184 (Returns ) 184 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 806 926 180 (TCL_OK) 180 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 986 923 72 ( or ) 72 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1058 926 270 (TCL_ERROR) 270 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1328 923 13 (.) 13 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1029 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 5 4 SJ 622 1013 481 (If parse error, returns ) 481 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1107 1016 270 (TCL_ERROR) 270 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 2 SJ 1377 1013 233 ( and leaves) 233 SB gr gs 1500 1125 463 400 CB 622 1073 241 (message in ) 241 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 863 1076 420 (interp->result) 420 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1283 1073 13 (.) 13 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1179 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 1 SJ 622 1163 393 (Other procedures:) 393 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 1226 325 (Tcl_GetDouble) 325 SB gr gs 1500 1125 463 400 CB 1111 1226 350 (Tcl_ExprDouble) 350 SB gr gs 1500 1125 463 400 CB 641 1276 350 (Tcl_GetBoolean) 350 SB gr gs 1500 1125 463 400 CB 1111 1276 375 (Tcl_ExprBoolean) 375 SB gr gs 1500 1125 463 400 CB 641 1326 300 (Tcl_ExprLong) 300 SB gr gs 1500 1125 463 400 CB 1111 1326 350 (Tcl_ExprString) 350 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 3 6 SJ 566 2699 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 18) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 5 2 SJ 566 1793 932 (Utility Procedures: Variables) 932 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1965 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 1949 498 (Read, write, and unset:) 498 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 688 2012 300 (char *value;) 300 SB gr gs 1500 1125 463 1705 CB 688 2062 925 (value = Tcl_GetVar\(interp, "a", ...\);) 925 SB gr gs 1500 1125 463 1705 CB 688 2112 900 (Tcl_SetVar\(interp, "a", "new", ...\);) 900 SB gr gs 1500 1125 463 1705 CB 688 2162 775 (Tcl_UnsetVar\(interp, "a", ...\);) 775 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2254 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2238 223 (Set traces:) 223 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 688 2302 625 (Tcl_TraceVar\(interp, "a",) 625 SB gr gs 1500 1125 463 1705 CB 688 2352 1025 ( TCL_TRACE_READS|TCL_TRACE_WRITES,) 1025 SB gr gs 1500 1125 463 1705 CB 688 2402 775 ( traceProc, clientData\);) 775 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2494 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 622 2481 270 (traceProc) 270 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 10 SJ 892 2478 913 ( will be called during each read or write of ) 913 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1808 2481 30 (a) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1838 2478 17 (:) 17 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2539 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 4 2 SJ 688 2539 442 (Can monitor accesses.) 442 SB gr gs 1500 1125 463 1705 CB 641 2599 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 3 5 SJ 688 2599 697 (Can override value read or written.) 697 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 10 10 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 3 6 SJ 566 1394 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 19) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 4 2 SJ 566 488 792 (Other Utility Procedures) 792 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 635 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 5 3 SJ 622 619 692 (Parsing, assembling proper lists:) 692 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 678 450 (Tcl_SplitList\(...\)) 450 SB gr gs 1500 1125 463 400 CB 641 723 350 (Tcl_Merge\(...\)) 350 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 800 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 2 SJ 622 784 433 (Flexible hash tables:) 433 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 843 550 (Tcl_InitHashTable\(...\)) 550 SB gr gs 1500 1125 463 400 CB 641 888 600 (Tcl_CreateHashEntry\(...\)) 600 SB gr gs 1500 1125 463 400 CB 641 934 550 (Tcl_FindHashEntry\(...\)) 550 SB gr gs 1500 1125 463 400 CB 641 979 600 (Tcl_DeleteHashEntry\(...\)) 600 SB gr gs 1500 1125 463 400 CB 641 1024 600 (Tcl_DeleteHashTable\(...\)) 600 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1100 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 1 SJ 622 1084 364 (Dynamic strings:) 364 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 1144 500 (Tcl_DStringInit\(...\)) 500 SB gr gs 1500 1125 463 400 CB 641 1189 550 (Tcl_DStringAppend\(...\)) 550 SB gr gs 1500 1125 463 400 CB 641 1234 725 (Tcl_DStringAppendElement\(...\)) 725 SB gr gs 1500 1125 463 400 CB 641 1279 525 (Tcl_DStringValue\(...\)) 525 SB gr gs 1500 1125 463 400 CB 641 1324 500 (Tcl_DStringFree\(...\)) 500 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 3 6 SJ 566 2699 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 20) 321 SB gr 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 566 1798 495 (Tcl_AppInit) 495 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 566 1936 792 (Makes it easy to extend wish or tclsh.) 792 SB gr 6 4 SP 252 254 185 fC /fm 256 def 654 2070 977 2667 40 40 RR 1 F S n 0 lc 0 lj 255 255 255 fC /fm 256 def 224 99 703 2094 B 1 F S n 32 0 0 38 38 0 0 0 34 /Times-Roman /font32 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 764 2097 55 (Cre) 54 SB 818 2097 28 (at) 27 SB 845 2097 17 (e) 17 SB gr gs 1500 1125 463 1705 CB 734 2142 11 (I) 13 SB 747 2142 19 (n) 18 SB 765 2142 28 (te) 27 SB 792 2142 45 (rpr) 44 SB 836 2142 28 (et) 27 SB 863 2142 30 (er) 29 SB gr 255 255 255 fC /fm 256 def 224 99 703 2244 B 1 F S n 0 0 0 fC gs 1500 1125 463 1705 CB 756 2247 115 (Process) 115 SB gr 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 711 2294 207 (argc/argv) 207 SB gr 255 255 255 fC /fm 256 def 224 98 703 2394 B 1 F S n 32 0 0 38 38 0 0 0 34 /Times-Roman /font32 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 761 2397 104 (Source) 104 SB gr gs 1500 1125 463 1705 CB -5 1 SJ 725 2442 181 (Startup File) 181 SB gr 255 255 255 fC /fm 256 def 224 99 703 2543 B 1 F S n 0 0 0 fC gs 1500 1125 463 1705 CB 747 2547 41 (Ev) 42 SB 789 2547 17 (a) 16 SB 805 2547 47 (lua) 46 SB 851 2547 28 (te) 27 SB gr gs 1500 1125 463 1705 CB 727 2592 171 (Commands) 171 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 701 2015 225 (tclMain.c) 225 SB gr 1 lc 1 lj gs 1500 32 463 2491 CB 814 2441 M 0 150 1 PP S n gr /fm 256 def 814 2542 M 11 37 -22 0 11 -37 3 PP 1 F n 6 4 SP gs 1500 32 463 2192 CB 814 2142 M 0 150 1 PP S n gr /fm 256 def 814 2243 M 11 37 -22 0 11 -37 3 PP 1 F n 6 4 SP 162 255 163 fC /fm 256 def 1265 2332 1538 2517 23 23 RR 1 F S n 32 0 0 38 38 0 0 0 34 /Times-Roman /font32 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 1305 2355 190 (Application-) 190 SB gr gs 1500 1125 463 1705 CB 1339 2400 123 (Specific) 123 SB gr gs 1500 1125 463 1705 CB 1304 2446 11 (I) 13 SB 1317 2446 19 (n) 18 SB 1335 2446 22 (it) 21 SB 1356 2446 28 (ia) 27 SB 1383 2446 22 (li) 21 SB 1404 2446 16 (z) 17 SB 1421 2446 17 (a) 16 SB 1437 2446 22 (ti) 21 SB 1458 2446 18 (o) 19 SB 1477 2446 19 (n) 19 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1263 2277 275 (Tcl_AppInit) 275 SB gr 814 2342 M 417 0 0 25 2 PP S n /fm 256 def 1263 2367 M 37 -11 0 23 -37 -12 3 PP 1 F n 6 4 SP 1400 2517 M -204 0 0 -162 -237 0 0 87 4 PP S n /fm 256 def 927 2442 M -36 12 0 -23 36 11 3 PP 1 F n 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 11 11 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 3 6 SJ 566 1394 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 21) 321 SB gr 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 566 493 495 (Tcl_AppInit) 495 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 1 SJ 1061 488 236 (, cont'd) 236 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 2 SJ 566 606 322 (To personalize ) 322 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 890 609 150 (tclsh) 150 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 2 SJ 1040 606 72 ( or ) 72 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1113 609 120 (wish) 120 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1233 606 17 (:) 17 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 697 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 681 127 (Copy ) 127 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 749 684 360 (tclAppInit.c) 360 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1109 681 72 ( or ) 72 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1181 684 330 (tkAppInit.c) 330 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1511 681 13 (.) 13 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 772 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 756 169 (Modify ) 169 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 791 759 330 (Tcl_AppInit) 330 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1121 756 247 ( procedure:) 247 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 816 925 (int tcl_AppInit\(Tcl_Interp *interp\) {) 925 SB gr gs 1500 1125 463 400 CB 641 861 1000 ( if \(Tcl_Init\(interp\) == TCL_ERROR\) {) 1000 SB gr gs 1500 1125 463 400 CB 641 906 625 ( return TCL_ERROR;) 625 SB gr gs 1500 1125 463 400 CB 641 951 125 ( }) 125 SB gr gs 1500 1125 463 400 CB 641 996 100 ( ) 100 SB gr gs 1500 1125 463 400 CB 741 996 850 (Tcl_CreateCommand\(interp, "mycmd",) 850 SB gr gs 1500 1125 463 400 CB 641 1041 1025 ( MycmdProc, \(ClientData\) NULL,) 1025 SB gr gs 1500 1125 463 400 CB 641 1086 1000 ( \(Tcl_CmdDeleteProc *\) NULL\);) 1000 SB gr gs 1500 1125 463 400 CB 641 1131 850 ( tcl_RcFileName = "~/.myapprc";) 850 SB gr gs 1500 1125 463 400 CB 641 1176 450 ( return TCL_OK;) 450 SB gr gs 1500 1125 463 400 CB 641 1221 25 (}) 25 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1298 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 5 SJ 622 1282 801 (Compile with Tcl \(and Tk?\) libraries:) 801 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 1341 825 (cc myAppInit.c -ltcl -lm -o myapp) 825 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 3 6 SJ 566 2699 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 22) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 7 2 SJ 566 1793 843 (Conventions For Packages) 843 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 566 1949 1022 (Goal: make it easy to develop and use Tcl-based) 1022 SB gr gs 1500 1125 463 1705 CB 622 2008 206 (packages.) 206 SB gr gs 1500 1125 463 1705 CB 4 7 SJ 566 2158 1060 (1. Use package prefixes to prevent name conflicts:) 1060 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2219 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 2 6 SJ 688 2219 688 (Pick short prefix for package, e.g. ) 688 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1378 2221 90 (rdb) 90 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 1468 2219 13 (.) 13 SB gr gs 1500 1125 463 1705 CB 641 2279 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 13 4 SJ 688 2279 470 (Use in all global names:) 470 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 716 2338 21 (\273) 21 SB gr gs 1500 1125 463 1705 CB -2 2 SJ 754 2338 229 (C procedure: ) 229 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 981 2341 200 (Rdb_Open) 200 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 716 2388 21 (\273) 21 SB gr gs 1500 1125 463 1705 CB -2 2 SJ 754 2388 197 (C variable: ) 197 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 949 2391 350 (rdb_NumRecords) 350 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 716 2438 21 (\273) 21 SB gr gs 1500 1125 463 1705 CB -4 2 SJ 754 2438 256 (Tcl command: ) 256 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1006 2441 225 (rdb_query) 225 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2489 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 10 8 SJ 688 2489 1095 (See Tcl book and Tcl/Tk Engineering Manual for more) 1095 SB gr gs 1500 1125 463 1705 CB 688 2549 140 (details.) 140 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 12 12 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 3 6 SJ 566 1394 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 23) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 4 1 SJ 566 488 529 (Packages, cont'd) 529 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 4 SJ 566 644 910 (2. Create package initialization procedure:) 910 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 642 704 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 2 3 SJ 689 704 449 (Named after package: ) 449 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1140 706 240 (Rdb_Init) 240 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 1380 704 13 (.) 13 SB gr gs 1500 1125 463 400 CB 642 764 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 5 2 SJ 689 764 591 (Creates package's commands.) 591 SB gr gs 1500 1125 463 400 CB 642 824 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 5 4 SJ 689 824 614 (Evaluates startup script, if any.) 614 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 623 912 850 (int Rdb_Init\(Tcl_Interp *interp\) {) 850 SB gr gs 1500 1125 463 400 CB 623 962 675 ( Tcl_CreateCommand\(...\);) 675 SB gr gs 1500 1125 463 400 CB 623 1012 675 ( Tcl_CreateCommand\(...\);) 675 SB gr gs 1500 1125 463 400 CB 623 1062 175 ( ...) 175 SB gr gs 1500 1125 463 400 CB 623 1112 775 ( return Tcl_EvalFile\(interp,) 775 SB gr gs 1500 1125 463 400 CB 623 1162 1075 ( "/usr/local/lib/rdb/init.tcl"\);) 1075 SB gr gs 1500 1125 463 400 CB 623 1212 25 (}) 25 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 3 6 SJ 566 2699 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 24) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 4 1 SJ 566 1793 529 (Packages, cont'd) 529 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 566 1936 395 (3. To use package:) 395 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2007 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 16 6 SJ 688 2007 773 (Call its initialization procedure in your ) 773 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1477 2009 330 (Tcl_AppInit) 330 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 1807 2007 14 (:) 14 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 688 2065 925 (int Tcl_AppInit\(Tcl_Interp *interp\) {) 925 SB gr gs 1500 1125 463 1705 CB 688 2110 1000 ( if \(Tcl_Init\(interp\) == TCL_ERROR\) {) 1000 SB gr gs 1500 1125 463 1705 CB 688 2155 625 ( return TCL_ERROR;) 625 SB gr gs 1500 1125 463 1705 CB 688 2200 125 ( }) 125 SB gr gs 1500 1125 463 1705 CB 688 2245 975 ( if \(Tk_Init\(interp\) == TCL_ERROR\) {) 975 SB gr gs 1500 1125 463 1705 CB 688 2290 625 ( return TCL_ERROR;) 625 SB gr gs 1500 1125 463 1705 CB 688 2335 125 ( }) 125 SB gr gs 1500 1125 463 1705 CB 688 2380 100 ( ) 100 SB gr gs 1500 1125 463 1705 CB 788 2380 900 (if \(Rdb_Init\(interp\) == TCL_ERROR\) {) 900 SB gr gs 1500 1125 463 1705 CB 688 2425 625 ( return TCL_ERROR;) 625 SB gr gs 1500 1125 463 1705 CB 688 2470 125 ( }) 125 SB gr gs 1500 1125 463 1705 CB 688 2515 875 ( tcl_RcFileName = "~/.myyapprc";) 875 SB gr gs 1500 1125 463 1705 CB 688 2560 450 ( return TCL_OK;) 450 SB gr gs 1500 1125 463 1705 CB 688 2605 25 (}) 25 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%Page: 13 13 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 3 6 SJ 566 1394 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 25) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 4 1 SJ 566 488 529 (Packages, cont'd) 529 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 566 656 555 (3. To use package, cont'd:) 555 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 732 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 12 4 SJ 688 732 622 (Link with the package's library:) 622 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 688 854 900 (cc myAppInit.c librdb.a -ltk -ltcl \\) 900 SB gr gs 1500 1125 463 400 CB 688 904 550 ( -lX11 -lm -o myapp) 550 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 566 981 570 (4. Dynamic loading \(soon\).) 570 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 3 6 SJ 566 2699 473 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 473 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 26) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 566 1793 311 (Summary) 311 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2002 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 4 9 SJ 622 1986 1119 (Interfaces to C are simple: Tcl was designed to make) 1119 SB gr gs 1500 1125 463 1705 CB 622 2046 192 (this true.) 192 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2212 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 8 SJ 622 2196 1126 (Focus on primitives, use Tcl scripts to compose fancy) 1126 SB gr gs 1500 1125 463 1705 CB 622 2256 183 (features.) 183 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Trailer SVDoc restore end %%Pages: 13 % TrueType font name key: % MSTT31c1d1 = 303fDTimes New RomanF0000004b000002bc0000 % MSTT31c1de = 303fDTimes New RomanF00000032000002bc0000 % MSTT31c1eb = 303fDTimes New RomanF00000026000002bc00ff % MSTT31c1f8 = 303fDTimes New RomanF0000001d0000019000ff % MSTT31c205 = 303fDMonotype SortsF00000026000001900000 % MSTT31c212 = 303fDTimes New RomanF00000032000001900000 % MSTT31c21f = 303fDTimes New RomanF0000002a000001900000 % MSTT31c22c = 303fDTimes New RomanF00000026000001900000 %%DocumentSuppliedResources: procset Win35Dict 3 1 %%DocumentNeededResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-BoldItalic %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%EOF For Packages) 843 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 566 1949 1022 (Goal: make it easy to develop and use Tcl-based) 1022 SB gr gs 1500 1125 463 1705 CB 622 2008 206 (packages.) 206 SB gr gs 1500 1125 463 1705 CB 4 7 SJ 566 2158 1060 (1. Use package prefixes to prevent name conflicts:) 106tut/tclc.ppt010077500630510000012000001420000573603524100140700ustar00ousterstaff00002300000036ÐÏࡱá;þÿ Zþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿÿÿ`  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYþÿÿÿþÿÿÿ\]^_þÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRoot Entryÿÿÿÿÿÿÿÿ†¯ÕÀò¹[À PP40 ÿÿÿÿÿÿÿÿ¯SummaryInformation(ÿÿÿÿÿÿÿÿÿÿÿÿ$ Current Userÿÿÿÿ%íÞ­ 良fç€(xZ€€€€€€€€€ÀÀÀ€€€ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðððððððððððððððððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿðÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿññññÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñññÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñññÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿññÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿôDÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿôOôOÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿOôDODDOÿôÿDôÿôDDDODDOôODôôôODODDDôDDDOÿDDÿôDÿÿÿÿÿÿÿÿÿÿÿÿÿôDODôOOODôÿôÿOôDôôôDODOOôôôôôôODÿôDôôôODOÿDôÿOÿÿÿÿÿÿÿÿÿÿÿÿÿÿôôOODDODDDÿôÿDôÿôODôODDOÿDôDôDODODôDôODDOÿDDÿOÿÿÿÿÿÿÿÿÿÿÿÿÿÿDDôÿôÿOÿÿÿÿDDÿôÿôOÿÿÿÿÿOÿÿÿÿÿÿOOÿÿÿôÿÿÿÿÿÿOÿÿôDÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€Ý@€õ€5€5N€5&€ƒ"€©€Ë@€ã€# €# Þ€# &€#"€'#€I#@€a#€¡#€¡#V€¡#&€÷'"€(€?(@€W(N€—+€å+h€å+&€M1"€s1€•1@€­1€í1€í1R€í1&€?6"€e6€‡6@€Ÿ6€ß6€ß6€ß6&€o:"€•:€·:@€Ï:€;€;†€;&€•>"€»>€Ý>@€õ>€5?€5?”€5?&€ÉB"€ïB€C@€)C€iC€iC€iC&€kE"€‘E€³E@€ËE€ F€ F®€ F&€¹H"€ßH€I@€I€YI€YIÔ€YI&€-L"€SL€uL@€L€ÍL€ÍLÞ€ÍL&€«P"€ÑP€óP€€ Q4€‹S€¿SR€¿S&€Y"€7Y€YY €qY4€‘]€Å]r€Å]&€7e"€]e€e €—e€7g€7gb€7g&€™l"€¿l€ál@€ùl€9m€9mr€9m&€«o"€Ño€óo@€ p€Kp€Kp*€Kp&€ut"€›t€½t@€Õt€u€uÄ€u&€Ùx"€ÿx€!y@€9y€yy€yyV€yy&€Ï|"€õ|€}À€/}€ï~8€ï~B€'&€i„"€„€±„@€É„€ …€ …p€ …&€y‰"€Ÿ‰€Á‰@€Ù‰€Š€ŠÊ€Š&€ã"€ Ž€+Ž@€CŽ€ƒŽ€ƒŽ€ƒŽ&€‡‘"€­‘€Ï‘@€ç‘€'’€'’€'’&€?•"€e•€‡•@€Ÿ•€ß•€ß•€ß•&€õ—"€˜€=˜@€U˜€•˜€•˜®€•˜&€Cš"€iš°€‹š€;œ€Qœ €iœ€ € L€ &€U @€{ €» €» P€» &€ ¢"€1¢€S¢@€k¢€«¢€«¢€«¢&€¹¢"€ß¢€£€£€£€£€£&€'£"€M£€o£€£€‘£€«£€Å£€ß£€ù£€¤€1¤€K¤H€e¤€­¤R€=¥v€¥v€¦$€{¦€Ÿ¦"€±ª"€Óªð€õ¬€å®’€ù®ÿÿÿÿ AGpöPû þýÿ”ÇJ Aƒ÷ÿ0 pýÿW=°r€ªömûV þÿÿÿÿTÿuÿÿK0d2#Writing Tcl-Based Applications In C ##$##ÿ•ÿÿd3d2€:÷-ÿöSÿÿ$ÿÿÿ•ÿÿdddJohn Ousterhout Sun Microsystems Laboratories john.ousterhout@eng.sun.com Tcl/Tk Tutorial, Part IV d.dTuK0d2TuK0d2TuK0d2TuK0d2TuK0d2TuK0d2<—Fÿÿÿÿ AKö¨÷Ð`úýÿW= Aƒö û ýÿÔÇJ”mn²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd2Outline $ÿ•ÿÿdd2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿddãPhilosophy: focus on primitives. Basics: interpreters, executing scripts. Implementing new commands. Managing the result string. Useful library procedures: parsing, variables, lists, hash tables. Tcl_AppInit. Creating packages. ã ¥ ã!UuKd2)UuKd2UuKd2UuKd2CUuKd2 UuKd2UuKd2 9 —F }ÿÿÿÿ AKö¨÷Ð`úýÿL·0 AƒöÀú€ ýÿ¬·0–²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd2 Philosophy  $  ÿ•ÿÿdd2€JöÝúF ãÿÿ$ÿÿÿ•ÿÿddÕUsually better to write Tcl scripts than C code: Faster development (higher level, no compilation). More flexible. Why write C? Need access to low-level facilities (sockets?). Efficiency concerns (iterative calculations). Need more structure (code is complex). Implement new Tcl commands that provide a few simple orthogonal primitives: Low-level to provide independent access to all key features. High-level to hide unimportant details, allow efficient implementation. Õ1B …@ „Õ 1UuKd23–ÿÿdd–ÿÿdd UuKd(0–ÿÿdd.–ÿÿdd'–ÿÿddLUuKd(=–ÿÿddG–ÿÿddCpationsœ¿5ÿÿÿÿ AKö¨÷Ð`úýÿDÇJ Aƒöú€ ýÿô E a``ý° ZþýÿL 4a`° ýýÿ</Xa`€° zýÿdÇJCÐý0Hý CÐhþ0°þ`úC´ý`üý4`úH0üý0ŒþH0$ý0´ýC0ýØýà`úCÐ00  CÐ`0Ð`úCH`¸´W=`úH0¸0˜H0h0HC0€à`úCÐ 0h CЈ0Ð`úCÔ`œoC`úH00¬H0D0ÔC0°øà`ú—7ZÑ@ Hêý—7ZÑ@ Hœ—7ZÑ@ H Æ\iyÆ3€š}ýv =þÿÿÿÿÿ•ÿÿdd2Too high-level (inflexible) ÿ•ÿÿdd23€š v àÿÿÿÿÿ•ÿÿdd2Too low-level (tedious) ÿ•ÿÿdd23€šv ]ÿÿÿÿÿ•ÿÿdd2 Just right    ÿ•ÿÿdd2²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd2Example: Weather Reports $ÿ•ÿÿdd2€Jö­úF ãÿÿ$ÿÿÿ•ÿÿddAGoal: retrieve weather reports over network from servers. Tcl command set #1: Retrieve report, format, print on standard output. Tcl command set #2: Open socket to weather server. Select station. Retrieve first line of report.... Tcl command set #3: Return list of available stations. Given station name, retrieve report. AN3QGA :UuKd2UuKd23–ÿÿddUuKd2–ÿÿdd–ÿÿdd"–ÿÿddUuKd2#–ÿÿdd$–ÿÿddbôG#ÿÿÿÿ AKö¨÷Ð`úýÿ” oC AƒöÀú ýÿ '.¢iy²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd2Designing New Commands $ÿ•ÿÿdd2€JöÝúÆãÿÿ$ÿÿÿ•ÿÿdd}Choose textual names for objects: .dlg.bottom.ok file3 or stdin Use hash tables to map to C structures. Object-oriented commands: .dlg.bottom.ok configure -fg red Good for small numbers of well-defined objects. Doesn't pollute name space. Allows similar commands for different objects. Action-oriented commands: string compare $x $y Good if many objects or short-lived objects.C } " ("{,} "UuKd2–ÿÿdd–ÿÿdd(–ÿÿddUuKd"–ÿÿdd0–ÿÿdd–ÿÿdd/–ÿÿddUuKd–ÿÿdd,–ÿÿdd ô G#!ƒÿÿÿÿ AKö¨÷Ð`úýÿ” oC Aƒö ûÀ ýÿ´ Eªiy²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd2Designing New Commands, cont'd $ÿ•ÿÿdd2€Jö=û† ãÿÿ$ÿÿÿ•ÿÿdd<Formatting command results: Make them easy to parse with Tcl scripts: tmp 53 hi 68 lo 37 precip .02 sky part Make them symbolic wherever possible, e.g. not 53 68 37 .02 7 Use package prefixes in command names and global variables: wthr_stations wthr_report midi_play Allows packages to coexist without name clashes. < *&0'%0<UuKd2Q–ÿÿdd>–ÿÿdd<UuKd2%–ÿÿdd0–ÿÿdd'$ÇJ%&$—F#(…ÿÿÿÿ AKö¨÷Ð`úýÿ” oC Aƒö û ýÿ oC˜iy²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd2 Interpreters  $  ÿ•ÿÿdd2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿdd3Tcl_Interp structure encapsulates execution state: Variables. Commands implemented in C. Tcl procedures. Execution stack. Can have many interpreters in a single application (but usually just one). Creating and deleting interpreters: Tcl_Interp *interp; interp = Tcl_CreateInterp(); Tcl_DeleteInterp(interp); 3 (GoJ3 3UuKd2 –ÿÿdd–ÿÿdd–ÿÿdd–ÿÿddKUuKd2$UuKd2–ÿÿdd–ÿÿdd–ÿÿdd.+ÇJ,-—F*/‡ÿÿÿÿ AKö¨÷Ð`úýÿìÇJ Aƒö û ýÿÄoC¢ue²€JöÅ÷–CúÿÿÿÿTÿuÿÿKdExecuting Tcl Scripts $ÿ•ÿÿdd2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿdd  int code; code = Tcl_Eval(interp, "set a 1"); code = Tcl_EvalFile(interp, "init.tcl"); code indicates success or failure: TCL_OK: normal completion. TCL_ERROR: error occurred. interp->result points to string: result or error message. Application should display result or message for user.  W a  TuKd$TuKd)TuKd#UuKd2–dd–dd:UuKd26UuKd252Ð34¼ßF16‰ÿÿÿÿ AKö¨÷Ð`úýÿ” oC Aƒö€û ýÿŒE¨ue²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd2Where Do Scripts Come From?ÿ $ÿ•ÿÿdd 2€JöûÆãÿÿ$ÿÿÿ•ÿÿdd ¤Read from standard input (see tclMain.c). Read from script file (see tclMain.c). Associate with X events, wait for events, invoke associated scripts (see tkMain.c). ¤¤¤*UuKd2'UuKdÈSUuKdÈ<9ÿÿÿ:;„ßF8=‹ÿÿÿÿ AKö¨÷Ð`úýÿDoC AƒöÀúà ýÿ¼E¦ue²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd2Creating New Tcl Commandst $ÿ•ÿÿdd 2€JöÝú¦ ãÿÿ$ÿÿÿ•ÿÿdd ^Write command procedure in C: int EqCmd(ClientData clientData, Tcl_Interp *interp, int argc, char **argv) { if (argc != 3) { interp->result = "wrong # args"; return TCL_ERROR; } if (strcmp(argv[1], argv[2]) == 0) { interp->result = "1"; } else { interp->result = "0"; } return TCL_OK; } ^@^UuKd2@–ÿÿddC@ÿÿÿABlG#?Dÿÿÿÿ AKö¨÷Ð`úýÿ oC Aƒöàû ýÿD 4®²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd2!Creating New Tcl Commands, cont'dl !!$!!ÿ•ÿÿdd 2€JöýûÆãÿÿ$ÿÿÿ•ÿÿdd ÓRegister with interpreter: Tcl_CreateCommand(interp, "eq", EqCmd, (ClientData) NULL, ...); Tcl_DeleteCommand(interp, "eq"); Once registered, EqCmd will be called whenever eq command is invoked in interp. Ó iÓUuKd2H–ÿÿdd!–ÿÿddOUuKd–JGçÿ¼HI,ßFFK‘ÿÿÿÿ AKö¨÷Ð`úýÿô4 AƒöÀú` ýÿŒE–ue²€JöÅ÷–CúÿÿÿÿTÿuÿÿKd2 ClientData  $  ÿ•ÿÿdd 2€JöÝú& ãÿÿ$ÿÿÿ•ÿÿdd  Tcl_CreateCommand(interp, "eq", EqCmd, clientData, ...); int EqCmd(ClientData clientData, ...) {...} Used to pass any one-word value to command procedures and other callbacks. clientData is usually a pointer to data structure manipulated by procedure. Cast pointers in and out of ClientData type: Tcl_CreateCommand(... (ClientData) gizmoPtr, ...); gizmoPtr = (Gizmo *) clientData;  /  L ^ [nTuKd2KUuKd2LUuKd2-UuKd2;–dd –ddQNßÿ¼OPLßFMR“ÿÿÿÿ AKö¨÷Ð`úýÿÌßF Aƒö û ýÿ ßFIÀ°À° þÿŒ IP0 ýÿaðàðÇýÿ¿5Ið0€ýÿÜ¿5IPÐ0`ýÿað P‡ýÿüßFH~??Cþ_^¿ C~o, G# CN¯®  H~¯.¯C.Žß|—F  H^^H>_._I#ESuÿÿHNßNa@üà@ÿÇýÿäßFH@ÿSÀS‡Vþ¾ô ô@ f'‡Vÿ•ÿÿ@ F—´ua3€*ý¶ªÿÿÿÿÿ•ÿÿdd2result ÿ•ÿÿdd2p€TìYÿÿÿÿÿ•ÿÿdd"" ÿ•ÿÿdd3€*½jÿÿÿÿÿ•ÿÿdd2freeProc ÿ•ÿÿdd23€züýÿªÿÿÿÿÿ•ÿÿdd2interp ÿ•ÿÿdd2²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd2Managing The Result String $ÿ•ÿÿdd 2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿddNeed conventions for interp->result: Permit results of any length. Avoid malloc overheads if possible. Avoid storage reclamation problems. Keep as simple as possible. Normal state of interpreter (e.g., whenever command procedure is invoked): Default: command returns empty string. $Xq%UuKd2–ÿÿdd$–ÿÿdd$–ÿÿdd–ÿÿddKUuKd2&UuKd^XUóÿVWü ßFTY•ÿÿÿÿ AKö¨÷Ð`úýÿÌßF Aƒö û€ýÿ|G#I0ý0ý00 þÿŒ IÀý  þýÿa`ý`ý`GþýÿŒ¿5I€þpÿ ýÿ„ G#IÀPþ àþýÿa`ý þÀÿýÿlßFI“ÃýÃóýÿÿa°ø`ý°ûGþýÿÜ¿5H°ûÓý0ýÓýI0ýÐ0Ð þÿŒ IÀ0 Àýÿa`ý`çýÿÄßFI€þ  ýÿTG#IÀð €ýÿa`ýÀÀ§ýÿ”—FHîý_~þ_CnÎß CŽý/îýŒ¿5 C¾ýÏþ/  HîýÏžÏCžŸþÿœßF  HΟίH®žI“eÕÿÿH¾ýÿ¾ý/a°ø°ûçýÿŒ G#H°ûs0ýsH°Üý ÜýaðiýðPþýÿìG#HP\Ð\a€é Ðýÿ —F‡Vþ¾ô ô@ ÖýG‡Vÿ•ÿÿ@ ¶·>Òua>3€šý}ý&*þÿÿÿÿÿ•ÿÿdd2result ÿ•ÿÿdd2p€Äþ—ÿ\Ùÿÿÿÿÿÿ•ÿÿdd"" ÿ•ÿÿdd3€šý=þ†êþÿÿÿÿÿ•ÿÿdd2freeProc ÿ•ÿÿdd23€êø}ývû*þÿÿÿÿÿ•ÿÿdd2interp ÿ•ÿÿdd23€šý&Êÿÿÿÿÿ•ÿÿdd2result ÿ•ÿÿdd2p€Äþ7\yÿÿÿÿÿ•ÿÿdd "Value is 2"    ÿ•ÿÿdd3€šý݆Šÿÿÿÿÿ•ÿÿdd2freeProc ÿ•ÿÿdd23€êøvûÊÿÿÿÿÿ•ÿÿdd2interp ÿ•ÿÿdd23€*†ý¶3þÿÿÿÿÿ•ÿÿdd2"0" ÿ•ÿÿdd23€ºf³ÿÿÿÿÿ•ÿÿdd2 ~200 bytes    ÿ•ÿÿdd2²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd2Result String, cont'dc $ÿ•ÿÿdd2€Jö=ûFãÿÿ$ÿÿÿ•ÿÿddŽOption 1: (semi-) static result. interp->result = "0"; Option 2: use pre-allocated space in interp. sprintf(interp->result, "Value is %d", i); Ž!-*Ž!UuKd2–ÿÿdd-UuKdÂ*–ÿÿdd_\!!ïÿ¼]^ôG#[`˜ÿÿÿÿ AKö¨÷Ð`úýÿÌßF AƒöÀú ýÿÄßFI`ýPþ`P þÿŒ Ið°þÐ@ÿýÿaý€þgÿýÿßFI°þÐ ýÿ ßFIðpÿÐýÿôßFaý@ÿð'ýÿ„G#IÃåþóÿÿÿaàø€þàûgÿýÿ,¿5Hàûóþ`ýóþHàþþPþþIPþ`@ þÿŒ ž2uaž3€ÊýþVJÿÿÿÿÿÿ•ÿÿdd2result ÿ•ÿÿdd2p€ôþ·Œùÿÿÿÿÿ•ÿÿdd"" ÿ•ÿÿddp€4—ÿŒÙÿÿÿÿÿÿ•ÿÿddfree ÿ•ÿÿdd3€Êý]ÿ¶ ÿÿÿÿÿ•ÿÿdd2freeProc ÿ•ÿÿdd23€ùþ¦ûJÿÿÿÿÿÿ•ÿÿdd2interp ÿ•ÿÿdd2²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd2Result String, cont'dÌ $ÿ•ÿÿdd2€JöÝúÆãÿÿ$ÿÿÿ•ÿÿddÝOption 3: allocate new space for result. interp->result = malloc(2000); ... interp->freeProc = free; Tcl will call freeProc (if not NULL) to dispose of result. Mechanism supports storage allocators other than malloc/free.À Ý )<VÝ)UuKd2<–ÿÿdd;UuKdà=UuKd2fc &deßFbgšÿÿÿÿ AKö¨÷Ð`úýÿ” oC Aƒö û ýÿoCªua²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd2Procedures For Managing Result $ÿ•ÿÿdd2€Jö=ûV ãÿÿ$ÿÿÿ•ÿÿddÊOption 4: use library procedures. Tcl_SetResult(interp, string, ...); Tcl_AppendResult(interp, string, string, ... string, (char *) NULL); Tcl_AppendElement(interp, string); Tcl_ResetResult(interp); Ê"¨Ê"UuKd2$–ÿÿdddI–ÿÿddd#–ÿÿddd–ÿÿdddmjŸÿ¼kl„ ßFinœÿÿÿÿ AKö¨÷Ð`úýÿ”ÇJ Aƒö û ýÿ,ÇJ¨ua²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd2Utility Procedures: Parsingn $ÿ•ÿÿdd2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿddSUsed by command procedures to parse arguments: int value, code; code = Tcl_GetInt(interp, argv[1], &value); Stores integer in value. Returns TCL_OK or TCL_ERROR. If parse error, returns TCL_ERROR and leaves message in interp->result. Other procedures: Tcl_GetDouble Tcl_ExprDouble Tcl_GetBoolean Tcl_ExprBoolean Tcl_ExprLong Tcl_ExprString S/=   WS /UuKd2=–ÿÿddUuKd2UuKd2HUuKd2UuKd2–ÿÿdd–ÿÿdd–ÿÿddtq‘rsôG#pužÿÿÿÿ AKö¨÷Ð`úýÿ” oC Aƒö û€ ýÿL '.ªua²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd2Utility Procedures: Variables $ÿ•ÿÿdd2€Jö=ûF ãÿÿ$ÿÿÿ•ÿÿddtRead, write, and unset: char *value; value = Tcl_GetVar(interp, "a", ...); Tcl_SetVar(interp, "a", "new", ...); Tcl_UnsetVar(interp, "a", ...); Set traces: Tcl_TraceVar(interp, "a", TCL_TRACE_READS|TCL_TRACE_WRITES, traceProc, clientData); traceProc will be called during each read or write of a: Can monitor accesses. Can override value read or written. t y e -9tUuKd2y–ÿÿdd UuKd2e–ÿÿdd9UuKd2–ÿÿdd#–ÿÿdd{xãÿ¼yz”G#w|¡ÿÿÿÿ AKö¨÷Ð`úýÿW= AƒöÀú ýÿô4¤ua²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd2Other Utility Procedures $ÿ•ÿÿdd2€JöÝúÆãÿÿ$ÿÿÿ•ÿÿddXParsing, assembling proper lists: Tcl_SplitList(...) Tcl_Merge(...) Flexible hash tables: Tcl_InitHashTable(...) Tcl_CreateHashEntry(...) Tcl_FindHashEntry(...) Tcl_DeleteHashEntry(...) Tcl_DeleteHashTable(...) Dynamic strings: Tcl_DStringInit(...) Tcl_DStringAppend(...) Tcl_DStringAppendElement(...) Tcl_DStringValue(...) Tcl_DStringFree(...) X""ytX"UuKd2"–ÿÿdZUuKdy–ÿÿdZUuKdt–ÿÿdZ‚ÇJ€´ ßF~ƒ£ÿÿÿÿ AKö¨÷Ð`úýÿ´ÇJ Aƒöðú ýÿ$'.I÷ýpü þÿŒ IPø`ý°ûàþýÿ<W=IPø ÿ°û ýÿdÇJIPøà°û`ýÿ\ W=IPø °û ýÿtW=a÷üpü ýýÿÜ ÇJHú`ú Húàþú ÿIÀðàÀþÿŒ œEa`@úýÿÄÇJBú À€„/XB°û ÐŒ EúðÀ úðú À °ûˆÐÀÐÐÀ@ÿÀ@ÿˆ°ûˆžuap€”ø‡ýlû¹þÿÿÿÿÿ•ÿÿddCreate Interpreter ÿ•ÿÿddp€”øÇÿlûùÿÿÿÿÿ•ÿÿddProcess argc/argv  ÿ•ÿÿddp€”ølû9ÿÿÿÿÿ•ÿÿddSource Startup Fileµ ÿ•ÿÿddp€”øGlûyÿÿÿÿÿ•ÿÿddEvaluate Commands ÿ•ÿÿdd3€Ê÷-ü6üíüÿÿÿÿÿ•ÿÿdd2 tclMain.c(    ÿ•ÿÿdd2p€1‚ÿÿÿÿÿ•ÿÿdd$Application- Specific Initialization $$$$ÿ•ÿÿdd3€šÝÿÿÿÿÿ•ÿÿdd2 Tcl_AppInitˆ    ÿ•ÿÿdd2²€JöÅ÷–CúÿÿÿÿTÿuÿÿKd2 Tcl_AppInitl  $  ÿ•ÿÿdd2€Jö ûÆãÿÿ$ÿÿÿ•ÿÿdd&Makes it easy to extend wish or tclsh. &&&&TuKd2‰†ûÿ¼‡ˆ ßF…Š¥ÿÿÿÿ AKö¨÷Ð`úýÿ\E Aƒöú ýÿ,ÇJ°mi²€JöÅ÷–CúÿÿÿÿTÿuÿÿKd2Tcl_AppInit, cont'd  $$ÿ•ÿÿdd2€Jö­úÆãÿÿ$ÿÿÿ•ÿÿddÆTo personalize tclsh or wish: Copy tclAppInit.c or tkAppInit.c. Modify Tcl_AppInit procedure: int tcl_AppInit(Tcl_Interp *interp) { if (Tcl_Init(interp) == TCL_ERROR) { return TCL_ERROR; } Tcl_CreateCommand(interp, "mycmd", MycmdProc, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); tcl_RcFileName = "~/.myapprc"; return TCL_OK; } Compile with Tcl (and Tk?) libraries: cc myAppInit.c -ltcl -lm -o myapp Æ     s˜&!ÆTuKd2"UuKdUuKd!–ÿÿdZ&UuKd!–ÿÿdZ ÿÿ——Ž¬ ßFŒ‘§ÿÿÿÿ AKö¨÷Ð`úýÿ” oC Aƒö û ýÿ<4¤mi²€JöÅ÷–CúÿÿÿÿTÿuÿÿKd2Conventions For Packages $ÿ•ÿÿdd2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿdd3Goal: make it easy to develop and use Tcl-based packages. 1. Use package prefixes to prevent name conflicts: Pick short prefix for package, e.g. rdb. Use in all global names: C procedure: Rdb_Open C variable: rdb_NumRecords Tcl command: rdb_query See Tcl book and Tcl/Tk Engineering Manual for more details. 3 m$   <3:TuKd23TuKd–)–ÿÿdd–ÿÿdd»ÿÿdd»ÿÿdd»ÿÿdd<–ÿÿdd—”cp@H•–D ßF“˜©ÿÿÿÿ AKö¨÷Ð`úýÿÔÇJ Aƒö û ýÿ¬ oCœmi²€JöÅ÷–CúÿÿÿÿTÿuÿÿKd2Packages, cont'd $ÿ•ÿÿdd2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿdd:2. Create package initialization procedure: Named after package: Rdb_Init. Creates package's commands. Evaluates startup script, if any. int Rdb_Init(Tcl_Interp *interp) { Tcl_CreateCommand(...); Tcl_CreateCommand(...); ... return Tcl_EvalFile(interp, "/usr/local/lib/rdb/init.tcl"); } :,@±:,TuKd2–ÿÿdd–ÿÿdd"–ÿÿdd±TuKd2ž›ûÿœì ßFšŸ«ÿÿÿÿ AKö¨÷Ð`úýÿ” oC AƒöðúÀ ýÿ„ 4œ- ²€JöÅ÷–CúÿÿÿÿTÿuÿÿKd2Packages, cont'd $ÿ•ÿÿdd2€Jö û† ãÿÿ$ÿÿÿ•ÿÿdd‚3. To use package: Call its initialization procedure in your Tcl_AppInit: int Tcl_AppInit(Tcl_Interp *interp) { if (Tcl_Init(interp) == TCL_ERROR) { return TCL_ERROR; } if (Tk_Init(interp) == TCL_ERROR) { return TCL_ERROR; } if (Rdb_Init(interp) == TCL_ERROR) { return TCL_ERROR; } tcl_RcFileName = "~/.myyapprc"; return TCL_OK; } ‚* »D9‚TuKd2o–ÿÿdZ¥¢ßÿ¼£¤< ßF¡¦­ÿÿÿÿ AKö¨÷Ð`úýÿ¿5 AƒöPû ýÿdßFœ- ²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddPackages, cont'd $ÿ•ÿÿdd2€JömûÆãÿÿÿÿTÿuÿÿKd2”3. To use package, cont'd: Link with the package's library: cc myAppInit.c librdb.a -ltk -ltcl \ -lX11 -lm -o myapp 4. Dynamic loading (soon). ”"<”TuKd2^–ÿÿddTuKd2¬©Ô ª« ßF¨­¿0¯ÿÿÿÿ AKö¨÷Ð`úýÿäÇJ Aƒö°û ýÿ´ ÇJ”- ²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd2Summary $ÿ•ÿÿdd2€JöÍûÆãÿÿ$ÿÿÿ•ÿÿddInterfaces to C are simple: Tcl was designed to make this true. Focus on primitives, use Tcl scripts to compose fancy features. @UuKd2?UuKd–³°ÿÿÿ±²ÌßF¯´±  ")07>ELSZahov}„‹’™ §®µÔ¶³D —FNUÿÿÿÿ Hðô0ú°0úAKö¨÷Ð`úýÿìE Aƒö û ýÿì 4aö`À ýÿäEaPþ` ýÿÜENìN3€Jö}†ÿÿÿÿÿ•ÿÿdd2)Tcl/Tk Tutorial Part IV: Tcl C Interfaces ))))ÿ•ÿÿdd23€Šþ}Æÿÿÿÿÿ•ÿÿdd2December 1, 1994, slide ## ÿ•ÿÿdd2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿdd Click to edit Master title style  $  ÿ•ÿÿdd2€Jö=ûÆãÿÿÿÿÿ–ÿÿddRClick to edit Master text styles Second Level Third Level Fourth Level Fifth Level R! $R!UuKd2 –ÿÿdd »ÿÿdd UuAd –dd¼¹º» AƒÐùpÿ0 ýÿì/^A`úpö àþýÿ2€ úÿös ÿÿ ÿÿÿ•ÿÿddSClick to edit Master notes styles Second Level Third Level Fourth Level Fifth Level SS S"ÿ•dd ÿ•dd ÿ•dd ÿ•dd ÿ•ddÁ¾ÿÿ¿ÀìG#¸½Â_C?>NUÿÿÿÿ Aú ö ÿþÿ>Aú`` þÿ>ÈÅÿÿÿÿÆÇ<—FÄÉNUÿÿÿÿ ÏÌÿÿÿÿÍÎ4 —FËÐ=*€Ê…ï/ÿ·5Ò 7(Œw4 —F  @@``€€@ØÔ Ð@ð`€@Ø  Ð@ð`€@‚‚ÊÊ€€@Ø  Ð@ð`€@+ØÕ Ð@ð`€@ØÕ ÓCð`€@Û×#Ð@ð`€@€´'ï/ ÿ§2WÔ"Õ Ö×ØÙÚÛ€5ТÿÿÖ£EТˆÁùþ=IŒ»ô~êÿÿþ?µ€ÿÿ_þ᛿&ìüùþW¹ÿÿˆˆ‡{ÿÿÿÿÿÿD„YÝ  ýÿddddd€XÿÿÿÿÿÿYh‘h‘h‘ÿÿ1²0uìüö(B%p=rè;†–0ˆÿÿ&—Q` ýÿddd7€XÿÿÿÿÿÿYh‘h‘h‘YDGa[òý3®ìüö(ØÎØÎØ΀ï/ÿ_Cßàü¿5ü—F<G#²€$$$$$ÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿdd2€UuKd2–ÿÿdd»ÿÿddUuAd–ÿÿdd2€     ÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿÿ2€•ddþÿ•ddþÿ•ddþÿ•ddþÿ•ddþÿ3€ÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿdd00€ï/ÿ@¯FCTimes New RomanÎ`/0o3ïo3 "Arial‚XÛ/0o3D˜Xµ=/0 XE/(1Courier÷O$`›ÿ $`°ÿ Ô §S 4RMonotype Sortsô$o &¶§ªgÏ h¼Times New Roman ·ä/.nd ¼ÿTimes New Roman ·ä/.®` ÿTimes New Roman/0~`À` _¼1Courier–\–\j9/'I/`z^. 5ôÿ,,{ Ÿ ÃÿÞÿ¹  Apple LaserWriter II NTPSCRIPTLPT1:T1:ÈApple LaserWriter II NT WD„[ê od,þXÂZZ¨eÓ&Àô÷@ p÷Àôp@ Jÿr·ÑÃÊæ8øŽõy BZ.:ÓÜáÞãâäà€€àåÿÿÿÿ'Lþÿpack2íÞ­ ÐÏࡱá;þÿ þÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  !"#$þÿÿÿþÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿ à…ŸòùOh«‘+'³Ùà…ŸòùOh«‘+'³Ù0ôx¤®ÆÐ*f € Ž š ¦²ºÜ$Writing Tcl-Based Applications In CJohn OusterhoutOLast of four talks in all-day Tcl/Tk tutorial. Covers the C interfaces to Tcl.4c:\msoffice\powerpnt\template\clrovrhd\sidebarc.pptSun Microsystems17@†iWIË¢¹@¦…4 ¢¹@&–ÕÀò¹Microsoft PowerPoint 4.0Gÿÿÿÿ8cjJ }<&ÿÿÿÿÀô÷@ p & ÿÿÿÿ&$ÿÿÿÿTNPPMicrosoft PowerPoint & TNPPf & ÿÿÿÿ&TNPP ÷Àô à€5÷u— ÿÿÿ€€€€€€€€€ÀÀÀÀÜÀ¦Êðÿûð  ¤€€€ÿÿÿÿÿÿÿÿÿÿÿÿ45üÿÿÿ-úÿÿÿ-qA ÷Àô&ÿÿÿÿpöPû˜ (þûàþ¼Times New Romanÿÿ-.  u<2 ý'÷#Writing Tcl-Based Applications In C €P`P HÀ€P`Àp€ HР PP€`P pHp¡HÐ & ÿÿÿÿ&ÿÿÿÿ÷ÿ8 xû@ÿ¼Times New Romanì-ð.  — 2 Úÿ`ýJohn Ousterhout``kk0•kJ@VUk`j@û@ÿ¼Times New Romanÿÿ-ð.  — 32 3ýúSun Microsystems Laboratorieskkj0¶5UU`K`K@U K0€`j`V`@`U5UKûaÿ¼1Courier-ð.  02 \ûjohn.ousterhout@eng.sun.com```````````````````````````û@ÿ¼Times New Romanÿÿ-ðû@ÿ¼Times New Romanì-ð. û@ÿ¼Times New Romanÿÿ-ð. ûpÿ¼ÿTimes New Romanì-ð.  +2 LýTcl/Tk Tutorial, Part IVX@((XH$XP(H8(H($$XH8($8` & ÿÿÿÿ&TNPP & ÿÿÿÿ-ü-ðû ¼"System-ð4. DynÐÏࡱá;Sun MicrosystemsÐÏࡱá;þÿ ÐÏࡱá;þÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCurrent IDÿÿÿÿÿÿÿÿÿÿÿÿ&ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿtut/tclc.ps010077500630510000012000002053760573603524100137270ustar00ousterstaff00002300000036%!PS-Adobe-3.0 %%Creator: Windows PSCRIPT %%Title: PowerPoint - TCLC.PPT %%BoundingBox: 14 9 597 784 %%DocumentNeededResources: (atend) %%DocumentSuppliedResources: (atend) %%Pages: (atend) %%BeginResource: procset Win35Dict 3 1 /Win35Dict 290 dict def Win35Dict begin/bd{bind def}bind def/in{72 mul}bd/ed{exch def}bd/ld{load def}bd/tr/translate ld/gs/gsave ld/gr /grestore ld/M/moveto ld/L/lineto ld/rmt/rmoveto ld/rlt/rlineto ld /rct/rcurveto ld/st/stroke ld/n/newpath ld/sm/setmatrix ld/cm/currentmatrix ld/cp/closepath ld/ARC/arcn ld/TR{65536 div}bd/lj/setlinejoin ld/lc /setlinecap ld/ml/setmiterlimit ld/sl/setlinewidth ld/scignore false def/sc{scignore{pop pop pop}{0 index 2 index eq 2 index 4 index eq and{pop pop 255 div setgray}{3{255 div 3 1 roll}repeat setrgbcolor}ifelse}ifelse}bd /FC{bR bG bB sc}bd/fC{/bB ed/bG ed/bR ed}bd/HC{hR hG hB sc}bd/hC{ /hB ed/hG ed/hR ed}bd/PC{pR pG pB sc}bd/pC{/pB ed/pG ed/pR ed}bd/sM matrix def/PenW 1 def/iPen 5 def/mxF matrix def/mxE matrix def/mxUE matrix def/mxUF matrix def/fBE false def/iDevRes 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt def/fPP false def/SS{fPP{ /SV save def}{gs}ifelse}bd/RS{fPP{SV restore}{gr}ifelse}bd/EJ{gsave showpage grestore}bd/#C{userdict begin/#copies ed end}bd/FEbuf 2 string def/FEglyph(G )def/FE{1 exch{dup 16 FEbuf cvrs FEglyph exch 1 exch putinterval 1 index exch FEglyph cvn put}for}bd/SM{/iRes ed/cyP ed /cxPg ed/cyM ed/cxM ed 72 100 div dup scale dup 0 ne{90 eq{cyM exch 0 eq{cxM exch tr -90 rotate -1 1 scale}{cxM cxPg add exch tr +90 rotate}ifelse}{cyP cyM sub exch 0 ne{cxM exch tr -90 rotate}{cxM cxPg add exch tr -90 rotate 1 -1 scale}ifelse}ifelse}{pop cyP cyM sub exch 0 ne{cxM cxPg add exch tr 180 rotate}{cxM exch tr 1 -1 scale}ifelse}ifelse 100 iRes div dup scale 0 0 transform .25 add round .25 sub exch .25 add round .25 sub exch itransform translate}bd/SJ{1 index 0 eq{pop pop/fBE false def}{1 index/Break ed div/dxBreak ed/fBE true def}ifelse}bd/ANSIVec[ 16#0/grave 16#1/acute 16#2/circumflex 16#3/tilde 16#4/macron 16#5/breve 16#6/dotaccent 16#7/dieresis 16#8/ring 16#9/cedilla 16#A/hungarumlaut 16#B/ogonek 16#C/caron 16#D/dotlessi 16#27/quotesingle 16#60/grave 16#7C/bar 16#82/quotesinglbase 16#83/florin 16#84/quotedblbase 16#85 /ellipsis 16#86/dagger 16#87/daggerdbl 16#88/circumflex 16#89/perthousand 16#8A/Scaron 16#8B/guilsinglleft 16#8C/OE 16#91/quoteleft 16#92/quoteright 16#93/quotedblleft 16#94/quotedblright 16#95/bullet 16#96/endash 16#97 /emdash 16#98/tilde 16#99/trademark 16#9A/scaron 16#9B/guilsinglright 16#9C/oe 16#9F/Ydieresis 16#A0/space 16#A1/exclamdown 16#A4/currency 16#A5/yen 16#A6/brokenbar 16#A7/section 16#A8/dieresis 16#A9/copyright 16#AA/ordfeminine 16#AB/guillemotleft 16#AC/logicalnot 16#AD/hyphen 16#AE/registered 16#AF/macron 16#B0/degree 16#B1/plusminus 16#B2/twosuperior 16#B3/threesuperior 16#B4/acute 16#B5/mu 16#B6/paragraph 16#B7/periodcentered 16#B8/cedilla 16#B9/onesuperior 16#BA/ordmasculine 16#BB/guillemotright 16#BC/onequarter 16#BD/onehalf 16#BE/threequarters 16#BF/questiondown 16#C0/Agrave 16#C1/Aacute 16#C2/Acircumflex 16#C3/Atilde 16#C4/Adieresis 16#C5/Aring 16#C6/AE 16#C7/Ccedilla 16#C8/Egrave 16#C9/Eacute 16#CA /Ecircumflex 16#CB/Edieresis 16#CC/Igrave 16#CD/Iacute 16#CE/Icircumflex 16#CF/Idieresis 16#D0/Eth 16#D1/Ntilde 16#D2/Ograve 16#D3/Oacute 16#D4 /Ocircumflex 16#D5/Otilde 16#D6/Odieresis 16#D7/multiply 16#D8/Oslash 16#D9/Ugrave 16#DA/Uacute 16#DB/Ucircumflex 16#DC/Udieresis 16#DD/Yacute 16#DE/Thorn 16#DF/germandbls 16#E0/agrave 16#E1/aacute 16#E2/acircumflex 16#E3/atilde 16#E4/adieresis 16#E5/aring 16#E6/ae 16#E7/ccedilla 16#E8 /egrave 16#E9/eacute 16#EA/ecircumflex 16#EB/edieresis 16#EC/igrave 16#ED/iacute 16#EE/icircumflex 16#EF/idieresis 16#F0/eth 16#F1/ntilde 16#F2/ograve 16#F3/oacute 16#F4/ocircumflex 16#F5/otilde 16#F6/odieresis 16#F7/divide 16#F8/oslash 16#F9/ugrave 16#FA/uacute 16#FB/ucircumflex 16#FC/udieresis 16#FD/yacute 16#FE/thorn 16#FF/ydieresis ] def/reencdict 12 dict def/IsChar{basefontdict/CharStrings get exch known}bd/MapCh{dup IsChar not{pop/bullet}if newfont/Encoding get 3 1 roll put}bd/MapDegree{16#b0 /degree IsChar{/degree}{/ring}ifelse MapCh}bd/MapBB{16#a6/brokenbar IsChar{/brokenbar}{/bar}ifelse MapCh}bd/ANSIFont{reencdict begin/newfontname ed/basefontname ed FontDirectory newfontname known not{/basefontdict basefontname findfont def/newfont basefontdict maxlength dict def basefontdict{exch dup/FID ne{dup/Encoding eq{exch dup length array copy newfont 3 1 roll put}{exch newfont 3 1 roll put}ifelse}{pop pop}ifelse}forall newfont /FontName newfontname put 127 1 159{newfont/Encoding get exch/bullet put}for ANSIVec aload pop ANSIVec length 2 idiv{MapCh}repeat MapDegree MapBB newfontname newfont definefont pop}if newfontname end}bd/SB{FC /ULlen ed/str ed str length fBE not{dup 1 gt{1 sub}if}if/cbStr ed /dxGdi ed/y0 ed/x0 ed str stringwidth dup 0 ne{/y1 ed/x1 ed y1 y1 mul x1 x1 mul add sqrt dxGdi exch div 1 sub dup x1 mul cbStr div exch y1 mul cbStr div}{exch abs neg dxGdi add cbStr div exch}ifelse/dyExtra ed/dxExtra ed x0 y0 M fBE{dxBreak 0 BCh dxExtra dyExtra str awidthshow}{dxExtra dyExtra str ashow}ifelse fUL{x0 y0 M dxUL dyUL rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if fSO{x0 y0 M dxSO dySO rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if n/fBE false def}bd/font{/name ed/Ascent ed 0 ne/fT3 ed 0 ne/fSO ed 0 ne/fUL ed/Sy ed/Sx ed 10.0 div/ori ed -10.0 div/esc ed/BCh ed name findfont/xAscent 0 def/yAscent Ascent def/ULesc esc def ULesc mxUE rotate pop fT3{/esc 0 def xAscent yAscent mxUE transform /yAscent ed/xAscent ed}if [Sx 0 0 Sy neg xAscent yAscent] esc mxE rotate mxF concatmatrix makefont setfont [Sx 0 0 Sy neg 0 Ascent] mxUE mxUF concatmatrix pop fUL{currentfont dup/FontInfo get/UnderlinePosition known not{pop/Courier findfont}if/FontInfo get/UnderlinePosition get 1000 div 0 exch mxUF transform/dyUL ed/dxUL ed}if fSO{0 .3 mxUF transform /dySO ed/dxSO ed}if fUL fSO or{currentfont dup/FontInfo get/UnderlineThickness known not{pop/Courier findfont}if/FontInfo get/UnderlineThickness get 1000 div Sy mul/cyUL ed}if}bd/min{2 copy gt{exch}if pop}bd/max{2 copy lt{exch}if pop}bd/CP{/ft ed{{ft 0 eq{clip}{eoclip}ifelse}stopped{currentflat 1 add setflat}{exit}ifelse}loop}bd/patfont 10 dict def patfont begin /FontType 3 def/FontMatrix [1 0 0 -1 0 0] def/FontBBox [0 0 16 16] def/Encoding StandardEncoding def/BuildChar{pop pop 16 0 0 0 16 16 setcachedevice 16 16 false [1 0 0 1 .25 .25]{pat}imagemask}bd end/p{ /pat 32 string def{}forall 0 1 7{dup 2 mul pat exch 3 index put dup 2 mul 1 add pat exch 3 index put dup 2 mul 16 add pat exch 3 index put 2 mul 17 add pat exch 2 index put pop}for}bd/pfill{/PatFont patfont definefont setfont/ch(AAAA)def X0 64 X1{Y1 -16 Y0{1 index exch M ch show}for pop}for}bd/vert{X0 w X1{dup Y0 M Y1 L st}for}bd/horz{Y0 w Y1{dup X0 exch M X1 exch L st}for}bd/fdiag{X0 w X1{Y0 M X1 X0 sub dup rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup rlt st}for}bd/bdiag{X0 w X1{Y1 M X1 X0 sub dup neg rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup neg rlt st}for}bd/AU{1 add cvi 15 or}bd/AD{1 sub cvi -16 and}bd/SHR{pathbbox AU/Y1 ed AU/X1 ed AD/Y0 ed AD/X0 ed}bd/hfill{/w iRes 37.5 div round def 0.1 sl [] 0 setdash n dup 0 eq{horz}if dup 1 eq{vert}if dup 2 eq{fdiag}if dup 3 eq{bdiag}if dup 4 eq{horz vert}if 5 eq{fdiag bdiag}if}bd/F{/ft ed fm 256 and 0 ne{gs FC ft 0 eq{fill}{eofill}ifelse gr}if fm 1536 and 0 ne{SHR gs HC ft CP fm 1024 and 0 ne{/Tmp save def pfill Tmp restore}{fm 15 and hfill}ifelse gr}if}bd/S{PenW sl PC st}bd/m matrix def/GW{iRes 12 div PenW add cvi}bd/DoW{iRes 50 div PenW add cvi}bd/DW{iRes 8 div PenW add cvi}bd/SP{/PenW ed/iPen ed iPen 0 eq iPen 6 eq or{[] 0 setdash}if iPen 1 eq{[DW GW] 0 setdash}if iPen 2 eq{[DoW GW] 0 setdash}if iPen 3 eq{[DW GW DoW GW] 0 setdash}if iPen 4 eq{[DW GW DoW GW DoW GW] 0 setdash}if}bd/E{m cm pop tr scale 1 0 moveto 0 0 1 0 360 arc cp m sm}bd /AG{/sy ed/sx ed sx div 4 1 roll sy div 4 1 roll sx div 4 1 roll sy div 4 1 roll atan/a2 ed atan/a1 ed sx sy scale a1 a2 ARC}def/A{m cm pop tr AG m sm}def/P{m cm pop tr 0 0 M AG cp m sm}def/RRect{n 4 copy M 3 1 roll exch L 4 2 roll L L cp}bd/RRCC{/r ed/y1 ed/x1 ed/y0 ed/x0 ed x0 x1 add 2 div y0 M x1 y0 x1 y1 r arcto 4{pop}repeat x1 y1 x0 y1 r arcto 4{pop}repeat x0 y1 x0 y0 r arcto 4{pop}repeat x0 y0 x1 y0 r arcto 4{pop}repeat cp}bd/RR{2 copy 0 eq exch 0 eq or{pop pop RRect}{2 copy eq{pop RRCC}{m cm pop/y2 ed/x2 ed/ys y2 x2 div 1 max def/xs x2 y2 div 1 max def/y1 exch ys div def/x1 exch xs div def/y0 exch ys div def/x0 exch xs div def/r2 x2 y2 min def xs ys scale x0 x1 add 2 div y0 M x1 y0 x1 y1 r2 arcto 4{pop}repeat x1 y1 x0 y1 r2 arcto 4{pop}repeat x0 y1 x0 y0 r2 arcto 4{pop}repeat x0 y0 x1 y0 r2 arcto 4{pop}repeat m sm cp}ifelse}ifelse}bd/PP{{rlt}repeat}bd/OB{gs 0 ne{7 3 roll/y ed /x ed x y translate ULesc rotate x neg y neg translate x y 7 -3 roll}if sc B fill gr}bd/B{M/dy ed/dx ed dx 0 rlt 0 dy rlt dx neg 0 rlt cp}bd /CB{B clip n}bd/ErrHandler{errordict dup maxlength exch length gt dup{errordict begin}if/errhelpdict 12 dict def errhelpdict begin/stackunderflow(operand stack underflow)def /undefined(this name is not defined in a dictionary)def/VMerror(you have used up all the printer's memory)def /typecheck(operator was expecting a different type of operand)def /ioerror(input/output error occured)def end{end}if errordict begin /handleerror{$error begin newerror{/newerror false def showpage 72 72 scale/x .25 def/y 9.6 def/Helvetica findfont .2 scalefont setfont x y moveto(Offending Command = )show/command load{dup type/stringtype ne{(max err string)cvs}if show}exec/y y .2 sub def x y moveto(Error = )show errorname{dup type dup( max err string )cvs show( : )show/stringtype ne{( max err string )cvs}if show}exec errordict begin errhelpdict errorname known{x 1 add y .2 sub moveto errhelpdict errorname get show}if end /y y .4 sub def x y moveto(Stack =)show ostack{/y y .2 sub def x 1 add y moveto dup type/stringtype ne{( max err string )cvs}if show}forall showpage}if end}def end}bd end %%EndResource /SVDoc save def %%EndProlog %%BeginSetup Win35Dict begin ErrHandler statusdict begin 0 setjobtimeout end statusdict begin statusdict /jobname (PowerPoint - TCLC.PPT) put end /oldDictCnt countdictstack def {}stopped { countdictstack oldDictCnt lt { Win35Dict begin } {1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if /oldDictCnt countdictstack def {letter }stopped { countdictstack oldDictCnt lt { Win35Dict begin } {1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if [{ } /exec load currenttransfer /exec load] cvx settransfer %%EndSetup %%Page: 1 1 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 8 29 117 fC 435 684 2360 (Writing Tcl-Based Applications In C) 2360 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 151 0 10 fC -1 1 SJ 1265 1101 726 (John Ousterhout) 726 SB 2 2 SJ 947 1281 1359 (Sun Microsystems Laboratories) 1359 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 952 1457 1350 (john.ousterhout@eng.sun.com) 1350 SB 32 0 0 75 75 0 0 0 68 /Times-BoldItalic /font30 ANSIFont font -3 3 SJ 1254 1957 750 (Tcl/Tk Tutorial, Part IV) 750 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-BoldItalic %%Page: 2 2 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2172 2079 614 (December 1, 1994, slide 2) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 334 (Outli) 333 SB 653 266 83 (n) 84 SB 737 266 67 (e) 66 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 576 910 (Philosophy: focus on ) 910 SB 151 0 10 fC 1343 576 432 (primitives) 432 SB 0 0 0 fC 1775 576 25 (.) 25 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 788 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 3 SJ 433 756 1622 (Basics: interpreters, executing scripts.) 1622 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 968 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 2 SJ 433 936 1305 (Implementing new commands.) 1305 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1147 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1115 1161 (Managing the result string.) 1161 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1327 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1295 2162 (Useful library procedures: parsing, variables, lists,) 2162 SB -1 1 SJ 433 1415 501 (hash tables.) 501 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1626 59 (u) 59 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 433 1600 660 (Tcl_AppInit) 660 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1093 1594 25 (.) 25 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1806 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 1 SJ 433 1774 816 (Creating packages.) 816 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 3 3 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2172 2079 614 (December 1, 1994, slide 3) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 709 (Philosophy) 709 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 558 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 8 SJ 433 526 1998 (Usually better to write Tcl scripts than C code:) 1998 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 648 50 (\226) 50 SB 4 5 SJ 564 648 2026 (Faster development \(higher level, no compilation\).) 2026 SB 470 768 50 (\226) 50 SB 564 768 572 (More flexible.) 572 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 965 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 933 600 (Why write C?) 600 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1055 50 (\226) 50 SB 2 5 SJ 564 1055 1819 (Need access to low-level facilities \(sockets?\).) 1819 SB 470 1175 50 (\226) 50 SB 8 3 SJ 564 1175 1736 (Efficiency concerns \(iterative calculations\).) 1736 SB 470 1295 50 (\226) 50 SB 3 5 SJ 564 1295 1580 (Need more structure \(code is complex\).) 1580 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1493 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 4 8 SJ 433 1461 2413 (Implement new Tcl commands that provide a few simple) 2413 SB 1 1 SJ 433 1580 492 (orthogonal ) 492 SB 151 0 10 fC 926 1580 432 (primitives) 432 SB 0 0 0 fC 1358 1580 33 (:) 33 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1702 50 (\226) 50 SB 10 8 SJ 564 1702 2392 (Low-level to provide independent access to all key features.) 2392 SB 470 1822 50 (\226) 50 SB 3 6 SJ 564 1822 2155 (High-level to hide unimportant details, allow efficient) 2155 SB 564 1942 653 (implementation.) 653 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 4 4 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2172 2079 614 (December 1, 1994, slide 4) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -2 2 SJ 320 266 1760 (Example: Weather Reports) 1760 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 533 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 7 7 SJ 433 501 2481 (Goal: retrieve weather reports over network from servers.) 2481 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 713 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 3 SJ 433 681 883 (Tcl command set #1:) 883 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 803 50 (\226) 50 SB 2 4 SJ 564 803 1281 (Retrieve report, format, print on) 1281 SB 564 922 644 (standard output.) 644 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1132 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 3 SJ 433 1100 883 (Tcl command set #2:) 883 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1222 50 (\226) 50 SB 3 4 SJ 564 1222 1232 (Open socket to weather server.) 1232 SB 470 1342 50 (\226) 50 SB 564 1342 561 (Select station.) 561 SB 470 1462 50 (\226) 50 SB 2 4 SJ 564 1462 1170 (Retrieve first line of report....) 1170 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1671 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 3 SJ 433 1639 883 (Tcl command set #3:) 883 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1761 50 (\226) 50 SB 564 1761 1269 (Return list of available stations.) 1269 SB 470 1881 50 (\226) 50 SB 3 4 SJ 564 1881 1419 (Given station name, retrieve report.) 1419 SB 151 0 10 pC 6 4 SP 0 0 1 0 28 -20 1 25 18 2016 833 A S n 0 0 1 22 1 1 28 25 19 2016 1020 A S n 0 0 1 -20 1 1 -26 25 19 2066 945 A S n gs 3231 79 0 944 CB 2040 869 M 0 225 1 PP S n gr gs 3231 79 0 832 CB 2040 757 M 0 225 1 PP S n gr 0 0 1 0 -26 20 1 25 18 2066 908 A S n 0 0 1 1 28 -30 1 25 29 2016 1268 A S n 0 0 1 32 1 1 28 25 29 2016 1560 A S n 0 0 1 -30 1 1 -26 25 29 2066 1443 A S n gs 3231 121 0 1442 CB 2040 1325 M 0 351 1 PP S n gr gs 3231 121 0 1267 CB 2040 1150 M 0 351 1 PP S n gr 0 0 1 1 -26 32 1 25 29 2066 1385 A S n 0 0 1 1 28 -20 1 25 19 2016 1783 A S n 0 0 1 20 1 0 28 25 18 2016 1971 A S n 0 0 1 -20 1 0 -26 25 18 2066 1896 A S n gs 3231 79 0 1894 CB 2040 1819 M 0 225 1 PP S n gr gs 3231 79 0 1782 CB 2040 1707 M 0 225 1 PP S n gr 0 0 1 1 -26 22 1 25 19 2066 1858 A S n 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 151 0 10 fC 2095 878 890 (Too high-level \(inflexible\)) 890 SB 2095 1363 788 (Too low-level \(tedious\)) 788 SB -2 1 SJ 2095 1828 310 (Just right) 310 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 5 5 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2172 2079 614 (December 1, 1994, slide 5) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1726 (Designing New Commands) 1726 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 558 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 4 SJ 433 526 1436 (Choose textual names for objects:) 1436 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 564 652 840 (.dlg.bottom.ok) 840 SB 564 772 840 (file3 or stdin) 840 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 470 888 50 (\226) 50 SB 1 7 SJ 564 888 1554 (Use hash tables to map to C structures.) 1554 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1073 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 4 1 SJ 433 1041 1193 (Object-oriented commands:) 1193 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 564 1167 1920 (.dlg.bottom.ok configure -fg red) 1920 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 470 1283 50 (\226) 50 SB 3 6 SJ 564 1283 1944 (Good for small numbers of well-defined objects.) 1944 SB 470 1403 50 (\226) 50 SB 3 3 SJ 564 1403 1115 (Doesn't pollute name space.) 1115 SB 470 1522 50 (\226) 50 SB 2 5 SJ 564 1522 1892 (Allows similar commands for different objects.) 1892 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1708 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 4 1 SJ 433 1676 1188 (Action-oriented commands:) 1188 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 564 1802 1200 (string compare $x $y) 1200 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 470 1918 50 (\226) 50 SB 5 6 SJ 564 1918 1759 (Good if many objects or short-lived objects.) 1759 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 6 6 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2172 2079 614 (December 1, 1994, slide 6) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 2202 (Designing New Commands, cont'd) 2202 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 6 2 SJ 433 576 1272 (Formatting command results:) 1272 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 698 50 (\226) 50 SB 5 7 SJ 564 698 1664 (Make them easy to parse with Tcl scripts:) 1664 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 564 822 2280 (tmp 53 hi 68 lo 37 precip .02 sky part) 2280 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 470 938 50 (\226) 50 SB 6 6 SJ 564 938 1935 (Make them symbolic wherever possible, e.g. not) 1935 SB 0 150 136 fC 564 1057 575 (53 68 37 .02 7) 575 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1267 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1235 180 (Use ) 180 SB 151 0 10 fC 613 1235 739 (package prefixes ) 739 SB 0 0 0 fC 1 4 SJ 1353 1235 1299 (in command names and global) 1299 SB 433 1355 422 (variables:) 422 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 564 1481 780 (wthr_stations) 780 SB 564 1600 660 (wthr_report) 660 SB 564 1720 540 (midi_play) 540 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 470 1836 50 (\226) 50 SB 2 6 SJ 564 1836 2000 (Allows packages to coexist without name clashes.) 2000 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 7 7 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2172 2079 614 (December 1, 1994, slide 7) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 141 (In) 142 SB 462 266 117 (te) 116 SB 578 266 401 (rprete) 400 SB 978 266 67 (r) 66 SB 1044 266 58 (s) 59 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 1 1 SJ 433 582 660 (Tcl_Interp ) 660 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 2 3 SJ 1093 576 1644 (structure encapsulates execution state:) 1644 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 698 50 (\226) 50 SB 564 698 407 (Variables.) 407 SB 470 818 50 (\226) 50 SB 564 818 1223 (Commands implemented in C.) 1223 SB 470 938 50 (\226) 50 SB 2 1 SJ 564 938 620 (Tcl procedures.) 620 SB 470 1057 50 (\226) 50 SB 564 1057 661 (Execution stack.) 661 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1267 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1235 2158 (Can have many interpreters in a single application) 2158 SB 433 1355 929 (\(but usually just one\).) 929 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1567 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 3 SJ 433 1535 1495 (Creating and deleting interpreters:) 1495 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1660 1140 (Tcl_Interp *interp;) 1140 SB 470 1780 1680 (interp = Tcl_CreateInterp\(\);) 1680 SB 470 1900 1500 (Tcl_DeleteInterp\(interp\);) 1500 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 8 8 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2172 2079 614 (December 1, 1994, slide 8) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -2 2 SJ 320 266 1377 (Executing Tcl Scripts) 1377 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 320 582 540 (int code;) 540 SB 320 702 2100 (code = Tcl_Eval\(interp, "set a 1"\);) 2100 SB 320 822 2400 (code = Tcl_EvalFile\(interp, "init.tcl"\);) 2400 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1027 59 (u) 59 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 433 1001 240 (code) 240 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 673 995 1194 ( indicates success or failure:) 1194 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1117 50 (\226) 50 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 564 1121 360 (TCL_OK) 360 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 924 1117 836 (: normal completion.) 836 SB 470 1237 50 (\226) 50 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 564 1241 540 (TCL_ERROR) 540 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 3 2 SJ 1104 1237 644 (: error occurred.) 644 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1447 59 (u) 59 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 433 1421 840 (interp->result) 840 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1273 1415 25 ( ) 25 SB 0 0 0 fC 2 5 SJ 1299 1415 1317 (points to string: result or error) 1317 SB 433 1535 373 (message.) 373 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1746 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1714 2290 (Application should display result or message for user.) 2290 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 9 9 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2172 2079 614 (December 1, 1994, slide 9) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -4 4 SJ 320 266 2028 (Where Do Scripts Come From?) 2028 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 658 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 5 SJ 433 626 1790 (Read from standard input \(see tclMain.c\).) 1790 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1018 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 5 SJ 433 986 1555 (Read from script file \(see tclMain.c\).) 1555 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1377 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1345 2014 (Associate with X events, wait for events, invoke) 2014 SB 2 3 SJ 433 1465 1395 (associated scripts \(see tkMain.c\).) 1395 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 10 10 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2143 2079 643 (December 1, 1994, slide 10) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -3 3 SJ 320 266 1907 (Creating New Tcl Commands) 1907 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 558 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 4 4 SJ 433 526 1396 (Write command procedure in C:) 1396 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 652 2150 (int EqCmd\(ClientData clientData, Tcl_Interp) 2150 SB 470 752 2050 ( *interp, int argc, char **argv\) {) 2050 SB 470 852 1000 ( if \(argc != 3\) {) 1000 SB 470 952 2000 ( interp->result = "wrong # args";) 2000 SB 470 1052 1250 ( return TCL_ERROR;) 1250 SB 470 1152 250 ( }) 250 SB 470 1252 2000 ( if \(strcmp\(argv[1], argv[2]\) == 0\) {) 2000 SB 470 1352 1450 ( interp->result = "1";) 1450 SB 470 1452 600 ( } else {) 600 SB 470 1552 1450 ( interp->result = "0";) 1450 SB 470 1652 250 ( }) 250 SB 470 1752 900 ( return TCL_OK;) 900 SB 470 1852 50 (}) 50 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 11 11 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2143 2079 643 (December 1, 1994, slide 11) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -4 4 SJ 320 266 2383 (Creating New Tcl Commands, cont'd) 2383 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 708 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 2 SJ 433 676 1097 (Register with interpreter:) 1097 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 802 1900 (Tcl_CreateCommand\(interp, "eq", EqCmd,) 1900 SB 470 902 1600 ( \(ClientData\) NULL, ...\);) 1600 SB 470 1002 1600 (Tcl_DeleteCommand\(interp, "eq"\);) 1600 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1308 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1276 723 (Once registered, ) 723 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1156 1282 300 (EqCmd) 300 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1456 1276 1043 ( will be called whenever ) 1043 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 2499 1282 120 (eq) 120 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 433 1395 1011 (command is invoked in ) 1011 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1444 1401 360 (interp) 360 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1804 1395 25 (.) 25 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 12 12 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2143 2079 643 (December 1, 1994, slide 12) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 700 (ClientData) 700 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 433 547 1900 (Tcl_CreateCommand\(interp, "eq", EqCmd,) 1900 SB 433 652 400 ( ) 400 SB 151 0 10 fC 833 652 500 (clientData) 500 SB 0 150 136 fC 1333 652 350 (, ...\);) 350 SB 433 752 500 (int EqCmd\() 500 SB 151 0 10 fC 933 752 1050 (ClientData clientData) 1050 SB 0 150 136 fC 1983 752 600 (, ...\) {...}) 600 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 938 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 7 SJ 433 906 1946 (Used to pass any one-word value to command) 1946 SB 433 1026 1361 (procedures and other callbacks.) 1361 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1237 59 (u) 59 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 433 1211 600 (clientData) 600 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1033 1205 1575 ( is usually a pointer to data structure) 1575 SB 433 1325 1158 (manipulated by procedure.) 1158 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1537 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1505 1163 (Cast pointers in and out of ) 1163 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1596 1511 600 (ClientData) 600 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 2196 1505 241 ( type:) 241 SB 32 0 0 83 83 0 0 0 74 /Times-Roman /font32 ANSIFont font 470 1628 42 (\226) 42 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 564 1631 2200 (Tcl_CreateCommand\(... \(ClientData\) gizmoPtr,) 2200 SB 564 1731 650 ( ...\);) 650 SB 32 0 0 83 83 0 0 0 74 /Times-Roman /font32 ANSIFont font 0 0 0 fC 470 1828 42 (\226) 42 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 564 1831 1600 (gizmoPtr = \(Gizmo *\) clientData;) 1600 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 13 13 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2143 2079 643 (December 1, 1994, slide 13) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1822 (Managing The Result String) 1822 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 576 925 (Need conventions for ) 925 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1358 582 840 (interp->result) 840 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 2198 576 33 (:) 33 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 698 50 (\226) 50 SB 4 4 SJ 564 698 1126 (Permit results of any length.) 1126 SB 470 818 50 (\226) 50 SB 564 818 275 (Avoid ) 275 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 839 822 360 (malloc) 360 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 1 3 SJ 1199 818 893 ( overheads if possible.) 893 SB 470 938 50 (\226) 50 SB 3 3 SJ 564 938 1480 (Avoid storage reclamation problems.) 1480 SB 470 1057 50 (\226) 50 SB 1 4 SJ 564 1057 1096 (Keep as simple as possible.) 1096 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1267 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 7 6 SJ 433 1235 2262 (Normal state of interpreter \(e.g., whenever command) 2262 SB 433 1355 961 (procedure is invoked\):) 961 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1926 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 4 4 SJ 433 1894 1726 (Default: command returns empty string.) 1726 SB 0 0 0 pC 6 4 SP 252 254 185 fC /fm 256 def 1717 1440 2516 1839 50 50 RR 1 F S n 0 lc 0 lj 255 255 255 fC /fm 256 def 249 74 2192 1490 B 1 F S n 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 1770 1482 270 (result) 270 SB 255 255 255 fC /fm 256 def 549 74 1892 1740 B 1 F S n 0 0 0 fC 1925 1734 90 ("") 90 SB 255 255 255 fC /fm 256 def 249 74 2192 1590 B 1 F S n 0 0 0 fC 1770 1582 360 (freeProc) 360 SB 1 lc 1 lj gs 44 2427 1814 0 CB 1739 1779 M 225 0 1 PP S n gr /fm 256 def 1889 1779 M 62 -18 0 37 -62 -19 3 PP 1 F n 6 4 SP 0 0 1 1 28 -26 1 25 25 2440 1555 A S n 0 0 1 1 -26 28 1 25 25 1815 1755 A S n 0 0 1 -26 1 1 -26 25 25 1815 1730 A S n gs 629 2427 1814 0 CB 1189 1704 M 1875 0 1 PP S n gr 0 0 1 28 1 1 28 25 25 2440 1680 A S n gs 3231 129 0 1554 CB 2464 1804 M 0 -375 1 PP S n gr gs 129 2427 2314 0 CB 2189 1529 M 375 0 1 PP S n gr 0 0 0 fC /fm 256 def 12 12 2314 1530 E 1 F S n gs 3231 29 0 1729 CB 1789 1704 M 0 75 1 PP S n gr 1215 1482 270 (interp) 270 SB gs 169 2427 1515 0 CB 1315 1523 M 600 0 1 PP S n gr /fm 256 def 1715 1523 M 62 -18 0 37 -62 -19 3 PP 1 F n 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 14 14 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2143 2079 643 (December 1, 1994, slide 14) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1322 (Result String, cont'd) 1322 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 4 SJ 433 576 1272 (Option 1: \(semi-\) static result.) 1272 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 702 1050 (interp->result = "0";) 1050 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1367 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1335 1836 (Option 2: use pre-allocated space in interp.) 1836 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1461 2100 (sprintf\(interp->result, "Value is %d", i\);) 2100 SB 0 0 0 pC 6 4 SP 252 254 185 fC /fm 256 def 1242 840 2041 1239 50 50 RR 1 F S n 0 lc 0 lj 255 255 255 fC /fm 256 def 249 74 1717 890 B 1 F S n 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 1295 882 270 (result) 270 SB 255 255 255 fC /fm 256 def 549 74 1417 1140 B 1 F S n 0 0 0 fC 1450 1134 90 ("") 90 SB 255 255 255 fC /fm 256 def 249 74 1717 990 B 1 F S n 0 0 0 fC 1295 982 360 (freeProc) 360 SB 1 lc 1 lj /fm 256 def 12 12 1838 928 E 1 F S n 740 882 270 (interp) 270 SB gs 169 2427 1040 0 CB 840 923 M 600 0 1 PP S n gr /fm 256 def 1240 923 M 62 -18 0 37 -62 -19 3 PP 1 F n 6 4 SP 252 254 185 fC /fm 256 def 1242 1590 2041 1989 50 50 RR 1 F S n 0 lc 0 lj 255 255 255 fC /fm 256 def 249 74 1717 1640 B 1 F S n 0 0 0 fC 1295 1632 270 (result) 270 SB 255 255 255 fC /fm 256 def 549 74 1417 1890 B 1 F S n 0 0 0 fC 1420 1884 540 ("Value is 2") 540 SB 255 255 255 fC /fm 256 def 249 74 1717 1740 B 1 F S n 0 0 0 fC 1295 1732 360 (freeProc) 360 SB 1 lc 1 lj gs 44 2427 1339 0 CB 1264 1929 M 225 0 1 PP S n gr /fm 256 def 1414 1929 M 62 -18 0 37 -62 -19 3 PP 1 F n 6 4 SP 0 0 1 1 28 -26 1 25 25 1965 1705 A S n 0 0 1 1 -26 28 1 25 25 1340 1905 A S n 0 0 1 -26 1 1 -26 25 25 1340 1880 A S n gs 629 2427 1339 0 CB 714 1854 M 1875 0 1 PP S n gr 0 0 1 28 1 1 28 25 25 1965 1830 A S n gs 3231 129 0 1704 CB 1989 1954 M 0 -375 1 PP S n gr gs 129 2427 1839 0 CB 1714 1679 M 375 0 1 PP S n gr 0 0 0 fC /fm 256 def 12 12 1838 1680 E 1 F S n gs 3231 29 0 1879 CB 1314 1854 M 0 75 1 PP S n gr 740 1632 270 (interp) 270 SB gs 169 2427 1040 0 CB 840 1673 M 600 0 1 PP S n gr /fm 256 def 1240 1673 M 62 -18 0 37 -62 -19 3 PP 1 F n 6 4 SP gs 294 2427 1840 0 CB 1515 928 M 975 0 1 PP S n gr /fm 256 def 2165 928 M 62 -18 0 37 -62 -19 3 PP 1 F n 2170 886 135 ("0") 135 SB 151 0 10 pC 6 4 SP gs 173 2427 2021 0 CB 2390 1928 M -600 0 1 PP S n gr 151 0 10 fC /fm 256 def 1991 1928 M -62 19 0 -37 62 18 3 PP 1 F n 32 0 0 75 75 0 0 0 67 /Times-Roman /font32 ANSIFont font -1 1 SJ 2245 1884 331 (~200 bytes) 331 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 15 15 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2143 2079 643 (December 1, 1994, slide 15) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1322 (Result String, cont'd) 1322 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 558 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 526 1664 (Option 3: allocate new space for result.) 1664 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 652 1500 (interp->result = malloc\(2000\);) 1500 SB 470 752 150 (...) 150 SB 470 852 1200 (interp->freeProc = free;) 1200 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1553 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1521 521 (Tcl will call ) 521 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 954 1527 480 (freeProc) 480 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1434 1521 1174 ( \(if not NULL\) to dispose of) 1174 SB 433 1641 269 (result.) 269 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1852 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1820 2139 (Mechanism supports storage allocators other than) 2139 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 433 1946 360 (malloc) 360 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 793 1940 28 (/) 28 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 821 1946 240 (free) 240 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1061 1940 25 (.) 25 SB 0 0 0 pC 6 4 SP 252 254 185 fC /fm 256 def 1267 990 2066 1389 50 50 RR 1 F S n 0 lc 0 lj 255 255 255 fC /fm 256 def 249 74 1742 1040 B 1 F S n 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 1320 1032 270 (result) 270 SB 255 255 255 fC /fm 256 def 549 74 1442 1290 B 1 F S n 0 0 0 fC 1475 1284 90 ("") 90 SB 255 255 255 fC /fm 256 def 249 74 1742 1140 B 1 F S n 0 0 0 fC 1775 1134 180 (free) 180 SB 1320 1132 360 (freeProc) 360 SB 1 lc 1 lj /fm 256 def 12 12 1864 1080 E 1 F S n 765 1032 270 (interp) 270 SB gs 169 2427 1065 0 CB 865 1073 M 600 0 1 PP S n gr /fm 256 def 1265 1073 M 62 -18 0 37 -62 -19 3 PP 1 F n 6 4 SP gs 294 2427 1865 0 CB 1540 1079 M 975 0 1 PP S n gr /fm 256 def 2190 1079 M 62 -18 0 37 -62 -19 3 PP 1 F n 6 4 SP 252 254 185 fC /fm 256 def 2192 956 2466 1514 34 34 RR 1 F S n 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 16 16 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2143 2079 643 (December 1, 1994, slide 16) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -3 3 SJ 320 266 2132 (Procedures For Managing Result) 2132 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 576 1425 (Option 4: use library procedures.) 1425 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 822 2100 (Tcl_SetResult\(interp, string, ...\);) 2100 SB 470 1061 1920 (Tcl_AppendResult\(interp, string,) 1920 SB 470 1181 2340 ( string, ... string, \(char *\) NULL\);) 2340 SB 470 1421 2040 (Tcl_AppendElement\(interp, string\);) 2040 SB 470 1660 1440 (Tcl_ResetResult\(interp\);) 1440 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 17 17 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2143 2079 643 (December 1, 1994, slide 17) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -4 2 SJ 320 266 1754 (Utility Procedures: Parsing) 1754 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 5 6 SJ 433 576 2167 (Used by command procedures to parse arguments:) 2167 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 702 800 (int value, code;) 800 SB 470 802 2150 (code = Tcl_GetInt\(interp, argv[1], &value\);) 2150 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 988 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 3 SJ 433 956 724 (Stores integer in ) 724 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1158 962 300 (value) 300 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1458 956 25 (.) 25 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1168 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1136 369 (Returns ) 369 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 803 1142 360 (TCL_OK) 360 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1 2 SJ 1163 1136 144 ( or ) 144 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1308 1142 540 (TCL_ERROR) 540 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1848 1136 25 (.) 25 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1347 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 4 SJ 433 1315 973 (If parse error, returns ) 973 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1406 1321 540 (TCL_ERROR) 540 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1946 1315 467 ( and leaves) 467 SB 1 2 SJ 433 1435 482 (message in ) 482 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 916 1441 840 (interp->result) 840 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1756 1435 25 (.) 25 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1647 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 1 SJ 433 1615 790 (Other procedures:) 790 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1740 650 (Tcl_GetDouble) 650 SB 1409 1740 700 (Tcl_ExprDouble) 700 SB 470 1840 700 (Tcl_GetBoolean) 700 SB 1409 1840 750 (Tcl_ExprBoolean) 750 SB 470 1940 600 (Tcl_ExprLong) 600 SB 1409 1940 700 (Tcl_ExprString) 700 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 18 18 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2143 2079 643 (December 1, 1994, slide 18) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -4 2 SJ 320 266 1879 (Utility Procedures: Variables) 1879 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 576 992 (Read, write, and unset:) 992 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 564 702 600 (char *value;) 600 SB 564 802 1850 (value = Tcl_GetVar\(interp, "a", ...\);) 1850 SB 564 902 1800 (Tcl_SetVar\(interp, "a", "new", ...\);) 1800 SB 564 1002 1550 (Tcl_UnsetVar\(interp, "a", ...\);) 1550 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1188 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 1 SJ 433 1156 445 (Set traces:) 445 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 564 1282 1250 (Tcl_TraceVar\(interp, "a",) 1250 SB 564 1382 2050 ( TCL_TRACE_READS|TCL_TRACE_WRITES,) 2050 SB 564 1482 1550 ( traceProc, clientData\);) 1550 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1668 59 (u) 59 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 433 1642 540 (traceProc) 540 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 973 1636 1835 ( will be called during each read or write of ) 1835 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 2808 1642 60 (a) 60 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 2868 1636 33 (:) 33 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1757 50 (\226) 50 SB 2 2 SJ 564 1757 890 (Can monitor accesses.) 890 SB 470 1877 50 (\226) 50 SB 3 5 SJ 564 1877 1396 (Can override value read or written.) 1396 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 19 19 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2143 2079 643 (December 1, 1994, slide 19) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -4 2 SJ 320 266 1596 (Other Utility Procedures) 1596 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 558 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 3 SJ 433 526 1393 (Parsing, assembling proper lists:) 1393 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 645 900 (Tcl_SplitList\(...\)) 900 SB 470 735 700 (Tcl_Merge\(...\)) 700 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 888 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 856 872 (Flexible hash tables:) 872 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 975 1100 (Tcl_InitHashTable\(...\)) 1100 SB 470 1065 1200 (Tcl_CreateHashEntry\(...\)) 1200 SB 470 1155 1100 (Tcl_FindHashEntry\(...\)) 1100 SB 470 1245 1200 (Tcl_DeleteHashEntry\(...\)) 1200 SB 470 1335 1200 (Tcl_DeleteHashTable\(...\)) 1200 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1489 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 1 SJ 433 1457 729 (Dynamic strings:) 729 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1575 1000 (Tcl_DStringInit\(...\)) 1000 SB 470 1665 1100 (Tcl_DStringAppend\(...\)) 1100 SB 470 1756 1450 (Tcl_DStringAppendElement\(...\)) 1450 SB 470 1846 1050 (Tcl_DStringValue\(...\)) 1050 SB 470 1936 1000 (Tcl_DStringFree\(...\)) 1000 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 20 20 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2143 2079 643 (December 1, 1994, slide 20) 643 SB 32 0 0 150 150 0 0 0 128 /Courier-Bold /font9 ANSIFont font 320 275 990 (Tcl_AppInit) 990 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 320 551 1583 (Makes it easy to extend wish or tclsh.) 1583 SB 0 0 0 pC 6 4 SP 252 254 185 fC /fm 256 def 492 815 1141 2014 81 81 RR 1 F S n 0 lc 0 lj 255 255 255 fC /fm 256 def 449 199 592 865 B 1 F S n 32 0 0 75 75 0 0 0 67 /Times-Roman /font32 ANSIFont font 0 0 0 fC 717 874 195 (Create) 195 SB 656 964 317 (Interpreter) 317 SB 255 255 255 fC /fm 256 def 449 199 592 1165 B 1 F S n 0 0 0 fC 700 1174 43 (P) 42 SB 742 1174 63 (ro) 62 SB 804 1174 33 (c) 34 SB 838 1174 91 (ess) 91 SB 32 0 0 75 75 0 0 0 64 /Courier-Bold /font9 ANSIFont font 612 1267 405 (argc/argv) 405 SB 255 255 255 fC /fm 256 def 449 199 592 1465 B 1 F S n 32 0 0 75 75 0 0 0 67 /Times-Roman /font32 ANSIFont font 0 0 0 fC 710 1474 80 (So) 79 SB 789 1474 129 (urce) 129 SB -2 1 SJ 639 1564 354 (Startup File) 354 SB 255 255 255 fC /fm 256 def 449 199 592 1765 B 1 F S n 0 0 0 fC 683 1774 262 (Evaluate) 262 SB 644 1864 340 (Commands) 340 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 590 707 450 (tclMain.c) 450 SB 1 lc 1 lj gs 3231 69 0 1663 CB 815 1563 M 0 300 1 PP S n gr /fm 256 def 815 1764 M 18 62 -36 0 18 -62 3 PP 1 F n 6 4 SP gs 3231 69 0 1063 CB 815 963 M 0 300 1 PP S n gr /fm 256 def 815 1164 M 18 62 -36 0 18 -62 3 PP 1 F n 6 4 SP 162 255 163 fC /fm 256 def 1717 1340 2266 1714 47 47 RR 1 F S n 32 0 0 75 75 0 0 0 67 /Times-Roman /font32 ANSIFont font 0 0 0 fC 1800 1391 53 (A) 54 SB 1854 1391 76 (pp) 75 SB 1929 1391 108 (lica) 109 SB 2038 1391 21 (t) 20 SB 2058 1391 97 (ion) 96 SB 2154 1391 25 (-) 25 SB 1867 1481 245 (Specific) 245 SB 1798 1571 84 (Ini) 83 SB 1881 1571 183 (tializa) 184 SB 2065 1571 42 (ti) 41 SB 2106 1571 76 (on) 75 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 1715 1232 550 (Tcl_AppInit) 550 SB 815 1363 M 844 0 0 50 2 PP S n /fm 256 def 1715 1413 M 62 -18 0 37 -62 -19 3 PP 1 F n 6 4 SP 1990 1713 M -417 0 0 -325 -475 0 0 175 4 PP S n /fm 256 def 1041 1563 M -60 19 0 -37 60 18 3 PP 1 F n 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%Page: 21 21 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2143 2079 643 (December 1, 1994, slide 21) 643 SB 32 0 0 150 150 0 0 0 128 /Courier-Bold /font9 ANSIFont font 320 275 990 (Tcl_AppInit) 990 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -1 1 SJ 1310 266 476 (, cont'd) 476 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 320 501 650 (To personalize ) 650 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 971 507 300 (tclsh) 300 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1 2 SJ 1271 501 144 ( or ) 144 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1415 507 240 (wish) 240 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1655 501 33 (:) 33 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 683 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 651 253 (Copy ) 253 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 686 657 720 (tclAppInit.c) 720 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1406 651 144 ( or ) 144 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1550 657 660 (tkAppInit.c) 660 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 2210 651 25 (.) 25 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 833 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 801 337 (Modify ) 337 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 770 807 660 (Tcl_AppInit) 660 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1430 801 496 ( procedure:) 496 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 920 1850 (int tcl_AppInit\(Tcl_Interp *interp\) {) 1850 SB 470 1010 2000 ( if \(Tcl_Init\(interp\) == TCL_ERROR\) {) 2000 SB 470 1100 1250 ( return TCL_ERROR;) 1250 SB 470 1190 250 ( }) 250 SB 470 1280 200 ( ) 200 SB 151 0 10 fC 670 1280 1700 (Tcl_CreateCommand\(interp, "mycmd",) 1700 SB 470 1370 2050 ( MycmdProc, \(ClientData\) NULL,) 2050 SB 470 1460 2000 ( \(Tcl_CmdDeleteProc *\) NULL\);) 2000 SB 470 1550 1700 ( tcl_RcFileName = "~/.myapprc";) 1700 SB 0 150 136 fC 470 1640 900 ( return TCL_OK;) 900 SB 470 1731 50 (}) 50 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1884 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1852 1609 (Compile with Tcl \(and Tk?\) libraries:) 1609 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1971 1650 (cc myAppInit.c -ltcl -lm -o myapp) 1650 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 22 22 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2143 2079 643 (December 1, 1994, slide 22) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1701 (Conventions For Packages) 1701 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 8 SJ 320 576 2043 (Goal: make it easy to develop and use Tcl-based) 2043 SB 433 696 414 (packages.) 414 SB 3 7 SJ 320 995 2125 (1. Use package prefixes to prevent name conflicts:) 2125 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1117 50 (\226) 50 SB 4 6 SJ 564 1117 1376 (Pick short prefix for package, e.g. ) 1376 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1944 1121 180 (rdb) 180 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 2124 1117 25 (.) 25 SB 470 1237 50 (\226) 50 SB 2 4 SJ 564 1237 965 (Use in all global names:) 965 SB 32 0 0 83 83 0 0 0 74 /Times-Roman /font32 ANSIFont font 620 1358 39 (\273) 39 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font -2 2 SJ 695 1357 456 (C procedure: ) 456 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 1149 1361 400 (Rdb_Open) 400 SB 32 0 0 83 83 0 0 0 74 /Times-Roman /font32 ANSIFont font 620 1458 39 (\273) 39 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 695 1457 389 (C variable: ) 389 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 1084 1461 700 (rdb_NumRecords) 700 SB 32 0 0 83 83 0 0 0 74 /Times-Roman /font32 ANSIFont font 620 1558 39 (\273) 39 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 3 2 SJ 695 1557 502 (Tcl command: ) 502 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 1200 1561 450 (rdb_query) 450 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1657 50 (\226) 50 SB 5 8 SJ 564 1657 2205 (See Tcl book and Tcl/Tk Engineering Manual for more) 2205 SB 564 1777 286 (details.) 286 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%Page: 23 23 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2143 2079 643 (December 1, 1994, slide 23) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -1 1 SJ 320 266 1068 (Packages, cont'd) 1068 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 4 SJ 320 576 1823 (2. Create package initialization procedure:) 1823 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 471 698 50 (\226) 50 SB 4 3 SJ 565 698 898 (Named after package: ) 898 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1467 702 480 (Rdb_Init) 480 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 1947 698 25 (.) 25 SB 471 818 50 (\226) 50 SB 5 2 SJ 565 818 1188 (Creates package's commands.) 1188 SB 471 938 50 (\226) 50 SB 5 4 SJ 565 938 1234 (Evaluates startup script, if any.) 1234 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 434 1111 1700 (int Rdb_Init\(Tcl_Interp *interp\) {) 1700 SB 434 1211 1350 ( Tcl_CreateCommand\(...\);) 1350 SB 434 1311 1350 ( Tcl_CreateCommand\(...\);) 1350 SB 434 1411 350 ( ...) 350 SB 434 1511 1550 ( return Tcl_EvalFile\(interp,) 1550 SB 434 1611 2150 ( "/usr/local/lib/rdb/init.tcl"\);) 2150 SB 434 1711 50 (}) 50 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%Page: 24 24 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2143 2079 643 (December 1, 1994, slide 24) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -1 1 SJ 320 266 1068 (Packages, cont'd) 1068 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 320 551 789 (3. To use package:) 789 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 694 50 (\226) 50 SB 2 6 SJ 564 694 1575 (Call its initialization procedure in your ) 1575 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 2141 698 660 (Tcl_AppInit) 660 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 2801 694 28 (:) 28 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 564 808 1850 (int Tcl_AppInit\(Tcl_Interp *interp\) {) 1850 SB 564 898 2000 ( if \(Tcl_Init\(interp\) == TCL_ERROR\) {) 2000 SB 564 988 1250 ( return TCL_ERROR;) 1250 SB 564 1078 250 ( }) 250 SB 564 1168 1950 ( if \(Tk_Init\(interp\) == TCL_ERROR\) {) 1950 SB 564 1258 1250 ( return TCL_ERROR;) 1250 SB 564 1348 250 ( }) 250 SB 564 1438 200 ( ) 200 SB 151 0 10 fC 764 1438 1800 (if \(Rdb_Init\(interp\) == TCL_ERROR\) {) 1800 SB 564 1528 1250 ( return TCL_ERROR;) 1250 SB 564 1619 250 ( }) 250 SB 0 150 136 fC 564 1709 1750 ( tcl_RcFileName = "~/.myyapprc";) 1750 SB 564 1799 900 ( return TCL_OK;) 900 SB 564 1889 50 (}) 50 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%Page: 25 25 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2143 2079 643 (December 1, 1994, slide 25) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -1 1 SJ 320 266 1068 (Packages, cont'd) 1068 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 320 601 1106 (3. To use package, cont'd:) 1106 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 753 50 (\226) 50 SB 9 4 SJ 564 753 1259 (Link with the package's library:) 1259 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 564 997 1800 (cc myAppInit.c librdb.a -ltk -ltcl \\) 1800 SB 564 1097 1100 ( -lX11 -lm -o myapp) 1100 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 320 1251 1136 (4. Dynamic loading \(soon\).) 1136 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%Page: 26 26 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 6 SJ 320 2079 948 (Tcl/Tk Tutorial Part IV: Tcl C Interfaces) 948 SB 2143 2079 643 (December 1, 1994, slide 26) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 166 (Su) 167 SB 487 266 392 (mmar) 391 SB 878 266 76 (y) 75 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 683 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 9 SJ 433 651 2244 (Interfaces to C are simple: Tcl was designed to make) 2244 SB 433 771 383 (this true.) 383 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1102 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 8 SJ 433 1070 2255 (Focus on primitives, use Tcl scripts to compose fancy) 2255 SB 433 1190 369 (features.) 369 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Trailer SVDoc restore end %%Pages: 26 % TrueType font name key: % MSTT31c1c9 = 4247DTimes New RomanF00000000000002bc0000 % MSTT31c1d6 = 4247DTimes New RomanF00000064000002bc0000 % MSTT31c1e3 = 4247DTimes New RomanF0000004b000002bc00ff % MSTT31c1f0 = 4247DTimes New RomanF0000003a0000019000ff % MSTT31c1fd = 4247DMonotype SortsF0000004b000001900000 % MSTT31c20a = 4247DTimes New RomanF00000064000001900000 % MSTT31c217 = 4247DTimes New RomanF00000054000001900000 % MSTT31c22c = 4247DTimes New RomanF00000053000001900000 % MSTT31c239 = 4247DTimes New RomanF0000004b000001900000 %%DocumentSuppliedResources: procset Win35Dict 3 1 %%DocumentNeededResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-BoldItalic %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%EOF font9 ANSIFont font 0 150 136 fC 470 920 1850 (int tcl_AppInit\(Tcl_Interp *interp\) {) 1850 SB 470 1010 2000 ( if \(Tcl_Init\(interp\) == TCL_ERROR\) {) 2000 SB 470 1100 1250 ( return TCL_ERROR;) 1250 SB 470 1190 250 ( }) 250 SB 470 1280 200 ( tut/tcl.2up010077500630510000012000002063230573603520700136430ustar00ousterstaff00002300000036%!PS-Adobe-3.0 %%Creator: Windows PSCRIPT %%Title: PowerPoint - TCL.PPT %%BoundingBox: 14 9 597 784 %%DocumentNeededResources: (atend) %%DocumentSuppliedResources: (atend) %%Pages: (atend) %%BeginResource: procset Win35Dict 3 1 /Win35Dict 290 dict def Win35Dict begin/bd{bind def}bind def/in{72 mul}bd/ed{exch def}bd/ld{load def}bd/tr/translate ld/gs/gsave ld/gr /grestore ld/M/moveto ld/L/lineto ld/rmt/rmoveto ld/rlt/rlineto ld /rct/rcurveto ld/st/stroke ld/n/newpath ld/sm/setmatrix ld/cm/currentmatrix ld/cp/closepath ld/ARC/arcn ld/TR{65536 div}bd/lj/setlinejoin ld/lc /setlinecap ld/ml/setmiterlimit ld/sl/setlinewidth ld/scignore false def/sc{scignore{pop pop pop}{0 index 2 index eq 2 index 4 index eq and{pop pop 255 div setgray}{3{255 div 3 1 roll}repeat setrgbcolor}ifelse}ifelse}bd /FC{bR bG bB sc}bd/fC{/bB ed/bG ed/bR ed}bd/HC{hR hG hB sc}bd/hC{ /hB ed/hG ed/hR ed}bd/PC{pR pG pB sc}bd/pC{/pB ed/pG ed/pR ed}bd/sM matrix def/PenW 1 def/iPen 5 def/mxF matrix def/mxE matrix def/mxUE matrix def/mxUF matrix def/fBE false def/iDevRes 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt def/fPP false def/SS{fPP{ /SV save def}{gs}ifelse}bd/RS{fPP{SV restore}{gr}ifelse}bd/EJ{gsave showpage grestore}bd/#C{userdict begin/#copies ed end}bd/FEbuf 2 string def/FEglyph(G )def/FE{1 exch{dup 16 FEbuf cvrs FEglyph exch 1 exch putinterval 1 index exch FEglyph cvn put}for}bd/SM{/iRes ed/cyP ed /cxPg ed/cyM ed/cxM ed 72 100 div dup scale dup 0 ne{90 eq{cyM exch 0 eq{cxM exch tr -90 rotate -1 1 scale}{cxM cxPg add exch tr +90 rotate}ifelse}{cyP cyM sub exch 0 ne{cxM exch tr -90 rotate}{cxM cxPg add exch tr -90 rotate 1 -1 scale}ifelse}ifelse}{pop cyP cyM sub exch 0 ne{cxM cxPg add exch tr 180 rotate}{cxM exch tr 1 -1 scale}ifelse}ifelse 100 iRes div dup scale 0 0 transform .25 add round .25 sub exch .25 add round .25 sub exch itransform translate}bd/SJ{1 index 0 eq{pop pop/fBE false def}{1 index/Break ed div/dxBreak ed/fBE true def}ifelse}bd/ANSIVec[ 16#0/grave 16#1/acute 16#2/circumflex 16#3/tilde 16#4/macron 16#5/breve 16#6/dotaccent 16#7/dieresis 16#8/ring 16#9/cedilla 16#A/hungarumlaut 16#B/ogonek 16#C/caron 16#D/dotlessi 16#27/quotesingle 16#60/grave 16#7C/bar 16#82/quotesinglbase 16#83/florin 16#84/quotedblbase 16#85 /ellipsis 16#86/dagger 16#87/daggerdbl 16#88/circumflex 16#89/perthousand 16#8A/Scaron 16#8B/guilsinglleft 16#8C/OE 16#91/quoteleft 16#92/quoteright 16#93/quotedblleft 16#94/quotedblright 16#95/bullet 16#96/endash 16#97 /emdash 16#98/tilde 16#99/trademark 16#9A/scaron 16#9B/guilsinglright 16#9C/oe 16#9F/Ydieresis 16#A0/space 16#A1/exclamdown 16#A4/currency 16#A5/yen 16#A6/brokenbar 16#A7/section 16#A8/dieresis 16#A9/copyright 16#AA/ordfeminine 16#AB/guillemotleft 16#AC/logicalnot 16#AD/hyphen 16#AE/registered 16#AF/macron 16#B0/degree 16#B1/plusminus 16#B2/twosuperior 16#B3/threesuperior 16#B4/acute 16#B5/mu 16#B6/paragraph 16#B7/periodcentered 16#B8/cedilla 16#B9/onesuperior 16#BA/ordmasculine 16#BB/guillemotright 16#BC/onequarter 16#BD/onehalf 16#BE/threequarters 16#BF/questiondown 16#C0/Agrave 16#C1/Aacute 16#C2/Acircumflex 16#C3/Atilde 16#C4/Adieresis 16#C5/Aring 16#C6/AE 16#C7/Ccedilla 16#C8/Egrave 16#C9/Eacute 16#CA /Ecircumflex 16#CB/Edieresis 16#CC/Igrave 16#CD/Iacute 16#CE/Icircumflex 16#CF/Idieresis 16#D0/Eth 16#D1/Ntilde 16#D2/Ograve 16#D3/Oacute 16#D4 /Ocircumflex 16#D5/Otilde 16#D6/Odieresis 16#D7/multiply 16#D8/Oslash 16#D9/Ugrave 16#DA/Uacute 16#DB/Ucircumflex 16#DC/Udieresis 16#DD/Yacute 16#DE/Thorn 16#DF/germandbls 16#E0/agrave 16#E1/aacute 16#E2/acircumflex 16#E3/atilde 16#E4/adieresis 16#E5/aring 16#E6/ae 16#E7/ccedilla 16#E8 /egrave 16#E9/eacute 16#EA/ecircumflex 16#EB/edieresis 16#EC/igrave 16#ED/iacute 16#EE/icircumflex 16#EF/idieresis 16#F0/eth 16#F1/ntilde 16#F2/ograve 16#F3/oacute 16#F4/ocircumflex 16#F5/otilde 16#F6/odieresis 16#F7/divide 16#F8/oslash 16#F9/ugrave 16#FA/uacute 16#FB/ucircumflex 16#FC/udieresis 16#FD/yacute 16#FE/thorn 16#FF/ydieresis ] def/reencdict 12 dict def/IsChar{basefontdict/CharStrings get exch known}bd/MapCh{dup IsChar not{pop/bullet}if newfont/Encoding get 3 1 roll put}bd/MapDegree{16#b0 /degree IsChar{/degree}{/ring}ifelse MapCh}bd/MapBB{16#a6/brokenbar IsChar{/brokenbar}{/bar}ifelse MapCh}bd/ANSIFont{reencdict begin/newfontname ed/basefontname ed FontDirectory newfontname known not{/basefontdict basefontname findfont def/newfont basefontdict maxlength dict def basefontdict{exch dup/FID ne{dup/Encoding eq{exch dup length array copy newfont 3 1 roll put}{exch newfont 3 1 roll put}ifelse}{pop pop}ifelse}forall newfont /FontName newfontname put 127 1 159{newfont/Encoding get exch/bullet put}for ANSIVec aload pop ANSIVec length 2 idiv{MapCh}repeat MapDegree MapBB newfontname newfont definefont pop}if newfontname end}bd/SB{FC /ULlen ed/str ed str length fBE not{dup 1 gt{1 sub}if}if/cbStr ed /dxGdi ed/y0 ed/x0 ed str stringwidth dup 0 ne{/y1 ed/x1 ed y1 y1 mul x1 x1 mul add sqrt dxGdi exch div 1 sub dup x1 mul cbStr div exch y1 mul cbStr div}{exch abs neg dxGdi add cbStr div exch}ifelse/dyExtra ed/dxExtra ed x0 y0 M fBE{dxBreak 0 BCh dxExtra dyExtra str awidthshow}{dxExtra dyExtra str ashow}ifelse fUL{x0 y0 M dxUL dyUL rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if fSO{x0 y0 M dxSO dySO rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if n/fBE false def}bd/font{/name ed/Ascent ed 0 ne/fT3 ed 0 ne/fSO ed 0 ne/fUL ed/Sy ed/Sx ed 10.0 div/ori ed -10.0 div/esc ed/BCh ed name findfont/xAscent 0 def/yAscent Ascent def/ULesc esc def ULesc mxUE rotate pop fT3{/esc 0 def xAscent yAscent mxUE transform /yAscent ed/xAscent ed}if [Sx 0 0 Sy neg xAscent yAscent] esc mxE rotate mxF concatmatrix makefont setfont [Sx 0 0 Sy neg 0 Ascent] mxUE mxUF concatmatrix pop fUL{currentfont dup/FontInfo get/UnderlinePosition known not{pop/Courier findfont}if/FontInfo get/UnderlinePosition get 1000 div 0 exch mxUF transform/dyUL ed/dxUL ed}if fSO{0 .3 mxUF transform /dySO ed/dxSO ed}if fUL fSO or{currentfont dup/FontInfo get/UnderlineThickness known not{pop/Courier findfont}if/FontInfo get/UnderlineThickness get 1000 div Sy mul/cyUL ed}if}bd/min{2 copy gt{exch}if pop}bd/max{2 copy lt{exch}if pop}bd/CP{/ft ed{{ft 0 eq{clip}{eoclip}ifelse}stopped{currentflat 1 add setflat}{exit}ifelse}loop}bd/patfont 10 dict def patfont begin /FontType 3 def/FontMatrix [1 0 0 -1 0 0] def/FontBBox [0 0 16 16] def/Encoding StandardEncoding def/BuildChar{pop pop 16 0 0 0 16 16 setcachedevice 16 16 false [1 0 0 1 .25 .25]{pat}imagemask}bd end/p{ /pat 32 string def{}forall 0 1 7{dup 2 mul pat exch 3 index put dup 2 mul 1 add pat exch 3 index put dup 2 mul 16 add pat exch 3 index put 2 mul 17 add pat exch 2 index put pop}for}bd/pfill{/PatFont patfont definefont setfont/ch(AAAA)def X0 64 X1{Y1 -16 Y0{1 index exch M ch show}for pop}for}bd/vert{X0 w X1{dup Y0 M Y1 L st}for}bd/horz{Y0 w Y1{dup X0 exch M X1 exch L st}for}bd/fdiag{X0 w X1{Y0 M X1 X0 sub dup rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup rlt st}for}bd/bdiag{X0 w X1{Y1 M X1 X0 sub dup neg rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup neg rlt st}for}bd/AU{1 add cvi 15 or}bd/AD{1 sub cvi -16 and}bd/SHR{pathbbox AU/Y1 ed AU/X1 ed AD/Y0 ed AD/X0 ed}bd/hfill{/w iRes 37.5 div round def 0.1 sl [] 0 setdash n dup 0 eq{horz}if dup 1 eq{vert}if dup 2 eq{fdiag}if dup 3 eq{bdiag}if dup 4 eq{horz vert}if 5 eq{fdiag bdiag}if}bd/F{/ft ed fm 256 and 0 ne{gs FC ft 0 eq{fill}{eofill}ifelse gr}if fm 1536 and 0 ne{SHR gs HC ft CP fm 1024 and 0 ne{/Tmp save def pfill Tmp restore}{fm 15 and hfill}ifelse gr}if}bd/S{PenW sl PC st}bd/m matrix def/GW{iRes 12 div PenW add cvi}bd/DoW{iRes 50 div PenW add cvi}bd/DW{iRes 8 div PenW add cvi}bd/SP{/PenW ed/iPen ed iPen 0 eq iPen 6 eq or{[] 0 setdash}if iPen 1 eq{[DW GW] 0 setdash}if iPen 2 eq{[DoW GW] 0 setdash}if iPen 3 eq{[DW GW DoW GW] 0 setdash}if iPen 4 eq{[DW GW DoW GW DoW GW] 0 setdash}if}bd/E{m cm pop tr scale 1 0 moveto 0 0 1 0 360 arc cp m sm}bd /AG{/sy ed/sx ed sx div 4 1 roll sy div 4 1 roll sx div 4 1 roll sy div 4 1 roll atan/a2 ed atan/a1 ed sx sy scale a1 a2 ARC}def/A{m cm pop tr AG m sm}def/P{m cm pop tr 0 0 M AG cp m sm}def/RRect{n 4 copy M 3 1 roll exch L 4 2 roll L L cp}bd/RRCC{/r ed/y1 ed/x1 ed/y0 ed/x0 ed x0 x1 add 2 div y0 M x1 y0 x1 y1 r arcto 4{pop}repeat x1 y1 x0 y1 r arcto 4{pop}repeat x0 y1 x0 y0 r arcto 4{pop}repeat x0 y0 x1 y0 r arcto 4{pop}repeat cp}bd/RR{2 copy 0 eq exch 0 eq or{pop pop RRect}{2 copy eq{pop RRCC}{m cm pop/y2 ed/x2 ed/ys y2 x2 div 1 max def/xs x2 y2 div 1 max def/y1 exch ys div def/x1 exch xs div def/y0 exch ys div def/x0 exch xs div def/r2 x2 y2 min def xs ys scale x0 x1 add 2 div y0 M x1 y0 x1 y1 r2 arcto 4{pop}repeat x1 y1 x0 y1 r2 arcto 4{pop}repeat x0 y1 x0 y0 r2 arcto 4{pop}repeat x0 y0 x1 y0 r2 arcto 4{pop}repeat m sm cp}ifelse}ifelse}bd/PP{{rlt}repeat}bd/OB{gs 0 ne{7 3 roll/y ed /x ed x y translate ULesc rotate x neg y neg translate x y 7 -3 roll}if sc B fill gr}bd/B{M/dy ed/dx ed dx 0 rlt 0 dy rlt dx neg 0 rlt cp}bd /CB{B clip n}bd/ErrHandler{errordict dup maxlength exch length gt dup{errordict begin}if/errhelpdict 12 dict def errhelpdict begin/stackunderflow(operand stack underflow)def /undefined(this name is not defined in a dictionary)def/VMerror(you have used up all the printer's memory)def /typecheck(operator was expecting a different type of operand)def /ioerror(input/output error occured)def end{end}if errordict begin /handleerror{$error begin newerror{/newerror false def showpage 72 72 scale/x .25 def/y 9.6 def/Helvetica findfont .2 scalefont setfont x y moveto(Offending Command = )show/command load{dup type/stringtype ne{(max err string)cvs}if show}exec/y y .2 sub def x y moveto(Error = )show errorname{dup type dup( max err string )cvs show( : )show/stringtype ne{( max err string )cvs}if show}exec errordict begin errhelpdict errorname known{x 1 add y .2 sub moveto errhelpdict errorname get show}if end /y y .4 sub def x y moveto(Stack =)show ostack{/y y .2 sub def x 1 add y moveto dup type/stringtype ne{( max err string )cvs}if show}forall showpage}if end}def end}bd end %%EndResource /SVDoc save def %%EndProlog %%BeginSetup Win35Dict begin ErrHandler statusdict begin 0 setjobtimeout end statusdict begin statusdict /jobname (PowerPoint - TCL.PPT) put end /oldDictCnt countdictstack def {}stopped { countdictstack oldDictCnt lt { Win35Dict begin } {1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if /oldDictCnt countdictstack def {letter }stopped { countdictstack oldDictCnt lt { Win35Dict begin } {1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if [{ } /exec load currenttransfer /exec load] cvx settransfer %%EndSetup %%Page: 1 1 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 6 4 SJ 680 697 1061 (An Introduction To Tcl Scripting) 1061 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1038 906 363 (John Ousterhout) 363 SB gr gs 1500 1125 463 400 CB 3 2 SJ 879 981 677 (Sun Microsystems Laboratories) 677 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 882 1057 675 (john.ousterhout@eng.sun.com) 675 SB gr 32 0 0 38 38 0 0 0 36 /Times-BoldItalic /font30 ANSIFont font gs 1500 1125 463 400 CB -9 3 SJ 1038 1245 372 (Tcl/Tk Tutorial, Part II) 372 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 1 5 SJ 566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 1705 CB 1492 2699 306 (December 1, 1994, slide 2) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 2 SJ 566 1793 661 ( Language Overview) 661 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 4 SJ 566 1949 559 (Two parts to learning Tcl:) 559 SB gr gs 1500 1125 463 1705 CB 566 2098 692 (1. Syntax and substitution rules:) 692 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2174 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 16 7 SJ 688 2174 1002 (Substitutions simple, but may be confusing at first.) 1002 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 566 2293 475 (2. Built-in commands:) 475 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2369 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 18 4 SJ 688 2369 650 (Can learn individually as needed.) 650 SB gr gs 1500 1125 463 1705 CB 641 2444 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 5 6 SJ 688 2444 1095 (Control structures are commands, not language syntax.) 1095 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-BoldItalic %%+ font Times-Italic %%+ font Times-Roman %%Page: 2 2 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 1 5 SJ 566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 400 CB 1492 1394 306 (December 1, 1994, slide 3) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 566 488 200 (Basics) 200 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 2 SJ 622 644 243 (Tcl script =) 243 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 704 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 6 2 SJ 688 704 257 (Sequence of ) 257 SB gr gs 1500 1125 463 400 CB 951 704 212 (commands) 212 SB gr gs 1500 1125 463 400 CB 1163 704 13 (.) 13 SB gr gs 1500 1125 463 400 CB 641 764 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 17 4 SJ 688 764 944 (Commands separated by newlines, semi-colons.) 944 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 854 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 2 SJ 622 838 332 (Tcl command =) 332 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 899 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 1 3 SJ 688 899 266 (One or more ) 266 SB gr gs 1500 1125 463 400 CB 955 899 123 (words) 123 SB gr gs 1500 1125 463 400 CB 1 4 SJ 1078 899 520 ( separated by white space.) 520 SB gr gs 1500 1125 463 400 CB 641 959 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 3 3 SJ 688 959 264 (First word is ) 264 SB gr gs 1500 1125 463 400 CB 2 1 SJ 956 959 311 (command name) 311 SB gr gs 1500 1125 463 400 CB 3 3 SJ 1268 959 236 (, others are ) 236 SB gr gs 1500 1125 463 400 CB 1507 959 206 (arguments) 206 SB gr gs 1500 1125 463 400 CB 1713 959 13 (.) 13 SB gr gs 1500 1125 463 400 CB 641 1019 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 1 1 SJ 688 1019 168 (Returns ) 168 SB gr gs 1500 1125 463 400 CB 1 1 SJ 857 1019 235 (string result) 235 SB gr gs 1500 1125 463 400 CB 1093 1019 13 (.) 13 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1109 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 1093 222 (Examples:) 222 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 1154 25 (\226) 25 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 688 1156 540 (set a 22; set b 33) 540 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 1214 25 (\226) 25 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 688 1216 240 (set a 22) 240 SB gr gs 1500 1125 463 400 CB 688 1276 240 (set b 33) 240 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 1 5 SJ 566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 1705 CB 1492 2699 306 (December 1, 1994, slide 4) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 4 2 SJ 566 1793 834 (Division Of Responsibility) 834 SB gr 6 4 SP 0 150 136 fC /fm 256 def 579 1933 1302 1970 7 7 RR 1 F S n /fm 256 def 778 2631 1101 2667 7 7 RR 1 F S n /fm 256 def 872 2181 996 2218 7 7 RR 1 F S n /fm 256 def 872 2231 1083 2268 7 7 RR 1 F S n /fm 256 def 872 2382 996 2418 7 7 RR 1 F S n /fm 256 def 872 2332 1008 2368 7 7 RR 1 F S n /fm 256 def 872 2282 921 2318 7 7 RR 1 F S n 162 193 254 fC /fm 256 def 941 2034 M 27 27 -13 0 0 27 -27 0 0 -27 -14 0 27 -27 7 PP 1 F n 0 0 0 fC /fm 256 def 941 2034 M 0 6 -17 17 8 0 0 27 19 0 0 -27 7 0 -17 -17 0 -6 27 27 -13 0 0 27 -27 0 0 -27 -14 0 27 -27 16 PP 1 F n 6 4 SP 255 255 132 fC /fm 256 def 822 2045 1058 2105 8 8 RR 1 F S n 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 1 1 SJ 836 2043 203 (Tcl Parser) 203 SB gr 162 193 254 fC /fm 256 def 941 2483 M 27 27 -13 0 0 26 -27 0 0 -26 -14 0 27 -27 7 PP 1 F n 0 0 0 fC /fm 256 def 941 2483 M 0 6 -17 17 8 0 0 26 19 0 0 -26 7 0 -17 -17 0 -6 27 27 -13 0 0 26 -27 0 0 -26 -14 0 27 -27 16 PP 1 F n 162 193 254 fC /fm 256 def 941 2171 M 27 27 -13 0 0 27 -27 0 0 -27 -14 0 27 -27 7 PP 1 F n 0 0 0 fC /fm 256 def 941 2171 M 0 6 -17 17 8 0 0 27 19 0 0 -27 7 0 -17 -17 0 -6 27 27 -13 0 0 27 -27 0 0 -27 -14 0 27 -27 16 PP 1 F n 6 4 SP 255 255 132 fC /fm 256 def 691 2493 1189 2555 8 8 RR 1 F S n 0 0 0 fC gs 1500 1125 463 1705 CB 2 1 SJ 726 2493 421 (Command Procedure) 421 SB gr 162 193 254 fC /fm 256 def 941 2620 M 27 27 -13 0 0 27 -27 0 0 -27 -14 0 27 -27 7 PP 1 F n 0 0 0 fC /fm 256 def 941 2620 M 0 6 -17 17 8 0 0 27 19 0 0 -27 7 0 -17 -17 0 -6 27 27 -13 0 0 27 -27 0 0 -27 -14 0 27 -27 16 PP 1 F n 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1341 1918 224 (Command) 224 SB gr gs 1500 1125 463 1705 CB 1128 2267 143 (Words) 143 SB gr gs 1500 1125 463 1705 CB 1141 2617 135 (Result) 135 SB gr 32 0 0 31 31 0 0 0 25 /ZapfDingbats font gs 1500 1125 463 1705 CB 1234 2487 24 (u) 24 SB gr 32 0 0 42 42 0 0 0 39 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB -2 1 SJ 1290 2473 312 (Interprets words.) 312 SB gr 32 0 0 31 31 0 0 0 25 /ZapfDingbats font gs 1500 1125 463 1705 CB 1234 2550 24 (u) 24 SB gr 32 0 0 42 42 0 0 0 39 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1290 2536 403 (Produces string result.) 403 SB gr 32 0 0 31 31 0 0 0 25 /ZapfDingbats font gs 1500 1125 463 1705 CB 1234 2012 24 (u) 24 SB gr 32 0 0 42 42 0 0 0 39 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 3 SJ 1290 1998 523 (Chops commands into words.) 523 SB gr 32 0 0 31 31 0 0 0 25 /ZapfDingbats font gs 1500 1125 463 1705 CB 1234 2062 24 (u) 24 SB gr 32 0 0 42 42 0 0 0 39 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1290 2048 366 (Makes substitutions.) 366 SB gr 32 0 0 31 31 0 0 0 25 /ZapfDingbats font gs 1500 1125 463 1705 CB 1234 2112 24 (u) 24 SB gr 32 0 0 42 42 0 0 0 39 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1290 2098 622 (Does not interpret values of words.) 622 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 3 3 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 1 5 SJ 566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 400 CB 1492 1394 306 (December 1, 1994, slide 5) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 566 488 354 (Arguments) 354 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 622 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 7 SJ 622 606 1117 (Parser assigns no meaning to arguments \(quoting by) 1117 SB gr gs 1500 1125 463 400 CB 622 666 633 (default, evaluation is special\):) 633 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 727 47 (C:) 47 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 781 729 450 (x = 4; y = x+10) 450 SB gr 32 0 0 50 50 0 0 0 45 /Times-Italic /font31 ANSIFont font gs 1500 1125 463 400 CB 781 787 131 (y is 14) 131 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 847 79 (Tcl:) 79 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 781 849 570 (set x 4; set y x+10) 570 SB gr 32 0 0 50 50 0 0 0 45 /Times-Italic /font31 ANSIFont font gs 1500 1125 463 400 CB 781 907 229 (y is "x+10") 229 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 997 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 5 6 SJ 622 981 1159 (Different commands assign different meanings to their) 1159 SB gr gs 1500 1125 463 400 CB 622 1040 243 (arguments:) 243 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 1104 225 (set a 122) 225 SB gr gs 1500 1125 463 400 CB 641 1154 275 (expr 24/3.2) 275 SB gr gs 1500 1125 463 400 CB 641 1204 400 (eval "set a 122") 400 SB gr gs 1500 1125 463 400 CB 641 1254 725 (button .b -text Hello -fg red) 725 SB gr gs 1500 1125 463 400 CB 641 1304 625 (string length Abracadabra) 625 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 1 5 SJ 566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 1705 CB 1492 2699 306 (December 1, 1994, slide 6) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 6 1 SJ 566 1793 684 (Variable Substitution) 684 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1965 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 1 SJ 622 1949 177 (Syntax: ) 177 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 800 1952 30 ($) 30 SB gr 32 0 0 50 50 0 0 0 45 /Times-Italic /font31 ANSIFont font gs 1500 1125 463 1705 CB 830 1950 182 (varName) 182 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2040 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 4 5 SJ 622 2024 940 (Variable name is letters, digits, underscores.) 940 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2115 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2099 678 (May occur anywhere in a word.) 678 SB gr 32 0 0 50 50 1 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 736 2174 380 (Sample command) 380 SB gr gs 1500 1125 463 1705 CB 1316 2174 135 (Result) 135 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 736 2266 240 (set b 66) 240 SB gr gs 1500 1125 463 1705 CB 1316 2266 60 (66) 60 SB gr gs 1500 1125 463 1705 CB 736 2326 210 (set a b) 210 SB gr gs 1500 1125 463 1705 CB 1316 2326 30 (b) 30 SB gr gs 1500 1125 463 1705 CB 736 2386 240 (set a $b) 240 SB gr gs 1500 1125 463 1705 CB 1316 2386 60 (66) 60 SB gr gs 1500 1125 463 1705 CB 736 2446 420 (set a $b+$b+$b) 420 SB gr gs 1500 1125 463 1705 CB 1316 2446 240 (66+66+66) 240 SB gr gs 1500 1125 463 1705 CB 736 2506 300 (set a $b.3) 300 SB gr gs 1500 1125 463 1705 CB 1316 2506 120 (66.3) 120 SB gr gs 1500 1125 463 1705 CB 736 2566 270 (set a $b4) 270 SB gr 32 0 0 50 50 0 0 0 45 /Times-Italic /font31 ANSIFont font gs 1500 1125 463 1705 CB 1316 2564 333 (no such variable) 333 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 4 4 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 1 5 SJ 566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 400 CB 1492 1394 306 (December 1, 1994, slide 7) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 10 1 SJ 566 488 738 (Command Substitution) 738 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 672 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB -1 1 SJ 622 656 194 (Syntax: [) 194 SB gr 32 0 0 50 50 0 0 0 45 /Times-Italic /font31 ANSIFont font gs 1500 1125 463 400 CB 815 657 113 (script) 113 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 928 656 17 (]) 17 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 762 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 3 SJ 622 746 703 (Evaluate script, substitute result.) 703 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 852 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 836 773 (May occur anywhere within a word.) 773 SB gr 32 0 0 50 50 1 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 669 956 380 (Sample command) 380 SB gr gs 1500 1125 463 400 CB 1523 956 135 (Result) 135 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 669 1048 210 (set b 8) 210 SB gr gs 1500 1125 463 400 CB 1523 1048 30 (8) 30 SB gr gs 1500 1125 463 400 CB 669 1108 510 (set a [expr $b+2]) 510 SB gr gs 1500 1125 463 400 CB 1523 1108 60 (10) 60 SB gr gs 1500 1125 463 400 CB 669 1168 780 (set a "b-3 is [expr $b-3]") 780 SB gr gs 1500 1125 463 400 CB 1523 1168 240 (b-3 is 5) 240 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 1 5 SJ 566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 1705 CB 1492 2699 306 (December 1, 1994, slide 8) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 6 2 SJ 566 1793 898 (Controlling Word Structure) 898 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1977 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 7 SJ 622 1961 1123 (Words break at white space and semi-colons, except:) 1123 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2037 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 2 2 SJ 688 2037 612 (Double-quotes prevent breaks:) 612 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 716 2099 720 (set a "x is $x; y is $y") 720 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2172 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 9 5 SJ 688 2172 914 (Curly braces prevent breaks and substitutions:) 914 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 716 2234 600 (set a {[expr $b*$c]}) 600 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2307 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 7 3 SJ 688 2307 741 (Backslashes quote special characters:) 741 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 716 2369 960 (set a word\\ with\\ \\$\\ and\\ space) 960 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2487 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2471 918 (Substitutions don't change word structure:) 918 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 716 2534 510 (set a "two words") 510 SB gr gs 1500 1125 463 1705 CB 716 2594 240 (set b $a) 240 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 5 5 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 1 5 SJ 566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 400 CB 1492 1394 306 (December 1, 1994, slide 9) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 566 488 382 (Expressions) 382 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 635 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 8 SJ 622 619 1262 (C-like \(int and double\), extra support for string operations.) 1262 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 710 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 4 SJ 622 694 853 (Command, variable substitution occurs ) 853 SB gr 32 0 0 50 50 0 0 0 46 /Times-BoldItalic /font30 ANSIFont font gs 1500 1125 463 400 CB 1478 694 131 (within) 131 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 1 SJ 1609 694 267 ( expressions.) 267 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 785 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 769 173 (Used in ) 173 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 795 772 120 (expr) 120 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 915 769 394 (, other commands.) 394 SB gr 32 0 0 50 50 1 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 716 840 380 (Sample command) 380 SB gr gs 1500 1125 463 400 CB 1336 840 135 (Result) 135 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 716 903 210 (set b 5) 210 SB gr gs 1500 1125 463 400 CB 1336 903 30 (5) 30 SB gr gs 1500 1125 463 400 CB 716 963 450 (expr \($b*4\) - 3) 450 SB gr gs 1500 1125 463 400 CB 1336 963 60 (17) 60 SB gr gs 1500 1125 463 400 CB 716 1023 360 (expr $b <= 2) 360 SB gr gs 1500 1125 463 400 CB 1336 1023 30 (0) 30 SB gr gs 1500 1125 463 400 CB 716 1083 570 (expr $a * cos\(2*$b\)) 570 SB gr gs 1500 1125 463 400 CB 1336 1083 240 (-5.03443) 240 SB gr gs 1500 1125 463 400 CB 716 1143 540 (expr {$b * fac[4]}) 540 SB gr gs 1500 1125 463 400 CB 1336 1143 90 (120) 90 SB gr gs 1500 1125 463 400 CB 716 1203 300 (set a Bill) 300 SB gr gs 1500 1125 463 400 CB 1336 1203 120 (Bill) 120 SB gr gs 1500 1125 463 400 CB 716 1263 540 (expr {$a < "Anne"}) 540 SB gr gs 1500 1125 463 400 CB 1336 1263 30 (0) 30 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 1 5 SJ 566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 10) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 566 1793 154 (Lists) 154 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1940 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 6 7 SJ 622 1924 1040 (Zero or more elements separated by white space:) 1040 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 1986 420 (red green blue) 420 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2074 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 4 4 SJ 622 2058 796 (Braces and backslashes for grouping:) 796 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2121 390 (a b {c d e} f) 390 SB gr gs 1500 1125 463 1705 CB 641 2181 570 (one\\ word two three) 570 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2269 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 1 SJ 622 2253 507 (List-related commands:) 507 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2312 180 (concat) 180 SB gr gs 1500 1125 463 1705 CB 969 2312 180 (lindex) 180 SB gr gs 1500 1125 463 1705 CB 1241 2312 210 (llength) 210 SB gr gs 1500 1125 463 1705 CB 1561 2312 210 (lsearch) 210 SB gr gs 1500 1125 463 1705 CB 641 2365 210 (foreach) 210 SB gr gs 1500 1125 463 1705 CB 969 2365 210 (linsert) 210 SB gr gs 1500 1125 463 1705 CB 1241 2365 180 (lrange) 180 SB gr gs 1500 1125 463 1705 CB 1561 2365 150 (lsort) 150 SB gr gs 1500 1125 463 1705 CB 641 2419 210 (lappend) 210 SB gr gs 1500 1125 463 1705 CB 969 2419 120 (list) 120 SB gr gs 1500 1125 463 1705 CB 1241 2419 240 (lreplace) 240 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2506 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2490 222 (Examples:) 222 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2561 600 (lindex {a b {c d e} f} 2) 600 SB gr gs 1500 1125 463 1705 CB 1326 2561 25 ( ) 25 SB gr 32 0 0 50 50 0 0 0 40 /ZapfDingbats font gs 1500 1125 463 1705 CB 1351 2556 35 (\355) 35 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1386 2561 25 ( ) 25 SB gr gs 1500 1125 463 1705 CB 1411 2561 125 (c d e) 125 SB gr gs 1500 1125 463 1705 CB 641 2621 550 (lsort {red green blue}) 550 SB gr gs 1500 1125 463 1705 CB 1326 2621 25 ( ) 25 SB gr 32 0 0 50 50 0 0 0 40 /ZapfDingbats font gs 1500 1125 463 1705 CB 1351 2616 35 (\355) 35 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1386 2621 25 ( ) 25 SB gr gs 1500 1125 463 1705 CB 1411 2621 350 (blue green red) 350 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-BoldItalic %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 6 6 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 1 5 SJ 566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 11) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 4 1 SJ 566 488 602 (Control Structures) 602 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 1 SJ 622 644 401 (C-like appearance.) 401 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 735 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 7 SJ 622 719 1078 (Just commands that take Tcl scripts as arguments.) 1078 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 810 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 6 2 SJ 622 794 473 (Example: list reversal.) 473 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 688 852 240 (set b "") 240 SB gr gs 1500 1125 463 400 CB 688 906 870 (set i [expr [llength $a] - 1]) 870 SB gr gs 1500 1125 463 400 CB 688 960 510 (while {$i >= 0} {) 510 SB gr gs 1500 1125 463 400 CB 688 1014 840 ( lappend b [lindex $a $i]) 840 SB gr gs 1500 1125 463 400 CB 688 1067 390 ( incr i -1) 390 SB gr gs 1500 1125 463 400 CB 688 1121 30 (}) 30 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1208 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 1192 260 (Commands:) 260 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 688 1255 60 (if) 60 SB gr gs 1500 1125 463 400 CB 979 1255 90 (for) 90 SB gr gs 1500 1125 463 400 CB 1213 1255 180 (switch) 180 SB gr gs 1500 1125 463 400 CB 1476 1255 150 (break) 150 SB gr gs 1500 1125 463 400 CB 688 1315 210 (foreach) 210 SB gr gs 1500 1125 463 400 CB 979 1315 150 (while) 150 SB gr gs 1500 1125 463 400 CB 1213 1315 120 (eval) 120 SB gr gs 1500 1125 463 400 CB 1476 1315 240 (continue) 240 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 1 5 SJ 566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 12) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 566 1793 359 (Procedures) 359 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1952 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 622 1939 120 (proc) 120 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 4 SJ 742 1936 670 ( command defines a procedure:) 670 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 1999 690 (proc sub1 x {expr $x-1}) 690 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2240 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 5 SJ 622 2224 1015 (Procedures behave just like built-in commands:) 1015 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2287 180 (sub1 3) 180 SB gr 32 0 0 50 50 0 0 0 40 /ZapfDingbats font gs 1500 1125 463 1705 CB 923 2290 35 (\355) 35 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 958 2287 30 ( ) 30 SB gr gs 1500 1125 463 1705 CB 988 2287 30 (2) 30 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2375 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 3 SJ 622 2359 636 (Arguments can have defaults:) 636 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2417 630 (proc decr {x {y 1}} {) 630 SB gr gs 1500 1125 463 1705 CB 641 2471 420 ( expr $x-$y) 420 SB gr gs 1500 1125 463 1705 CB 641 2525 30 (}) 30 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2611 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 4 SJ 622 2595 752 (Scoping: local and global variables.) 752 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 608 2087 22 (n) 21 SB 629 2087 19 (a) 18 SB 647 2087 51 (me) 51 SB gr gs 1500 1125 463 1705 CB -6 3 SJ 760 2149 387 (list of argument names) 387 SB gr gs 1500 1125 463 1705 CB 1328 2087 80 (body) 80 SB gr 6 4 SP 714 2117 M 0 -29 137 0 2 PP S n /fm 256 def 851 2054 M -11 -38 22 0 -11 38 3 PP 1 F n 6 4 SP 1313 2117 M 0 -29 -150 0 2 PP S n /fm 256 def 1163 2054 M -11 -38 22 0 -11 38 3 PP 1 F n 6 4 SP gs 1500 85 463 2073 CB 951 2253 M 0 -297 1 PP S n gr /fm 256 def 951 2054 M -11 -37 22 0 -11 37 3 PP 1 F n 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 7 7 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 1 5 SJ 566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 13) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 5 1 SJ 566 488 595 (Procedures, cont'd) 595 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 2 SJ 622 644 666 (Variable-length argument lists:) 666 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 702 450 (proc sum args {) 450 SB gr gs 1500 1125 463 400 CB 641 756 330 ( set s 0) 330 SB gr gs 1500 1125 463 400 CB 641 810 630 ( foreach i $args {) 630 SB gr gs 1500 1125 463 400 CB 641 864 510 ( incr s $i) 510 SB gr gs 1500 1125 463 400 CB 641 917 150 ( }) 150 SB gr gs 1500 1125 463 400 CB 641 971 390 ( return $s) 390 SB gr gs 1500 1125 463 400 CB 641 1025 30 (}) 30 SB gr gs 1500 1125 463 400 CB 641 1139 390 (sum 1 2 3 4 5) 390 SB gr 32 0 0 50 50 0 0 0 40 /ZapfDingbats font gs 1500 1125 463 400 CB 641 1196 35 (\355) 35 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 676 1193 30 ( ) 30 SB gr gs 1500 1125 463 400 CB 706 1193 60 (15) 60 SB gr gs 1500 1125 463 400 CB 641 1247 90 (sum) 90 SB gr 32 0 0 50 50 0 0 0 40 /ZapfDingbats font gs 1500 1125 463 400 CB 641 1304 35 (\355) 35 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 676 1301 30 ( ) 30 SB gr gs 1500 1125 463 400 CB 706 1301 30 (0) 30 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 1 5 SJ 566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 14) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 566 1793 215 (Errors) 215 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1927 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 10 5 SJ 622 1911 976 (Errors normally abort commands in progress,) 976 SB gr gs 1500 1125 463 1705 CB 5 3 SJ 622 1971 749 (application displays error message:) 749 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2031 175 (set n 0) 175 SB gr gs 1500 1125 463 1705 CB 641 2076 575 (foreach i {1 2 3 4 5} {) 575 SB gr gs 1500 1125 463 1705 CB 641 2121 675 ( set n [expr {$n + i*i}]) 675 SB gr gs 1500 1125 463 1705 CB 641 2166 25 (}) 25 SB gr 32 0 0 42 42 0 0 0 34 /ZapfDingbats font gs 1500 1125 463 1705 CB 641 2212 29 (\355) 29 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 670 2208 11 ( ) 11 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 681 2211 925 (syntax error in expression "$n + i*i") 925 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2287 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 2 SJ 622 2271 342 (Global variable ) 342 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 965 2274 270 (errorInfo) 270 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 3 SJ 1235 2271 455 ( provides stack trace:) 455 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2331 325 (set errorInfo) 325 SB gr 32 0 0 42 42 0 0 0 34 /ZapfDingbats font gs 1500 1125 463 1705 CB 641 2377 29 (\355) 29 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 670 2373 11 ( ) 11 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 681 2376 925 (syntax error in expression "$n + i*i") 925 SB gr gs 1500 1125 463 1705 CB 641 2421 475 ( while executing) 475 SB gr gs 1500 1125 463 1705 CB 641 2466 425 ("expr {$n + i*i}") 425 SB gr gs 1500 1125 463 1705 CB 641 2511 575 ( invoked from within) 575 SB gr gs 1500 1125 463 1705 CB 641 2556 700 ("set n [expr {$n + i*i}]...") 700 SB gr gs 1500 1125 463 1705 CB 641 2601 675 ( \("foreach" body line 2\)) 675 SB gr gs 1500 1125 463 1705 CB 641 2646 175 ( ...) 175 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 8 8 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 1 5 SJ 566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 15) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 7 2 SJ 566 488 839 (Advanced Error Handling) 839 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 2 SJ 622 644 452 (Can intercept errors:) 452 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 722 660 (catch {expr {2 +}} msg) 660 SB gr 32 0 0 50 50 0 0 0 40 /ZapfDingbats font gs 1500 1125 463 400 CB 641 784 35 (\355) 35 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 676 781 30 ( ) 30 SB gr gs 1500 1125 463 400 CB 706 781 30 (1) 30 SB gr gs 1500 1125 463 400 CB 641 856 210 (set msg) 210 SB gr 32 0 0 50 50 0 0 0 40 /ZapfDingbats font gs 1500 1125 463 400 CB 641 919 35 (\355) 35 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 676 916 30 ( ) 30 SB gr gs 1500 1125 463 400 CB 706 916 960 (syntax error in expression "2 +") 960 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1019 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 4 2 SJ 622 1003 443 (Can generate errors:) 443 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 1081 600 (error "bad argument") 600 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1184 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 2 SJ 622 1168 342 (Global variable ) 342 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 967 1171 270 (errorCode) 270 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 2 SJ 1237 1168 520 ( holds machine-readable) 520 SB gr gs 1500 1125 463 400 CB 2 5 SJ 622 1228 788 (information about errors \(e.g. UNIX ) 788 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1411 1231 150 (errno) 150 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1561 1228 156 ( value\).) 156 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 1 5 SJ 566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 16) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 5 2 SJ 566 1793 783 (Additional Tcl Features:) 783 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1965 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 2 SJ 622 1949 691 (String manipulation commands:) 691 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2027 180 (regexp) 180 SB gr gs 1500 1125 463 1705 CB 866 2027 180 (format) 180 SB gr gs 1500 1125 463 1705 CB 1091 2027 150 (split) 150 SB gr gs 1500 1125 463 1705 CB 1316 2027 180 (string) 180 SB gr gs 1500 1125 463 1705 CB 641 2086 180 (regsub) 180 SB gr gs 1500 1125 463 1705 CB 866 2086 120 (scan) 120 SB gr gs 1500 1125 463 1705 CB 1091 2086 120 (join) 120 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2189 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 2 SJ 622 2173 423 (File I/O commands:) 423 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2251 120 (open) 120 SB gr gs 1500 1125 463 1705 CB 866 2251 120 (gets) 120 SB gr gs 1500 1125 463 1705 CB 1091 2251 120 (seek) 120 SB gr gs 1500 1125 463 1705 CB 1316 2251 150 (flush) 150 SB gr gs 1500 1125 463 1705 CB 1616 2251 120 (glob) 120 SB gr gs 1500 1125 463 1705 CB 641 2311 150 (close) 150 SB gr gs 1500 1125 463 1705 CB 866 2311 120 (read) 120 SB gr gs 1500 1125 463 1705 CB 1091 2311 120 (tell) 120 SB gr gs 1500 1125 463 1705 CB 1316 2311 60 (cd) 60 SB gr gs 1500 1125 463 1705 CB 641 2371 120 (puts) 120 SB gr gs 1500 1125 463 1705 CB 866 2371 180 (source) 180 SB gr gs 1500 1125 463 1705 CB 1091 2371 90 (eof) 90 SB gr gs 1500 1125 463 1705 CB 1316 2371 90 (pwd) 90 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2474 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 2 SJ 622 2458 402 (Subprocesses with ) 402 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1024 2461 120 (exec) 120 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1144 2458 240 ( command:) 240 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2551 840 (exec grep foo << $input | wc) 840 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 9 9 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 1 5 SJ 566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 17) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 6 3 SJ 566 488 994 (Additional Tcl Features, cont'd) 994 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 1 SJ 622 644 404 (Associative arrays:) 404 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 722 420 (set x\(fred\) 44) 420 SB gr gs 1500 1125 463 400 CB 641 781 840 (set x\(2\) [expr $x\(fred\) + 6]) 840 SB gr gs 1500 1125 463 400 CB 641 841 390 (array names x) 390 SB gr 32 0 0 50 50 0 0 0 40 /ZapfDingbats font gs 1500 1125 463 400 CB 641 904 35 (\355) 35 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 676 901 30 ( ) 30 SB gr gs 1500 1125 463 400 CB 706 901 180 (fred 2) 180 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1022 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 1 SJ 622 1006 375 (Variable scoping:) 375 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 1084 180 (global) 180 SB gr gs 1500 1125 463 400 CB 913 1084 210 (uplevel) 210 SB gr gs 1500 1125 463 400 CB 1241 1084 150 (upvar) 150 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1205 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 3 SJ 622 1189 493 (Access to Tcl internals:) 493 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 1267 120 (info) 120 SB gr gs 1500 1125 463 400 CB 913 1267 180 (rename) 180 SB gr gs 1500 1125 463 400 CB 1241 1267 150 (trace) 150 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 1 5 SJ 566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 18) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 6 3 SJ 566 1793 994 (Additional Tcl Features, cont'd) 994 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2002 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 1986 281 (Autoloading:) 281 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2062 25 (\226) 25 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 688 2064 210 (unknown) 210 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 6 5 SJ 898 2062 862 ( procedure invoked when command doesn't) 862 SB gr gs 1500 1125 463 1705 CB 688 2122 105 (exist.) 105 SB gr gs 1500 1125 463 1705 CB 641 2197 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 9 5 SJ 688 2197 877 (Loads procedures on demand from libraries.) 877 SB gr gs 1500 1125 463 1705 CB 641 2272 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 3 4 SJ 688 2272 623 (Uses search path of directories.) 623 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 10 10 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 1 5 SJ 566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 19) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 2 SJ 566 488 730 (More On Substitutions) 730 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 6 SJ 622 644 991 (Keep substitutions simple: use commands like ) 991 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1614 647 180 (format) 180 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 5 2 SJ 622 703 502 (for complex arguments.) 502 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 794 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 1 SJ 622 778 90 (Use ) 90 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 712 781 120 (eval) 120 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 5 SJ 832 778 659 ( for another level of expansion:) 659 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 856 330 (exec rm *.o) 330 SB gr 32 0 0 50 50 0 0 0 40 /ZapfDingbats font gs 1500 1125 463 400 CB 641 919 35 (\355) 35 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 676 916 30 ( ) 30 SB gr gs 1500 1125 463 400 CB 706 916 900 (*.o: No such file or directory) 900 SB gr gs 1500 1125 463 400 CB 641 991 240 (glob *.o) 240 SB gr 32 0 0 50 50 0 0 0 40 /ZapfDingbats font gs 1500 1125 463 400 CB 641 1054 35 (\355) 35 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 676 1051 30 ( ) 30 SB gr gs 1500 1125 463 400 CB 706 1051 210 (a.o b.o) 210 SB gr gs 1500 1125 463 400 CB 641 1126 540 (exec rm [glob *.o]) 540 SB gr 32 0 0 50 50 0 0 0 40 /ZapfDingbats font gs 1500 1125 463 400 CB 641 1189 35 (\355) 35 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 676 1186 30 ( ) 30 SB gr gs 1500 1125 463 400 CB 706 1186 1020 (a.o b.o: No such file or directory) 1020 SB gr gs 1500 1125 463 400 CB 641 1261 690 (eval exec rm [glob *.o]) 690 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 1 5 SJ 566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 20) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 9 4 SJ 566 1793 1145 (Commands And Lists: Quoting Hell) 1145 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1940 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 6 7 SJ 622 1924 1187 (Lists parse cleanly as commands: each element becomes) 1187 SB gr gs 1500 1125 463 1705 CB 622 1983 211 (one word.) 211 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2074 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 5 6 SJ 622 2058 1005 (To create commands safely, use list commands:) 1005 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2134 1225 (button .b -text Reset -command {set x $initValue}) 1225 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2181 14 (\() 14 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 655 2184 225 (initValue) 225 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB -4 4 SJ 880 2181 463 ( read when button invoked\)) 463 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2247 775 (... -command "set x $initValue") 775 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2294 133 (\(fails if ) 133 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 774 2297 225 (initValue) 225 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 999 2294 67 ( is ") 67 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1066 2297 200 (New York) 200 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 1266 2294 245 (": command is) 245 SB gr gs 1500 1125 463 1705 CB 641 2344 17 (") 17 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 658 2347 350 (set x New York) 350 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 1008 2344 31 ("\)) 31 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2409 825 (... -command "set x {$initValue}") 825 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2456 133 (\(fails if ) 133 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 774 2459 250 (initValue ) 250 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 1024 2456 56 (is ") 56 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1080 2459 25 ({) 25 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 1105 2456 273 (": command is ") 273 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1378 2459 225 (set x {{}) 225 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 1603 2456 31 ("\)) 31 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2522 900 (... -command [list set x $initValue]) 900 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2569 299 (\(always works: if ) 299 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 940 2572 250 (initValue ) 250 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 1190 2569 56 (is ") 56 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1246 2572 25 ({) 25 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 1271 2569 261 (" command is ") 261 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1532 2572 200 (set x \\{) 200 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 1732 2569 31 ("\)) 31 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 11 11 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 1 5 SJ 566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 21) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 4 2 SJ 566 488 675 (Tcl Syntax Summary) 675 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 6 SJ 622 644 953 (Script = commands separated by newlines or) 953 SB gr gs 1500 1125 463 400 CB 622 703 241 (semicolons.) 241 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 800 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 6 SJ 622 784 965 (Command = words separated by white space.) 965 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 881 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 622 868 30 ($) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 652 865 614 ( causes variable substitution.) 614 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 962 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 622 949 60 ([]) 60 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 682 946 651 ( causes command substitution.) 651 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1043 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 622 1030 60 ("") 60 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 682 1027 776 ( quotes white space and semi-colons.) 776 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1124 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 622 1111 60 ({}) 60 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 4 SJ 682 1108 620 ( quotes all special characters.) 620 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1205 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 622 1192 30 (\\) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 6 SJ 652 1189 1121 ( quotes next character, provides C-like substitutions.) 1121 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1286 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 622 1273 30 (#) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 652 1270 1088 ( for comments \(must be at beginning of command\).) 1088 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Trailer SVDoc restore end %%Pages: 11 % TrueType font name key: % MSTT31c1d6 = 3dc7DTimes New RomanF0000004b000002bc0000 % MSTT31c1e3 = 3dc7DTimes New RomanF00000032000002bc0000 % MSTT31c1f0 = 3dc7DTimes New RomanF00000026000002bc00ff % MSTT31c1fd = 3dc7DTimes New RomanF0000001d0000019000ff % MSTT31c20a = 3dc7DTimes New RomanF00000032000001900000 % MSTT31c217 = 3dc7DMonotype SortsF00000026000001900000 % MSTT31c224 = 3dc7DTimes New RomanF0000002a000002bc0000 % MSTT31c231 = 3dc7DMonotype SortsF0000001f000001900000 % MSTT31c23e = 3dc7DTimes New RomanF000000320000019000ff % MSTT31c24b = 3dc7DTimes New RomanF0000002a000001900000 % MSTT31c258 = 3dc7DTimes New RomanF00000032000002bc00ff % MSTT31c265 = 3dc7DMonotype SortsF00000032000001900000 % MSTT31c272 = 3dc7DMonotype SortsF0000002a000001900000 %%DocumentSuppliedResources: procset Win35Dict 3 1 %%DocumentNeededResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-BoldItalic %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%EOF 00 CB 641 919 35 (\355) 35 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 676 916 30 ( ) 30 SB gr gs 1500 1125 463 400 CB 706 916 900 (*.o: No such file or directory) 900 SB gr gs 1500 1125 463 400 CB 641 991 240 (glob *.o) 240 SB gr 32 0 0 50 50 0 0 0 40 /Zapftut/tcl.ppt010077500630510000012000001230000573603520600137250ustar00ousterstaff00002300000036ÐÏࡱá;þÿ KþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿÿÿQ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJþÿÿÿþÿÿÿMNOPþÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRoot Entryÿÿÿÿÿÿÿÿ†Iî’,¤¹L PP40 ÿÿÿÿÿÿÿÿ™‘SummaryInformation(ÿÿÿÿÿÿÿÿÿÿÿÿN Current Userÿÿÿÿ&íÞ­ ˉ™‘fÊ€(xZ€€€€€€€€€ÀÀÀ€€€ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðððððððððððððððððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿðÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿññññÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñññÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñññÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿññÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDÿÿÿÿDOÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDôDOÿODDDÿDDDDDODODDDÿOôDÿôÿDôÿDDOOOODDôDDÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿOOOOÿOODôOODôODÿOOODôÿOôôÿôÿOôÿÿDÿDOODôôôOOÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿôODOÿODDDôDôDODODODôDÿOôOÿôÿDôÿDôOOODDDôDDOÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿOÿÿÿÿÿÿôÿÿÿÿOÿÿÿôDOÿÿDDÿôÿDOÿÿOÿÿôÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿî€õ@€ €M€MJ€M&€—"€½€ß@€÷€7€7¸€7&€ï!"€"€7"@€O"€"€"€"&€­&"€Ó&€õ&€€ '€)€)*€)&€·."€Ý.€ÿ.@€/€W/€W/D€W/&€›3"€Á3€ã3@€û3€;4€;4B€;4&€}8"€£8€Å8@€Ý8€9€9>€9&€[<"€<€£<@€»<€û<€û< €û<&€A"€-A€OA@€gA€§A€§A΀§A&€uF"€›F€½F@€ÕF€G€Gˆ€G&€K"€ÃK€åK@€ýK€=L€=L€=L&€QO"€wO€™O€±O€±P0€±P(€áP&€ V"€/V€QV@€iV€©V€©V €©V&€³Y"€ÙY€ûY@€Z€SZ€SZÞ€SZ&€1^"€W^€y^@€‘^€Ñ^€Ñ^Ö€Ñ^&€§b"€Íb€ïb@€c€Gc€Gc €Gc&€Qf"€wf€™f@€±f€ñf€ñfî€ñf&€ßi"€j€'j@€?j€j€j,€j&€«l"€Ñl€ól@€ m€Km€KmÀ€Km&€ q"€1q€Sq@€kq€«q€«qP€«q&€ûv"€!w€Cw@€[w€›w€›wô€›w&€{"€µ{`€×{€7}€M} €e}€~€~H€~&€M@€s€³€³P€³&€ƒ"€)ƒ€Kƒ@€cƒ€£ƒ€£ƒ€£ƒ&€±ƒ"€×ƒ€ùƒ€„€„€„€„&€„"€E„€g„€y„€‰„€£„€½„€×„"€ñ„€…€1…"€O…"€q…"€“…€µ….€Ó…*€†&€+†f€Q†€·†R€G‡v€™‡v€ˆ$€…ˆ€©ˆ"€»Œ"€ÝŒð€ÿŽ€ï’€‘ÿÿÿÿ AGpöPû þýÿ, . Aƒ÷ÿ0 pýÿ´w5¬r€ªömûV þÿÿÿÿTÿuÿÿK0d An Introduction To Tcl Scripting  $  ÿ•ÿÿd3d2€:÷-ÿöSÿÿ$ÿÿÿ•ÿÿdddJohn Ousterhout Sun Microsystems Laboratories john.ousterhout@eng.sun.com Tcl/Tk Tutorial, Part II d.dTuK0dTuK0dTuK0dTuK0dTuK0dTuK0dDEÿ8ÿÿÿÿ AKö¨÷Ð`úýÿ¼¯> Aƒö û ýÿŒ w5ž²€JöÅ÷–CúÿÿÿÿTÿuÿÿKd Language Overview $ÿ•ÿÿdd2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿddßTwo parts to learning Tcl: 1. Syntax and substitution rules: Substitutions simple, but may be confusing at first. 2. Built-in commands: Can learn individually as needed. Control structures are commands, not language syntax. ß=5WßTuKd"TuKd–5–ÿÿddTuKdd"–ÿÿdd5–ÿÿdd À ,E ÿÿÿÿ AKö¨÷Ð`úýÿü . Aƒö û ýÿÌw5’²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdBasics $ÿ•ÿÿdd2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿddTcl script = Sequence of commands. Commands separated by newlines, semi-colons. Tcl command = One or more words separated by white space. First word is command name, others are arguments. Returns string result. Examples: set a 22; set b 33 set a 22 set b 33r   / )       UuKd–ÿÿdd-–ÿÿddUuKd,–ÿÿdd2–ÿÿdd–ÿÿdd UuKd–dd–ddwion rulä'.~ÿÿÿÿ AKö¨÷Ð`úýÿ4çIpöõúP…ûþÿÒü §SIpùpPþþÿÒü §SI€û°û@üpü  p0*Iú ü¨ýýþÿŒ |çI€ûp@ü0  p0*Ô GTI€ûÀý@ü€þ  p0*I ø` ÿPþÿŒ ô ‡5I€û€@ü@  p0*Ô GTa°¬úÐÌûýÿô ‡5a€þçÿ ýÿÜ/.a°þ'ÐGýÿ ‡5 Aƒ` °ýÿ|‡50Aàû Pþýÿl‡5IØú°þ¸ü@ÿþÿÒü §SIØúpÿþþÿÒü §SIØú°¸ü@þÿÒü §SIØúðèü€þÿÒü §SIØú0˜ûÀþÿÒü §SÎfÎp€dúÏü\ýaýÿÿÿÿÿ•ÿÿdd Tcl Parser    ÿ•ÿÿddp€løTÿ!ÿÿÿÿÿ•ÿÿddCommand Procedure ÿ•ÿÿdd3€êÉú–¯ûÿÿÿÿÿ•ÿÿdd2Command ÿ•ÿÿdd23€ºþfêÿÿÿÿÿ•ÿÿdd2Words ÿ•ÿÿdd23€êþD–*ÿÿÿÿÿ•ÿÿdd2Result ÿ•ÿÿdd22€RýûÖ 3þÿÿÿÿUÿuÿÿKdSChops commands into words. Makes substitutions. Does not interpret values of words. S0#SUuKdUuKd#UuKd²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdDivision Of Responsibility $ÿ•ÿÿdd2€R& “ÿÿ$ÿÿÿ•ÿÿdd)Interprets words. Produces string result. )))UuKdUuKd ÿÿ??\ Eÿÿÿÿ AKö¨÷Ð`úýÿÜ F Aƒöú ýÿü.–²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd Arguments  $  ÿ•ÿÿdd2€Jö­úÆãÿÿ$ÿÿÿ•ÿÿdd7Parser assigns no meaning to arguments (quoting by default, evaluation is special): C: x = 4; y = x+10 y is 14 Tcl: set x 4; set y x+10 y is "x+10" Different commands assign different meanings to their arguments: set a 122 expr 24/3.2 eval "set a 122" button .b -text Hello -fg red string length Abracadabra 7T A^7 TUuKd–ÿÿdd –ÿÿdd–ÿÿdd–ÿÿddAUuKd –ÿÿdd –ÿÿdd–ÿÿdd–ÿÿdd–ÿÿdd # 4!‚ÿÿÿÿ AKö¨÷Ð`úýÿlw5 Aƒö û ýÿü .¢q ²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdVariable Substitution $ÿ•ÿÿdd2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿddæSyntax: $varName Variable name is letters, digits, underscores. May occur anywhere in a word. Sample command Result set b 66 66 set a b b set a $b 66 set a $b+$b+$b 66+66+66 set a $b.3 66.3 set a $b4 no such variable æP    æ UuKd/UuKdUuKdTuKdTuKd2 TuKdTuKdTuKdTuKdTuKd'$CU``%&,oC#(„ÿÿÿÿ AKö¨÷Ð`úýÿ| '. AƒöPû ýÿìoC q ²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddCommand Substitution $ÿ•ÿÿdd 2€JömûÆãÿÿÿÿTÿuÿÿKd·Syntax: [script] Evaluate script, substitute result. May occur anywhere within a word. Sample command Result set b 8 8 set a [expr $b+2] 10 set a "b-3 is [expr $b-3]" b-3 is 5 · H·UuKd$UuKd2"UuKd2TuKdd TuKd2TuKd%TuKd.+øÿ,-œ oC*/†ÿÿÿÿ AKö¨÷Ð`úýÿ„ w5 AƒöPû ýÿ$ .¦q ²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdControlling Word Structure $ÿ•ÿÿdd2€JömûÆãÿÿ$ÿÿÿ•ÿÿdd ;Words break at white space and semi-colons, except: Double-quotes prevent breaks: set a "x is $x; y is $y" Curly braces prevent breaks and substitutions: set a {[expr $b*$c]} Backslashes quote special characters: set a word\ with\ \$\ and\ space Substitutions don't change word structure: set a "two words" set b $a ; 4/& +; 4UuKd–ÿÿdd»ÿÿdd/–ÿÿdd»ÿÿdd&–ÿÿdd!»ÿÿdd+UuKdK»ÿÿdd»ÿÿdd52ü344'.16ˆÿÿÿÿ AKö¨÷Ð`úýÿ\w5 AƒöÀú€ ýÿ$ .˜q ²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd Expressions0  $  ÿ•ÿÿdd 2€JöÝúF ãÿÿ$ÿÿÿ•ÿÿdd @C-like (int and double), extra support for string operations. Command, variable substitution occurs within expressions. Used in expr, other commands. Sample command Result set b 5 5 expr ($b*4) - 3 17 expr $b <= 2 0 expr $a * cos(2*$b) -5.03443 expr {$b * fac[4]} 120 set a Bill Bill expr {$a < "Anne"} 0 @d @ >UuKd:UuKdUuKdTuKd TuKdTuKdTuKdTuKdTuKdTuKdTuKd<9£`P`:;ä48=Šÿÿÿÿ AKö¨÷Ð`úýÿ| '. AƒöÀú ýÿ¬'.’mn²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddListsn $ÿ•ÿÿdd 2€JöÝúÆãÿÿÿÿÿ–ÿÿddCZero or more elements separated by white space: red green blue Braces and backslashes for grouping: a b {c d e} f one\ word two three List-related commands: concat lindex llength lsearch foreach linsert lrange lsort lappend list lreplace Examples: lindex {a b {c d e} f} 2 í c d e lsort {red green blue} í blue green red C0%!Q C 0UuKd–ÿÿdd%UuKd–ÿÿdd–ÿÿddUuKd–ÿÿdZ–ÿÿdZ–ÿÿdZ UuKd"–ÿÿdd)–ÿÿddC@ì AB4 E?DŒÿÿÿÿ AKö¨÷Ð`úýÿ| '. Aƒö û ýÿäEžmn²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddControl Structures $ÿ•ÿÿdd 2€Jö=ûÆãÿÿÿÿÿ–ÿÿddÿC-like appearance. Just commands that take Tcl scripts as arguments. Example: list reversal. set b "" set i [expr [llength $a] - 1] while {$i >= 0} { lappend b [lindex $a $i] incr i -1 } Commands: if for switch break foreach while eval continue ÿ]e 1ÿUuKd2UuKdUuKdg–ÿÿdZ UuKd–ÿÿdd–ÿÿddJGÄHILoCFKÿÿÿÿ AKö¨÷Ð`úýÿ| '. Aƒöðú ýÿÌ4a°õ0ý€ø*þýÿ¬'.aàø þ@ÿÿýÿŒoCa€0ý*þýÿ 4B€øÐüúÀýä '.B@ÿÐü€Àý„ÇJHüPþüÐü€øÐüúÀý€øÀýúÀýúÐüpÐü€Àý€ÀýpÀýpÐü¦.mn¦3€êõMýFø þÿÿÿÿÿ•ÿÿdd2name ÿ•ÿÿdd23€ù=þÿýþÿÿÿÿÿ•ÿÿdd2list of argument names ÿ•ÿÿdd23€ºMýV þÿÿÿÿÿ•ÿÿdd2body ÿ•ÿÿdd2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿdd Procedures  $  ÿ•ÿÿdd 2€Jö ûÆãÿÿÿÿUÿuÿÿKdÜproc command defines a procedure: proc sub1 x {expr $x-1} Procedures behave just like built-in commands: sub1 3 í 2 Arguments can have defaults: proc decr {x {y 1}} { expr $x-$y } Scoping: local and global variables. Ü /'$Ü "UuKd–ÿÿdd/UuKd –ÿÿddUuKd–ÿÿdZ–ÿÿdZ–ÿÿdZ$UuKdQNƒÅOPt EMR‘ÿÿÿÿ AKö¨÷Ð`úýÿ| '. Aƒö û ýÿT Ežes²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddProcedures, cont'd $ÿ•ÿÿdd 2€Jö=ûÆãÿÿÿÿÿ–ÿÿdZ•Variable-length argument lists: proc sum args { set s 0 foreach i $args { incr s $i } return $s } sum 1 2 3 4 5 í 15 sum í 0 • h• UuKd–ÿÿdZ>–ÿÿdZ–ÿÿdd–ÿÿdZ–ÿÿdZ–ÿÿdZXUc€` VWä4TY“ÿÿÿÿ AKö¨÷Ð`úýÿ, 4 Aƒöú ýÿL4’es²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdErrors $ÿ•ÿÿdd2€Jö­úÆãÿÿ$ÿÿÿ•ÿÿddšErrors normally abort commands in progress, application displays error message: set n 0 foreach i {1 2 3 4 5} { set n [expr {$n + i*i}] } í syntax error in expression "$n + i*i" Global variable errorInfo provides stack trace: set errorInfo í syntax error in expression "$n + i*i" while executing "expr {$n + i*i}" invoked from within "set n [expr {$n + i*i}]..." ("foreach" body line 2) ... šP=%  ¤šPUuKdf–ÿÿdZ0UuKd´–ÿÿdZ_\sei $arg]^ô W=[`•ÿÿÿÿ AKö¨÷Ð`úýÿ| '. Aƒö û ýÿl'.¤es²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddAdvanced Error Handling $ÿ•ÿÿdd2€Jö=ûÆãÿÿÿÿUÿuÿÿKd2èCan intercept errors: catch {expr {2 +}} msg í 1 set msg í syntax error in expression "2 +" Can generate errors: error "bad argument" Global variable errorCode holds machine-readable information about errors (e.g. UNIX errno value). è  <èUuKd–ÿÿdd+–ÿÿddUuKd2–ÿÿddbUuKd2fc'.deT'.bg—ÿÿÿÿ AKö¨÷Ð`úýÿ$ 4 Aƒö û ýÿœ 4¤es²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdAdditional Tcl Features: $ÿ•ÿÿdd 2€Jö=ûÆã–ÿÿddÛString manipulation commands: regexp format split string regsub scan join File I/O commands: open gets seek flush glob close read tell cd puts source eof pwd Subprocesses with exec command: exec grep foo << $input | wc Û +A ÛUuKd,–ÿÿddUuKd2A–ÿÿdd UuKd2–ÿÿdd2mjs€ kl4in™ÿÿÿÿ AKö¨÷Ð`úýÿ´E Aƒö û ýÿ4¬es²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdAdditional Tcl Features, cont'dÿ $ÿ•ÿÿdd2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿdd¨Associative arrays: set x(fred) 44 set x(2) [expr $x(fred) + 6] array names x í fred 2 Variable scoping: global uplevel upvar Access to Tcl internals: info rename trace ¨ :¨UuKdC–ÿÿddUuKdP–ÿÿddUuKdP–ÿÿddtqrs„ '.pu›ÿÿÿÿ AKö¨÷Ð`úýÿ| '. Aƒö°û ýÿ„ ÇJ¬es²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddAdditional Tcl Features, cont'da $ÿ•ÿÿdd2€JöÍûÆãÿÿÿÿÿ–ÿÿddŽAutoloading: unknown procedure invoked when command doesn't exist. Loads procedures on demand from libraries. Uses search path of directories. Ž zŽ UuKd6–dd+–ÿÿdd –ÿÿdd{xyzô oCw|žÿÿÿÿ AKö¨÷Ð`úýÿŒE Aƒö û ýÿÄ4¢es²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdMore On Substitutionse $ÿ•ÿÿdd2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿddKeep substitutions simple: use commands like format for complex arguments. Use eval for another level of expansion: exec rm *.o í *.o: No such file or directory glob *.o í a.o b.o exec rm [glob *.o] í a.o b.o: No such file or directory eval exec rm [glob *.o], -!  "KUuKd)UuKd-–ÿÿdd–ÿÿdd8–ÿÿdd–ÿÿdd‚X€ oC~ƒŸÿÿÿÿ AKö¨÷Ð`úýÿ| '. AƒöÀú° ýÿü4¬es²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿdd Commands And Lists: Quoting Hell  $  ÿ•ÿÿdd2€JöÝúv ãÿÿÿÿÿ–ÿÿddÙLists parse cleanly as commands: each element becomes one word. To create commands safely, use list commands: button .b -text Reset -command {set x $initValue} (initValue read when button invoked) ... -command "set x $initValue" (fails if initValue is "New York": command is "set x New York") ... -command "set x {$initValue}" (fails if initValue is "{": command is "set x {{}") ... -command [list set x $initValue] (always works: if initValue is "{" command is "set x \{")ÿ Ùn1   !   $ Ù@UuKd.UuKdW–ÿÿdd`–ÿÿddV–ÿÿdd^–ÿÿdd‰†X‡ˆ<E…Š¡ÿÿÿÿ AKö¨÷Ð`úýÿl'. Aƒö û ýÿäEžes²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddTcl Syntax Summary $ÿ•ÿÿdd2€Jö=ûÆãÿÿÿÿUÿuÿÿKd#SScript = commands separated by newlines or semicolons. Command = words separated by white space. $ causes variable substitution. [] causes command substitution. "" quotes white space and semi-colons. {} quotes all special characters. \ quotes next character, provides C-like substitutions. # for comments (must be at beginning of command).ÿ S a% 70S7UuKd*UuKd# UuKd# UuKd#'UuKd#"UuKd#8UuKd#1UuKd#'.ŽŒ'.Œ‘¤  ")07>ELSZahov}„‹’Ü“§/XNUÿÿÿÿ Hðô0ú°0úAKö¨÷Ð`úýÿ$ ÇJ Aƒö û ýÿD4aö`À ýÿ oCaPþ` ýÿìÇJJèJ3€Jö}†ÿÿÿÿÿ•ÿÿdd2&Tcl/Tk Tutorial Part II: Tcl Scripting &&&&ÿ•ÿÿdd23€Šþ}Æÿÿÿÿÿ•ÿÿdd2December 1, 1994, slide ## ÿ•ÿÿdd2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿdd Click to edit Master title style  $  ÿ•ÿÿdd2€Jö=ûÆãÿÿÿÿÿ–ÿÿddRClick to edit Master text styles Second Level Third Level Fourth Level Fifth Level R! $R!UuKd –ÿÿdd »ÿÿdd UuAd –dd™–—˜ AƒÐùpÿ0 ýÿì/^A`úpö àþýÿ2€ úÿös ÿÿ ÿÿÿ•ÿÿddSClick to edit Master notes styles Second Level Third Level Fourth Level Fifth Levelÿ SS S"ÿ•dd ÿ•dd ÿ•dd ÿ•dd ÿ•ddž›ÿÿœ¤'.•šŸ_ w;NUÿÿÿÿ Aú ö ÿþÿ>Aú`` þÿ>¥¢ÿÿÿÿ£¤Ü 4¡¦NUÿÿÿÿ ¬©ÿÿÿÿª«,oC¨­=*€Ê…?$ÿ=¯ ‡úSGE¤E  @@``€€@ØÔ Ð@ð`€@Ø  Ð@ð`€@‚‚ÊÊ€€@ØÔ Ð@ð`€@@‹ ØÔ Ð@ð`€@;Ø  Ð@ð`€@•Ø  Ð@ð`€@5 ØÔ Ð@ð`€@‹@ ØÔ Ð@ð`€@‹[ØÔ Ð@ð`€@[Ø  Ð@ð`€@€à@ ` ` ØÕ ÓCð`€@  e ëØÔ Ð@ð`€@0µ ¥ €´'?$ÿÏ:#± ²³´µ¶·¸¹º»¼½¾€5ТÿÿÖ£EТˆÁùþ=IŒ»ô~êÿÿþ?µ€ÿÿ_þ᛿&ìüùþW¹ÿÿˆˆ‡{ÿÿÿÿÿÿD„YÀ  ýÿddddd€XÿÿÿÿÿÿYh‘h‘h‘ÿÿ1²0uìüö(B%p=rè;†–0ˆÿÿ&—Q` ýÿddd7€XÿÿÿÿÿÿYh‘h‘h‘YDGa[òý3®ìüö(ØÎØÎØ΀?$ÿ_ Âä'.”E 4²€$$$$$ÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿdd2€UuKd–ÿÿdd»ÿÿddUuAd–ÿÿdd2€     ÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿÿ2€•ddþÿ•ddþÿ•ddþÿ•ddþÿ•ddþÿ3€ÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿdd00€þ€?$ÿ@g;UTimes New RomanÎ`/0o3ïo3 "Arial‚XÛ/0o3D˜Xµ=/0 XE/(gMonotype Sortsô$o &¶§ªgÏ d¼Times New Roman ·ä/.nd ¼ÿTimes New Roman ·ä/.®` ÿTimes New Roman/0~`À` …¼1Courier–\–\j9/'I/`z^. 5ôÿ,,{ Ÿ ÃÿÞÿ¹  Apple LaserWriter II NTPSCRIPTLPT1:T1:ÈApple LaserWriter II NT WD„[ê od,þXÂZZ¨ePÅÀô÷@ p÷Àôp@ ’ÿÿX”® §É.øPõÿÿBZ.ÿ°¿ÄÁÆÅÇà€€àÈÿÿÿÿ'Lþÿÿÿÿÿ2íÞ­ ÐÏࡱá;þÿ þÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  !"#$%þÿÿÿþÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿ à…ŸòùOh«‘+'³Ùà…ŸòùOh«‘+'³Ù0 x¢¬ÄÎT ª ¸ Ä ÐÜä!An Introduction To Tcl ScriptingJohn Ousterhout{Second of four talks in all-day Tcl/Tk tutorial. Discusses how to write scripts in Tcl; ignores Tk and Tcl C interfaces.4c:\msoffice\powerpnt\template\clrovrhd\sidebarc.pptSun Microsystems14@&ÁíQƒ¹@ö¸Ã/ž¹@V¶ò’,¤¹Microsoft PowerPoint 4.0Gÿÿÿÿ8cjJ x7&ÿÿÿÿÀô÷@ p & ÿÿÿÿ&$ÿÿÿÿTNPPMicrosoft PowerPoint & TNPPf & ÿÿÿÿ&TNPP ÷Àô à€5÷u— ÿÿÿ€€€€€€€€€ÀÀÀÀÜÀ¦Êðÿûð  ¤€€€ÿÿÿÿÿÿÿÿÿÿÿÿ45üÿÿÿ-úÿÿÿ-qA ÷Àô&ÿÿÿÿpöPû˜ (þûàþ¼Times New Roman-.  u72 ýÿ÷ An Introduction To Tcl ScriptingРHp `€  €`P HÁHÀPH¡€P `P¡ & ÿÿÿÿ&ÿÿÿÿ÷ÿ8 xû@ÿ¼Times New Romanan-ð.  — 2 Úÿ`ýJohn Ousterhout``kk0•kJ@VUk`j@û@ÿ¼Times New Roman-ð.  — 32 úýúSun Microsystems Laboratorieskkj0¶5UU`K`K@U K0€`j`V`@`U5UKûaÿ¼1Courier-ð.  02 óûjohn.ousterhout@eng.sun.com```````````````````````````û@ÿ¼Times New Roman-ðû@ÿ¼Times New Romanan-ð. ûpÿ¼ÿTimes New Roman-ð. ûpÿ¼ÿTimes New Romanan-ð.  +2 È`ýTcl/Tk Tutorial, Part IIX@((XH$XP(H8(H($$XH8($88 & ÿÿÿÿ&TNPP & ÿÿÿÿ-ü-ðû ¼"System-ðdTuÐÏࡱá;þÿ Sun MicrosystemsÐÏࡱá;þÿ ÐÏࡱá;þÿ Current IDÿÿÿÿÿÿÿÿÿÿÿÿ'ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿtut/tcl.ps010077500630510000012000001642400573603520600135570ustar00ousterstaff00002300000036%!PS-Adobe-3.0 %%Creator: Windows PSCRIPT %%Title: PowerPoint - TCL.PPT %%BoundingBox: 14 9 597 784 %%DocumentNeededResources: (atend) %%DocumentSuppliedResources: (atend) %%Pages: (atend) %%BeginResource: procset Win35Dict 3 1 /Win35Dict 290 dict def Win35Dict begin/bd{bind def}bind def/in{72 mul}bd/ed{exch def}bd/ld{load def}bd/tr/translate ld/gs/gsave ld/gr /grestore ld/M/moveto ld/L/lineto ld/rmt/rmoveto ld/rlt/rlineto ld /rct/rcurveto ld/st/stroke ld/n/newpath ld/sm/setmatrix ld/cm/currentmatrix ld/cp/closepath ld/ARC/arcn ld/TR{65536 div}bd/lj/setlinejoin ld/lc /setlinecap ld/ml/setmiterlimit ld/sl/setlinewidth ld/scignore false def/sc{scignore{pop pop pop}{0 index 2 index eq 2 index 4 index eq and{pop pop 255 div setgray}{3{255 div 3 1 roll}repeat setrgbcolor}ifelse}ifelse}bd /FC{bR bG bB sc}bd/fC{/bB ed/bG ed/bR ed}bd/HC{hR hG hB sc}bd/hC{ /hB ed/hG ed/hR ed}bd/PC{pR pG pB sc}bd/pC{/pB ed/pG ed/pR ed}bd/sM matrix def/PenW 1 def/iPen 5 def/mxF matrix def/mxE matrix def/mxUE matrix def/mxUF matrix def/fBE false def/iDevRes 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt def/fPP false def/SS{fPP{ /SV save def}{gs}ifelse}bd/RS{fPP{SV restore}{gr}ifelse}bd/EJ{gsave showpage grestore}bd/#C{userdict begin/#copies ed end}bd/FEbuf 2 string def/FEglyph(G )def/FE{1 exch{dup 16 FEbuf cvrs FEglyph exch 1 exch putinterval 1 index exch FEglyph cvn put}for}bd/SM{/iRes ed/cyP ed /cxPg ed/cyM ed/cxM ed 72 100 div dup scale dup 0 ne{90 eq{cyM exch 0 eq{cxM exch tr -90 rotate -1 1 scale}{cxM cxPg add exch tr +90 rotate}ifelse}{cyP cyM sub exch 0 ne{cxM exch tr -90 rotate}{cxM cxPg add exch tr -90 rotate 1 -1 scale}ifelse}ifelse}{pop cyP cyM sub exch 0 ne{cxM cxPg add exch tr 180 rotate}{cxM exch tr 1 -1 scale}ifelse}ifelse 100 iRes div dup scale 0 0 transform .25 add round .25 sub exch .25 add round .25 sub exch itransform translate}bd/SJ{1 index 0 eq{pop pop/fBE false def}{1 index/Break ed div/dxBreak ed/fBE true def}ifelse}bd/ANSIVec[ 16#0/grave 16#1/acute 16#2/circumflex 16#3/tilde 16#4/macron 16#5/breve 16#6/dotaccent 16#7/dieresis 16#8/ring 16#9/cedilla 16#A/hungarumlaut 16#B/ogonek 16#C/caron 16#D/dotlessi 16#27/quotesingle 16#60/grave 16#7C/bar 16#82/quotesinglbase 16#83/florin 16#84/quotedblbase 16#85 /ellipsis 16#86/dagger 16#87/daggerdbl 16#88/circumflex 16#89/perthousand 16#8A/Scaron 16#8B/guilsinglleft 16#8C/OE 16#91/quoteleft 16#92/quoteright 16#93/quotedblleft 16#94/quotedblright 16#95/bullet 16#96/endash 16#97 /emdash 16#98/tilde 16#99/trademark 16#9A/scaron 16#9B/guilsinglright 16#9C/oe 16#9F/Ydieresis 16#A0/space 16#A1/exclamdown 16#A4/currency 16#A5/yen 16#A6/brokenbar 16#A7/section 16#A8/dieresis 16#A9/copyright 16#AA/ordfeminine 16#AB/guillemotleft 16#AC/logicalnot 16#AD/hyphen 16#AE/registered 16#AF/macron 16#B0/degree 16#B1/plusminus 16#B2/twosuperior 16#B3/threesuperior 16#B4/acute 16#B5/mu 16#B6/paragraph 16#B7/periodcentered 16#B8/cedilla 16#B9/onesuperior 16#BA/ordmasculine 16#BB/guillemotright 16#BC/onequarter 16#BD/onehalf 16#BE/threequarters 16#BF/questiondown 16#C0/Agrave 16#C1/Aacute 16#C2/Acircumflex 16#C3/Atilde 16#C4/Adieresis 16#C5/Aring 16#C6/AE 16#C7/Ccedilla 16#C8/Egrave 16#C9/Eacute 16#CA /Ecircumflex 16#CB/Edieresis 16#CC/Igrave 16#CD/Iacute 16#CE/Icircumflex 16#CF/Idieresis 16#D0/Eth 16#D1/Ntilde 16#D2/Ograve 16#D3/Oacute 16#D4 /Ocircumflex 16#D5/Otilde 16#D6/Odieresis 16#D7/multiply 16#D8/Oslash 16#D9/Ugrave 16#DA/Uacute 16#DB/Ucircumflex 16#DC/Udieresis 16#DD/Yacute 16#DE/Thorn 16#DF/germandbls 16#E0/agrave 16#E1/aacute 16#E2/acircumflex 16#E3/atilde 16#E4/adieresis 16#E5/aring 16#E6/ae 16#E7/ccedilla 16#E8 /egrave 16#E9/eacute 16#EA/ecircumflex 16#EB/edieresis 16#EC/igrave 16#ED/iacute 16#EE/icircumflex 16#EF/idieresis 16#F0/eth 16#F1/ntilde 16#F2/ograve 16#F3/oacute 16#F4/ocircumflex 16#F5/otilde 16#F6/odieresis 16#F7/divide 16#F8/oslash 16#F9/ugrave 16#FA/uacute 16#FB/ucircumflex 16#FC/udieresis 16#FD/yacute 16#FE/thorn 16#FF/ydieresis ] def/reencdict 12 dict def/IsChar{basefontdict/CharStrings get exch known}bd/MapCh{dup IsChar not{pop/bullet}if newfont/Encoding get 3 1 roll put}bd/MapDegree{16#b0 /degree IsChar{/degree}{/ring}ifelse MapCh}bd/MapBB{16#a6/brokenbar IsChar{/brokenbar}{/bar}ifelse MapCh}bd/ANSIFont{reencdict begin/newfontname ed/basefontname ed FontDirectory newfontname known not{/basefontdict basefontname findfont def/newfont basefontdict maxlength dict def basefontdict{exch dup/FID ne{dup/Encoding eq{exch dup length array copy newfont 3 1 roll put}{exch newfont 3 1 roll put}ifelse}{pop pop}ifelse}forall newfont /FontName newfontname put 127 1 159{newfont/Encoding get exch/bullet put}for ANSIVec aload pop ANSIVec length 2 idiv{MapCh}repeat MapDegree MapBB newfontname newfont definefont pop}if newfontname end}bd/SB{FC /ULlen ed/str ed str length fBE not{dup 1 gt{1 sub}if}if/cbStr ed /dxGdi ed/y0 ed/x0 ed str stringwidth dup 0 ne{/y1 ed/x1 ed y1 y1 mul x1 x1 mul add sqrt dxGdi exch div 1 sub dup x1 mul cbStr div exch y1 mul cbStr div}{exch abs neg dxGdi add cbStr div exch}ifelse/dyExtra ed/dxExtra ed x0 y0 M fBE{dxBreak 0 BCh dxExtra dyExtra str awidthshow}{dxExtra dyExtra str ashow}ifelse fUL{x0 y0 M dxUL dyUL rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if fSO{x0 y0 M dxSO dySO rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if n/fBE false def}bd/font{/name ed/Ascent ed 0 ne/fT3 ed 0 ne/fSO ed 0 ne/fUL ed/Sy ed/Sx ed 10.0 div/ori ed -10.0 div/esc ed/BCh ed name findfont/xAscent 0 def/yAscent Ascent def/ULesc esc def ULesc mxUE rotate pop fT3{/esc 0 def xAscent yAscent mxUE transform /yAscent ed/xAscent ed}if [Sx 0 0 Sy neg xAscent yAscent] esc mxE rotate mxF concatmatrix makefont setfont [Sx 0 0 Sy neg 0 Ascent] mxUE mxUF concatmatrix pop fUL{currentfont dup/FontInfo get/UnderlinePosition known not{pop/Courier findfont}if/FontInfo get/UnderlinePosition get 1000 div 0 exch mxUF transform/dyUL ed/dxUL ed}if fSO{0 .3 mxUF transform /dySO ed/dxSO ed}if fUL fSO or{currentfont dup/FontInfo get/UnderlineThickness known not{pop/Courier findfont}if/FontInfo get/UnderlineThickness get 1000 div Sy mul/cyUL ed}if}bd/min{2 copy gt{exch}if pop}bd/max{2 copy lt{exch}if pop}bd/CP{/ft ed{{ft 0 eq{clip}{eoclip}ifelse}stopped{currentflat 1 add setflat}{exit}ifelse}loop}bd/patfont 10 dict def patfont begin /FontType 3 def/FontMatrix [1 0 0 -1 0 0] def/FontBBox [0 0 16 16] def/Encoding StandardEncoding def/BuildChar{pop pop 16 0 0 0 16 16 setcachedevice 16 16 false [1 0 0 1 .25 .25]{pat}imagemask}bd end/p{ /pat 32 string def{}forall 0 1 7{dup 2 mul pat exch 3 index put dup 2 mul 1 add pat exch 3 index put dup 2 mul 16 add pat exch 3 index put 2 mul 17 add pat exch 2 index put pop}for}bd/pfill{/PatFont patfont definefont setfont/ch(AAAA)def X0 64 X1{Y1 -16 Y0{1 index exch M ch show}for pop}for}bd/vert{X0 w X1{dup Y0 M Y1 L st}for}bd/horz{Y0 w Y1{dup X0 exch M X1 exch L st}for}bd/fdiag{X0 w X1{Y0 M X1 X0 sub dup rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup rlt st}for}bd/bdiag{X0 w X1{Y1 M X1 X0 sub dup neg rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup neg rlt st}for}bd/AU{1 add cvi 15 or}bd/AD{1 sub cvi -16 and}bd/SHR{pathbbox AU/Y1 ed AU/X1 ed AD/Y0 ed AD/X0 ed}bd/hfill{/w iRes 37.5 div round def 0.1 sl [] 0 setdash n dup 0 eq{horz}if dup 1 eq{vert}if dup 2 eq{fdiag}if dup 3 eq{bdiag}if dup 4 eq{horz vert}if 5 eq{fdiag bdiag}if}bd/F{/ft ed fm 256 and 0 ne{gs FC ft 0 eq{fill}{eofill}ifelse gr}if fm 1536 and 0 ne{SHR gs HC ft CP fm 1024 and 0 ne{/Tmp save def pfill Tmp restore}{fm 15 and hfill}ifelse gr}if}bd/S{PenW sl PC st}bd/m matrix def/GW{iRes 12 div PenW add cvi}bd/DoW{iRes 50 div PenW add cvi}bd/DW{iRes 8 div PenW add cvi}bd/SP{/PenW ed/iPen ed iPen 0 eq iPen 6 eq or{[] 0 setdash}if iPen 1 eq{[DW GW] 0 setdash}if iPen 2 eq{[DoW GW] 0 setdash}if iPen 3 eq{[DW GW DoW GW] 0 setdash}if iPen 4 eq{[DW GW DoW GW DoW GW] 0 setdash}if}bd/E{m cm pop tr scale 1 0 moveto 0 0 1 0 360 arc cp m sm}bd /AG{/sy ed/sx ed sx div 4 1 roll sy div 4 1 roll sx div 4 1 roll sy div 4 1 roll atan/a2 ed atan/a1 ed sx sy scale a1 a2 ARC}def/A{m cm pop tr AG m sm}def/P{m cm pop tr 0 0 M AG cp m sm}def/RRect{n 4 copy M 3 1 roll exch L 4 2 roll L L cp}bd/RRCC{/r ed/y1 ed/x1 ed/y0 ed/x0 ed x0 x1 add 2 div y0 M x1 y0 x1 y1 r arcto 4{pop}repeat x1 y1 x0 y1 r arcto 4{pop}repeat x0 y1 x0 y0 r arcto 4{pop}repeat x0 y0 x1 y0 r arcto 4{pop}repeat cp}bd/RR{2 copy 0 eq exch 0 eq or{pop pop RRect}{2 copy eq{pop RRCC}{m cm pop/y2 ed/x2 ed/ys y2 x2 div 1 max def/xs x2 y2 div 1 max def/y1 exch ys div def/x1 exch xs div def/y0 exch ys div def/x0 exch xs div def/r2 x2 y2 min def xs ys scale x0 x1 add 2 div y0 M x1 y0 x1 y1 r2 arcto 4{pop}repeat x1 y1 x0 y1 r2 arcto 4{pop}repeat x0 y1 x0 y0 r2 arcto 4{pop}repeat x0 y0 x1 y0 r2 arcto 4{pop}repeat m sm cp}ifelse}ifelse}bd/PP{{rlt}repeat}bd/OB{gs 0 ne{7 3 roll/y ed /x ed x y translate ULesc rotate x neg y neg translate x y 7 -3 roll}if sc B fill gr}bd/B{M/dy ed/dx ed dx 0 rlt 0 dy rlt dx neg 0 rlt cp}bd /CB{B clip n}bd/ErrHandler{errordict dup maxlength exch length gt dup{errordict begin}if/errhelpdict 12 dict def errhelpdict begin/stackunderflow(operand stack underflow)def /undefined(this name is not defined in a dictionary)def/VMerror(you have used up all the printer's memory)def /typecheck(operator was expecting a different type of operand)def /ioerror(input/output error occured)def end{end}if errordict begin /handleerror{$error begin newerror{/newerror false def showpage 72 72 scale/x .25 def/y 9.6 def/Helvetica findfont .2 scalefont setfont x y moveto(Offending Command = )show/command load{dup type/stringtype ne{(max err string)cvs}if show}exec/y y .2 sub def x y moveto(Error = )show errorname{dup type dup( max err string )cvs show( : )show/stringtype ne{( max err string )cvs}if show}exec errordict begin errhelpdict errorname known{x 1 add y .2 sub moveto errhelpdict errorname get show}if end /y y .4 sub def x y moveto(Stack =)show ostack{/y y .2 sub def x 1 add y moveto dup type/stringtype ne{( max err string )cvs}if show}forall showpage}if end}def end}bd end %%EndResource /SVDoc save def %%EndProlog %%BeginSetup Win35Dict begin ErrHandler statusdict begin 0 setjobtimeout end statusdict begin statusdict /jobname (PowerPoint - TCL.PPT) put end /oldDictCnt countdictstack def {}stopped { countdictstack oldDictCnt lt { Win35Dict begin } {1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if /oldDictCnt countdictstack def {letter }stopped { countdictstack oldDictCnt lt { Win35Dict begin } {1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if [{ } /exec load currenttransfer /exec load] cvx settransfer %%EndSetup %%Page: 1 1 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 8 29 117 fC 548 684 2135 (An Introduction To Tcl Scripting) 2135 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 151 0 10 fC -1 1 SJ 1265 1101 726 (John Ousterhout) 726 SB 2 2 SJ 947 1251 1359 (Sun Microsystems Laboratories) 1359 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 952 1402 1350 (john.ousterhout@eng.sun.com) 1350 SB 32 0 0 75 75 0 0 0 68 /Times-BoldItalic /font30 ANSIFont font -3 3 SJ 1265 1783 729 (Tcl/Tk Tutorial, Part II) 729 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-BoldItalic %%Page: 2 2 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2172 2079 614 (December 1, 1994, slide 2) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -4 2 SJ 320 266 1329 ( Language Overview) 1329 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 320 576 1123 (Two parts to learning Tcl:) 1123 SB 320 876 1383 (1. Syntax and substitution rules:) 1383 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1028 50 (\226) 50 SB 3 7 SJ 564 1028 2033 (Substitutions simple, but may be confusing at first.) 2033 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1 2 SJ 320 1265 946 (2. Built-in commands:) 946 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1417 50 (\226) 50 SB 5 4 SJ 564 1417 1331 (Can learn individually as needed.) 1331 SB 470 1567 50 (\226) 50 SB 6 6 SJ 564 1567 2193 (Control structures are commands, not language syntax.) 2193 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%Page: 3 3 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2172 2079 614 (December 1, 1994, slide 3) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 400 (Basics) 400 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 576 490 (Tcl script =) 490 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 698 50 (\226) 50 SB 2 2 SJ 564 698 515 (Sequence of ) 515 SB 151 0 10 fC 1081 698 433 (commands) 433 SB 0 0 0 fC 1514 698 25 (.) 25 SB 470 818 50 (\226) 50 SB 5 4 SJ 564 818 1917 (Commands separated by newlines, semi-colons.) 1917 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 998 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 2 SJ 433 966 666 (Tcl command =) 666 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1088 50 (\226) 50 SB 3 3 SJ 564 1088 529 (One or more ) 529 SB 151 0 10 fC 1096 1088 244 (words) 244 SB 0 0 0 fC 4 4 SJ 1340 1088 1041 ( separated by white space.) 1041 SB 470 1207 50 (\226) 50 SB 2 3 SJ 564 1207 530 (First word is ) 530 SB 151 0 10 fC 1 1 SJ 1096 1207 635 (command name) 635 SB 0 0 0 fC 2 3 SJ 1732 1207 465 (, others are ) 465 SB 151 0 10 fC 2199 1207 415 (arguments) 415 SB 0 0 0 fC 2614 1207 25 (.) 25 SB 470 1327 50 (\226) 50 SB 564 1327 336 (Returns ) 336 SB 151 0 10 fC 1 1 SJ 901 1327 474 (string result) 474 SB 0 0 0 fC 1375 1327 25 (.) 25 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1507 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1475 449 (Examples:) 449 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1597 50 (\226) 50 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 564 1601 1080 (set a 22; set b 33) 1080 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 470 1717 50 (\226) 50 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 564 1721 480 (set a 22) 480 SB 564 1841 480 (set b 33) 480 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 4 4 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2172 2079 614 (December 1, 1994, slide 4) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1677 (Division Of Responsibility) 1677 SB 0 0 0 pC 6 4 SP 0 150 136 fC /fm 256 def 342 543 1791 617 14 14 RR 1 F S n /fm 256 def 742 1940 1391 2014 14 14 RR 1 F S n /fm 256 def 929 1040 1178 1114 14 14 RR 1 F S n /fm 256 def 929 1140 1353 1214 14 14 RR 1 F S n /fm 256 def 929 1440 1178 1514 14 14 RR 1 F S n /fm 256 def 929 1340 1203 1414 14 14 RR 1 F S n /fm 256 def 929 1240 1028 1314 14 14 RR 1 F S n 162 193 254 fC /fm 256 def 1067 742 M 52 52 -26 0 0 52 -52 0 0 -52 -26 0 52 -52 7 PP 1 F n 0 0 0 fC /fm 256 def 1067 742 M 0 6 -42 42 20 0 0 52 44 0 0 -52 20 0 -42 -42 0 -6 52 52 -26 0 0 52 -52 0 0 -52 -26 0 52 -52 16 PP 1 F n 6 4 SP 255 255 132 fC /fm 256 def 829 765 1303 889 15 15 RR 1 F S n 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 1 1 SJ 861 766 407 (Tcl Parser) 407 SB 162 193 254 fC /fm 256 def 1067 1642 M 52 52 -26 0 0 52 -52 0 0 -52 -26 0 52 -52 7 PP 1 F n 0 0 0 fC /fm 256 def 1067 1642 M 0 6 -42 42 20 0 0 52 44 0 0 -52 20 0 -42 -42 0 -6 52 52 -26 0 0 52 -52 0 0 -52 -26 0 52 -52 16 PP 1 F n 162 193 254 fC /fm 256 def 1067 1017 M 52 52 -26 0 0 52 -52 0 0 -52 -26 0 52 -52 7 PP 1 F n 0 0 0 fC /fm 256 def 1067 1017 M 0 6 -42 42 20 0 0 52 44 0 0 -52 20 0 -42 -42 0 -6 52 52 -26 0 0 52 -52 0 0 -52 -26 0 52 -52 16 PP 1 F n 6 4 SP 255 255 132 fC /fm 256 def 567 1665 1566 1789 15 15 RR 1 F S n 0 0 0 fC 1 1 SJ 642 1666 846 (Command Procedure) 846 SB 162 193 254 fC /fm 256 def 1067 1917 M 52 52 -26 0 0 52 -52 0 0 -52 -26 0 52 -52 7 PP 1 F n 0 0 0 fC /fm 256 def 1067 1917 M 0 6 -42 42 20 0 0 52 44 0 0 -52 20 0 -42 -42 0 -6 52 52 -26 0 0 52 -52 0 0 -52 -26 0 52 -52 16 PP 1 F n 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 150 136 fC 1870 516 448 (Command) 448 SB 1445 1213 289 (Words) 289 SB 1470 1913 272 (Result) 272 SB 32 0 0 63 63 0 0 0 50 /ZapfDingbats font 6 61 232 fC 1658 1653 50 (u) 50 SB 32 0 0 84 84 0 0 0 77 /Times-Bold /font29 ANSIFont font 0 0 0 fC -6 1 SJ 1771 1626 626 (Interprets words.) 626 SB 32 0 0 63 63 0 0 0 50 /ZapfDingbats font 6 61 232 fC 1658 1778 50 (u) 50 SB 32 0 0 84 84 0 0 0 77 /Times-Bold /font29 ANSIFont font 0 0 0 fC -6 2 SJ 1771 1751 809 (Produces string result.) 809 SB 32 0 0 63 63 0 0 0 50 /ZapfDingbats font 6 61 232 fC 1658 703 50 (u) 50 SB 32 0 0 84 84 0 0 0 77 /Times-Bold /font29 ANSIFont font 0 0 0 fC -9 3 SJ 1771 676 1062 (Chops commands into words.) 1062 SB 32 0 0 63 63 0 0 0 50 /ZapfDingbats font 6 61 232 fC 1658 803 50 (u) 50 SB 32 0 0 84 84 0 0 0 77 /Times-Bold /font29 ANSIFont font 0 0 0 fC -7 1 SJ 1771 776 739 (Makes substitutions.) 739 SB 32 0 0 63 63 0 0 0 50 /ZapfDingbats font 6 61 232 fC 1658 903 50 (u) 50 SB 32 0 0 84 84 0 0 0 77 /Times-Bold /font29 ANSIFont font 151 0 10 fC -10 5 SJ 1771 876 1253 (Does not interpret values of words.) 1253 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 5 5 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2172 2079 614 (December 1, 1994, slide 5) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 716 (Arguments) 716 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 533 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 7 SJ 433 501 2234 (Parser assigns no meaning to arguments \(quoting by) 2234 SB 433 621 1268 (default, evaluation is special\):) 1268 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 151 0 10 fC 470 743 95 (C:) 95 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 751 747 900 (x = 4; y = x+10) 900 SB 32 0 0 100 100 0 0 0 90 /Times-Italic /font31 ANSIFont font 0 0 0 fC 751 863 261 (y is 14) 261 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 151 0 10 fC 470 982 161 (Tcl:) 161 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 751 986 1140 (set x 4; set y x+10) 1140 SB 32 0 0 100 100 0 0 0 90 /Times-Italic /font31 ANSIFont font 0 0 0 fC 751 1102 458 (y is "x+10") 458 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1282 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 6 SJ 433 1250 2326 (Different commands assign different meanings to their) 2326 SB 433 1370 487 (arguments:) 487 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1496 450 (set a 122) 450 SB 470 1596 550 (expr 24/3.2) 550 SB 470 1696 800 (eval "set a 122") 800 SB 470 1796 1450 (button .b -text Hello -fg red) 1450 SB 470 1896 1250 (string length Abracadabra) 1250 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 6 6 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2172 2079 614 (December 1, 1994, slide 6) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 1 1 SJ 320 266 1379 (Variable Substitution) 1379 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 576 353 (Syntax: ) 353 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 151 0 10 fC 786 582 60 ($) 60 SB 32 0 0 100 100 0 0 0 90 /Times-Italic /font31 ANSIFont font 846 578 366 (varName) 366 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 758 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 5 SJ 433 726 1886 (Variable name is letters, digits, underscores.) 1886 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 908 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 876 1356 (May occur anywhere in a word.) 1356 SB 32 0 0 100 100 1 0 0 92 /Times-Bold /font29 ANSIFont font 659 1026 761 (Sample command) 761 SB 1820 1026 272 (Result) 272 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 659 1212 480 (set b 66) 480 SB 151 0 10 fC 1820 1212 120 (66) 120 SB 0 150 136 fC 659 1332 420 (set a b) 420 SB 151 0 10 fC 1820 1332 60 (b) 60 SB 0 150 136 fC 659 1451 480 (set a $b) 480 SB 151 0 10 fC 1820 1451 120 (66) 120 SB 0 150 136 fC 659 1571 840 (set a $b+$b+$b) 840 SB 151 0 10 fC 1820 1571 480 (66+66+66) 480 SB 0 150 136 fC 659 1691 600 (set a $b.3) 600 SB 151 0 10 fC 1820 1691 240 (66.3) 240 SB 0 150 136 fC 659 1811 540 (set a $b4) 540 SB 32 0 0 100 100 0 0 0 90 /Times-Italic /font31 ANSIFont font 151 0 10 fC 1 2 SJ 1820 1807 666 (no such variable) 666 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 7 7 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2172 2079 614 (December 1, 1994, slide 7) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 2 1 SJ 320 266 1494 (Command Substitution) 1494 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 633 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 601 386 (Syntax: [) 386 SB 32 0 0 100 100 0 0 0 90 /Times-Italic /font31 ANSIFont font 819 603 228 (script) 228 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1047 601 33 (]) 33 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 813 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 781 1408 (Evaluate script, substitute result.) 1408 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 993 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 961 1546 (May occur anywhere within a word.) 1546 SB 32 0 0 100 100 1 0 0 92 /Times-Bold /font29 ANSIFont font 526 1200 761 (Sample command) 761 SB 2234 1200 272 (Result) 272 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 526 1386 420 (set b 8) 420 SB 151 0 10 fC 2234 1386 60 (8) 60 SB 0 150 136 fC 526 1506 1020 (set a [expr $b+2]) 1020 SB 151 0 10 fC 2234 1506 120 (10) 120 SB 0 150 136 fC 526 1625 1560 (set a "b-3 is [expr $b-3]") 1560 SB 151 0 10 fC 2234 1625 480 (b-3 is 5) 480 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 8 8 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2172 2079 614 (December 1, 1994, slide 8) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -2 2 SJ 320 266 1810 (Controlling Word Structure) 1810 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 633 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 7 SJ 433 601 2248 (Words break at white space and semi-colons, except:) 2248 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 753 50 (\226) 50 SB 3 2 SJ 564 753 1225 (Double-quotes prevent breaks:) 1225 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 620 877 1440 (set a "x is $x; y is $y") 1440 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 470 1023 50 (\226) 50 SB 5 5 SJ 564 1023 1842 (Curly braces prevent breaks and substitutions:) 1842 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 620 1147 1200 (set a {[expr $b*$c]}) 1200 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 470 1293 50 (\226) 50 SB 4 3 SJ 564 1293 1492 (Backslashes quote special characters:) 1492 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 620 1417 1920 (set a word\\ with\\ \\$\\ and\\ space) 1920 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1652 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1620 1835 (Substitutions don't change word structure:) 1835 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 620 1746 1020 (set a "two words") 1020 SB 620 1866 480 (set b $a) 480 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 9 9 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2172 2079 614 (December 1, 1994, slide 9) 614 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 766 (Expressions) 766 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 558 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 526 2529 (C-like \(int and double\), extra support for string operations.) 2529 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 708 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 676 1707 (Command, variable substitution occurs ) 1707 SB 32 0 0 100 100 0 0 0 90 /Times-BoldItalic /font30 ANSIFont font 2140 678 263 (within) 263 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 2403 676 539 ( expressions.) 539 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 858 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 2 SJ 433 826 345 (Used in ) 345 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 780 832 240 (expr) 240 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 2 2 SJ 1020 826 786 (, other commands.) 786 SB 32 0 0 100 100 1 0 0 92 /Times-Bold /font29 ANSIFont font 620 970 761 (Sample command) 761 SB 1859 970 272 (Result) 272 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 620 1096 420 (set b 5) 420 SB 151 0 10 fC 1859 1096 60 (5) 60 SB 0 150 136 fC 620 1216 900 (expr \($b*4\) - 3) 900 SB 151 0 10 fC 1859 1216 120 (17) 120 SB 0 150 136 fC 620 1335 720 (expr $b <= 2) 720 SB 151 0 10 fC 1859 1335 60 (0) 60 SB 0 150 136 fC 620 1455 1140 (expr $a * cos\(2*$b\)) 1140 SB 151 0 10 fC 1859 1455 480 (-5.03443) 480 SB 0 150 136 fC 620 1575 1080 (expr {$b * fac[4]}) 1080 SB 151 0 10 fC 1859 1575 180 (120) 180 SB 0 150 136 fC 620 1695 600 (set a Bill) 600 SB 151 0 10 fC 1859 1695 240 (Bill) 240 SB 0 150 136 fC 620 1815 1080 (expr {$a < "Anne"}) 1080 SB 151 0 10 fC 1859 1815 60 (0) 60 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-BoldItalic %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 10 10 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2143 2079 643 (December 1, 1994, slide 10) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 308 (Lists) 308 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 558 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 6 7 SJ 433 526 2085 (Zero or more elements separated by white space:) 2085 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 652 840 (red green blue) 840 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 828 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 796 1602 (Braces and backslashes for grouping:) 1602 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 922 780 (a b {c d e} f) 780 SB 470 1042 1140 (one\\ word two three) 1140 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1218 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 1 SJ 433 1186 1016 (List-related commands:) 1016 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1302 360 (concat) 360 SB 1126 1302 360 (lindex) 360 SB 1670 1302 420 (llength) 420 SB 2309 1302 420 (lsearch) 420 SB 470 1410 420 (foreach) 420 SB 1126 1410 420 (linsert) 420 SB 1670 1410 360 (lrange) 360 SB 2309 1410 300 (lsort) 300 SB 470 1518 420 (lappend) 420 SB 1126 1518 240 (list) 240 SB 1670 1518 480 (lreplace) 480 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1691 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1659 449 (Examples:) 449 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1800 1200 (lindex {a b {c d e} f} 2) 1200 SB 1839 1800 50 ( ) 50 SB 32 0 0 101 101 0 0 0 81 /ZapfDingbats font 0 0 0 fC 1889 1790 70 (\355) 70 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 1959 1800 50 ( ) 50 SB 151 0 10 fC 2009 1800 250 (c d e) 250 SB 0 150 136 fC 470 1920 1100 (lsort {red green blue}) 1100 SB 1839 1920 50 ( ) 50 SB 32 0 0 101 101 0 0 0 81 /ZapfDingbats font 0 0 0 fC 1889 1910 70 (\355) 70 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 1959 1920 50 ( ) 50 SB 151 0 10 fC 2009 1920 700 (blue green red) 700 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 11 11 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2143 2079 643 (December 1, 1994, slide 11) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1213 (Control Structures) 1213 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 1 SJ 433 576 805 (C-like appearance.) 805 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 758 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 4 7 SJ 433 726 2157 (Just commands that take Tcl scripts as arguments.) 2157 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 908 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 2 SJ 433 876 956 (Example: list reversal.) 956 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 564 993 480 (set b "") 480 SB 564 1100 1740 (set i [expr [llength $a] - 1]) 1740 SB 564 1208 1020 (while {$i >= 0} {) 1020 SB 564 1316 1680 ( lappend b [lindex $a $i]) 1680 SB 564 1424 780 ( incr i -1) 780 SB 564 1532 60 (}) 60 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1705 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1673 520 (Commands:) 520 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 564 1799 120 (if) 120 SB 1145 1799 180 (for) 180 SB 1614 1799 360 (switch) 360 SB 2139 1799 300 (break) 300 SB 564 1919 420 (foreach) 420 SB 1145 1919 300 (while) 300 SB 1614 1919 240 (eval) 240 SB 2139 1919 480 (continue) 480 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 12 12 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2143 2079 643 (December 1, 1994, slide 12) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 159 (Pr) 158 SB 478 266 209 (oce) 208 SB 686 266 83 (d) 84 SB 770 266 217 (ure) 216 SB 986 266 58 (s) 58 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 583 59 (u) 59 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 433 557 240 (proc) 240 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 2 4 SJ 673 551 1342 ( command defines a procedure:) 1342 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 677 1380 (proc sub1 x {expr $x-1}) 1380 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1158 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 5 SJ 433 1126 2033 (Procedures behave just like built-in commands:) 2033 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1252 360 (sub1 3) 360 SB 32 0 0 101 101 0 0 0 81 /ZapfDingbats font 0 0 0 fC 1034 1257 70 (\355) 70 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 1104 1252 60 ( ) 60 SB 151 0 10 fC 1164 1252 60 (2) 60 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1428 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 3 SJ 433 1396 1274 (Arguments can have defaults:) 1274 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1512 1260 (proc decr {x {y 1}} {) 1260 SB 470 1620 840 ( expr $x-$y) 840 SB 470 1728 60 (}) 60 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1901 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1869 1511 (Scoping: local and global variables.) 1511 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 151 0 10 fC 405 853 179 (name) 179 SB 709 978 761 (list of argument names) 761 SB 1845 853 166 (body) 166 SB 151 0 10 pC 6 4 SP 615 913 M 0 -67 275 0 2 PP S n /fm 256 def 890 787 M -18 -63 36 0 -18 63 3 PP 1 F n 6 4 SP 1815 913 M 0 -67 -300 0 2 PP S n /fm 256 def 1515 787 M -18 -63 36 0 -18 63 3 PP 1 F n 6 4 SP gs 3231 173 0 819 CB 1090 1188 M 0 -600 1 PP S n gr /fm 256 def 1090 787 M -18 -62 36 0 -18 62 3 PP 1 F n 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 13 13 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2143 2079 643 (December 1, 1994, slide 13) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -2 1 SJ 320 266 1202 (Procedures, cont'd) 1202 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 2 SJ 433 576 1337 (Variable-length argument lists:) 1337 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 693 900 (proc sum args {) 900 SB 470 800 660 ( set s 0) 660 SB 470 908 1260 ( foreach i $args {) 1260 SB 470 1016 1020 ( incr s $i) 1020 SB 470 1124 300 ( }) 300 SB 470 1232 780 ( return $s) 780 SB 470 1340 60 (}) 60 SB 470 1567 780 (sum 1 2 3 4 5) 780 SB 32 0 0 101 101 0 0 0 81 /ZapfDingbats font 0 0 0 fC 470 1680 70 (\355) 70 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 540 1675 60 ( ) 60 SB 151 0 10 fC 600 1675 120 (15) 120 SB 0 150 136 fC 470 1783 180 (sum) 180 SB 32 0 0 101 101 0 0 0 81 /ZapfDingbats font 0 0 0 fC 470 1896 70 (\355) 70 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 540 1891 60 ( ) 60 SB 151 0 10 fC 600 1891 60 (0) 60 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 14 14 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2143 2079 643 (December 1, 1994, slide 14) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 234 (Err) 233 SB 553 266 200 (ors) 200 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 533 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 4 5 SJ 433 501 1968 (Errors normally abort commands in progress,) 1968 SB 1 3 SJ 433 621 1507 (application displays error message:) 1507 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 739 350 (set n 0) 350 SB 470 829 1150 (foreach i {1 2 3 4 5} {) 1150 SB 470 920 1350 ( set n [expr {$n + i*i}]) 1350 SB 470 1010 50 (}) 50 SB 32 0 0 83 83 0 0 0 67 /ZapfDingbats font 0 0 0 fC 470 1104 58 (\355) 58 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 528 1096 21 ( ) 21 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 151 0 10 fC 549 1100 1850 (syntax error in expression "$n + i*i") 1850 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1254 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 2 SJ 433 1222 689 (Global variable ) 689 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1123 1228 540 (errorInfo) 540 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1 3 SJ 1663 1222 912 ( provides stack trace:) 912 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1340 650 (set errorInfo) 650 SB 32 0 0 83 83 0 0 0 67 /ZapfDingbats font 0 0 0 fC 470 1434 58 (\355) 58 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 528 1426 21 ( ) 21 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 151 0 10 fC 549 1430 1850 (syntax error in expression "$n + i*i") 1850 SB 470 1520 950 ( while executing) 950 SB 470 1610 850 ("expr {$n + i*i}") 850 SB 470 1700 1150 ( invoked from within) 1150 SB 470 1790 1400 ("set n [expr {$n + i*i}]...") 1400 SB 470 1881 1350 ( \("foreach" body line 2\)) 1350 SB 470 1971 350 ( ...) 350 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 15 15 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2143 2079 643 (December 1, 1994, slide 15) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1693 (Advanced Error Handling) 1693 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 2 SJ 433 576 908 (Can intercept errors:) 908 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 732 1320 (catch {expr {2 +}} msg) 1320 SB 32 0 0 101 101 0 0 0 81 /ZapfDingbats font 0 0 0 fC 470 857 70 (\355) 70 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 540 852 60 ( ) 60 SB 151 0 10 fC 600 852 60 (1) 60 SB 0 150 136 fC 470 1002 420 (set msg) 420 SB 32 0 0 101 101 0 0 0 81 /ZapfDingbats font 0 0 0 fC 470 1127 70 (\355) 70 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 540 1122 60 ( ) 60 SB 151 0 10 fC 600 1122 1920 (syntax error in expression "2 +") 1920 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1327 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 2 SJ 433 1295 891 (Can generate errors:) 891 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1451 1200 (error "bad argument") 1200 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1657 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1625 689 (Global variable ) 689 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1122 1631 540 (errorCode) 540 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1662 1625 1044 ( holds machine-readable) 1044 SB 2 5 SJ 433 1745 1578 (information about errors \(e.g. UNIX ) 1578 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 2012 1751 300 (errno) 300 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 2312 1745 311 ( value\).) 311 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 16 16 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2143 2079 643 (December 1, 1994, slide 16) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -2 2 SJ 320 266 1577 (Additional Tcl Features:) 1577 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 2 SJ 433 576 1382 (String manipulation commands:) 1382 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 732 360 (regexp) 360 SB 920 732 360 (format) 360 SB 1370 732 300 (split) 300 SB 1820 732 360 (string) 360 SB 470 852 360 (regsub) 360 SB 920 852 240 (scan) 240 SB 1370 852 240 (join) 240 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1058 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 2 SJ 433 1026 847 (File I/O commands:) 847 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1182 240 (open) 240 SB 920 1182 240 (gets) 240 SB 1370 1182 240 (seek) 240 SB 1820 1182 300 (flush) 300 SB 2420 1182 240 (glob) 240 SB 470 1301 300 (close) 300 SB 920 1301 240 (read) 240 SB 1370 1301 240 (tell) 240 SB 1820 1301 120 (cd) 120 SB 470 1421 240 (puts) 240 SB 920 1421 360 (source) 360 SB 1370 1421 180 (eof) 180 SB 1820 1421 180 (pwd) 180 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1627 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 2 SJ 433 1595 807 (Subprocesses with ) 807 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1242 1601 240 (exec) 240 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1 1 SJ 1482 1595 478 ( command:) 478 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1781 1680 (exec grep foo << $input | wc) 1680 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 17 17 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2143 2079 643 (December 1, 1994, slide 17) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -3 3 SJ 320 266 2003 (Additional Tcl Features, cont'd) 2003 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 1 SJ 433 576 812 (Associative arrays:) 812 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 732 840 (set x\(fred\) 44) 840 SB 470 852 1680 (set x\(2\) [expr $x\(fred\) + 6]) 1680 SB 470 972 780 (array names x) 780 SB 32 0 0 101 101 0 0 0 81 /ZapfDingbats font 0 0 0 fC 470 1097 70 (\355) 70 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 540 1092 60 ( ) 60 SB 151 0 10 fC 600 1092 360 (fred 2) 360 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1333 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1301 753 (Variable scoping:) 753 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1457 360 (global) 360 SB 1014 1457 420 (uplevel) 420 SB 1670 1457 300 (upvar) 300 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1699 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 3 SJ 433 1667 990 (Access to Tcl internals:) 990 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1823 240 (info) 240 SB 1014 1823 360 (rename) 360 SB 1670 1823 300 (trace) 300 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 18 18 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2143 2079 643 (December 1, 1994, slide 18) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -3 3 SJ 320 266 2003 (Additional Tcl Features, cont'd) 2003 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 683 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 651 423 (Autoloadi) 422 SB 855 651 139 (ng:) 139 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 803 50 (\226) 50 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 564 807 420 (unknown) 420 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 4 5 SJ 984 803 1733 ( procedure invoked when command doesn't) 1733 SB 564 923 95 (ex) 94 SB 658 923 120 (ist.) 120 SB 470 1073 50 (\226) 50 SB 6 5 SJ 564 1073 1766 (Loads procedures on demand from libraries.) 1766 SB 470 1223 50 (\226) 50 SB 3 4 SJ 564 1223 1249 (Uses search path of directories.) 1249 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 19 19 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2143 2079 643 (December 1, 1994, slide 19) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1467 (More On Substitutions) 1467 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 6 SJ 433 576 1981 (Keep substitutions simple: use commands like ) 1981 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 2416 582 360 (format) 360 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 3 2 SJ 433 696 1011 (for complex arguments.) 1011 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 878 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 846 180 (Use ) 180 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 613 852 240 (eval) 240 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 853 846 1326 ( for another level of expansion:) 1326 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1002 660 (exec rm *.o) 660 SB 32 0 0 101 101 0 0 0 81 /ZapfDingbats font 0 0 0 fC 470 1127 70 (\355) 70 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 540 1122 60 ( ) 60 SB 151 0 10 fC 600 1122 1800 (*.o: No such file or directory) 1800 SB 0 150 136 fC 470 1272 480 (glob *.o) 480 SB 32 0 0 101 101 0 0 0 81 /ZapfDingbats font 0 0 0 fC 470 1397 70 (\355) 70 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 540 1392 60 ( ) 60 SB 151 0 10 fC 600 1392 420 (a.o b.o) 420 SB 0 150 136 fC 470 1542 1080 (exec rm [glob *.o]) 1080 SB 32 0 0 101 101 0 0 0 81 /ZapfDingbats font 0 0 0 fC 470 1666 70 (\355) 70 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 540 1661 60 ( ) 60 SB 151 0 10 fC 600 1661 2040 (a.o b.o: No such file or directory) 2040 SB 0 150 136 fC 470 1811 1380 (eval exec rm [glob *.o]) 1380 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 20 20 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2143 2079 643 (December 1, 1994, slide 20) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 2309 (Commands And Lists: Quoting Hell) 2309 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 558 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 7 7 SJ 433 526 2379 (Lists parse cleanly as commands: each element becomes) 2379 SB -1 1 SJ 433 646 423 (one word.) 423 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 828 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 5 6 SJ 433 796 2014 (To create commands safely, use list commands:) 2014 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 947 2450 (button .b -text Reset -command {set x $initValue}) 2450 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 0 0 0 fC 470 1043 28 (\() 28 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 498 1047 450 (initValue) 450 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 948 1043 919 ( read when button invoked\)) 919 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1172 1550 (... -command "set x $initValue") 1550 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 0 0 0 fC 470 1268 267 (\(fails if ) 267 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 737 1272 450 (initValue) 450 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 1187 1268 133 ( is ") 133 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 1320 1272 400 (New York) 400 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 1720 1268 482 (": command is) 482 SB 470 1368 35 (") 35 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 505 1372 700 (set x New York) 700 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 1205 1368 63 ("\)) 63 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1497 1650 (... -command "set x {$initValue}") 1650 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 0 0 0 fC 470 1593 267 (\(fails if ) 267 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 737 1597 500 (initValue ) 500 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 1237 1593 112 (is ") 112 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 1349 1597 50 ({) 50 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 1399 1593 538 (": command is ") 538 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 1937 1597 450 (set x {{}) 450 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 2387 1593 63 ("\)) 63 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1722 1800 (... -command [list set x $initValue]) 1800 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 0 0 0 fC 470 1818 600 (\(always works: if ) 600 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 1070 1822 500 (initValue ) 500 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 1570 1818 112 (is ") 112 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 1682 1822 50 ({) 50 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 1732 1818 515 (" command is ") 515 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 2247 1822 400 (set x \\{) 400 SB 32 0 0 84 84 0 0 0 75 /Times-Roman /font32 ANSIFont font 2647 1818 63 ("\)) 63 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 21 21 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2143 2079 643 (December 1, 1994, slide 21) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -2 2 SJ 320 266 1361 (Tcl Syntax Summary) 1361 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 6 SJ 433 576 1911 (Script = commands separated by newlines or) 1911 SB 433 696 485 (semicolons.) 485 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 890 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 6 SJ 433 858 1931 (Command = words separated by white space.) 1931 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1052 59 (u) 59 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 433 1026 60 ($) 60 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 493 1020 1229 ( causes variable substitution.) 1229 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1214 59 (u) 59 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 433 1188 120 ([]) 120 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1 3 SJ 553 1182 1299 ( causes command substitution.) 1299 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1376 59 (u) 59 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 433 1350 120 ("") 120 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 553 1344 1550 ( quotes white space and semi-colons.) 1550 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1538 59 (u) 59 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 433 1512 120 ({}) 120 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1 4 SJ 553 1506 1246 ( quotes all special characters.) 1246 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1700 59 (u) 59 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 433 1674 60 (\\) 60 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 493 1668 2244 ( quotes next character, provides C-like substitutions.) 2244 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1862 59 (u) 59 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 0 0 fC 433 1836 60 (#) 60 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 5 8 SJ 493 1830 2170 ( for comments \(must be at beginning of command\).) 2170 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Trailer SVDoc restore end %%Pages: 21 % TrueType font name key: % MSTT31c1ca = 4877DTimes New RomanF00000000000002bc0000 % MSTT31c1d7 = 4877DTimes New RomanF00000064000002bc0000 % MSTT31c1e4 = 4877DTimes New RomanF0000004b000002bc00ff % MSTT31c1f1 = 4877DTimes New RomanF0000003a0000019000ff % MSTT31c1fe = 4877DTimes New RomanF00000064000001900000 % MSTT31c20b = 4877DMonotype SortsF0000004b000001900000 % MSTT31c218 = 4877DTimes New RomanF00000054000002bc0000 % MSTT31c225 = 4877DMonotype SortsF0000003f000001900000 % MSTT31c232 = 4877DTimes New RomanF000000640000019000ff % MSTT31c23f = 4877DTimes New RomanF00000054000001900000 % MSTT31c24c = 4877DTimes New RomanF00000064000002bc00ff % MSTT31c261 = 4877DMonotype SortsF00000000000001900000 % MSTT31c26e = 4877DMonotype SortsF00000053000001900000 %%DocumentSuppliedResources: procset Win35Dict 3 1 %%DocumentNeededResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-BoldItalic %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%EOF Page: 19 19 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 5 SJ 320 2079 859 (Tcl/Tk Tutorial Part II: Tcl Scripting) 859 SB 2143 2079 64tut/over.ppt010077700630510000012000002610000573603516300141250ustar00ousterstaff00002300000036ÐÏࡱá;þÿ ©þÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿÿÿ¯ýÿÿÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€Root Entryÿÿÿÿÿÿÿÿ†_2e»ò¹ª€ PP40 ÿÿÿÿÿÿÿÿÿÿÿÿKSummaryInformation(ÿÿÿÿÿÿÿÿØCurrent Userÿÿÿÿÿÿÿÿÿÿÿÿ$‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨þÿÿÿþÿÿÿ«¬­®þÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿíÞ­ ó‰Kfò€(xZ€€€€€€€€€ÀÀÀ€€€ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðððððððððððððððððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿðÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿññññÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñññÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñññÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿññÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDôDOÿDOôôOOôôôOôÿôDOÿôÿDOÿDDDDOÿOôDÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿOOOOôÿOôôDDôôôDôDôôOÿôÿOOÿôDôOOÿOôOÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿôODOôÿODDOODDôOODôODÿôÿDOÿDôDDOÿOôôÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDOÿÿÿÿÿôÿÿÿÿÿÿDÿDDÿOÿÿÿÿÿOôDDÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€5@€M€€D€&€Ñ"€÷€ @€1 €q €q €q &€ƒ$"€©$€Ë$@€ã$€#%€#%ê€#%&€ '"€3'€U'@€m'€­'€­'°€­'&€]+"€ƒ+€¥+ €½+€Ý,<€÷,´€3-&€ç2"€ 3€/3@€G3€‡4<€¡4þ€Ý4&€Û9"€:€#:@€;:€{:€{:|€{:&€÷>"€?€??@€W?€—?€—?Ö€—?&€mC"€“C€µC@€ÍC€ D€ D\€ D&€iF"€F€±F €ÉF€éKü€éKš€åL&€S"€¥S€ÇS €ßS€ÿZ\€ÿZô€[\&€Oc"€uc€—c@€¯c€ïc€ïcX€ïc&€Gg"€mg€g@€§g€çg€çg€çg&€íj"€k€5k@€Mk€l€§l`€§l&€p"€-p€Op€€gp€çp€çpš€çp&€s"€§s€És`€ás€At€At`€At&€¡|"€Ç|€é|@€}€A}€A}¤€A}&€å€"€ €-@€E€…€…$€…&€©„"€Ï„€ñ„@€ …€I…€I…D€I…&€ˆ"€³ˆ€Õˆ@€íˆ€-‰€-‰"€-‰&€O"€u€—@€¯€ï€ï`€ï&€O‘"€u‘€—‘@€¯‘€ï‘€ï‘¾€ï‘&€­•"€Ó•€õ•@€ –€M–€M–¢€M–&€ï˜"€™€7™@€O™€™€™€™&€•›"€»›€Ý›@€õ›€5œ€5œj€5œ&€Ÿž"€Åž€çž@€ÿž€?Ÿ€?Ÿ€€?Ÿ&€¿¢"€å¢€£@€£€_£€_£h€_£&€Ç¦"€í¦À€§€Ï¨€å¨ €ý¨€©€©B€©&€ß¬@€­€E­€E­P€E­&€•®"€»®€Ý®@€õ®€5¯€5¯€5¯&€C¯"€i¯€‹¯€£¯€£¯€£¯€£¯&€±¯"€×¯€n@ù¯<€y€µ@Ó<€Ó=€>*€->€W>€g>€>"€›>€½>€×>"€ñ>B€?€U?R€å?v€7@v€­@$€#A€GA"€YEl€{Eð€çH€×J’€ëJÿÿÿÿ AGpöPû þýÿ¬w5 Aƒ÷ÿ0 pýÿÄw5¦r€ªömûV þÿÿÿÿTÿuÿÿK0dAn Overview of Tcl and Tkÿ $ÿ•ÿÿd3d2€:÷-ÿöSÿÿ$ÿÿÿ•ÿÿddcJohn Ousterhout Sun Microsystems Laboratories john.ousterhout@eng.sun.com Tcl/Tk Tutorial, Part Iÿ c.cTuK0dTuK0dTuK0dTuK0dTuK0dTuK0dì '.ÿÿÿÿ AKö¨÷Ð`úýÿì¯> AƒöÀú ýÿÔ¯>š²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd Introductioni  $  ÿ•ÿÿdd2€JöÝúÆãÿÿ$ÿÿÿ•ÿÿdd•Component technologies: Tcl: embeddable scripting language Tk: GUI toolkit and widgets based on Tcl. The principle: universal scripting language controls everything: functions, interfaces, communication. Results: Raise the level of X programming: simpler, 5-10x faster application development. Greater power: more things programmable, applications work together. Active objects: replace data with scripts. • MD 1 8•UuKd#–ÿÿdd*–ÿÿddgUuKdF UuKdFQ–ÿÿddE–ÿÿdd*–ÿÿdd À œ '. ÿÿÿÿ AKö¨÷Ð`úýÿ„4 Aƒö û ýÿ¼'.”²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddOutlinew $ÿ•ÿÿdd2€Jö=ûÆãÿÿÿÿUÿuÿÿKddhTcl scripting language. Tk toolkit. Tk applications. Survey of applications and extensions. Conclusions. hhhUuKd UuKddUuKdd'UuKdd UuKddÿÿ??L '.ÿÿÿÿ AKö¨÷Ð`úýÿä¯> Aƒö°û ýÿœ ¯>¦²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdTcl: Tool Command Language $ÿ•ÿÿdd2€JöÍûÆãÿÿ$ÿÿÿ•ÿÿdd8Interactive programs need command languages: Typically redone for each application. Result: weak, quirky. emacs and csh powerful, but can't reuse. Solution: reusable scripting language. Interpreter is a C library. Provides basic features: variables, procedures, etc. Applications extend with additional features. 8 -= ~8-UuKd'–ÿÿdd–ÿÿdd)–dd'UuKdd–ÿÿdd5–ÿÿdd-–ÿÿddÿÿ??ü '.ÿÿÿÿ AKö¨÷Ð`úýÿ„4 Aƒ€õ@ÿpÿýÿô40AÐÿ@ÿà ýÿÜ'.a°õ° ÐýÿÄEböü ý! üÇJ„ oCa8û û˜üýÿ¼ '.a ûÐüýÿÌ oCaàõ û øüýÿ”EïVÓþzÿ½þýÿ½þ ÿÓþ ÿÓþ¦ÿéþ ö€û0 `ýö€ûÀ÷€ûPøàûàû€û0 pü`ýýPøýÀ÷`ýö`ý0÷püÈdÈ2€ ]ÿ¦ ãÿÿÿÿÿ–ÿÿddŠInteractive commands, scripting: Performance less important. Minimum structure: less overhead, easy interchange. Goal: enable good things. Š!PŠ!UuKd–ÿÿdd4–ÿÿdd–ÿÿdd3€êõÍf³ÿÿÿÿÿ•ÿÿdd2"One language can't meet all needs? """"ÿ•ÿÿdd23€rû=û^ýûÿÿÿÿÿ•ÿÿdd2Program size, complexity, reuse ÿ•ÿÿdd23€Ê=û–êûÿÿÿÿÿ•ÿÿdd21 ÿ•ÿÿdd23€ö=ûæ÷êûÿÿÿÿÿ•ÿÿdd2¥  ÿ•ÿÿdd2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddScripting Language Philosophyi $ÿ•ÿÿdd2€ºõ]ÿ6ÿãÿÿÿÿÿ–ÿÿdd]Large, complex applications: Performance important. Need structure. Goal: prevent bad things.a ]']UuKd–ÿÿdd–ÿÿdd–ÿÿdd  ÿÿ??¬ '.!ÿÿÿÿ AKö¨÷Ð`úýÿ|. Aƒ€õÐÿpýÿ„'Ebö°û 0ý! 4'E|'Ea8ûÀú˜ºûýÿt.aÀúЧûýÿt'EaàõÀú ø§ûýÿ,'EHöÀýÀÀýH þ°þ °þaöÀýÀºþýÿì'Ea þÀý ºþýÿ< .ïVÓþzÿ½þýÿ½þ ÿÓþ ÿÓþ¦ÿéþ ö€û0 `ýö€ûÀ÷€ûPøàûàû€û0 pü`ýýPøýÀ÷`ýö`ý0÷pü®B®3€rûÝú^ûÿÿÿÿÿ•ÿÿdd2Program size, complexity, reuse ÿ•ÿÿdd23€ÊÝú–Šûÿÿÿÿÿ•ÿÿdd21 ÿ•ÿÿdd23€öÝúæ÷Šûÿÿÿÿÿ•ÿÿdd2¥  ÿ•ÿÿdd23€JöÝý†þÿÿÿÿÿ•ÿÿdd2C ÿ•ÿÿdd23€ZþÝýfþÿÿÿÿÿ•ÿÿdd2Tcl ÿ•ÿÿdd2²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdTwo-Language Approach $ÿ•ÿÿdd2€ºõíÿ6ãÿÿ$ÿÿÿ•ÿÿdd½Use Tcl for scripting, C or C++ for large things. Goals for Tcl: Minimal syntax: easy to learn and type. Minimal structure: make things play together. Simple interfaces to C: extensibility.i ½A|½2UuKdUuKd(–ÿÿdd.–ÿÿdd&–ÿÿdd'$ À%&\ '.#(Qÿÿÿÿ AKö¨÷Ð`úýÿ„4 Aƒö û ýÿì 4¦²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddTcl: Tool Command Language $ÿ•ÿÿdd2€Jö=ûV ãÿÿÿÿÿ ÿÿdd³Simple syntax (similar to sh, C, Lisp): set a 47 í 47 Substitutions: set b $a í 47 set b [expr $a+10] í 57 Quoting: set b "a is $a" í a is 47 set b {[expr $a+10]} í [expr $a+10]u ³(  ³(UuKd ÿÿddUuKd2 ÿÿdd ÿÿdd UuKd2 ÿÿdd# ÿÿdd.+ÿÿ??,- '.*/ÿÿÿÿ AKö¨÷Ð`úýÿ„4 AƒöÀú ýÿl4¤²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddMore On The Tcl Language $ÿ•ÿÿdd2€JöÝúÆãÿÿÿÿÿ–ÿÿdd  Rich set of built-in commands: Variables, associative arrays, lists. C-like expressions. Conditionals, looping: if "$x < 3" { puts "x is too small" } Procedures. Access to UNIX files, subprocesses. Only representation is strings: Easy access from C. Programs and data interchangeable. Q)0 6  UuKd&–ÿÿdd –ÿÿdd –ÿÿdd »ÿÿdd»ÿÿdd»ÿÿdd –ÿÿdd $–ÿÿdd UuKd–ÿÿdd "–ÿÿdd 52ÿÿ??34¼'.16ÿÿÿÿ AKö¨÷Ð`úýÿ„4 Aƒö û ýÿoC ²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddFactorial Procedure $ÿ•ÿÿdd 2€Jö=ûÆãÿÿÿÿTÿuÿÿKdQproc fac x { if $x<=1 {return 1} expr $x*[fac [expr $x-1]] } fac 4 í 24 QDQ TuKdTuKdTuKdTuKdTuKd TuKd<9:;l'.8=9ÿÿÿÿ AKö¨÷Ð`úýÿüw5 Aƒö ûÀýÿŒ .IP°pýÿIà@pýÿIpÐpýÿI`pýÿIðpýÿI€àpýÿIðPpýÿI`ÀpýÿIÐ0pýÿA€€þÀ@ÿýÿœ ¯>AÐpüà0ýýÿ¼.Ap þ@ ÿýÿL .Hp@ÿpðH @ÿ ÀHÐ@ÿÐH@ÿ`H0@ÿ00H@@ÿ@ H@ÿHà@ÿà H`@ÿ`B`°Ì¯>B00  FB`\¯>BÐŒFB ÀÀ„ FBpð0l¯>B@  ¤w5B€ àLFHpàþÀàþHð0ýð þB ÐüЀþä .Bà`ý àþä'EAà@ü Pýÿap Ðýÿ|FAð@üPPýÿ‡5aðpPÐýÿ„w5að€ûPMüýÿ¤.a@€û MüýÿdFð°þ° ÿð°þ°°þ° ÿ° ÿÀàþ  ÿÀàþ àþ  ÿÿ ÿÿÿ ÿ`@ÿ ÿ`@ÿ@ÿ ÿ0pÿP0pÿPpÿP ÿÀ ÿÀ ÿÀÐÿÐÿ0`ÐÿÐÿ0Ðÿ0`ÿÐÿpÿ`pÿÐÿÿÐÿÿ`0€ûÐ0ýЀû0€û00ýàüýpýýüàüàÐüè„mnèp€Ä§þ|ÿÿÿÿÿÿ•ÿÿddParser ÿ•ÿÿddp€—üœ ýÿÿÿÿÿ•ÿÿddInit ÿ•ÿÿddp€´Gþüyÿÿÿÿÿÿ•ÿÿdd Command Loop   ÿ•ÿÿdUÿ•ÿÿdU3€Jf³ÿÿÿÿÿ•ÿÿdd2Application Commands ÿ•ÿÿdU23€*³ÿÿÿÿÿ•ÿÿdU2Built-In Commands ÿ•ÿÿdU23€*û0üÿÿÿÿÿ•ÿÿdU2Tcl ÿ•ÿÿdU23€zûf0üÿÿÿÿÿ•ÿÿdU2 Application(    ÿ•ÿÿdU2²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdEmbedding Tcl In Applications $ÿ•ÿÿdd 2€Jö=û†ãÿÿ$ÿÿÿ•ÿÿdd ûApplication generates scripts. Tcl parses scripts, passes words to command procedures. Application extends built-in command set: Define new object types in C. Implement primitive operations as new Tcl commands. Build complex features with Tcl scripts. ûzûUuKd8UuKd2*UuKd2–ÿÿdd4–ÿÿdd(–ÿÿddC@)) ,AB5?D'ÿÿÿÿ AKö¨÷Ð`úýÿ„4 AƒöÐ ýÿ”ÇJI þÀ€þ ýÿI°þÀÿ ýÿI@ÿÀ ÿ ýÿIÐÿÀ0 ýÿI`ÀÀ ýÿIPÀ° ýÿIÀÀ  ýÿI0À ýÿI À ýÿA þýÀPþýÿ” oCA €û°@üýÿ\ EA@0ý°þýÿW=H ÿPþ ÿHÐÿPþÐÿÐÿHPþ ÿH0Pþ0pÿH`Pþ`@ÿH@ÿPþ@ÿHpÿPþpÿÀHÿPþÿÐÿHPþÿBÿ€À oCB`@ÿðÁL'.B0pÿ`Àt ÇJB ÿÐÀÇJBÐÿÑÿÁt oCB ÿÀ< ÇJBàþ@ÿÀÜW=BPþÐÿÿÀ´4H@ðýÀðýHÀ@üÀ0ýBpÿàû ý¬ '.B°püpðý¼W=A°PûРýÿaà p€ýÿÔEAÀýPû  ýÿ‡5aÀý  €ýÿ4EaÀýú ]ûýÿ Eaúp]ûýÿ, E58A ùPûÐü ýÿ‡5apù ý€ýÿ4 oCa ùúÐü]ûýÿToCHàþPþàþ ÿH°þPþ°þpÿH€þPþ€þ@ÿHPþPþPþÿBü ÿàþÀdoCB€ûoÿ°þÀü'.Bðú?ÿ€þÀ< 4B`úÿPþÀDoCI0úÀú ýÿIÀúÀ û ýÿIPûÀ°û ýÿIàûÀ@ü ýÿDÆþ°ŠÿDÆþ°Æþ°Šÿ°Šÿóþ ÿóþ óþ ÿá ÿÿá ÿ ÿÿ¯Lÿ”ÿ¯LÿLÿ”ÿ…ÿPìÿ…ÿP…ÿPìÿ`°ÿÀðÿ`°ÿÀ°ÿÀðÿ ÿÐÿCÐÿ ÿÐÿ ÿCÿ³ÿÐÿ`Ðÿ³ÿÿ³ÿÿ`0€ûÐ0ýЀû0€û00ýàüýpýýüàüàÐüÿ–ÿàCà–ÿÿ–ÿÿCÿyÿ@C@yÿÿzÿÿCÿ\ÿ C \ÿÿ]ÿÿCÿ?ÿC@ÿÿ?ÿÿCˆp€dþ·ý|)þÿÿÿÿÿ•ÿÿddParser ÿ•ÿÿddp€ä§ûlüÿÿÿÿÿ•ÿÿddInit ÿ•ÿÿddp€„Wý̉þÿÿÿÿÿ•ÿÿdU Command Loop   ÿ•ÿÿdUÿ•ÿÿdU3€=6cÿÿÿÿÿ•ÿÿdU2Application Commands ÿ•ÿÿdU23€úý=æcÿÿÿÿÿ•ÿÿdU2Built-In Commandsÿ ÿ•ÿÿdU23€úý­úæ@ûÿÿÿÿÿ•ÿÿdU2Tclÿ ÿ•ÿÿdU23€J­ú6@ûÿÿÿÿÿ•ÿÿdU2 Application    ÿ•ÿÿdU23€ªù=Æücÿÿÿÿÿ•ÿÿdU2Extension Commands ÿ•ÿÿdU23€Úù­ú–ü@ûÿÿÿÿÿ•ÿÿdU2 Extensionÿ    ÿ•ÿÿdU2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿdd Extensions  $  ÿ•ÿÿdd 2€JöíÆãÿÿÿÿUÿuÿÿKd•Extensions can be developed independently: Network communication, database access, security, ... Applications can include combinations of extensions. •+64•+UuKd6–ÿÿdd4UuKdJG95HIÌ5FKZÿÿÿÿ AKö¨÷Ð`úýÿ„4 Aƒö û` ýÿŒ'.šms²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddThe Tk Toolkit $ÿ•ÿÿdd 2€Jö=û& ãÿÿÿÿÿ–ÿÿddThe problem: Too hard to build applications with nice user interfaces. The wrong solution: C++, object-oriented toolkits. Only small improvement (10-20%?): must still program at a low level. The right solution: Raise the level of programming. Create interfaces by writing Tcl scripts.  :d+ UuKd:–ÿÿddUuKd–ÿÿddE–ÿÿddUuKd –ÿÿdd)–ÿÿddQNëÿÿOP|5MR^ÿÿÿÿ AKö¨÷Ð`úýÿÌ F Aƒö û ýÿÔ .¬²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd Creating User Interfaces With Tk  $  ÿ•ÿÿdd 2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿddçAdditional Tcl commands: Create Motif-like widgets. Arrange widgets. Bind events to Tcl commands. Manipulate X selection, focus, window manager, etc. Library of C procedures: Create new widget classes. Create new geometry managers. ç}8çUuKd–ÿÿdd–ÿÿdd–ÿÿdd4–ÿÿddUuKdd–ÿÿdd–ÿÿddXUÿÿ??VW,5TY@ÿÿÿÿ  Aƒö û ýÿD5AKö¨÷Ð`úýÿ|g3 apÿãÿ@ÝýÿÜg3Càþ@ÿ@ÿ ÿ Càþ @ÿ€`úCÿ0pÿìg3`úH@ÿ@ÿPH@ÿpÿ@ÿ0C@ÿ ÿ`à`ú—7ZÑ@ Xÿx˜4mo˜3€ªÿÀÿÿÿÿÿ•ÿÿdd2 Tcl commands    ÿ•ÿÿdd2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddWhat's A Tk-Based Application? $ÿ•ÿÿdd2€Jö=ûÆãÿÿÿÿÿ–ÿÿdd¹The Tcl interpreter. The Tk toolkit. Application-specific C code (primitives!): New object types. New widgets. Tcl scripts (compose primitives): Build user interface. Respond to events./ ¹P"(¹UuKdUuKdF+UuKdF–ÿÿdd –ÿÿdd"UuKdF–ÿÿdd–ÿÿdd_\ ü]^Ü5[`aÿÿÿÿ AKö¨÷Ð`úýÿ„4 Aƒö û ýÿô 4M«þ )ýÿ8øbÿ¾û@ýÿ¢²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddWish: Windowing Shell $ÿ•ÿÿdd2€Jö=ûÆãÿÿÿÿUÿuÿÿKd½Create user interfaces by writing Tcl scripts. Hello, world: button .hello -text "Hello, world" -command exit pack .hello Simple directory browser: 30 lines 10x less code for simple things.ÿ ½=<C½/UuKdUuKd1–dd –dd#UuKd UuKdfcÿÿ??deŒ5bgAÿÿÿÿ AKö¨÷Ð`úýÿ„4 Aƒ õ û ÿýÿœ'.0A0 û° ýÿ$ oCBÔmoB2€j=ûv ãÿÿÿÿTÿuÿÿKdbind .list { browse $dir [selection get] } bind all {destroy .} proc browse {dir file} { if {$dir != "."} { set file $dir/$file } if {file isdirectory $file] { exec browse $file & } else { if [file isfile $file] { exec xedit $file & } else{ error "can't browse $file" } } } f$$TuKd TuKdTuKd!TuKdTuKdTuKdTuKdTuKdTuKd"TuKdTuKd TuKd!TuKdTuKdTuKd'TuKd TuKdTuKdTuKd²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddBrowser Wish Script $ÿ•ÿÿdd2€Zõ=ûfÿãTuKd =#!/usr/local/bin/wish -f listbox .list -yscroll ".scroll set" \ -geometry 20x20 pack .list -side left scrollbar .scroll -command \ ".list yview" pack .scroll -side right -fill y if {$argc > 0} { set dir [lindex $argv 0] } else { set dir . } foreach i [lsort [glob * .*]] { .list insert end $i } ÿ =¼=TuKd TuKd 'TuKd TuKd TuKd TuKd TuKd !TuKd TuKd TuKd TuKd TuKd TuKd TuKd TuKd TuKd TuKd mj8ltkl<5in—3cÿÿÿÿ AKö¨÷Ð`úýÿ„4 Aƒö û ýÿÄEž²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddOther Uses For Tcl $ÿ•ÿÿdd2€Jö=ûV ãÿÿÿÿÿ–ÿÿdd<Data representation: Store data on disk as Tcl scripts. To load information, evaluate script. Active objects: Store scripts in objects. Evaluate scripts at interesting times to give objects behavior. Communication: send Tcl scripts between applications. Executable content: Active e-mail messages, Web pages. Agents. <IZJ*< UuKd#–ÿÿdd&–ÿÿddUuKd–ÿÿdd@–ÿÿdd6UuKdUuKd#–ÿÿdd–ÿÿddtqÿÿ??rsì5puBÿÿÿÿ AKö¨÷Ð`úýÿ„4 Aƒö ûÀ ýÿ<'.’²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddStatus $ÿ•ÿÿdd2€Jö=û† ãÿÿÿÿUÿuÿÿKd2/Runs on all UNIX/X platforms. PC/Mac ports coming soon. Source and documentation freely available. Large community of developers and users: 50,000-100,000 developers as of January 1994? Dozens of commercial products, free extensions. Newsgroup: comp.lang.tcl. Introductory book published in April, 1994.ÿ /Œ.u/UuKdUuKd2+UuKd2)UuKd2.–ÿÿdd 0UuKd2UuKd2+UuKd2{xΰyzœ5w|Cÿÿÿÿ AKö¨÷Ð`úýÿ„'E AƒöÀú ýÿ„.¨²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdRepresentative Applications $ÿ•ÿÿdd2€JöÝúÆãÿÿ$ÿÿÿ•ÿÿddNetwork management using SNMP. Multimedia, groupware. Active e-mail messages. System administration. Testing. Scientific applications: instrument control, simulation, visualization, CAD. British teletext system. Mars Pathfinder flight software. Feature animation at Walt Disney Studios. ‡3d UuKdUuKdUuKdUuKd UuKdMUuKdUuKd!UuKd)UuKd‚ïÿ¼€L5~ƒfÿÿÿÿ AKö¨÷Ð`úýÿ<F Aƒö û ýÿœ.ž²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdPopular Extensions $ÿ•ÿÿdd2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿdd*Available via public FTP: ftp://ftp.aud.alcatel.com/tcl Expect: remote control for interactive programs such as ftp, telnet, crypt, and fsck: #!/usr/local/bin/expect spawn rlogin [lindex $argv 0] expect -re "($|#) " send "cd [pwd]\r" expect -re "(%|#) " send "setenv DISPLAY $env(DISPLAY)" interact *2œ* UuKd–ddVUuKd2–ÿÿdd–ÿÿdd–ÿÿdd–ÿÿdd–ÿÿdd$–ÿÿdd–ÿÿdd‰†ïÿ¼‡ˆü5…Šjÿÿÿÿ AKö¨÷Ð`úýÿ„4 Aƒö û ýÿüoC¦²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddPopular Extensions, cont'd $ÿ•ÿÿdd2€Jö=ûÆãÿÿÿÿUÿuÿÿKd2÷TclX: general-purpose extensions: POSIX system calls. Keyed lists. File scanning (similar to awk). Date/time manipulation. Debugging, help, profiling. Oratcl and Sybtcl: access to commercial databases. Incr tcl: object-oriented programming in Tcl. ÷ u"%÷"UuKd–ÿÿdd –ÿÿdd –ÿÿdd–ÿÿdd–ÿÿdd3UuKd2-UuKd2ôŽ¬5Œ‘mÿÿÿÿ AKö¨÷Ð`úýÿŒoC Aƒö û€ ýÿ,'.¦²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿddPopular Extensions, cont'd $ÿ•ÿÿdd2€Jö=ûF ãÿÿÿÿÿ»ÿÿddTcl-DP: socket-based remote procedure calls, distributed objects. Sample server: set myId 0 proc GetId {} { global myId incr myId return $myId } dp_MakeRPCServer 4545 Sample client: set server [dp_MakeRPCClient foo.bar.com 4545] dp_rpc $server GetId <aC BUuKd–ÿÿdd »ÿÿdd»ÿÿdd»ÿÿdd»ÿÿdd»ÿÿdd»ÿÿdd»ÿÿdd–ÿÿdd /»ÿÿdd»ÿÿdd—”À•–\5“˜pÿÿÿÿ AKö¨÷Ð`úýÿ\. AƒöPû ýÿô .ž²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdxFree Wish Scripts $ÿ•ÿÿdd2€JömûÆãÿÿ$ÿÿÿ•ÿÿdd¦wtour: interactive introduction to writing scripts for Tk. exmh: Tcl-based mail reader. XF: interactive GUI builder for Tk. tkinspect: widget browser. Many others.... ¦6" !¦;UuKdxUuKdx$UuKdxUuKdxUuKdxž›üœ 5šŸtÿÿÿÿ AKö¨÷Ð`úýÿì F Aƒö€û ýÿ¬ .ª²€JöÅ÷–CúÿÿÿÿUÿuÿÿKd–Where You Might Use Tcl and Tk $ÿ•ÿÿdd2€JöûÆãÿÿ$ÿÿÿ•ÿÿdd‰Creating graphical user interfaces. Testing. Applications that need scripting or extension facilities. Platform-independent applications.c ‰‰‰$UuKd– UuKd–:UuKd–"UuKd–¥¢ô£¤¼ 5¡¦xÿÿÿÿ AKö¨÷Ð`úýÿÄ ¯> Aƒö°û ýÿ¼ F–²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdÈ Drawbacks  $  ÿ•ÿÿdd2€JöÍûÆãÿÿ$ÿÿÿ•ÿÿdd½Must learn new language (substitution rules confusing to some people). Interpreted language has performance limits (but surprisingly high). C interfaces incompatible with Xt, Motif library. ½  I' ½GUuKdÈEUuKdÈ1UuKdȬ©ltª«l 5¨­{ÿÿÿÿ AKö¨÷Ð`úýÿdç Aƒö û ýÿÌ ‡5 ²€JöÅ÷–CúÿÿÿÿUÿuÿÿKdPlans For The Future $ÿ•ÿÿdd2€Jö=ûÆãÿÿ$ÿÿÿ•ÿÿdd2Increase accessibility: Port to PCs and Macs. Better development tools: GUI builder, etc. Improve the language/toolkit: Incremental on-the-fly compiler. Better support for modules, data structures. Better internationalization (Asian character sets). Create exciting Internet applications: Active documents? 2B‚'2 UuKd–ÿÿdd,–ÿÿddUuKd!–ÿÿdd-–ÿÿdd4–ÿÿdd'UuKd–ÿÿdd³°wa freel±² 5¯´5ÿÿÿÿ AKö¨÷Ð`úýÿ, . Aƒö û ýÿ$.˜²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿdd Conclusions  $  ÿ•ÿÿdd2€Jö=ûÆãÿÿÿÿTÿuÿÿKddHigh-level programming: Less to learn. Build applications more quickly. Universal scripting language: Extend and modify applications at run-time. Make many things work together. Use scripts instead of data: Active objects, executable content. Tcl + Tk = shell of the 1990's? 0L$ UuKd–ÿÿdd!–ÿÿddUuKd,–ÿÿdd –ÿÿddUuKd$–ÿÿddTuKddº·ÿÿ??¸¹Ì 5¶»  ")07>ELSZahov}„‹’™ §®µ¼T½}œ'.NUÿÿÿÿ Hðô0ú°0úAKö¨÷Ð`úýÿoC Aƒö û ýÿüEaö`À ýÿTÇJaPþ` ýÿ$4DâD3€Jö}†ÿÿÿÿÿ•ÿÿdd2 Tcl/Tk Tutorial Part I: Overview    ÿ•ÿÿdd23€Šþ}Æÿÿÿÿÿ•ÿÿdd2December 1, 1994, slide ## ÿ•ÿÿdd2²€JöÅ÷–Cúÿÿ$ÿÿÿ•ÿÿdd Click to edit Master title style  $  ÿ•ÿÿdd2€Jö=ûÆãÿÿÿÿÿ–ÿÿddRClick to edit Master text styles Second Level Third Level Fourth Level Fifth Level R! $R!UuKd –ÿÿdd »ÿÿdd UuAd –ddÃÀÁ AƒÐùpÿ0 ýÿì/^A`úpö àþýÿ2€ úÿös ÿÿ ÿÿÿ•ÿÿddSClick to edit Master notes styles Second Level Third Level Fourth Level Fifth Level SS S"ÿ•dd ÿ•dd ÿ•dd ÿ•dd ÿ•ddÈÅÿÿÆÇÔ'.¿ÄÉO74NUÿÿÿÿ Aú ö ÿþÿ>Aú`` þÿ>ÏÌÿÿÿÿÍÎÌ '.ËÐNUÿÿÿÿ ÖÓÿÿÿÿÔÕÔ '.Ò×=* &7&&  ñ¹ñ¹û ÿ2Modern@- !Title: browse!Creator: xgrabsc!'CreationDate: Fri Oct 14 09:28:39 1994ó&%ÛÙ%MSEPS Preamble 0 0 185 241 0 0 185 241 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 185 def /pp_by2 241 def &&ü-úþÿÿ- ñ¹'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: browse %%Pages: 1 %%BoundingBox: 0 0 185 241 %%CreationDate: Fri Oct 14 09:28:39 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 185 241 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 21 string def /drawcolormappedimage { 185 241 8 [185 0 0 -241 0 241] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 e2cbae drawcolormappedimage ce0000018900000115000001010013020001000088020001000013020101 010013020001000088020001000013020101010001021201000089010000 110101020101010001020001af000102010101000102000100000f020001 00007602000100000f02000100000f020001000001020101010001020001 00000f02000100007602000100000f02000100000f020001000001020101 01000102000100000f02000100007602000100000f02000100000f020001 00000102010101000102000100000f0200010000240201034f0200010000 0f0200010000020209000202000100000102010101000102000100000f02 00010000240201034f02000100000f020001000002020000070200010202 000100000102010101000102000100000f02000100002402010300020103 010201030002010300020303010201030102010301020103010203030202 03032702000100000f020001000002020000070200010202000100000102 010101000102000100000202090002020001000024020203000201030002 060301020103000201030102010301020103000201030102010300020103 010201032602000100000502030005020001000002020000070200010202 000100000102010101000102000100000202000007020001020200010000 240201030102010300020203010201030102010301020103000201030002 010301020203030201030102010326020001000005020000010200010502 000100000202000007020001020200010000010201010100010200010000 020200000702000102020001000024020103010201030002010302020103 010201030102010300020103000201030302020301020503260200010000 050200000102000105020001000002020000070200010202000100000102 010101000102000100000202000008010202000100002402010301020103 000201030202010301020103010201030002010300020103040202030002 01032a020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100002402020300020103 000201030202010301020103020201030102010302020103010201030002 0103010201032602000100000f0200010000020200000702000102020001 00000102010101000102000100000f020001000024020103000201030102 010303020303030201030102010303020303020203032702000100000f02 000100000202000007020001020200010000010201010100010200010000 0f02000100007602000100000f0200010000020200000801020200010000 0102010101000102000100000f02000100007602000100000f0200010000 0f02000100000102010101000102000100000f0200010000760200010000 0f02000100000&%f0200010000010201010100010200010000100100007701 00001001000010010000010201010000b2010000030104000001ac040400 0001010001020101ac040100010201010100010201010104910503041205 010401000102010101000102010101049005000003041105000001040100 01020101010001020101010401058d040100030401050606000506060100 0104010001020101010001020101010401058d0401000304010505060000 0005060601000104010001020101010001020101010401058d0401000304 010505060000010505060100010401000102010101000102010101040105 280401036204010003040105040601000105050601000104010001020101 010001020101010401052804010362040100030401050406010000040105 040601000104010001020101010001020101010401050104030302040303 010400030004020300040203010401030004010302040303010403036104 010003040105030601000104010504060100010401000102010101000102 010101040105000401030104010300040103010401030004010301040103 010401030004020300040103000401030104010301040103620401000304 010503060100020401050306010001040100010201010100010201010104 010500040103040401030104010300040103010401030104010300040103 010401030404010301040103620401000304010502060100030401050306 010001040100010201010100010201010104010500040103040401030104 010300040103010401030104010300040103010401030104040301040103 620401000304010502060100040401050206010001040100010201010100 010201010104010500040103040401030104010300040103010401030104 010300040103010401030004010301040103010401036204010003040105 010601000504010502060100010401000102010101000102010101040105 000401030104010300040103010401030004010301040103010401030004 020300040103000401030104010301040103000400036004010003040105 010601000604010501060100010401000102010101000102010101040105 010403030204030301040103010401030104010300040103000401030204 020300040103010401036104010003040105000601000704010501060100 010401000102010101000102010101040105190401037104010003040105 000601000804010500060100010401000102010101000102010101040105 19040103710401000304010501000b050006010001040100010201010100 010201010104010519040103710401000304010500000d05010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401051704040313040103090401034e040100 030401050e06010001040100010201010100010201010104010516040103 17040103090401034e040100030401050e06010001040100010201010100 010201010104010501040303020403030104010300040103010403030004 010301040103000401030504030301040303010403030104030300040103 010401030104030340040100030401050e06010001040100010201010100 010201010104010500040103010401030004010301040103000402030004 010301040103010401030004010300040203040401030104010301040103 010401030104010301040103010401030104010300040103010401033f04 0100030401050e0601000104010001020101010001020101010401050004 010304040103010401030004010301040103010401030104010300040103 010401030404020304040103050401030104010301040103010401030004 020342040100030401050e06010001040100010201010100010201010104 010500040103040401030104010300040103010401030104010301040103 000401030104010306040203020401030204040301040103010401030104 01030204020340040100030401050e060100010401000102010101000102 010101040105000401030404010301040103000401030104010301040103 010401030004010301040103070402030104010301040103010401030104 01030104010301040103030402033f040100030401050e06010001040100 010201010100010201010104010500040103010401030004010301040103 000401030104010301040103010401030004010300040203010401030004 010301040103010401030004020301040103010401030004020300040203 00040103010401033f040100030401050e06010001040100010201010100 010201010104010501040303020403030104010301040103010401030104 010301040103000401030104010301040303030401030104020300040103 0104010301040103000401030104030340040100030401050e0601000104 010001020101010001020101010401052104010369040100030401050e06 01000104010001020101010001020101010401051d040103010401036904 0100030401050e0601000104010001020101010001020101010401051e04 03036a040100030401050e&%06010001040100010201010100010201010104 01058d040100030401050e06010001040100010201010100010201010104 01058d040100030401050e06010001040100010201010100010201010104 01058d040100030401050e06010001040100010201010100010201010104 01058d040100030401050e06010001040100010201010100010201010104 01058d040100030401050e06010001040100010201010100010201010104 010517040403700401000304010510000104010001020101010001020101 010401051604010374040100030401050d00000501000104010001020101 010001020101010401050104030302040303010401030004010301040303 000401030104010300040103000401030104010300040103000401030004 0303570401000304010501000a0401050100010401000102010101000102 010101040105000401030104010300040103010401030004020300040103 010401030104010300040103000402030004010301040103000406030104 0103560401000304010501000a0401050100010401000102010101000102 010101040105000401030404010301040103000401030104010301040103 010401030004010301040103000401030104010300040203010401030104 0103560401000304010501000a0401050100010401000102010101000102 010101040105000401030404010301040103000401030104010301040103 010401030004010301040103000401030104010300040103020405035604 01000304010501000a040105010001040100010201010100010201010104 010500040103040401030104010300040103010401030104010301040103 0004010301040103000401030104010300040103020401035a0401000304 010501000a04010501000104010001020101010001020101010401050004 010301040103000401030104010300040103010401030104010301040103 000401030004020300040103000402030004010302040103010401035604 01000304010501000a040105010001040100010201010100010201010104 010501040303020403030104010301040103010401030104010301040103 000401030104010300040103000401030304030357040100030401050100 0a0401050100010401000102010101000102010101040105210401036904 01000304010501000a040105010001040100010201010100010201010104 01051d04010301040103690401000304010501000a040105010001040100 01020101010001020101010401051e0403036a0401000304010501000a04 010501000104010001020101010001020101010401058d04010003040105 01000a04010501000104010001020101010001020101010401058d040100 0304010501000a0401050100010401000102010101000102010101040105 8d0401000304010501000a04010501000104010001020101010001020101 010401058d0401000304010501000a040105010001040100010201010100 01020101010401058d0401000304010501000a0401050100010401000102 010101000102010101040105170404031e0401034f040100030401050100 0a0401050100010401000102010101000102010101040105160401037404 01000304010501000a040105010001040100010201010100010201010104 010501040303020403030104010300040103010403030004010301040103 000401030004010301040103000401030004010300040303050401030004 010300040103490401000304010501000a04010501000104010001020101 010001020101010401050004010301040103000401030104010300040203 000401030104010301040103000401030004020300040103010401030004 060301040103040401030004020300040103480401000304010501000a04 010501000104010001020101010001020101010401050004010304040103 010401030004010301040103010401030104010300040103010401030004 010301040103000402030104010301040103040401030004010301040103 480401000304010501000a04010501000104010001020101010001020101 010401050004010304040103010401030004010301040103010401030104 010300040103010401030004010301040103000401030204050304040103 0004010301040103480401000304010501000a0401050100010401000102 010101000102010101040105000401030404010301040103000401030104 010301040103010401030004010301040103000401030104010300040103 02040103080401030004010301040103480401000304010501000a040105 010001040100010201010100010201010104010500040103010401030004 010301040103000401030104010301040103010401030004010300040203 000401030004020300040103020401030104010301040103000401030004 010301040103480401000304010501000c05010001040100010201010100 010201010104010501040303020403030104010301040103010401030104 010301040103000401030104010300040103000401030304030302040103 000401030004010301040103480401000304010500000d05010001040100 01020101010001020101010401052104010369040100030401050e060100 0104010001020101010001020101010401051d0401030104010369040100 030401050e0601000104010001020101010001020101010401051e040303 6a040100030401050e0601000104010&%00102010101000102010101040105 8d040100030401050e060100010401000102010101000102010101040105 8d040100030401050e060100010401000102010101000102010101040105 8d040100030401050e060100010401000102010101000102010101040105 8d040100030401050e060100010401000102010101000102010101040105 8d040100030401050e060100010401000102010101000102010101040105 0404010386040100030401050e0601000104010001020101010001020101 010401050404010386040100030401050e06010001040100010201010100 010201010104010501040103000401030104030302040303790401000304 01050e060100010401000102010101000102010101040105000401030004 02030004010301040103000401030104010378040100030401050e060100 010401000102010101000102010101040105000401030104010300040103 01040103000401037c040100030401050e06010001040100010201010100 010201010104010500040103010401030004010301040103000401037c04 0100030401050e0601000104010001020101010001020101010401050004 0103010401030004010301040103000401037c040100030401050e060100 010401000102010101000102010101040105000401030004020300040103 01040103000401030104010378040100030401050e060100010401000102 010101000102010101040105010401030004010301040303020403037904 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401050004 01030f04010308040103000401030b0401035c040100030401050e060100 010401000102010101000102010101040105120401030804010300040103 0b0401035c040100030401050e0601000104010001020101010001020101 010401050004010300040103000401030204030301040303010403030104 01030004010305040303010401030004010359040100030401050e060100 010401000102010101000102010101040105000401030004020300040103 000401030104010301040103010401030104010300040103000401030404 010301040103000402030004010358040100030401050e06010001040100 010201010100010201010104010500040103000401030104010300040203 040401030504010300040103000401030404020303040103010401035804 0100030401050e0601000104010001020101010001020101010401050004 010300040103010401030204020302040103020404030004010300040103 06040203010401030104010358040100030401050e060100010401000102 010101000102010101040105000401030004010301040103030402030104 010301040103010401030004010300040103070402030004010301040103 58040100030401050e060100010401000102010101000102010101040105 000401030004010301040103000401030104010301040103000402030104 010300040103000401030104010300040103010401030004010301040103 58040100030401050e060100010401000102010101000102010101040105 000401030004010301040103010403030304010301040203000403030004 01030104010301040303010401030104010358040100030401050e060100 0104010001020101010001020101010401058d040100030401050e060100 0104010001020101010001020101010401058d040100030401050e060100 0104010001020101010001020101010401058d040100030401050e060100 0104010001020101010001020101010401058d040100030401050e060100 0104010001020101010001020101010401058d040100030401050e060100 0104010001020101010001020101010401058d040100030401050e060100 0104010001020101010001020101010401058d040100030401050e060100 0104010001020101010001020101010401058d040100030401050e060100 010401000102010101000102010101040105000401030004010300040103 84040100030401050e060100010401000102010101000102010101040105 000401030304010384040100030401050e06010001040100010201010100 010201010104010500040103000401030004010300040103010401030004 01030004030301040103000403030204010367040100030401050e060100 010401000102010101000102010101040105000401030004010300040203 000401030004060301040103000406030204010367040100030401050e06 010001040100010201010100010201010104010500040103000401030004 010301040103000402030504010300040203020401030004010368040100 030401050e06010001040100010201010100010201010104010500040103 0004010300040103010401030004010303040403&%00040103030401030004 010368040100030401050e06010001040100010201010100010201010104 010500040103000401030004010301040103000401030204010301040103 000401030404020369040100030401050e06010001040100010201010100 010201010104010500040103000401030004020300040103000401030204 010301040103000401030404020369040100030401050e06010001040100 010201010100010201010104010500040103000401030004010300040103 0104010303040203000403030504010369040100030401050e0601000104 01000102010101000102010101040105210400036a040100030401050e06 0100010401000102010101000102010101040105200401036a0401000304 01050e0601000104010001020101010001020101010401051f0401036b04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401050004 01030004010300040103050401030804010371040100030401050e060100 010401000102010101000102010101040105000401030304010305040103 0804010371040100030401050e0601000104010001020101010001020101 010401050004010300040103000401030004010301040303010403030104 01030504030367040100030401050e060100010401000102010101000102 010101040105000401030004010300040203000401030104010301040103 0104010300040103040401030104010366040100030401050e0601000104 010001020101010001020101010401050004010300040103000401030104 01030104010301040103040401030804010366040100030401050e060100 010401000102010101000102010101040105000401030004010300040103 010401030104010301040103040401030504040366040100030401050e06 010001040100010201010100010201010104010500040103000401030004 010301040103010401030104010304040103040401030104010366040100 030401050e06010001040100010201010100010201010104010500040103 000401030004020300040103010401030004020301040103000401030104 0103000401030104010366040100030401050e0601000104010001020101 010001020101010401050004010300040103000401030004010303040103 010403030104010301040103010402030004010365040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 010001040100010201010100010201010104010515040103750401000304 01050e0601000104010001020101010001020101010401058d0401000304 01050e060100010401000102010101000102010101040105000401030004 010302040303010401030004010301040103010403030604030364040100 030401050e06010001040100010201010100010201010104010500040203 000401030004010301040103000402030004010300040103000401030104 0103040401030104010363040100030401050e0601000104010001020101 010001020101010401050004010301040103040401030004010301040103 00040103000401030804010367040100030401050e060100010401000102 010101000102010101040105000401030104010301040403000401030104 010300040103000401030804010367040100030401050e06010001040100 010201010100010201010104010500040103010401030004010301040103 000401030104010300040103000401030804010367040100030401050e06 010001040100010201010100010201010104010500040203000401030004 010301040103000401030104010300040103000401030104010301040103 000401030104010363040100030401050e06010001040100010201010100 010201010104010500040103000401030204020300040303010401030004 010301040303020401030104030364040100030401050e06010001040100 0102010101000102010101040105000401038a040100030401050e060100 010401000102010101000102010101040105000401038a04010003040105 0e060100010401000102010101000102010101040105000401038a040100 030401050e0601000104010001020101010001020101010401058d040100 030401050e0601000104010001020101010001020101010401058d040100 030401050e0601000104010001020101010001020101010401058d040100 030401050e060100010401000102010101000102010101040&%1058d040100 030401050e0601000104010001020101010001020101010401058d040100 030401050e06010001040100010201010100010201010104010515040103 75040100030401050e060100010401000102010101000102010101040105 8d040100030401050e060100010401000102010101000102010101040105 000401030004010302040303010401030004010301040103010403030604 030364040100030401050e06010001040100010201010100010201010104 010500040203000401030004010301040103000402030004010300040103 0004010301040103040401030104010363040100030401050e0601000104 010001020101010001020101010401050004010301040103040401030004 010301040103000401030004010308040103010401036304010003040105 0e0601000104010001020101010001020101010401050004010301040103 010404030004010301040103000401030004010308040103010401036304 0100030401050e0601000104010001020101010001020101010401050004 010301040103000401030104010300040103010401030004010300040103 080401030104010363040100030401050e06010001040100010201010100 010201010104010500040203000401030004010301040103000401030104 010300040103000401030104010301040103000401030104010363040100 030401050e06010001040100010201010100010201010104010500040103 000401030204020300040303010401030004010301040303020401030104 030364040100030401050e06010001040100010201010100010201010104 0105000401038a040100030401050e060100010401000102010101000102 010101040105000401038a040100030401050e0601000104010001020101 01000102010101040105000401038a040100030401050e06010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401050f040103080401030404010316040103 0404010349040100030401050e0601000104010001020101010001020101 010401050f04010308040103040401031604010304040103490401000304 01050e060100010401000102010101000102010101040105000401030004 010302040303010403030104030301040103000401030104010301040303 010401030204010301040303010401030404010300040103460401000304 01050e060100010401000102010101000102010101040105000402030004 010300040103010401030104010301040103010401030004020300040103 000401030004010301040103000401030204010300040103010401030004 0103040402030004010345040100030401050e0601000104010001020101 010001020101010401050004010301040103040401030104010301040103 040401030104010300040103000401030104010301040103000401030104 01030104010300040103040401030104010345040100030401050e060100 010401000102010101000102010101040105000401030104010301040403 010401030104010304040103010401030004010300040503010401030004 01030104050300040103040401030104010345040100030401050e060100 010401000102010101000102010101040105000401030104010300040103 010401030104010301040103040401030104010300040103000401030604 02030204010304040103040401030104010345040100030401050e060100 010401000102010101000102010101040105000402030004010300040103 010401030104010300040203010401030004010301040103000401030004 010301040103020402030204010301040103000401030104010300040103 0104010345040100030401050e0601000104010001020101010001020101 010401050004010300040103020402030004010301040103010403030104 010301040103000401030104030304040003040403030104010301040103 000401030104010345040100030401050e06010001040100010201010100 0102010101040105000401038a040100030401050e060100010401000102 010101000102010101040105000401038a040100030401050e0601000104 01000102010101000102010101040105000401038a040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401051000 010401000102010100000401010401051404010301040103210401034e04 01000304010500060c000005010001040100030104000001010401051404 0103250401034e0401000304010500060100080401050006010001040400 000101000102010101040105000401030004010302040303010401030004 0503000401030004010300040103020401030004010304040103000401|&%îì03 020403030104030301040303020403034004010003040105010601000704 010500060100010401000102010101000102010101040105000402030004 010300040103010401030004040300040103010401030004020300040103 000401030004020304040203000401030004010301040103010401030104 01030104010300040103010401033f040100030401050106010006040105 010601000104010001020101010001020101010401050004010301040103 000401030104010300040203020401030104010300040103010401030004 010301040103040401030104010300040103010401030104010301040103 010401030004020342040100030401050206010005040105010601000104 010001020101010001020101010401050004010301040103000401030104 010300040103030401030104010300040103010401030004010301040103 040401030104010300040103010401030104010301040503020402034004 010003040105020601000404010502060100010401000102010101000102 010101040105000401030104010300040103010401030004010303040103 010401030004010301040103000401030104010304040103010401030004 0103010401030104010301040103070402033f0401000304010503060100 030401050206010001040100010201010100010201010104010500040203 000401030004010301040103000401030304010300040203000401030104 010300040103000402030104010300040103010401030004010301040103 01040103000402030104010300040103010401033f040100030401050306 010002040105030601000104010001020101010001020101010401050004 010300040103020403030104010304040103000401030004010301040103 010401030004010301040103000401030104010301040303030401030104 030302040303400401000304010504060100010401050306010001040100 010201010100010201010104010500040103230401036404010003040105 040601000004010504060100010401000102010101000102010101040105 000401031f04010301040103640401000304010505060000020504060100 010401000102010101000102010101040105000401032004030365040100 030401050506000001050506010001040100010201010100010201010104 01058d040100030401050606010505060100010401000102010101000102 0101010401058d0401000304010506060005060601000104010001020101 010001020101010401058f00030401051000010401000102010101000102 01010104000590000304000511000104010001020101010001020101ac04 010001020101010001020101ac04010001020101010001020101ae000102 0101010001020001af000102010101001302000100008802000100001302 010101001302000100008802000100001302010101001401000089010000 15010000b701 % % Run-length encoding savings = 72.7% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$?$ȈÙÿÿ€$?$ü'.Ü'.ÚüW: i&&  =r=rû ÿ2Modern[- ! Title: hello!Creator: xgrabsc!'CreationDate: Sun Oct 23 15:25:06 1994ñ&%ØÖ%MSEPS Preamble 0 0 114 61 0 0 114 61 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 114 def /pp_by2 61 def &&ü-úþÿÿ- =r'ÿÿ&&Õ&% ž pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end &%%!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: hello %%Pages: 1 %%BoundingBox: 0 0 114 61 %%CreationDate: Sun Oct 23 15:25:06 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 114 61 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 114 61 8 [114 0 0 -61 0 61] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring pop pop f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 drawcolormappedimage 870000014200000115000001010013020001000041020001000013020101 010013020001000041020001000013020101010001021201000042010000 11010102010101000102000168000102010101000102000100000f020001 00002f02000100000f02000100000f020001000001020101010001020001 00000f02000100002f02000100000f02000100000f020001000001020101 01000102000100000f02000100002f02000100000f02000100000f020001 00000102010101000102000100000f02000100000a0201030b0201030002 01031102000100000f020001000002020900020200010000010201010100 0102000100000f02000100000a0201030b02010300020103110200010000 0f0200010000020200000702000102020001000001020101010001020001 00000f02000100000a020103000201030202030301020103000201030102 03030b02000100000f020001000002020000070200010202000100000102 01010100010200010000020209000202000100000a020203000201030002 010301020103000201030002010300020103010201030a02000100000502 030005020001000002020000070200010202000100000102010101000102 0001000002020000070200010202000100000a0201030102010300020103 01020103000201030002010300020103010201030a020001000005020000 010200010502000100000202000007020001020200010000010201010100 01020001000002020000070200010202000100000a020103010201030002 0503000201030002010300020103010201030a0200010000050200000102 000105020001000002020000070200010202000100000102010101000102 000100000202000008010202000100000a02010301020103000201030402 01030002010300020103010201030a020001000005020000020105020001 000002020000070200010202000100000102010101000102000100000f02 000100000a02010301020103000201030102010300020103000201030002 0103010201030a02000100000f0200010000020200000702000102020001 00000102010101000102000100000f02000100000a020103010201030102 03030102010300020103010203030b02000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100002f02 000100000f02000100000202000008010202000100000102010100000301 00000f02000100002f02000100000f02000100000f020001000003010500 0f02000100002f02000100000f02000100000f0200010300000101000102 000100001001000030010000100100001001000001020101010001026801 000001020101010001020101650401000102010101000102010165040100 01020101010001020101010461ß&%´ ² 0001040100010201010100010201010104 600000050104010001020101010001020101010401005d04010501040100 01020101010001020101010401005d040105010401000102010101000102 0101010401005d0401050104010001020101010001020101010401005d04 01050104010001020101010001020101010401005d040105010401000102 0101010001020101010401005d0401050104010001020101010001020101 010401000b04010302040103070401030004010326040103040401030d04 01050104010001020101010001020101010401000b040103020401030704 01030004010326040103040401030d040105010401000102010101000102 0101010401000b0401030204010301040303010401030004010301040303 090401030104010301040103010403030104010300040303010401030004 01030d0401050104010001020101010001020101010401000b0401030204 010300040103010401030004010300040103000401030104010308040103 010401030104010300040103010401030004060300040103000402030d04 01050104010001020101010001020101010401000b040603000401030104 010300040103000401030004010301040103090401030004010300040103 0104010301040103000402030104010300040103010401030d0401050104 010001020101010001020101010401000b04010302040103000405030004 010300040103000401030104010309040103000401030004010301040103 01040103000401030204010300040103010401030d040105010401000102 0101010001020101010401000b0401030204010300040103040401030004 010300040103010401030904010300040103000401030104010301040103 000401030204010300040103010401030d04010501040100010201010000 0401010401000b0401030204010300040103010401030004010300040103 000401030104010301040103060401030104010302040103010401030004 01030204010300040103000402030d040105010401000301040000010104 01000b040103020401030104030301040103000401030104030302040103 060401030104010303040303010401030204010301040103000401030d04 010501040400000101000102010101040100290400033204010501040100 010201010100010201010104010028040003330401050104010001020101 010001020101010401005d04010501040100010201010100010201010104 01005d0401050104010001020101010001020101010401005d0401050104 010001020101010001020101010401005d04010501040100010201010100 01020101010401005d040105010401000102010101000102010101040100 5d0401050104010001020101010001020101010401005d04010501040100 01020101010001020101010401005f050104010001020101010001020101 010400006005010401000102010101000102010165040100010201010100 010201016504010001020101010001020101670001020101010001020001 680001020101010013020001000041020001000013020101010013020001 00004102000100001302010101001401000042010000150100007001 % % Run-length encoding savings = 68.1% % grestore showpage %%Trailer &&&%!%MSEPS Trailer pp_save restore .EPS$?$èÜÿÿ€$?$ü'.ì'.Ý /.€Ê…?$ÿO7ÛÞß ‡HãO.¼'.  @@``€€@ØÔ Ð@ð`€@ØÔ Ð@ð`€@@ ƒ ‚‚ÊÊ€€@ØÕ cÓ;«ƒ@ØÔ Ð@ð`€@‚€€´'?$ÿ?4;áâãäåæ€5ТÿÿÖ£EТˆÁùþ=IŒ»ô~êÿÿþ?µ€ÿÿ_þ᛿&ìüùþW¹ÿÿˆˆ‡{ÿÿÿÿÿÿD„Yè  ýÿddddd€XÿÿÿÿÿÿYh‘h‘h‘ÿÿ1²0uìüö(B%p=rè;†–0ˆÿÿ&—Q` ýÿddd7€XÿÿÿÿÿÿYh‘h‘h‘YDGa[òý3®ìüö(ØÎØÎØ΀?$ÿW7êëD'.t'.4'.²€$$$$$ÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿdd2€UuKd–ÿÿdd»ÿÿddUuAd–ÿÿdd2€     ÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿÿ2€•ddþÿ•ddþÿ•ddþÿ•ddþÿ•ddþÿ3€ÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿddÿ•ÿÿdd00€þ€?$ ÿ@74OTimes New RomanÎ`/0o3ïo3 "Arial‚XÛ/0o3D˜Xµ=/0 XE/(1Courier÷O$`›ÿ $`°ÿ Ô §S 4ŒMonotype Sortsô$o &¶§ªgÏ ¼Times New Roman ·ä/.nd ¼ÿTimes New Roman ·ä/.®` ÿTimes New Roman/0~`À` #¼1Courier–\–\j9/'I/`z^. 5¼Monotype Sorts§ w5ê^ Symbolh$`›ÿ $`°ÿ —8ôÿ,,{ Ÿ ÃÿÞÿ¹  Apple LaserWriter II NTPSCRIPTLPT1:T1:ÈApple LaserWriter II NT WD„[ê od,þXÂZZ¨eúÎÀô÷@ p÷Àôp@ –ÿÿ¾ØÊÑñù{õÿÿBZ.ÿàçìéîíïà€€àðÿÿÿÿ'Lþÿÿÿÿÿ2íÞ­ ÐÏࡱá;þÿ þÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  !"#þÿÿÿþÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿ à…ŸòùOh«‘+'³Ùà…ŸòùOh«‘+'³Ù0¨xœ¦¾È< V b n z†Ž°An Overview of Tcl and TkJohn Ousterhout0First of four talks in all-day Tcl/Tk tutorial.4c:\msoffice\powerpnt\template\clrovrhd\sidebarc.pptSun Microsystems7@&ÁíQƒ¹@¦6“ž¹@Ö 0} {) 560 SB 195 1346 980 ( set dir [lindex $argv 0]) 980 SB 195 1423 280 (} else {) 280 SB 195 1499 455 ( set dir .) 455 SB 195 1576 35 (}) 35 SB 195 1653 1085 (foreach i [lsort [glob * .*]] {) 1085 SB 195 1729 805 ( .list insert end $i) 805 SB 195 1806 35 (}) 35 SB 151 0 10 fC 1670 581 1225 (bind .list {) 1225 SB 1670 650 1085 ( browse $dir [selection get]) 1085 SB 1670 720 35 (}) 35 SB 1670 790 1120 (bind all {destroy .}) 1120 SB 8 29 117 fC 1670 930 840 (proc browse {dir file} {) 840 SB 1670 999 770 ( if {$dir != "."} {) 770 SB 1670 1069 945 ( set file $dir/$file) 945 SB 1670 1139 175 ( }) 175 SB 1670 1209 1155 ( if {file isdirectory $file] {) 1155 SB 1670 1279 945 ( exec browse $file &) 945 SB 1670 1348 420 ( } else {) 420 SB 1670 1418 1120 ( if [file isfile $file] {) 1120 SB 1670 1488 1050 ( exec xedit $file &) 1050 SB 1670 1558 525 ( } else{) 525 SB 1670 1628 1330 ( error "can't browse $file") 1330 SB 1670 1697 315 ( }) 315 SB 1670 1767 175 ( }) 175 SB 0 0 0 fC 1670 1837 35 (}) 35 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%Page: 17 17 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 4 SJ 320 2079 760 (Tcl/Tk Tutorial Part I: Overview) 760 SB 2143 2079 643 (December 1, 1994, slide 17) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -3 3 SJ 320 266 1232 (Other Uses For Tcl) 1232 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 1 SJ 433 576 884 (Data representation:) 884 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 698 50 (\226) 50 SB 1 6 SJ 564 698 1296 (Store data on disk as Tcl scripts.) 1296 SB 470 818 50 (\226) 50 SB 1 4 SJ 564 818 1459 (To load information, evaluate script.) 1459 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 998 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 1 SJ 433 966 628 (Active objects:) 628 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1088 50 (\226) 50 SB 564 1088 933 (Store scripts in objects.) 933 SB 470 1207 50 (\226) 50 SB 3 7 SJ 564 1207 2027 (Evaluate scripts at interesting times to give objects) 2027 SB 564 1327 374 (behavior.) 374 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1507 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 5 SJ 433 1475 2355 (Communication: send Tcl scripts between applications.) 2355 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1657 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 1 SJ 433 1625 846 (Executable content:) 846 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1747 50 (\226) 50 SB 4 4 SJ 564 1747 1462 (Active e-mail messages, Web pages.) 1462 SB 470 1867 50 (\226) 50 SB 564 1867 307 (Agents.) 307 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 18 18 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 4 SJ 320 2079 760 (Tcl/Tk Tutorial Part I: Overview) 760 SB 2143 2079 643 (December 1, 1994, slide 18) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 399 (Status) 399 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 576 1331 (Runs on all UNIX/X platforms.) 1331 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 788 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 3 SJ 433 756 1175 (PC/Mac ports coming soon.) 1175 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 968 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 936 1847 (Source and documentation freely available.) 1847 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1147 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 5 SJ 433 1115 1817 (Large community of developers and users:) 1817 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1249 50 (\226) 50 SB 4 5 SJ 564 1249 1910 (50,000-100,000 developers as of January 1994?) 1910 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1459 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 4 5 SJ 433 1427 2043 (Dozens of commercial products, free extensions.) 2043 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1638 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 1 SJ 433 1606 1138 (Newsgroup: comp.lang.tcl.) 1138 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1818 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1786 1873 (Introductory book published in April, 1994.) 1873 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 19 19 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 4 SJ 320 2079 760 (Tcl/Tk Tutorial Part I: Overview) 760 SB 2143 2079 643 (December 1, 1994, slide 19) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -1 1 SJ 320 266 1805 (Representative Applications) 1805 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 558 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 3 SJ 433 526 1530 (Network management using SNMP.) 1530 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 708 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 1 SJ 433 676 1041 (Multimedia, groupware.) 1041 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 858 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 5 2 SJ 433 826 998 (Active e-mail messages.) 998 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1008 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 1 SJ 433 976 987 (System administration.) 987 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1158 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1126 342 (Testing.) 342 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1308 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1276 996 (Scientific applications: ) 996 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 1429 1278 1234 (instrument control, simulation,) 1234 SB -1 1 SJ 433 1398 798 (visualization, CAD.) 798 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1578 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 2 SJ 433 1546 966 (British teletext system.) 966 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1728 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1696 1384 (Mars Pathfinder flight software.) 1384 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1878 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 5 SJ 433 1846 1815 (Feature animation at Walt Disney Studios.) 1815 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 20 20 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 4 SJ 320 2079 760 (Tcl/Tk Tutorial Part I: Overview) 760 SB 2143 2079 643 (December 1, 1994, slide 20) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1246 (Popular Extensions) 1246 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 576 1097 (Available via public FTP:) 1097 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 470 732 1740 (ftp://ftp.aud.alcatel.com/tcl) 1740 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 938 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 151 0 10 fC 433 906 294 (Expect) 294 SB 0 0 0 fC 6 6 SJ 727 906 1977 (: remote control for interactive programs such) 1977 SB 433 1026 114 (as ) 114 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 547 1032 180 (ftp) 180 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 727 1026 50 (, ) 50 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 777 1032 360 (telnet) 360 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1137 1026 50 (, ) 50 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1187 1032 300 (crypt) 300 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1487 1026 237 (, and ) 237 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 1724 1032 240 (fsck) 240 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 1964 1026 33 (:) 33 SB 32 0 0 100 100 0 0 0 86 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 470 1182 1380 (#!/usr/local/bin/expect) 1380 SB 470 1301 1740 (spawn rlogin [lindex $argv 0]) 1740 SB 470 1421 1140 (expect -re "\($|#\) ") 1140 SB 470 1541 1020 (send "cd [pwd]\\r") 1020 SB 470 1661 1140 (expect -re "\(%|#\) ") 1140 SB 470 1781 2100 (send "setenv DISPLAY $env\(DISPLAY\)") 2100 SB 470 1900 480 (interact) 480 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 21 21 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 4 SJ 320 2079 760 (Tcl/Tk Tutorial Part I: Overview) 760 SB 2143 2079 643 (December 1, 1994, slide 21) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1722 (Popular Extensions, cont'd) 1722 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 151 0 10 fC 433 576 211 (TclX) 211 SB 0 0 0 fC 1 2 SJ 644 576 1249 (: general-purpose extensions:) 1249 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 728 50 (\226) 50 SB 5 2 SJ 564 728 820 (POSIX system calls.) 820 SB 470 878 50 (\226) 50 SB 3 1 SJ 564 878 469 (Keyed lists.) 469 SB 470 1028 50 (\226) 50 SB 3 4 SJ 564 1028 1222 (File scanning \(similar to awk\).) 1222 SB 470 1178 50 (\226) 50 SB 564 1178 972 (Date/time manipulation.) 972 SB 470 1328 50 (\226) 50 SB 5 2 SJ 564 1328 1087 (Debugging, help, profiling.) 1087 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1538 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 151 0 10 fC 433 1506 277 (Oratcl) 277 SB 0 0 0 fC 2 2 SJ 710 1506 212 ( and ) 212 SB 151 0 10 fC 923 1506 267 (Sybtcl) 267 SB 0 0 0 fC 3 4 SJ 1190 1506 1414 (: access to commercial databases.) 1414 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1718 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 151 0 10 fC 1 1 SJ 433 1686 313 (Incr tcl) 313 SB 0 0 0 fC 3 4 SJ 747 1686 1621 (: object-oriented programming in Tcl.) 1621 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 22 22 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 4 SJ 320 2079 760 (Tcl/Tk Tutorial Part I: Overview) 760 SB 2143 2079 643 (December 1, 1994, slide 22) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1722 (Popular Extensions, cont'd) 1722 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 151 0 10 fC 433 576 304 (Tcl-DP) 304 SB 0 0 0 fC 5 5 SJ 737 576 2124 (: socket-based remote procedure calls, distributed) 2124 SB 433 696 324 (objects.) 324 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 830 50 (\226) 50 SB 1 1 SJ 564 830 596 (Sample server:) 596 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 620 953 500 (set myId 0) 500 SB 620 1053 750 (proc GetId {} {) 750 SB 620 1153 750 ( global myId) 750 SB 620 1253 650 ( incr myId) 650 SB 620 1353 800 ( return $myId) 800 SB 620 1453 50 (}) 50 SB 620 1553 1050 (dp_MakeRPCServer 4545) 1050 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 0 0 0 fC 470 1662 50 (\226) 50 SB 564 1662 575 (Sample client:) 575 SB 32 0 0 83 83 0 0 0 71 /Courier-Bold /font9 ANSIFont font 0 150 136 fC 620 1785 2300 (set server [dp_MakeRPCClient foo.bar.com 4545]) 2300 SB 620 1885 1000 (dp_rpc $server GetId) 1000 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 23 23 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 4 SJ 320 2079 760 (Tcl/Tk Tutorial Part I: Overview) 760 SB 2143 2079 643 (December 1, 1994, slide 23) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font -2 2 SJ 320 266 1152 (Free Wish Scripts) 1152 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 633 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 151 0 10 fC 433 601 256 (wtour) 256 SB 0 0 0 fC 689 601 1977 (: interactive introduction to writing scripts for) 1977 SB 433 721 123 (Tk) 122 SB 555 721 25 (.) 25 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1017 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 151 0 10 fC 433 985 232 (exmh) 232 SB 0 0 0 fC 3 3 SJ 665 985 1020 (: Tcl-based mail reader.) 1020 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1280 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 151 0 10 fC 433 1248 132 (XF) 132 SB 0 0 0 fC 2 5 SJ 565 1248 1388 (: interactive GUI builder for Tk.) 1388 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1544 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 151 0 10 fC 433 1512 389 (tkinspect) 389 SB 0 0 0 fC 822 1512 742 (: widget browser.) 742 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1807 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 1 SJ 433 1775 641 (Many others....) 641 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 24 24 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 4 SJ 320 2079 760 (Tcl/Tk Tutorial Part I: Overview) 760 SB 2143 2079 643 (December 1, 1994, slide 24) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 2186 (Where You Might Use Tcl and Tk) 2186 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 658 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 3 SJ 433 626 1482 (Creating graphical user interfaces.) 1482 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 958 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 926 342 (Testing.) 342 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1257 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1225 2315 (Applications that need scripting or extension facilities.) 2315 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1557 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1525 1511 (Platform-independent applications.) 1511 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 25 25 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 4 SJ 320 2079 760 (Tcl/Tk Tutorial Part I: Overview) 760 SB 2143 2079 643 (December 1, 1994, slide 25) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 360 (Draw) 358 SB 678 266 83 (b) 84 SB 762 266 142 (ac) 141 SB 903 266 83 (k) 84 SB 987 266 58 (s) 58 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 683 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 651 494 (Must learn ) 494 SB 151 0 10 fC 927 651 582 (new language) 582 SB 0 0 0 fC 1509 651 1239 ( \(substitution rules confusing) 1239 SB 2 2 SJ 433 771 684 (to some people\).) 684 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1162 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 3 SJ 433 1130 1097 (Interpreted language has ) 1097 SB 151 0 10 fC 1532 1130 811 (performance limits) 811 SB 0 0 0 fC 1 1 SJ 2344 1130 203 ( \(but) 203 SB -2 1 SJ 433 1250 791 (surprisingly high\).) 791 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1642 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1610 538 (C interfaces ) 538 SB 151 0 10 fC 972 1610 555 (incompatible) 555 SB 0 0 0 fC 1 4 SJ 1527 1610 984 ( with Xt, Motif library.) 984 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 26 26 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 4 SJ 320 2079 760 (Tcl/Tk Tutorial Part I: Overview) 760 SB 2143 2079 643 (December 1, 1994, slide 26) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 1390 (Plans For The Future) 1390 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 1 SJ 433 576 929 (Increase accessibility:) 929 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 728 50 (\226) 50 SB 564 728 892 (Port to PCs and Macs.) 892 SB 470 878 50 (\226) 50 SB 4 5 SJ 564 878 1731 (Better development tools: GUI builder, etc.) 1731 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1058 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 1 2 SJ 433 1026 1271 (Improve the language/toolkit:) 1271 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1178 50 (\226) 50 SB 8 2 SJ 564 1178 1300 (Incremental on-the-fly compiler.) 1300 SB 470 1328 50 (\226) 50 SB 3 5 SJ 564 1328 1727 (Better support for modules, data structures.) 1727 SB 470 1478 50 (\226) 50 SB 4 4 SJ 564 1478 1959 (Better internationalization \(Asian character sets\).) 1959 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1658 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 2 3 SJ 433 1626 1595 (Create exciting Internet applications:) 1595 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1778 50 (\226) 50 SB -1 1 SJ 564 1778 770 (Active documents?) 770 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 27 27 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 pC 6 17 SP gs 2637 2427 140 0 CB -2493 438 M 7899 0 1 PP S n gr 32 0 0 58 58 0 0 0 52 /Times-Italic /font31 ANSIFont font 8 29 117 fC 5 4 SJ 320 2079 760 (Tcl/Tk Tutorial Part I: Overview) 760 SB 2143 2079 643 (December 1, 1994, slide 27) 643 SB 32 0 0 150 150 0 0 0 137 /Times-Bold /font29 ANSIFont font 320 266 774 (Conclusions) 774 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 608 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 3 1 SJ 433 576 1089 (High-level programming:) 1089 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 728 50 (\226) 50 SB 3 2 SJ 564 728 533 (Less to learn.) 533 SB 470 878 50 (\226) 50 SB 4 3 SJ 564 878 1307 (Build applications more quickly.) 1307 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1058 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1026 1256 (Universal scripting language:) 1256 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1178 50 (\226) 50 SB 3 5 SJ 564 1178 1763 (Extend and modify applications at run-time.) 1763 SB 470 1328 50 (\226) 50 SB 7 4 SJ 564 1328 1346 (Make many things work together.) 1346 SB 32 0 0 75 75 0 0 0 60 /ZapfDingbats font 6 61 232 fC 320 1508 59 (u) 59 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 0 0 0 fC 433 1476 1150 (Use scripts instead of data:) 1150 SB 32 0 0 100 100 0 0 0 90 /Times-Roman /font32 ANSIFont font 470 1628 50 (\226) 50 SB 2 3 SJ 564 1628 1395 (Active objects, executable content.) 1395 SB 32 0 0 100 100 0 0 0 92 /Times-Bold /font29 ANSIFont font 151 0 10 fC 320 1866 1280 (Tcl + Tk = shell of the 1990's?) 1280 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Trailer SVDoc restore end %%Pages: 27 % TrueType font name key: % MSTT31c1c7 = 43afDTimes New RomanF00000000000002bc0000 % MSTT31c1d4 = 43afDTimes New RomanF00000064000002bc0000 % MSTT31c1e1 = 43afDTimes New RomanF0000004b000002bc00ff % MSTT31c1ee = 43afDTimes New RomanF0000003a0000019000ff % MSTT31c1fb = 43afDTimes New RomanF00000064000001900000 % MSTT31c208 = 43afDMonotype SortsF0000004b000001900000 % MSTT31c215 = 43afDTimes New RomanF0000005c000002bc0000 % MSTT31c222 = 43afDTimes New RomanF0000005c000001900000 % MSTT31c22f = 43afDMonotype SortsF00000047000001900000 % MSTT31c23c = 43afDTimes New RomanF00000054000001900000 % MSTT31c249 = 43afDTimes New RomanF0000004b000001900000 % MSTT31c256 = 43afDTimes New RomanF00000054000002bc0000 % MSTT31c263 = 43afDMonotype SortsF00000000000001900000 % MSTT31c270 = 43afDMonotype SortsF00000000000002bc0000 % MSTT31c285 = 43afDTimes New RomanF00000053000001900000 % MSTT31c292 = 43afDTimes New RomanF0000004b000002bc0000 %%DocumentSuppliedResources: procset Win35Dict 3 1 %%DocumentNeededResources: font Courier-Bold %%+ font Symbol %%+ font Times-Bold %%+ font Times-BoldItalic %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%EOF %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 23 23 %%PageResources: (atend) SS 0 90 20 12 809 1100 300 SM 255 255 255 fC /fm 256 def 3000 2250 115 88 B 1 F n 1 lc 1 lj 6 61 232 tut/over.2up010077500630510000012000003765700573603515100140460ustar00ousterstaff00002300000036%!PS-Adobe-3.0 %%Creator: Windows PSCRIPT %%Title: PowerPoint - OVERVIEW.PPT %%BoundingBox: 14 9 597 784 %%DocumentNeededResources: (atend) %%DocumentSuppliedResources: (atend) %%Pages: (atend) %%BeginResource: procset Win35Dict 3 1 /Win35Dict 290 dict def Win35Dict begin/bd{bind def}bind def/in{72 mul}bd/ed{exch def}bd/ld{load def}bd/tr/translate ld/gs/gsave ld/gr /grestore ld/M/moveto ld/L/lineto ld/rmt/rmoveto ld/rlt/rlineto ld /rct/rcurveto ld/st/stroke ld/n/newpath ld/sm/setmatrix ld/cm/currentmatrix ld/cp/closepath ld/ARC/arcn ld/TR{65536 div}bd/lj/setlinejoin ld/lc /setlinecap ld/ml/setmiterlimit ld/sl/setlinewidth ld/scignore false def/sc{scignore{pop pop pop}{0 index 2 index eq 2 index 4 index eq and{pop pop 255 div setgray}{3{255 div 3 1 roll}repeat setrgbcolor}ifelse}ifelse}bd /FC{bR bG bB sc}bd/fC{/bB ed/bG ed/bR ed}bd/HC{hR hG hB sc}bd/hC{ /hB ed/hG ed/hR ed}bd/PC{pR pG pB sc}bd/pC{/pB ed/pG ed/pR ed}bd/sM matrix def/PenW 1 def/iPen 5 def/mxF matrix def/mxE matrix def/mxUE matrix def/mxUF matrix def/fBE false def/iDevRes 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt def/fPP false def/SS{fPP{ /SV save def}{gs}ifelse}bd/RS{fPP{SV restore}{gr}ifelse}bd/EJ{gsave showpage grestore}bd/#C{userdict begin/#copies ed end}bd/FEbuf 2 string def/FEglyph(G )def/FE{1 exch{dup 16 FEbuf cvrs FEglyph exch 1 exch putinterval 1 index exch FEglyph cvn put}for}bd/SM{/iRes ed/cyP ed /cxPg ed/cyM ed/cxM ed 72 100 div dup scale dup 0 ne{90 eq{cyM exch 0 eq{cxM exch tr -90 rotate -1 1 scale}{cxM cxPg add exch tr +90 rotate}ifelse}{cyP cyM sub exch 0 ne{cxM exch tr -90 rotate}{cxM cxPg add exch tr -90 rotate 1 -1 scale}ifelse}ifelse}{pop cyP cyM sub exch 0 ne{cxM cxPg add exch tr 180 rotate}{cxM exch tr 1 -1 scale}ifelse}ifelse 100 iRes div dup scale 0 0 transform .25 add round .25 sub exch .25 add round .25 sub exch itransform translate}bd/SJ{1 index 0 eq{pop pop/fBE false def}{1 index/Break ed div/dxBreak ed/fBE true def}ifelse}bd/ANSIVec[ 16#0/grave 16#1/acute 16#2/circumflex 16#3/tilde 16#4/macron 16#5/breve 16#6/dotaccent 16#7/dieresis 16#8/ring 16#9/cedilla 16#A/hungarumlaut 16#B/ogonek 16#C/caron 16#D/dotlessi 16#27/quotesingle 16#60/grave 16#7C/bar 16#82/quotesinglbase 16#83/florin 16#84/quotedblbase 16#85 /ellipsis 16#86/dagger 16#87/daggerdbl 16#88/circumflex 16#89/perthousand 16#8A/Scaron 16#8B/guilsinglleft 16#8C/OE 16#91/quoteleft 16#92/quoteright 16#93/quotedblleft 16#94/quotedblright 16#95/bullet 16#96/endash 16#97 /emdash 16#98/tilde 16#99/trademark 16#9A/scaron 16#9B/guilsinglright 16#9C/oe 16#9F/Ydieresis 16#A0/space 16#A1/exclamdown 16#A4/currency 16#A5/yen 16#A6/brokenbar 16#A7/section 16#A8/dieresis 16#A9/copyright 16#AA/ordfeminine 16#AB/guillemotleft 16#AC/logicalnot 16#AD/hyphen 16#AE/registered 16#AF/macron 16#B0/degree 16#B1/plusminus 16#B2/twosuperior 16#B3/threesuperior 16#B4/acute 16#B5/mu 16#B6/paragraph 16#B7/periodcentered 16#B8/cedilla 16#B9/onesuperior 16#BA/ordmasculine 16#BB/guillemotright 16#BC/onequarter 16#BD/onehalf 16#BE/threequarters 16#BF/questiondown 16#C0/Agrave 16#C1/Aacute 16#C2/Acircumflex 16#C3/Atilde 16#C4/Adieresis 16#C5/Aring 16#C6/AE 16#C7/Ccedilla 16#C8/Egrave 16#C9/Eacute 16#CA /Ecircumflex 16#CB/Edieresis 16#CC/Igrave 16#CD/Iacute 16#CE/Icircumflex 16#CF/Idieresis 16#D0/Eth 16#D1/Ntilde 16#D2/Ograve 16#D3/Oacute 16#D4 /Ocircumflex 16#D5/Otilde 16#D6/Odieresis 16#D7/multiply 16#D8/Oslash 16#D9/Ugrave 16#DA/Uacute 16#DB/Ucircumflex 16#DC/Udieresis 16#DD/Yacute 16#DE/Thorn 16#DF/germandbls 16#E0/agrave 16#E1/aacute 16#E2/acircumflex 16#E3/atilde 16#E4/adieresis 16#E5/aring 16#E6/ae 16#E7/ccedilla 16#E8 /egrave 16#E9/eacute 16#EA/ecircumflex 16#EB/edieresis 16#EC/igrave 16#ED/iacute 16#EE/icircumflex 16#EF/idieresis 16#F0/eth 16#F1/ntilde 16#F2/ograve 16#F3/oacute 16#F4/ocircumflex 16#F5/otilde 16#F6/odieresis 16#F7/divide 16#F8/oslash 16#F9/ugrave 16#FA/uacute 16#FB/ucircumflex 16#FC/udieresis 16#FD/yacute 16#FE/thorn 16#FF/ydieresis ] def/reencdict 12 dict def/IsChar{basefontdict/CharStrings get exch known}bd/MapCh{dup IsChar not{pop/bullet}if newfont/Encoding get 3 1 roll put}bd/MapDegree{16#b0 /degree IsChar{/degree}{/ring}ifelse MapCh}bd/MapBB{16#a6/brokenbar IsChar{/brokenbar}{/bar}ifelse MapCh}bd/ANSIFont{reencdict begin/newfontname ed/basefontname ed FontDirectory newfontname known not{/basefontdict basefontname findfont def/newfont basefontdict maxlength dict def basefontdict{exch dup/FID ne{dup/Encoding eq{exch dup length array copy newfont 3 1 roll put}{exch newfont 3 1 roll put}ifelse}{pop pop}ifelse}forall newfont /FontName newfontname put 127 1 159{newfont/Encoding get exch/bullet put}for ANSIVec aload pop ANSIVec length 2 idiv{MapCh}repeat MapDegree MapBB newfontname newfont definefont pop}if newfontname end}bd/SB{FC /ULlen ed/str ed str length fBE not{dup 1 gt{1 sub}if}if/cbStr ed /dxGdi ed/y0 ed/x0 ed str stringwidth dup 0 ne{/y1 ed/x1 ed y1 y1 mul x1 x1 mul add sqrt dxGdi exch div 1 sub dup x1 mul cbStr div exch y1 mul cbStr div}{exch abs neg dxGdi add cbStr div exch}ifelse/dyExtra ed/dxExtra ed x0 y0 M fBE{dxBreak 0 BCh dxExtra dyExtra str awidthshow}{dxExtra dyExtra str ashow}ifelse fUL{x0 y0 M dxUL dyUL rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if fSO{x0 y0 M dxSO dySO rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if n/fBE false def}bd/font{/name ed/Ascent ed 0 ne/fT3 ed 0 ne/fSO ed 0 ne/fUL ed/Sy ed/Sx ed 10.0 div/ori ed -10.0 div/esc ed/BCh ed name findfont/xAscent 0 def/yAscent Ascent def/ULesc esc def ULesc mxUE rotate pop fT3{/esc 0 def xAscent yAscent mxUE transform /yAscent ed/xAscent ed}if [Sx 0 0 Sy neg xAscent yAscent] esc mxE rotate mxF concatmatrix makefont setfont [Sx 0 0 Sy neg 0 Ascent] mxUE mxUF concatmatrix pop fUL{currentfont dup/FontInfo get/UnderlinePosition known not{pop/Courier findfont}if/FontInfo get/UnderlinePosition get 1000 div 0 exch mxUF transform/dyUL ed/dxUL ed}if fSO{0 .3 mxUF transform /dySO ed/dxSO ed}if fUL fSO or{currentfont dup/FontInfo get/UnderlineThickness known not{pop/Courier findfont}if/FontInfo get/UnderlineThickness get 1000 div Sy mul/cyUL ed}if}bd/min{2 copy gt{exch}if pop}bd/max{2 copy lt{exch}if pop}bd/CP{/ft ed{{ft 0 eq{clip}{eoclip}ifelse}stopped{currentflat 1 add setflat}{exit}ifelse}loop}bd/patfont 10 dict def patfont begin /FontType 3 def/FontMatrix [1 0 0 -1 0 0] def/FontBBox [0 0 16 16] def/Encoding StandardEncoding def/BuildChar{pop pop 16 0 0 0 16 16 setcachedevice 16 16 false [1 0 0 1 .25 .25]{pat}imagemask}bd end/p{ /pat 32 string def{}forall 0 1 7{dup 2 mul pat exch 3 index put dup 2 mul 1 add pat exch 3 index put dup 2 mul 16 add pat exch 3 index put 2 mul 17 add pat exch 2 index put pop}for}bd/pfill{/PatFont patfont definefont setfont/ch(AAAA)def X0 64 X1{Y1 -16 Y0{1 index exch M ch show}for pop}for}bd/vert{X0 w X1{dup Y0 M Y1 L st}for}bd/horz{Y0 w Y1{dup X0 exch M X1 exch L st}for}bd/fdiag{X0 w X1{Y0 M X1 X0 sub dup rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup rlt st}for}bd/bdiag{X0 w X1{Y1 M X1 X0 sub dup neg rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup neg rlt st}for}bd/AU{1 add cvi 15 or}bd/AD{1 sub cvi -16 and}bd/SHR{pathbbox AU/Y1 ed AU/X1 ed AD/Y0 ed AD/X0 ed}bd/hfill{/w iRes 37.5 div round def 0.1 sl [] 0 setdash n dup 0 eq{horz}if dup 1 eq{vert}if dup 2 eq{fdiag}if dup 3 eq{bdiag}if dup 4 eq{horz vert}if 5 eq{fdiag bdiag}if}bd/F{/ft ed fm 256 and 0 ne{gs FC ft 0 eq{fill}{eofill}ifelse gr}if fm 1536 and 0 ne{SHR gs HC ft CP fm 1024 and 0 ne{/Tmp save def pfill Tmp restore}{fm 15 and hfill}ifelse gr}if}bd/S{PenW sl PC st}bd/m matrix def/GW{iRes 12 div PenW add cvi}bd/DoW{iRes 50 div PenW add cvi}bd/DW{iRes 8 div PenW add cvi}bd/SP{/PenW ed/iPen ed iPen 0 eq iPen 6 eq or{[] 0 setdash}if iPen 1 eq{[DW GW] 0 setdash}if iPen 2 eq{[DoW GW] 0 setdash}if iPen 3 eq{[DW GW DoW GW] 0 setdash}if iPen 4 eq{[DW GW DoW GW DoW GW] 0 setdash}if}bd/E{m cm pop tr scale 1 0 moveto 0 0 1 0 360 arc cp m sm}bd /AG{/sy ed/sx ed sx div 4 1 roll sy div 4 1 roll sx div 4 1 roll sy div 4 1 roll atan/a2 ed atan/a1 ed sx sy scale a1 a2 ARC}def/A{m cm pop tr AG m sm}def/P{m cm pop tr 0 0 M AG cp m sm}def/RRect{n 4 copy M 3 1 roll exch L 4 2 roll L L cp}bd/RRCC{/r ed/y1 ed/x1 ed/y0 ed/x0 ed x0 x1 add 2 div y0 M x1 y0 x1 y1 r arcto 4{pop}repeat x1 y1 x0 y1 r arcto 4{pop}repeat x0 y1 x0 y0 r arcto 4{pop}repeat x0 y0 x1 y0 r arcto 4{pop}repeat cp}bd/RR{2 copy 0 eq exch 0 eq or{pop pop RRect}{2 copy eq{pop RRCC}{m cm pop/y2 ed/x2 ed/ys y2 x2 div 1 max def/xs x2 y2 div 1 max def/y1 exch ys div def/x1 exch xs div def/y0 exch ys div def/x0 exch xs div def/r2 x2 y2 min def xs ys scale x0 x1 add 2 div y0 M x1 y0 x1 y1 r2 arcto 4{pop}repeat x1 y1 x0 y1 r2 arcto 4{pop}repeat x0 y1 x0 y0 r2 arcto 4{pop}repeat x0 y0 x1 y0 r2 arcto 4{pop}repeat m sm cp}ifelse}ifelse}bd/PP{{rlt}repeat}bd/OB{gs 0 ne{7 3 roll/y ed /x ed x y translate ULesc rotate x neg y neg translate x y 7 -3 roll}if sc B fill gr}bd/B{M/dy ed/dx ed dx 0 rlt 0 dy rlt dx neg 0 rlt cp}bd /CB{B clip n}bd/ErrHandler{errordict dup maxlength exch length gt dup{errordict begin}if/errhelpdict 12 dict def errhelpdict begin/stackunderflow(operand stack underflow)def /undefined(this name is not defined in a dictionary)def/VMerror(you have used up all the printer's memory)def /typecheck(operator was expecting a different type of operand)def /ioerror(input/output error occured)def end{end}if errordict begin /handleerror{$error begin newerror{/newerror false def showpage 72 72 scale/x .25 def/y 9.6 def/Helvetica findfont .2 scalefont setfont x y moveto(Offending Command = )show/command load{dup type/stringtype ne{(max err string)cvs}if show}exec/y y .2 sub def x y moveto(Error = )show errorname{dup type dup( max err string )cvs show( : )show/stringtype ne{( max err string )cvs}if show}exec errordict begin errhelpdict errorname known{x 1 add y .2 sub moveto errhelpdict errorname get show}if end /y y .4 sub def x y moveto(Stack =)show ostack{/y y .2 sub def x 1 add y moveto dup type/stringtype ne{( max err string )cvs}if show}forall showpage}if end}def end}bd end %%EndResource /SVDoc save def %%EndProlog %%BeginSetup Win35Dict begin ErrHandler statusdict begin 0 setjobtimeout end statusdict begin statusdict /jobname (PowerPoint - OVERVIEW.PPT) put end /oldDictCnt countdictstack def {}stopped { countdictstack oldDictCnt lt { Win35Dict begin } {1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if /oldDictCnt countdictstack def {letter }stopped { countdictstack oldDictCnt lt { Win35Dict begin } {1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if [{ } /exec load currenttransfer /exec load] cvx settransfer %%EndSetup %%Page: 1 1 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 4 5 SJ 775 697 873 (An Overview of Tcl and Tk) 873 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1038 906 363 (John Ousterhout) 363 SB gr gs 1500 1125 463 400 CB 3 2 SJ 879 981 677 (Sun Microsystems Laboratories) 677 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 882 1057 675 (john.ousterhout@eng.sun.com) 675 SB gr 32 0 0 38 38 0 0 0 36 /Times-BoldItalic /font30 ANSIFont font gs 1500 1125 463 400 CB -9 3 SJ 1045 1245 357 (Tcl/Tk Tutorial, Part I) 357 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 2 4 SJ 566 2699 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 1705 CB 1492 2699 306 (December 1, 1994, slide 2) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 4 1 SJ 566 1793 423 ( Introduction) 423 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1940 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 1924 540 (Component technologies:) 540 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 1984 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 14 3 SJ 688 1984 701 (Tcl: embeddable scripting language) 701 SB gr gs 1500 1125 463 1705 CB 641 2044 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 1 7 SJ 688 2044 846 (Tk: GUI toolkit and widgets based on Tcl.) 846 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2161 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 2 SJ 622 2145 316 (The principle: ) 316 SB gr gs 1500 1125 463 1705 CB 3 3 SJ 940 2145 613 (universal scripting language ) 613 SB gr gs 1500 1125 463 1705 CB 1556 2145 170 (controls) 170 SB gr gs 1500 1125 463 1705 CB 622 2205 1055 (everything: functions, interfaces, communication.) 1055 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2323 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2307 171 (Results:) 171 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2368 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 12 5 SJ 688 2368 670 (Raise the level of X programming) 670 SB gr gs 1500 1125 463 1705 CB 5 2 SJ 1370 2368 313 (: simpler, 5-10x) 313 SB gr gs 1500 1125 463 1705 CB 9 2 SJ 688 2428 620 (faster application development.) 620 SB gr gs 1500 1125 463 1705 CB 641 2488 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 1 1 SJ 688 2488 290 (Greater power) 290 SB gr gs 1500 1125 463 1705 CB 4 3 SJ 979 2488 573 (: more things programmable,) 573 SB gr gs 1500 1125 463 1705 CB 1 2 SJ 688 2548 545 (applications work together.) 545 SB gr gs 1500 1125 463 1705 CB 641 2607 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 1 1 SJ 688 2607 283 (Active objects) 283 SB gr gs 1500 1125 463 1705 CB 6 4 SJ 973 2607 521 (: replace data with scripts.) 521 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-BoldItalic %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 2 2 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 2 4 SJ 566 1394 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 400 CB 1492 1394 306 (December 1, 1994, slide 3) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 566 488 240 (Outline) 240 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 2 SJ 622 644 486 (Tcl scripting language.) 486 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 779 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 1 SJ 622 763 224 (Tk toolkit.) 224 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 899 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 1 SJ 622 883 344 (Tk applications.) 344 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1019 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 4 SJ 622 1003 812 (Survey of applications and extensions.) 812 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1139 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 1123 270 (Conclusions.) 270 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 2 4 SJ 566 2699 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 1705 CB 1492 2699 306 (December 1, 1994, slide 4) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 9 3 SJ 566 1793 976 (Tcl: Tool Command Language) 976 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2002 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 4 4 SJ 622 1986 1026 (Interactive programs need command languages:) 1026 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2062 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 14 4 SJ 688 2062 748 (Typically redone for each application.) 748 SB gr gs 1500 1125 463 1705 CB 641 2137 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 4 2 SJ 688 2137 424 (Result: weak, quirky.) 424 SB gr gs 1500 1125 463 1705 CB 641 2212 25 (\226) 25 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 688 2214 150 (emacs) 150 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 838 2212 97 ( and ) 97 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 936 2214 90 (csh) 90 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 1 4 SJ 1026 2212 516 ( powerful, but can't reuse.) 516 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2347 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 1 SJ 622 2331 208 (Solution: ) 208 SB gr gs 1500 1125 463 1705 CB 1 2 SJ 830 2331 583 (reusable scripting language) 583 SB gr gs 1500 1125 463 1705 CB 1414 2331 13 (.) 13 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2407 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 5 4 SJ 688 2407 491 (Interpreter is a C library.) 491 SB gr gs 1500 1125 463 1705 CB 641 2482 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 8 5 SJ 688 2482 1000 (Provides basic features: variables, procedures, etc.) 1000 SB gr gs 1500 1125 463 1705 CB 641 2557 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 13 4 SJ 688 2557 885 (Applications extend with additional features.) 885 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 3 3 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 2 4 SJ 566 1394 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 400 CB 1492 1394 306 (December 1, 1994, slide 5) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 4 2 SJ 566 488 1000 (Scripting Language Philosophy) 1000 SB gr 32 0 0 35 35 0 0 0 28 /ZapfDingbats font gs 1500 1125 463 400 CB 528 933 28 (u) 28 SB gr 32 0 0 46 46 0 0 0 43 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 11 2 SJ 584 918 555 (Large, complex applications:) 555 SB gr 32 0 0 46 46 0 0 0 42 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 603 987 23 (\226) 23 SB gr gs 1500 1125 463 400 CB 5 1 SJ 650 987 430 (Performance important.) 430 SB gr gs 1500 1125 463 400 CB 603 1056 23 (\226) 23 SB gr gs 1500 1125 463 400 CB 2 1 SJ 650 1056 278 (Need structure.) 278 SB gr gs 1500 1125 463 400 CB 603 1125 23 (\226) 23 SB gr gs 1500 1125 463 400 CB 6 3 SJ 650 1125 457 (Goal: prevent bad things.) 457 SB gr 32 0 0 35 35 0 0 0 28 /ZapfDingbats font gs 1500 1125 463 400 CB 1216 933 28 (u) 28 SB gr 32 0 0 46 46 0 0 0 43 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 15 2 SJ 1272 918 633 (Interactive commands, scripting:) 633 SB gr 32 0 0 46 46 0 0 0 42 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 1291 987 23 (\226) 23 SB gr gs 1500 1125 463 400 CB 6 2 SJ 1338 987 509 (Performance less important.) 509 SB gr gs 1500 1125 463 400 CB 1291 1056 23 (\226) 23 SB gr gs 1500 1125 463 400 CB 6 2 SJ 1338 1056 442 (Minimum structure: less) 442 SB gr gs 1500 1125 463 400 CB 10 2 SJ 1338 1111 499 (overhead, easy interchange.) 499 SB gr gs 1500 1125 463 400 CB 1291 1180 23 (\226) 23 SB gr gs 1500 1125 463 400 CB 10 3 SJ 1338 1180 461 (Goal: enable good things.) 461 SB gr gs 552 700 M -73 -50 73 -49 -109 0 -36 20 -1017 0 0 -20 -73 49 73 50 0 -20 1017 0 36 20 109 0 12 PP 0 CP n cp 2 lc 2 lj 0 1 SP S n 60 71 94 fC /fm 256 def gs 1239 103 552 700 CB 13 103 552 700 B 1 F n gr 61 72 96 fC /fm 256 def gs 1239 103 552 700 CB 14 103 565 700 B 1 F n gr 62 74 98 fC /fm 256 def gs 1239 103 552 700 CB 13 103 579 700 B 1 F n gr 63 75 100 fC /fm 256 def gs 1239 103 552 700 CB 13 103 592 700 B 1 F n gr 65 77 102 fC /fm 256 def gs 1239 103 552 700 CB 14 103 605 700 B 1 F n gr 66 79 104 fC /fm 256 def gs 1239 103 552 700 CB 13 103 619 700 B 1 F n gr 67 80 106 fC /fm 256 def gs 1239 103 552 700 CB 13 103 632 700 B 1 F n gr 69 82 108 fC /fm 256 def gs 1239 103 552 700 CB 14 103 645 700 B 1 F n gr 70 83 110 fC /fm 256 def gs 1239 103 552 700 CB 13 103 659 700 B 1 F n gr 71 85 112 fC /fm 256 def gs 1239 103 552 700 CB 13 103 672 700 B 1 F n gr 72 86 114 fC /fm 256 def gs 1239 103 552 700 CB 14 103 685 700 B 1 F n gr 74 88 116 fC /fm 256 def gs 1239 103 552 700 CB 13 103 699 700 B 1 F n gr 75 89 118 fC /fm 256 def gs 1239 103 552 700 CB 13 103 712 700 B 1 F n gr 76 91 120 fC /fm 256 def gs 1239 103 552 700 CB 14 103 725 700 B 1 F n gr 78 92 122 fC /fm 256 def gs 1239 103 552 700 CB 13 103 739 700 B 1 F n gr 79 94 124 fC /fm 256 def gs 1239 103 552 700 CB 13 103 752 700 B 1 F n gr 80 95 126 fC /fm 256 def gs 1239 103 552 700 CB 14 103 765 700 B 1 F n gr 81 97 128 fC /fm 256 def gs 1239 103 552 700 CB 13 103 779 700 B 1 F n gr 83 98 130 fC /fm 256 def gs 1239 103 552 700 CB 13 103 792 700 B 1 F n gr 84 100 132 fC /fm 256 def gs 1239 103 552 700 CB 13 103 805 700 B 1 F n gr 85 101 134 fC /fm 256 def gs 1239 103 552 700 CB 14 103 818 700 B 1 F n gr 87 103 136 fC /fm 256 def gs 1239 103 552 700 CB 13 103 832 700 B 1 F n gr 88 104 138 fC /fm 256 def gs 1239 103 552 700 CB 13 103 845 700 B 1 F n gr 89 106 140 fC /fm 256 def gs 1239 103 552 700 CB 14 103 858 700 B 1 F n gr 90 108 142 fC /fm 256 def gs 1239 103 552 700 CB 13 103 872 700 B 1 F n gr 92 109 144 fC /fm 256 def gs 1239 103 552 700 CB 13 103 885 700 B 1 F n gr 93 111 146 fC /fm 256 def gs 1239 103 552 700 CB 14 103 898 700 B 1 F n gr 94 112 148 fC /fm 256 def gs 1239 103 552 700 CB 13 103 912 700 B 1 F n gr 96 114 150 fC /fm 256 def gs 1239 103 552 700 CB 13 103 925 700 B 1 F n gr 97 115 152 fC /fm 256 def gs 1239 103 552 700 CB 14 103 938 700 B 1 F n gr 98 117 154 fC /fm 256 def gs 1239 103 552 700 CB 13 103 952 700 B 1 F n gr 99 118 156 fC /fm 256 def gs 1239 103 552 700 CB 13 103 965 700 B 1 F n gr 101 120 158 fC /fm 256 def gs 1239 103 552 700 CB 14 103 978 700 B 1 F n gr 102 121 160 fC /fm 256 def gs 1239 103 552 700 CB 13 103 992 700 B 1 F n gr 103 123 162 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1005 700 B 1 F n gr 105 124 164 fC /fm 256 def gs 1239 103 552 700 CB 14 103 1018 700 B 1 F n gr 106 126 166 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1032 700 B 1 F n gr 107 127 168 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1045 700 B 1 F n gr 108 129 170 fC /fm 256 def gs 1239 103 552 700 CB 14 103 1058 700 B 1 F n gr 110 130 172 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1072 700 B 1 F n gr 111 132 174 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1085 700 B 1 F n gr 112 133 176 fC /fm 256 def gs 1239 103 552 700 CB 14 103 1098 700 B 1 F n gr 114 135 178 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1112 700 B 1 F n gr 115 137 180 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1125 700 B 1 F n gr 116 138 182 fC /fm 256 def gs 1239 103 552 700 CB 14 103 1138 700 B 1 F n gr 117 140 184 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1152 700 B 1 F n gr 119 141 186 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1165 700 B 1 F n gr 120 143 188 fC /fm 256 def gs 1239 103 552 700 CB 14 103 1178 700 B 1 F n gr 121 144 190 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1192 700 B 1 F n gr 122 146 192 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1205 700 B 1 F n gr 124 147 194 fC /fm 256 def gs 1239 103 552 700 CB 14 103 1218 700 B 1 F n gr 125 149 196 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1232 700 B 1 F n gr 126 150 198 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1245 700 B 1 F n gr 128 152 200 fC /fm 256 def gs 1239 103 552 700 CB 14 103 1258 700 B 1 F n gr 129 153 202 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1272 700 B 1 F n gr 130 155 204 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1285 700 B 1 F n gr 131 156 206 fC /fm 256 def gs 1239 103 552 700 CB 14 103 1298 700 B 1 F n gr 133 158 208 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1312 700 B 1 F n gr 134 159 210 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1325 700 B 1 F n gr 135 161 212 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1338 700 B 1 F n gr 137 163 214 fC /fm 256 def gs 1239 103 552 700 CB 14 103 1351 700 B 1 F n gr 138 164 216 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1365 700 B 1 F n gr 139 166 218 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1378 700 B 1 F n gr 140 167 220 fC /fm 256 def gs 1239 103 552 700 CB 14 103 1391 700 B 1 F n gr 142 169 222 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1405 700 B 1 F n gr 143 170 224 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1418 700 B 1 F n gr 144 172 226 fC /fm 256 def gs 1239 103 552 700 CB 14 103 1431 700 B 1 F n gr 146 173 228 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1445 700 B 1 F n gr 147 175 230 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1458 700 B 1 F n gr 148 176 232 fC /fm 256 def gs 1239 103 552 700 CB 14 103 1471 700 B 1 F n gr 149 178 234 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1485 700 B 1 F n gr 151 179 236 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1498 700 B 1 F n gr 152 181 238 fC /fm 256 def gs 1239 103 552 700 CB 14 103 1511 700 B 1 F n gr 153 182 240 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1525 700 B 1 F n gr 155 184 242 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1538 700 B 1 F n gr 156 185 244 fC /fm 256 def gs 1239 103 552 700 CB 14 103 1551 700 B 1 F n gr 157 187 246 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1565 700 B 1 F n gr 158 188 248 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1578 700 B 1 F n gr 160 190 250 fC /fm 256 def gs 1239 103 552 700 CB 14 103 1591 700 B 1 F n gr 161 192 252 fC /fm 256 def gs 1239 103 552 700 CB 13 103 1605 700 B 1 F n gr /fm 256 def gs 1239 103 552 700 CB 173 103 1618 700 B 1 F n gr gr 1 lc 1 lj 6 4 SP 552 700 M -73 -50 73 -49 -109 0 -36 20 -1017 0 0 -20 -73 49 73 50 0 -20 1017 0 36 20 109 0 12 PP S n 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB -3 3 SJ 938 644 540 (Program size, complexity, reuse) 540 SB gr 32 0 0 38 38 0 0 0 34 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 1767 644 19 (1) 19 SB gr 32 0 0 38 38 0 0 0 38 /Symbol font gs 1500 1125 463 400 CB 553 640 27 (\245) 27 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 12 5 SJ 541 1282 690 (One language can't meet all needs?) 690 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 2 4 SJ 566 2699 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 1705 CB 1492 2699 306 (December 1, 1994, slide 6) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 4 1 SJ 566 1793 819 (Two-Language Approach) 819 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 528 2277 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 6 9 SJ 584 2261 1011 (Use Tcl for scripting, C or C++ for large things.) 1011 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 528 2352 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 2 SJ 584 2336 294 (Goals for Tcl:) 294 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 603 2412 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 15 6 SJ 650 2412 775 (Minimal syntax: easy to learn and type.) 775 SB gr gs 1500 1125 463 1705 CB 603 2487 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 11 5 SJ 650 2487 905 (Minimal structure: make things play together.) 905 SB gr gs 1500 1125 463 1705 CB 603 2562 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 17 4 SJ 650 2562 715 (Simple interfaces to C: extensibility.) 715 SB gr gs 552 1980 M -73 -50 73 -50 -109 0 -36 20 -1017 0 0 -20 -73 50 73 50 0 -20 1017 0 36 20 109 0 12 PP 0 CP n cp 2 lc 2 lj 0 1 SP S n 60 71 94 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 552 1980 B 1 F n gr 61 72 96 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 565 1980 B 1 F n gr 62 74 98 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 579 1980 B 1 F n gr 63 75 100 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 592 1980 B 1 F n gr 65 77 102 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 605 1980 B 1 F n gr 66 79 104 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 619 1980 B 1 F n gr 67 80 106 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 632 1980 B 1 F n gr 69 82 108 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 645 1980 B 1 F n gr 70 83 110 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 659 1980 B 1 F n gr 71 85 112 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 672 1980 B 1 F n gr 72 86 114 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 685 1980 B 1 F n gr 74 88 116 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 699 1980 B 1 F n gr 75 89 118 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 712 1980 B 1 F n gr 76 91 120 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 725 1980 B 1 F n gr 78 92 122 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 739 1980 B 1 F n gr 79 94 124 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 752 1980 B 1 F n gr 80 95 126 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 765 1980 B 1 F n gr 81 97 128 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 779 1980 B 1 F n gr 83 98 130 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 792 1980 B 1 F n gr 84 100 132 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 805 1980 B 1 F n gr 85 101 134 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 818 1980 B 1 F n gr 87 103 136 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 832 1980 B 1 F n gr 88 104 138 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 845 1980 B 1 F n gr 89 106 140 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 858 1980 B 1 F n gr 90 108 142 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 872 1980 B 1 F n gr 92 109 144 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 885 1980 B 1 F n gr 93 111 146 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 898 1980 B 1 F n gr 94 112 148 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 912 1980 B 1 F n gr 96 114 150 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 925 1980 B 1 F n gr 97 115 152 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 938 1980 B 1 F n gr 98 117 154 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 952 1980 B 1 F n gr 99 118 156 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 965 1980 B 1 F n gr 101 120 158 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 978 1980 B 1 F n gr 102 121 160 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 992 1980 B 1 F n gr 103 123 162 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1005 1980 B 1 F n gr 105 124 164 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 1018 1980 B 1 F n gr 106 126 166 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1032 1980 B 1 F n gr 107 127 168 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1045 1980 B 1 F n gr 108 129 170 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 1058 1980 B 1 F n gr 110 130 172 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1072 1980 B 1 F n gr 111 132 174 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1085 1980 B 1 F n gr 112 133 176 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 1098 1980 B 1 F n gr 114 135 178 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1112 1980 B 1 F n gr 115 137 180 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1125 1980 B 1 F n gr 116 138 182 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 1138 1980 B 1 F n gr 117 140 184 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1152 1980 B 1 F n gr 119 141 186 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1165 1980 B 1 F n gr 120 143 188 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 1178 1980 B 1 F n gr 121 144 190 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1192 1980 B 1 F n gr 122 146 192 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1205 1980 B 1 F n gr 124 147 194 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 1218 1980 B 1 F n gr 125 149 196 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1232 1980 B 1 F n gr 126 150 198 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1245 1980 B 1 F n gr 128 152 200 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 1258 1980 B 1 F n gr 129 153 202 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1272 1980 B 1 F n gr 130 155 204 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1285 1980 B 1 F n gr 131 156 206 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 1298 1980 B 1 F n gr 133 158 208 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1312 1980 B 1 F n gr 134 159 210 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1325 1980 B 1 F n gr 135 161 212 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1338 1980 B 1 F n gr 137 163 214 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 1351 1980 B 1 F n gr 138 164 216 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1365 1980 B 1 F n gr 139 166 218 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1378 1980 B 1 F n gr 140 167 220 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 1391 1980 B 1 F n gr 142 169 222 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1405 1980 B 1 F n gr 143 170 224 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1418 1980 B 1 F n gr 144 172 226 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 1431 1980 B 1 F n gr 146 173 228 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1445 1980 B 1 F n gr 147 175 230 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1458 1980 B 1 F n gr 148 176 232 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 1471 1980 B 1 F n gr 149 178 234 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1485 1980 B 1 F n gr 151 179 236 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1498 1980 B 1 F n gr 152 181 238 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 1511 1980 B 1 F n gr 153 182 240 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1525 1980 B 1 F n gr 155 184 242 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1538 1980 B 1 F n gr 156 185 244 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 1551 1980 B 1 F n gr 157 187 246 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1565 1980 B 1 F n gr 158 188 248 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1578 1980 B 1 F n gr 160 190 250 fC /fm 256 def gs 1239 104 552 1980 CB 14 104 1591 1980 B 1 F n gr 161 192 252 fC /fm 256 def gs 1239 104 552 1980 CB 13 104 1605 1980 B 1 F n gr /fm 256 def gs 1239 104 552 1980 CB 173 104 1618 1980 B 1 F n gr gr 1 lc 1 lj 6 4 SP 552 1980 M -73 -50 73 -50 -109 0 -36 20 -1017 0 0 -20 -73 50 73 50 0 -20 1017 0 36 20 109 0 12 PP S n 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB -3 3 SJ 938 1924 540 (Program size, complexity, reuse) 540 SB gr 32 0 0 38 38 0 0 0 34 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 1767 1924 19 (1) 19 SB gr 32 0 0 38 38 0 0 0 38 /Symbol font gs 1500 1125 463 1705 CB 553 1920 27 (\245) 27 SB gr 6 8 SP gs 663 1125 576 1705 CB -159 2117 M 2133 0 1 PP S n gr 0 0 0 fC /fm 256 def 1263 2117 M 49 -14 0 29 -49 -15 3 PP 1 F n /fm 256 def 553 2117 M -49 15 0 -29 49 14 3 PP 1 F n 6 8 SP gs 651 1125 1112 1705 CB 389 2179 M 2097 0 1 PP S n gr /fm 256 def 1787 2179 M 48 -14 0 29 -48 -15 3 PP 1 F n /fm 256 def 1089 2179 M -48 15 0 -29 48 14 3 PP 1 F n 32 0 0 42 42 0 0 0 39 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 892 2123 30 (C) 30 SB gr gs 1500 1125 463 1705 CB 1409 2123 47 (Tc) 46 SB 1455 2123 12 (l) 12 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Symbol %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 4 4 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 2 4 SJ 566 1394 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 400 CB 1492 1394 306 (December 1, 1994, slide 7) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 9 3 SJ 566 488 976 (Tcl: Tool Command Language) 976 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 6 SJ 622 644 805 (Simple syntax \(similar to sh, C, Lisp\):) 805 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 722 30 ( ) 30 SB gr gs 1500 1125 463 400 CB 688 722 240 (set a 47) 240 SB gr 32 0 0 50 50 0 0 0 40 /ZapfDingbats font gs 1500 1125 463 400 CB 1316 725 35 (\355) 35 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1400 722 60 (47) 60 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 824 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 808 84 (Sub) 83 SB 705 808 19 (s) 20 SB 725 808 31 (ti) 30 SB 755 808 76 (tuti) 75 SB 830 808 72 (ons) 73 SB 903 808 17 (:) 16 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 886 30 ( ) 30 SB gr gs 1500 1125 463 400 CB 688 886 240 (set b $a) 240 SB gr 32 0 0 50 50 0 0 0 40 /ZapfDingbats font gs 1500 1125 463 400 CB 1316 889 35 (\355) 35 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1400 886 60 (47) 60 SB gr gs 1500 1125 463 400 CB 641 961 30 ( ) 30 SB gr gs 1500 1125 463 400 CB 688 961 570 (set b [expr $a+10] ) 570 SB gr 32 0 0 50 50 0 0 0 40 /ZapfDingbats font gs 1500 1125 463 400 CB 1316 964 35 (\355) 35 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1400 961 60 (57) 60 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1064 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 1048 109 (Quot) 108 SB 730 1048 84 (ing:) 84 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 1126 30 ( ) 30 SB gr gs 1500 1125 463 400 CB 688 1126 480 (set b "a is $a" ) 480 SB gr 32 0 0 50 50 0 0 0 40 /ZapfDingbats font gs 1500 1125 463 400 CB 1316 1129 35 (\355) 35 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1400 1126 210 (a is 47) 210 SB gr gs 1500 1125 463 400 CB 641 1201 30 ( ) 30 SB gr gs 1500 1125 463 400 CB 688 1201 630 (set b {[expr $a+10]} ) 630 SB gr 32 0 0 50 50 0 0 0 40 /ZapfDingbats font gs 1500 1125 463 400 CB 1318 1204 35 (\355) 35 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 1400 1201 360 ([expr $a+10]) 360 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 2 4 SJ 566 2699 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 1705 CB 1492 2699 306 (December 1, 1994, slide 8) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 4 SJ 566 1793 893 (More On The Tcl Language) 893 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1940 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 1924 656 (Rich set of built-in commands:) 656 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 1990 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 13 3 SJ 688 1990 676 (Variables, associative arrays, lists.) 676 SB gr gs 1500 1125 463 1705 CB 641 2056 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 7 1 SJ 688 2056 376 (C-like expressions.) 376 SB gr gs 1500 1125 463 1705 CB 641 2122 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 7 1 SJ 688 2122 440 (Conditionals, looping:) 440 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 716 2185 325 (if "$x < 3" {) 325 SB gr gs 1500 1125 463 1705 CB 716 2235 625 ( puts "x is too small") 625 SB gr gs 1500 1125 463 1705 CB 716 2285 25 (}) 25 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2338 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 688 2338 71 (Pro) 70 SB 758 2338 111 (cedur) 110 SB 868 2338 22 (e) 23 SB 891 2338 32 (s.) 32 SB gr gs 1500 1125 463 1705 CB 641 2404 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 6 4 SJ 688 2404 722 (Access to UNIX files, subprocesses.) 722 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2494 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 3 SJ 622 2478 646 (Only representation is strings:) 646 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2545 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 4 3 SJ 688 2545 401 (Easy access from C.) 401 SB gr gs 1500 1125 463 1705 CB 641 2611 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 7 3 SJ 688 2611 707 (Programs and data interchangeable.) 707 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 5 5 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 2 4 SJ 566 1394 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 400 CB 1492 1394 306 (December 1, 1994, slide 9) 306 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 4 1 SJ 566 488 639 (Factorial Procedure) 639 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 566 647 360 (proc fac x {) 360 SB gr gs 1500 1125 463 400 CB 566 722 690 ( if $x<=1 {return 1}) 690 SB gr gs 1500 1125 463 400 CB 566 797 870 ( expr $x*[fac [expr $x-1]]) 870 SB gr gs 1500 1125 463 400 CB 566 872 30 (}) 30 SB gr gs 1500 1125 463 400 CB 566 1022 180 (fac 4 ) 180 SB gr 32 0 0 50 50 0 0 0 40 /ZapfDingbats font gs 1500 1125 463 400 CB 801 1025 36 (\355) 36 SB gr gs 1500 1125 463 400 CB 800 1025 36 (\355) 36 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 866 1022 60 (24) 60 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 2 4 SJ 566 2699 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 10) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 9 3 SJ 566 1793 998 (Embedding Tcl In Applications) 998 SB gr 32 0 0 35 35 0 0 0 28 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1963 28 (u) 28 SB gr 32 0 0 46 46 0 0 0 43 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 10 2 SJ 622 1948 569 (Application generates scripts.) 569 SB gr 32 0 0 35 35 0 0 0 28 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2045 28 (u) 28 SB gr 32 0 0 46 46 0 0 0 43 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 4 SJ 622 2030 614 (Tcl parses scripts, passes words) 614 SB gr gs 1500 1125 463 1705 CB 10 2 SJ 622 2085 475 (to command procedures.) 475 SB gr 32 0 0 35 35 0 0 0 28 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2183 28 (u) 28 SB gr 32 0 0 46 46 0 0 0 43 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 15 2 SJ 622 2168 530 (Application extends built-in) 530 SB gr gs 1500 1125 463 1705 CB 8 1 SJ 622 2223 266 (command set:) 266 SB gr 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2292 21 (\226) 21 SB gr gs 1500 1125 463 1705 CB 688 2292 495 (Define new object types in C.) 495 SB gr gs 1500 1125 463 1705 CB 641 2354 21 (\226) 21 SB gr gs 1500 1125 463 1705 CB -6 2 SJ 688 2354 535 (Implement primitive operations) 535 SB gr gs 1500 1125 463 1705 CB -3 3 SJ 688 2404 386 (as new Tcl commands.) 386 SB gr gs 1500 1125 463 1705 CB 641 2467 21 (\226) 21 SB gr gs 1500 1125 463 1705 CB -4 4 SJ 688 2467 543 (Build complex features with Tcl) 543 SB gr gs 1500 1125 463 1705 CB 688 2517 34 (sc) 35 SB 723 2517 15 (r) 14 SB 737 2517 12 (i) 11 SB 748 2517 33 (pt) 32 SB 780 2517 16 (s) 17 SB 797 2517 11 (.) 10 SB gr 0 lc 0 lj 6 4 SP 0 150 136 fC /fm 256 def 24 24 1303 2407 B 1 F S n /fm 256 def 24 24 1340 2407 B 1 F S n /fm 256 def 23 24 1378 2407 B 1 F S n /fm 256 def 24 24 1414 2407 B 1 F S n /fm 256 def 24 24 1452 2407 B 1 F S n 151 0 10 fC /fm 256 def 24 24 1714 2407 B 1 F S n /fm 256 def 24 24 1677 2407 B 1 F S n /fm 256 def 24 24 1639 2407 B 1 F S n /fm 256 def 24 24 1602 2407 B 1 F S n 148 49 1315 2169 B S n 32 0 0 38 38 0 0 0 35 /Times-Bold /font29 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 1335 2168 24 (P) 23 SB 1358 2168 36 (ar) 35 SB 1393 2168 49 (ser) 48 SB gr 136 49 1602 2032 B S n gs 1500 1125 463 1705 CB 1640 2031 36 (In) 35 SB 1675 2031 24 (it) 23 SB gr 186 99 1577 2144 B S n gs 1500 1125 463 1705 CB 1585 2147 168 (Command) 168 SB gr gs 1500 1125 463 1705 CB 1627 2186 82 (Loop) 82 SB gr 1 lc 1 lj gs 1500 117 463 2217 CB 1376 2104 M 0 339 1 PP S n gr gs 1500 104 463 2217 CB 1388 2117 M 0 300 1 PP S n gr gs 1500 92 463 2217 CB 1400 2129 M 0 264 1 PP S n gr gs 1500 79 463 2217 CB 1412 2142 M 0 225 1 PP S n gr gs 1500 67 463 2217 CB 1425 2154 M 0 189 1 PP S n gr gs 1500 129 463 2217 CB 1363 2092 M 0 375 1 PP S n gr gs 1500 170 463 2217 CB 1351 2029 M 0 564 1 PP S n gr 0 0 0 fC /fm 256 def 1351 2406 M 11 37 -22 0 11 -37 3 PP 1 F n 6 4 SP gs 1500 129 463 2217 CB 1338 2092 M 0 375 1 PP S n gr gs 1500 54 463 2217 CB 1437 2167 M 0 150 1 PP S n gr 1437 2267 M 0 105 288 0 2 PP S n /fm 256 def 1725 2406 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1425 2280 M 0 92 262 0 2 PP S n /fm 256 def 1687 2406 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1412 2292 M 0 80 238 0 2 PP S n /fm 256 def 1650 2406 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1400 2305 M 0 67 212 0 2 PP S n /fm 256 def 1612 2406 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1388 2317 M 0 55 74 0 2 PP S n /fm 256 def 1462 2406 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1376 2330 M 0 42 49 0 2 PP S n /fm 256 def 1425 2406 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1363 2342 M 0 30 25 0 2 PP S n /fm 256 def 1388 2406 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1338 2342 M 0 30 -25 0 2 PP S n /fm 256 def 1313 2406 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP gs 99 1125 1480 1705 CB 1688 2192 M -339 0 1 PP S n gr /fm 256 def 1463 2192 M -37 12 0 -23 37 11 3 PP 1 F n 6 4 SP gs 1500 44 463 2080 CB 1675 2018 M 0 186 1 PP S n gr /fm 256 def 1675 2143 M 11 37 -22 0 11 -37 3 PP 1 F n 6 4 SP 1600 2055 M 0 79 -212 0 2 PP S n /fm 256 def 1388 2168 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1762 2192 M 0 17 -50 0 0 -100 25 0 4 PP S n /fm 256 def 1737 2143 M 11 38 -22 0 11 -38 3 PP 1 F n 0 lc 0 lj 6 4 SP 274 535 1539 2020 B S n gs 1500 1125 463 1705 CB 1576 2431 80 (Appl) 79 SB 1655 2431 28 (ic) 27 SB 1682 2431 43 (ati) 42 SB 1724 2431 18 (o) 19 SB 1743 2431 21 (n) 21 SB gr gs 1500 1125 463 1705 CB 1578 2469 183 (Commands) 183 SB gr 223 535 1278 2020 B S n gs 1500 1125 463 1705 CB 1325 2431 26 (B) 25 SB 1350 2431 32 (ui) 31 SB 1381 2431 24 (lt) 23 SB 1404 2431 28 (-I) 27 SB 1431 2431 21 (n) 21 SB gr gs 1500 1125 463 1705 CB 1297 2469 183 (Commands) 183 SB gr gs 1500 1125 463 1705 CB 1362 1968 53 (Tcl) 52 SB gr gs 1500 1125 463 1705 CB 1582 1968 80 (Appl) 79 SB 1661 1968 28 (ic) 27 SB 1688 1968 43 (ati) 42 SB 1730 1968 18 (o) 19 SB 1749 1968 21 (n) 21 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 6 6 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 2 4 SJ 566 1394 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 11) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 566 488 345 (Extensions) 345 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1172 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 1156 939 (Extensions can be developed independently:) 939 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 1217 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 6 5 SJ 688 1217 1076 (Network communication, database access, security, ...) 1076 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1307 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 1291 1122 (Applications can include combinations of extensions.) 1122 SB gr 0 lc 0 lj 6 4 SP 0 150 136 fC /fm 256 def 24 24 1090 1014 B 1 F S n /fm 256 def 24 24 1127 1014 B 1 F S n /fm 256 def 24 24 1165 1014 B 1 F S n /fm 256 def 25 24 1202 1014 B 1 F S n /fm 256 def 24 24 1240 1014 B 1 F S n 151 0 10 fC /fm 256 def 24 24 1502 1014 B 1 F S n /fm 256 def 24 24 1464 1014 B 1 F S n /fm 256 def 24 24 1427 1014 B 1 F S n /fm 256 def 23 24 1390 1014 B 1 F S n 174 49 1090 801 B S n 32 0 0 38 38 0 0 0 35 /Times-Bold /font29 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 1123 801 24 (P) 23 SB 1146 801 36 (ar) 35 SB 1181 801 49 (ser) 48 SB gr 136 49 1390 665 B S n gs 1500 1125 463 400 CB 1428 663 36 (In) 35 SB 1463 663 24 (it) 23 SB gr 186 98 1365 777 B S n gs 1500 1125 463 400 CB 1373 780 168 (Command) 168 SB gr gs 1500 1125 463 400 CB 1415 818 82 (Loop) 82 SB gr 1 lc 1 lj gs 1500 117 463 849 CB 1188 736 M 0 339 1 PP S n gr gs 1500 104 463 849 CB 1200 749 M 0 300 1 PP S n gr gs 1500 92 463 849 CB 1213 761 M 0 264 1 PP S n gr gs 1500 79 463 849 CB 1226 774 M 0 225 1 PP S n gr gs 1500 67 463 849 CB 1238 786 M 0 189 1 PP S n gr gs 1500 117 463 849 CB 1163 736 M 0 339 1 PP S n gr gs 1500 145 463 849 CB 1175 686 M 0 489 1 PP S n gr 0 0 0 fC /fm 256 def 1175 1013 M 11 37 -22 0 11 -37 3 PP 1 F n 6 4 SP gs 1500 104 463 849 CB 1150 749 M 0 300 1 PP S n gr gs 1500 54 463 849 CB 1251 799 M 0 150 1 PP S n gr 1251 899 M 0 80 261 0 2 PP S n /fm 256 def 1512 1013 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1238 912 M 0 67 237 0 2 PP S n /fm 256 def 1475 1013 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1226 924 M 0 55 211 0 2 PP S n /fm 256 def 1437 1013 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1213 937 M 0 42 187 0 2 PP S n /fm 256 def 1400 1013 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1200 950 M 0 29 51 0 2 PP S n /fm 256 def 1251 1013 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1188 962 M 0 17 25 0 2 PP S n /fm 256 def 1213 1013 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1163 962 M 0 17 -25 0 2 PP S n /fm 256 def 1138 1013 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1150 949 M 0 30 -50 0 2 PP S n /fm 256 def 1100 1013 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP gs 86 1125 1281 400 CB 1463 824 M -300 0 1 PP S n gr /fm 256 def 1264 824 M -37 12 0 -23 37 11 3 PP 1 F n 6 4 SP gs 1500 44 463 713 CB 1462 651 M 0 186 1 PP S n gr /fm 256 def 1462 776 M 11 37 -22 0 11 -37 3 PP 1 F n 6 4 SP 1388 688 M 0 78 -213 0 2 PP S n /fm 256 def 1175 800 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1550 824 M 0 17 -50 0 0 -99 25 0 4 PP S n /fm 256 def 1525 776 M 11 38 -22 0 11 -38 3 PP 1 F n 0 lc 0 lj 6 4 SP 273 486 1328 652 B S n gs 1500 1125 463 400 CB 1363 1038 80 (Appl) 79 SB 1442 1038 28 (ic) 27 SB 1469 1038 43 (ati) 42 SB 1511 1038 18 (o) 19 SB 1530 1038 21 (n) 21 SB gr gs 1500 1125 463 400 CB 1365 1076 183 (Commands) 183 SB gr 224 486 1065 652 B S n gs 1500 1125 463 400 CB 1112 1038 26 (B) 25 SB 1137 1038 32 (ui) 31 SB 1168 1038 24 (lt) 23 SB 1191 1038 28 (-I) 27 SB 1218 1038 21 (n) 21 SB gr gs 1500 1125 463 400 CB 1084 1076 183 (Commands) 183 SB gr gs 1500 1125 463 400 CB 1149 601 53 (Tcl) 52 SB gr gs 1500 1125 463 400 CB 1370 601 80 (Appl) 79 SB 1449 601 28 (ic) 27 SB 1476 601 43 (ati) 42 SB 1518 601 18 (o) 19 SB 1537 601 21 (n) 21 SB gr 8 29 117 fC /fm 256 def 24 24 828 1014 B 1 F S n /fm 256 def 24 24 866 1014 B 1 F S n /fm 256 def 24 24 903 1014 B 1 F S n /fm 256 def 24 24 941 1014 B 1 F S n 211 486 791 652 B S n 0 0 0 fC gs 1500 1125 463 400 CB 815 1038 57 (Ext) 56 SB 871 1038 53 (ens) 52 SB 923 1038 29 (io) 30 SB 953 1038 21 (n) 20 SB gr gs 1500 1125 463 400 CB 803 1076 183 (Commands) 183 SB gr gs 1500 1125 463 400 CB 815 601 57 (Ext) 56 SB 871 601 53 (ens) 52 SB 923 601 29 (io) 30 SB 953 601 21 (n) 20 SB gr 1 lc 1 lj gs 1500 92 463 849 CB 1138 761 M 0 264 1 PP S n gr gs 1500 79 463 849 CB 1125 774 M 0 225 1 PP S n gr gs 1500 67 463 849 CB 1113 786 M 0 189 1 PP S n gr gs 1500 54 463 849 CB 1100 799 M 0 150 1 PP S n gr 1138 937 M 0 42 -187 0 2 PP S n 0 0 0 fC /fm 256 def 951 1013 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1125 924 M 0 55 -211 0 2 PP S n /fm 256 def 914 1013 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1113 912 M 0 67 -237 0 2 PP S n /fm 256 def 876 1013 M 11 38 -22 0 11 -38 3 PP 1 F n 6 4 SP 1100 899 M 0 80 -261 0 2 PP S n /fm 256 def 839 1013 M 11 38 -22 0 11 -38 3 PP 1 F n 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 2 4 SJ 566 2699 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 12) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 5 2 SJ 566 1793 483 (The Tk Toolkit) 483 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1965 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 1 SJ 622 1949 291 (The problem:) 291 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2025 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 12 8 SJ 688 2025 1103 (Too hard to build applications with nice user interfaces.) 1103 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2115 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 2 SJ 622 2099 430 (The wrong solution:) 430 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2175 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 688 2175 592 (C++, object-oriented toolkits.) 592 SB gr gs 1500 1125 463 1705 CB 641 2250 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 21 5 SJ 688 2250 917 (Only small improvement \(10-20%?\): must still) 917 SB gr gs 1500 1125 463 1705 CB 3 4 SJ 688 2310 459 (program at a low level.) 459 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2400 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2384 400 (The right solution:) 400 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2460 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 12 4 SJ 688 2460 621 (Raise the level of programming) 621 SB gr gs 1500 1125 463 1705 CB 1321 2460 13 (.) 13 SB gr gs 1500 1125 463 1705 CB 641 2535 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 10 5 SJ 688 2535 781 (Create interfaces by writing Tcl scripts.) 781 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 7 7 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 2 4 SJ 566 1394 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 13) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 7 4 SJ 566 488 1076 (Creating User Interfaces With Tk) 1076 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 2 SJ 622 644 568 (Additional Tcl commands:) 568 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 720 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 5 2 SJ 688 720 524 (Create Motif-like widgets.) 524 SB gr gs 1500 1125 463 400 CB 641 795 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 2 1 SJ 688 795 342 (Arrange widgets.) 342 SB gr gs 1500 1125 463 400 CB 641 870 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 7 4 SJ 688 870 603 (Bind events to Tcl commands.) 603 SB gr gs 1500 1125 463 400 CB 641 945 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 9 6 SJ 688 945 1057 (Manipulate X selection, focus, window manager, etc.) 1057 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1079 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 4 3 SJ 622 1063 536 (Library of C procedures:) 536 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 1139 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 4 3 SJ 688 1139 535 (Create new widget classes.) 535 SB gr gs 1500 1125 463 400 CB 641 1214 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 4 3 SJ 688 1214 640 (Create new geometry managers.) 640 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 2 4 SJ 566 2699 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 14) 321 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1965 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 2 SJ 622 1949 423 (The Tcl interpreter.) 423 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2066 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 2 SJ 622 2050 320 (The Tk toolkit.) 320 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2168 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2152 879 (Application-specific C code \(primitives!\):) 879 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2228 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 2 2 SJ 688 2228 358 (New object types.) 358 SB gr gs 1500 1125 463 1705 CB 641 2303 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 1 1 SJ 688 2303 274 (New widgets.) 274 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2420 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 3 SJ 622 2404 695 (Tcl scripts \(compose primitives\):) 695 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2480 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 7 2 SJ 688 2480 400 (Build user interface.) 400 SB gr gs 1500 1125 463 1705 CB 641 2555 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 688 2555 380 (Respond to events.) 380 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 7 3 SJ 566 1793 1054 (What's A Tk-Based Application?) 1054 SB gr 6 4 SP 0 0 1 0 14 -14 0 12 12 1152 2231 A S n 0 0 1 14 0 0 14 12 12 1152 2356 A S n 0 0 1 -14 0 0 -14 12 12 1177 2306 A S n gs 1500 54 463 2305 CB 1163 2255 M 0 150 1 PP S n gr gs 1500 55 463 2229 CB 1163 2178 M 0 153 1 PP S n gr 0 0 1 0 -14 14 0 12 12 1177 2281 A S n 32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB -3 1 SJ 1191 2267 249 (Tcl commands) 249 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 8 8 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 2 4 SJ 566 1394 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 15) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 2 SJ 566 488 756 (Wish: Windowing Shell) 756 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 5 6 SJ 622 644 946 (Create user interfaces by writing Tcl scripts.) 946 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 735 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 1 SJ 622 719 278 (Hello, world:) 278 SB gr 32 0 0 38 38 0 0 0 32 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 400 CB 641 792 1104 (button .hello -text "Hello, world" -command exit) 1104 SB gr gs 1500 1125 463 400 CB 641 849 253 (pack .hello) 253 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1147 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 5 4 SJ 622 1131 728 (Simple directory browser: 30 lines) 728 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1222 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 5 SJ 622 1206 652 (10x less code for simple things.) 652 SB gr %MSEPS Preamble 0 0 185 241 0 0 185 241 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 185 def /pp_by2 241 def 0 lc 0 lj 0 1 SP gs 386 503 1433 873 CB 385 502 1433 873 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: browse %%Pages: 1 %%BoundingBox: 0 0 185 241 %%CreationDate: Fri Oct 14 09:28:39 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 185 241 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 21 string def /drawcolormappedimage { 185 241 8 [185 0 0 -241 0 241] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 e2cbae pop pop drawcolormappedimage ce0000018900000115000001010013020001000088020001000013020101 010013020001000088020001000013020101010001021201000089010000 110101020101010001020001af000102010101000102000100000f020001 00007602000100000f02000100000f020001000001020101010001020001 00000f02000100007602000100000f02000100000f020001000001020101 01000102000100000f02000100007602000100000f02000100000f020001 00000102010101000102000100000f0200010000240201034f0200010000 0f0200010000020209000202000100000102010101000102000100000f02 00010000240201034f02000100000f020001000002020000070200010202 000100000102010101000102000100000f02000100002402010300020103 010201030002010300020303010201030102010301020103010203030202 03032702000100000f020001000002020000070200010202000100000102 010101000102000100000202090002020001000024020203000201030002 060301020103000201030102010301020103000201030102010300020103 010201032602000100000502030005020001000002020000070200010202 000100000102010101000102000100000202000007020001020200010000 240201030102010300020203010201030102010301020103000201030002 010301020203030201030102010326020001000005020000010200010502 000100000202000007020001020200010000010201010100010200010000 020200000702000102020001000024020103010201030002010302020103 010201030102010300020103000201030302020301020503260200010000 050200000102000105020001000002020000070200010202000100000102 010101000102000100000202000008010202000100002402010301020103 000201030202010301020103010201030002010300020103040202030002 01032a020001000005020000020105020001000002020000070200010202 000100000102010101000102000100000f02000100002402020300020103 000201030202010301020103020201030102010302020103010201030002 0103010201032602000100000f0200010000020200000702000102020001 00000102010101000102000100000f020001000024020103000201030102 010303020303030201030102010303020303020203032702000100000f02 000100000202000007020001020200010000010201010100010200010000 0f02000100007602000100000f0200010000020200000801020200010000 0102010101000102000100000f02000100007602000100000f0200010000 0f02000100000102010101000102000100000f0200010000760200010000 0f02000100000f0200010000010201010100010200010000100100007701 00001001000010010000010201010000b2010000030104000001ac040400 0001010001020101ac040100010201010100010201010104910503041205 010401000102010101000102010101049005000003041105000001040100 01020101010001020101010401058d040100030401050606000506060100 0104010001020101010001020101010401058d0401000304010505060000 0005060601000104010001020101010001020101010401058d0401000304 010505060000010505060100010401000102010101000102010101040105 280401036204010003040105040601000105050601000104010001020101 010001020101010401052804010362040100030401050406010000040105 040601000104010001020101010001020101010401050104030302040303 010400030004020300040203010401030004010302040303010403036104 010003040105030601000104010504060100010401000102010101000102 010101040105000401030104010300040103010401030004010301040103 010401030004020300040103000401030104010301040103620401000304 010503060100020401050306010001040100010201010100010201010104 010500040103040401030104010300040103010401030104010300040103 010401030404010301040103620401000304010502060100030401050306 010001040100010201010100010201010104010500040103040401030104 010300040103010401030104010300040103010401030104040301040103 620401000304010502060100040401050206010001040100010201010100 010201010104010500040103040401030104010300040103010401030104 010300040103010401030004010301040103010401036204010003040105 010601000504010502060100010401000102010101000102010101040105 000401030104010300040103010401030004010301040103010401030004 020300040103000401030104010301040103000400036004010003040105 010601000604010501060100010401000102010101000102010101040105 010403030204030301040103010401030104010300040103000401030204 020300040103010401036104010003040105000601000704010501060100 010401000102010101000102010101040105190401037104010003040105 000601000804010500060100010401000102010101000102010101040105 19040103710401000304010501000b050006010001040100010201010100 010201010104010519040103710401000304010500000d05010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401051704040313040103090401034e040100 030401050e06010001040100010201010100010201010104010516040103 17040103090401034e040100030401050e06010001040100010201010100 010201010104010501040303020403030104010300040103010403030004 010301040103000401030504030301040303010403030104030300040103 010401030104030340040100030401050e06010001040100010201010100 010201010104010500040103010401030004010301040103000402030004 010301040103010401030004010300040203040401030104010301040103 010401030104010301040103010401030104010300040103010401033f04 0100030401050e0601000104010001020101010001020101010401050004 010304040103010401030004010301040103010401030104010300040103 010401030404020304040103050401030104010301040103010401030004 020342040100030401050e06010001040100010201010100010201010104 010500040103040401030104010300040103010401030104010301040103 000401030104010306040203020401030204040301040103010401030104 01030204020340040100030401050e060100010401000102010101000102 010101040105000401030404010301040103000401030104010301040103 010401030004010301040103070402030104010301040103010401030104 01030104010301040103030402033f040100030401050e06010001040100 010201010100010201010104010500040103010401030004010301040103 000401030104010301040103010401030004010300040203010401030004 010301040103010401030004020301040103010401030004020300040203 00040103010401033f040100030401050e06010001040100010201010100 010201010104010501040303020403030104010301040103010401030104 010301040103000401030104010301040303030401030104020300040103 0104010301040103000401030104030340040100030401050e0601000104 010001020101010001020101010401052104010369040100030401050e06 01000104010001020101010001020101010401051d040103010401036904 0100030401050e0601000104010001020101010001020101010401051e04 03036a040100030401050e06010001040100010201010100010201010104 01058d040100030401050e06010001040100010201010100010201010104 01058d040100030401050e06010001040100010201010100010201010104 01058d040100030401050e06010001040100010201010100010201010104 01058d040100030401050e06010001040100010201010100010201010104 01058d040100030401050e06010001040100010201010100010201010104 010517040403700401000304010510000104010001020101010001020101 010401051604010374040100030401050d00000501000104010001020101 010001020101010401050104030302040303010401030004010301040303 000401030104010300040103000401030104010300040103000401030004 0303570401000304010501000a0401050100010401000102010101000102 010101040105000401030104010300040103010401030004020300040103 010401030104010300040103000402030004010301040103000406030104 0103560401000304010501000a0401050100010401000102010101000102 010101040105000401030404010301040103000401030104010301040103 010401030004010301040103000401030104010300040203010401030104 0103560401000304010501000a0401050100010401000102010101000102 010101040105000401030404010301040103000401030104010301040103 010401030004010301040103000401030104010300040103020405035604 01000304010501000a040105010001040100010201010100010201010104 010500040103040401030104010300040103010401030104010301040103 0004010301040103000401030104010300040103020401035a0401000304 010501000a04010501000104010001020101010001020101010401050004 010301040103000401030104010300040103010401030104010301040103 000401030004020300040103000402030004010302040103010401035604 01000304010501000a040105010001040100010201010100010201010104 010501040303020403030104010301040103010401030104010301040103 000401030104010300040103000401030304030357040100030401050100 0a0401050100010401000102010101000102010101040105210401036904 01000304010501000a040105010001040100010201010100010201010104 01051d04010301040103690401000304010501000a040105010001040100 01020101010001020101010401051e0403036a0401000304010501000a04 010501000104010001020101010001020101010401058d04010003040105 01000a04010501000104010001020101010001020101010401058d040100 0304010501000a0401050100010401000102010101000102010101040105 8d0401000304010501000a04010501000104010001020101010001020101 010401058d0401000304010501000a040105010001040100010201010100 01020101010401058d0401000304010501000a0401050100010401000102 010101000102010101040105170404031e0401034f040100030401050100 0a0401050100010401000102010101000102010101040105160401037404 01000304010501000a040105010001040100010201010100010201010104 010501040303020403030104010300040103010403030004010301040103 000401030004010301040103000401030004010300040303050401030004 010300040103490401000304010501000a04010501000104010001020101 010001020101010401050004010301040103000401030104010300040203 000401030104010301040103000401030004020300040103010401030004 060301040103040401030004020300040103480401000304010501000a04 010501000104010001020101010001020101010401050004010304040103 010401030004010301040103010401030104010300040103010401030004 010301040103000402030104010301040103040401030004010301040103 480401000304010501000a04010501000104010001020101010001020101 010401050004010304040103010401030004010301040103010401030104 010300040103010401030004010301040103000401030204050304040103 0004010301040103480401000304010501000a0401050100010401000102 010101000102010101040105000401030404010301040103000401030104 010301040103010401030004010301040103000401030104010300040103 02040103080401030004010301040103480401000304010501000a040105 010001040100010201010100010201010104010500040103010401030004 010301040103000401030104010301040103010401030004010300040203 000401030004020300040103020401030104010301040103000401030004 010301040103480401000304010501000c05010001040100010201010100 010201010104010501040303020403030104010301040103010401030104 010301040103000401030104010300040103000401030304030302040103 000401030004010301040103480401000304010500000d05010001040100 01020101010001020101010401052104010369040100030401050e060100 0104010001020101010001020101010401051d0401030104010369040100 030401050e0601000104010001020101010001020101010401051e040303 6a040100030401050e060100010401000102010101000102010101040105 8d040100030401050e060100010401000102010101000102010101040105 8d040100030401050e060100010401000102010101000102010101040105 8d040100030401050e060100010401000102010101000102010101040105 8d040100030401050e060100010401000102010101000102010101040105 8d040100030401050e060100010401000102010101000102010101040105 0404010386040100030401050e0601000104010001020101010001020101 010401050404010386040100030401050e06010001040100010201010100 010201010104010501040103000401030104030302040303790401000304 01050e060100010401000102010101000102010101040105000401030004 02030004010301040103000401030104010378040100030401050e060100 010401000102010101000102010101040105000401030104010300040103 01040103000401037c040100030401050e06010001040100010201010100 010201010104010500040103010401030004010301040103000401037c04 0100030401050e0601000104010001020101010001020101010401050004 0103010401030004010301040103000401037c040100030401050e060100 010401000102010101000102010101040105000401030004020300040103 01040103000401030104010378040100030401050e060100010401000102 010101000102010101040105010401030004010301040303020403037904 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401050004 01030f04010308040103000401030b0401035c040100030401050e060100 010401000102010101000102010101040105120401030804010300040103 0b0401035c040100030401050e0601000104010001020101010001020101 010401050004010300040103000401030204030301040303010403030104 01030004010305040303010401030004010359040100030401050e060100 010401000102010101000102010101040105000401030004020300040103 000401030104010301040103010401030104010300040103000401030404 010301040103000402030004010358040100030401050e06010001040100 010201010100010201010104010500040103000401030104010300040203 040401030504010300040103000401030404020303040103010401035804 0100030401050e0601000104010001020101010001020101010401050004 010300040103010401030204020302040103020404030004010300040103 06040203010401030104010358040100030401050e060100010401000102 010101000102010101040105000401030004010301040103030402030104 010301040103010401030004010300040103070402030004010301040103 58040100030401050e060100010401000102010101000102010101040105 000401030004010301040103000401030104010301040103000402030104 010300040103000401030104010300040103010401030004010301040103 58040100030401050e060100010401000102010101000102010101040105 000401030004010301040103010403030304010301040203000403030004 01030104010301040303010401030104010358040100030401050e060100 0104010001020101010001020101010401058d040100030401050e060100 0104010001020101010001020101010401058d040100030401050e060100 0104010001020101010001020101010401058d040100030401050e060100 0104010001020101010001020101010401058d040100030401050e060100 0104010001020101010001020101010401058d040100030401050e060100 0104010001020101010001020101010401058d040100030401050e060100 0104010001020101010001020101010401058d040100030401050e060100 0104010001020101010001020101010401058d040100030401050e060100 010401000102010101000102010101040105000401030004010300040103 84040100030401050e060100010401000102010101000102010101040105 000401030304010384040100030401050e06010001040100010201010100 010201010104010500040103000401030004010300040103010401030004 01030004030301040103000403030204010367040100030401050e060100 010401000102010101000102010101040105000401030004010300040203 000401030004060301040103000406030204010367040100030401050e06 010001040100010201010100010201010104010500040103000401030004 010301040103000402030504010300040203020401030004010368040100 030401050e06010001040100010201010100010201010104010500040103 000401030004010301040103000401030304040300040103030401030004 010368040100030401050e06010001040100010201010100010201010104 010500040103000401030004010301040103000401030204010301040103 000401030404020369040100030401050e06010001040100010201010100 010201010104010500040103000401030004020300040103000401030204 010301040103000401030404020369040100030401050e06010001040100 010201010100010201010104010500040103000401030004010300040103 0104010303040203000403030504010369040100030401050e0601000104 01000102010101000102010101040105210400036a040100030401050e06 0100010401000102010101000102010101040105200401036a0401000304 01050e0601000104010001020101010001020101010401051f0401036b04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401058d04 0100030401050e0601000104010001020101010001020101010401050004 01030004010300040103050401030804010371040100030401050e060100 010401000102010101000102010101040105000401030304010305040103 0804010371040100030401050e0601000104010001020101010001020101 010401050004010300040103000401030004010301040303010403030104 01030504030367040100030401050e060100010401000102010101000102 010101040105000401030004010300040203000401030104010301040103 0104010300040103040401030104010366040100030401050e0601000104 010001020101010001020101010401050004010300040103000401030104 01030104010301040103040401030804010366040100030401050e060100 010401000102010101000102010101040105000401030004010300040103 010401030104010301040103040401030504040366040100030401050e06 010001040100010201010100010201010104010500040103000401030004 010301040103010401030104010304040103040401030104010366040100 030401050e06010001040100010201010100010201010104010500040103 000401030004020300040103010401030004020301040103000401030104 0103000401030104010366040100030401050e0601000104010001020101 010001020101010401050004010300040103000401030004010303040103 010403030104010301040103010402030004010365040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 010001040100010201010100010201010104010515040103750401000304 01050e0601000104010001020101010001020101010401058d0401000304 01050e060100010401000102010101000102010101040105000401030004 010302040303010401030004010301040103010403030604030364040100 030401050e06010001040100010201010100010201010104010500040203 000401030004010301040103000402030004010300040103000401030104 0103040401030104010363040100030401050e0601000104010001020101 010001020101010401050004010301040103040401030004010301040103 00040103000401030804010367040100030401050e060100010401000102 010101000102010101040105000401030104010301040403000401030104 010300040103000401030804010367040100030401050e06010001040100 010201010100010201010104010500040103010401030004010301040103 000401030104010300040103000401030804010367040100030401050e06 010001040100010201010100010201010104010500040203000401030004 010301040103000401030104010300040103000401030104010301040103 000401030104010363040100030401050e06010001040100010201010100 010201010104010500040103000401030204020300040303010401030004 010301040303020401030104030364040100030401050e06010001040100 0102010101000102010101040105000401038a040100030401050e060100 010401000102010101000102010101040105000401038a04010003040105 0e060100010401000102010101000102010101040105000401038a040100 030401050e0601000104010001020101010001020101010401058d040100 030401050e0601000104010001020101010001020101010401058d040100 030401050e0601000104010001020101010001020101010401058d040100 030401050e0601000104010001020101010001020101010401058d040100 030401050e0601000104010001020101010001020101010401058d040100 030401050e06010001040100010201010100010201010104010515040103 75040100030401050e060100010401000102010101000102010101040105 8d040100030401050e060100010401000102010101000102010101040105 000401030004010302040303010401030004010301040103010403030604 030364040100030401050e06010001040100010201010100010201010104 010500040203000401030004010301040103000402030004010300040103 0004010301040103040401030104010363040100030401050e0601000104 010001020101010001020101010401050004010301040103040401030004 010301040103000401030004010308040103010401036304010003040105 0e0601000104010001020101010001020101010401050004010301040103 010404030004010301040103000401030004010308040103010401036304 0100030401050e0601000104010001020101010001020101010401050004 010301040103000401030104010300040103010401030004010300040103 080401030104010363040100030401050e06010001040100010201010100 010201010104010500040203000401030004010301040103000401030104 010300040103000401030104010301040103000401030104010363040100 030401050e06010001040100010201010100010201010104010500040103 000401030204020300040303010401030004010301040303020401030104 030364040100030401050e06010001040100010201010100010201010104 0105000401038a040100030401050e060100010401000102010101000102 010101040105000401038a040100030401050e0601000104010001020101 01000102010101040105000401038a040100030401050e06010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401058d040100030401050e06010001040100 01020101010001020101010401050f040103080401030404010316040103 0404010349040100030401050e0601000104010001020101010001020101 010401050f04010308040103040401031604010304040103490401000304 01050e060100010401000102010101000102010101040105000401030004 010302040303010403030104030301040103000401030104010301040303 010401030204010301040303010401030404010300040103460401000304 01050e060100010401000102010101000102010101040105000402030004 010300040103010401030104010301040103010401030004020300040103 000401030004010301040103000401030204010300040103010401030004 0103040402030004010345040100030401050e0601000104010001020101 010001020101010401050004010301040103040401030104010301040103 040401030104010300040103000401030104010301040103000401030104 01030104010300040103040401030104010345040100030401050e060100 010401000102010101000102010101040105000401030104010301040403 010401030104010304040103010401030004010300040503010401030004 01030104050300040103040401030104010345040100030401050e060100 010401000102010101000102010101040105000401030104010300040103 010401030104010301040103040401030104010300040103000401030604 02030204010304040103040401030104010345040100030401050e060100 010401000102010101000102010101040105000402030004010300040103 010401030104010300040203010401030004010301040103000401030004 010301040103020402030204010301040103000401030104010300040103 0104010345040100030401050e0601000104010001020101010001020101 010401050004010300040103020402030004010301040103010403030104 010301040103000401030104030304040003040403030104010301040103 000401030104010345040100030401050e06010001040100010201010100 0102010101040105000401038a040100030401050e060100010401000102 010101000102010101040105000401038a040100030401050e0601000104 01000102010101000102010101040105000401038a040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401050e06 01000104010001020101010001020101010401058d040100030401051000 010401000102010100000401010401051404010301040103210401034e04 01000304010500060c000005010001040100030104000001010401051404 0103250401034e0401000304010500060100080401050006010001040400 000101000102010101040105000401030004010302040303010401030004 050300040103000401030004010302040103000401030404010300040103 020403030104030301040303020403034004010003040105010601000704 010500060100010401000102010101000102010101040105000402030004 010300040103010401030004040300040103010401030004020300040103 000401030004020304040203000401030004010301040103010401030104 01030104010300040103010401033f040100030401050106010006040105 010601000104010001020101010001020101010401050004010301040103 000401030104010300040203020401030104010300040103010401030004 010301040103040401030104010300040103010401030104010301040103 010401030004020342040100030401050206010005040105010601000104 010001020101010001020101010401050004010301040103000401030104 010300040103030401030104010300040103010401030004010301040103 040401030104010300040103010401030104010301040503020402034004 010003040105020601000404010502060100010401000102010101000102 010101040105000401030104010300040103010401030004010303040103 010401030004010301040103000401030104010304040103010401030004 0103010401030104010301040103070402033f0401000304010503060100 030401050206010001040100010201010100010201010104010500040203 000401030004010301040103000401030304010300040203000401030104 010300040103000402030104010300040103010401030004010301040103 01040103000402030104010300040103010401033f040100030401050306 010002040105030601000104010001020101010001020101010401050004 010300040103020403030104010304040103000401030004010301040103 010401030004010301040103000401030104010301040303030401030104 030302040303400401000304010504060100010401050306010001040100 010201010100010201010104010500040103230401036404010003040105 040601000004010504060100010401000102010101000102010101040105 000401031f04010301040103640401000304010505060000020504060100 010401000102010101000102010101040105000401032004030365040100 030401050506000001050506010001040100010201010100010201010104 01058d040100030401050606010505060100010401000102010101000102 0101010401058d0401000304010506060005060601000104010001020101 010001020101010401058f00030401051000010401000102010101000102 01010104000590000304000511000104010001020101010001020101ac04 010001020101010001020101ac04010001020101010001020101ae000102 0101010001020001af000102010101001302000100008802000100001302 010101001302000100008802000100001302010101001401000089010000 15010000b701 % % Run-length encoding savings = 72.7% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore %MSEPS Preamble 0 0 114 61 0 0 114 61 /pp_save save def /showpage {} def 40 dict begin /pp_clip false def /pp_bbox false def /F { pop } def /S {} def /B { { /pp_dy1 exch def /pp_dx1 exch def /pp_dy2 exch def /pp_dx2 exch def } stopped not { /pp_bbox true def } if } def /CB { { /pp_cy exch def /pp_cx exch def /pp_cht exch def /pp_cwd exch def } stopped not { /pp_clip true def } if } def /pp_bx1 0 def /pp_by1 0 def /pp_bx2 114 def /pp_by2 61 def gs 239 128 695 921 CB 238 127 695 921 B S n gr pp_clip { pp_cx pp_cy moveto pp_cwd 0 rlineto 0 pp_cht rlineto pp_cwd neg 0 rlineto clip newpath } if pp_bbox { /pp_dy2 pp_dy2 pp_dy1 add def /pp_dx2 pp_dx2 pp_dx1 add def /pp_sx pp_dx2 pp_dx1 sub pp_bx2 pp_bx1 sub div def /pp_sy pp_dy2 pp_dy1 sub pp_by1 pp_by2 sub div def /pp_tx pp_dx1 pp_sx pp_bx1 mul sub def /pp_ty pp_dy1 pp_sy pp_by2 mul sub def pp_tx pp_ty translate pp_sx pp_sy scale } if end %!PS-Adobe-2.0 EPSF-2.0 %%Creator: xgrabsc %%Title: hello %%Pages: 1 %%BoundingBox: 0 0 114 61 %%CreationDate: Sun Oct 23 15:25:06 1994 %%EndComments %%EndProlog %%Page: 1 1 gsave %%Title: colorimage.ps systemdict /colorimage known userdict /colorimage known or not { %% create if not in systemdict /colortograyscale { %def dup /rgbdata exch store length 3 idiv /npixls exch store /indx 0 store /pixls npixls string store 0 1 npixls -1 add { pixls exch rgbdata indx get .3 mul rgbdata indx 1 add get .59 mul add rgbdata indx 2 add get .11 mul add cvi put /indx indx 3 add store } for pixls } 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 {colortograyscale} mergeprocs image } bind def } if /inch {72 mul} def 114 61 scale /rgbstr 768 string def /buffer 2 string def /rgb (000) def /rgbmap 18 string def /drawcolormappedimage { 114 61 8 [114 0 0 -61 0 61] %% define a block of code to read and decode the rle input stream { currentfile buffer readhexstring pop pop %% run length and index /npixels buffer 0 get 1 add 3 mul store %% number of bytes /color buffer 1 get 3 mul store %% fix index into rgb map /rgb rgbmap color 3 getinterval store %% and get the colors 0 3 npixels 1 sub { %% loop to store the rgb bytes rgbstr exch rgb putinterval } for rgbstr 0 npixels getinterval } false 3 colorimage } bind def %% get the rgb map currentfile rgbmap readhexstring f3f3f3 8a7b69 e6ceb1 000000 f3d9ba 918270 pop pop drawcolormappedimage 870000014200000115000001010013020001000041020001000013020101 010013020001000041020001000013020101010001021201000042010000 11010102010101000102000168000102010101000102000100000f020001 00002f02000100000f02000100000f020001000001020101010001020001 00000f02000100002f02000100000f02000100000f020001000001020101 01000102000100000f02000100002f02000100000f02000100000f020001 00000102010101000102000100000f02000100000a0201030b0201030002 01031102000100000f020001000002020900020200010000010201010100 0102000100000f02000100000a0201030b02010300020103110200010000 0f0200010000020200000702000102020001000001020101010001020001 00000f02000100000a020103000201030202030301020103000201030102 03030b02000100000f020001000002020000070200010202000100000102 01010100010200010000020209000202000100000a020203000201030002 010301020103000201030002010300020103010201030a02000100000502 030005020001000002020000070200010202000100000102010101000102 0001000002020000070200010202000100000a0201030102010300020103 01020103000201030002010300020103010201030a020001000005020000 010200010502000100000202000007020001020200010000010201010100 01020001000002020000070200010202000100000a020103010201030002 0503000201030002010300020103010201030a0200010000050200000102 000105020001000002020000070200010202000100000102010101000102 000100000202000008010202000100000a02010301020103000201030402 01030002010300020103010201030a020001000005020000020105020001 000002020000070200010202000100000102010101000102000100000f02 000100000a02010301020103000201030102010300020103000201030002 0103010201030a02000100000f0200010000020200000702000102020001 00000102010101000102000100000f02000100000a020103010201030102 03030102010300020103010203030b02000100000f020001000002020000 070200010202000100000102010101000102000100000f02000100002f02 000100000f02000100000202000008010202000100000102010100000301 00000f02000100002f02000100000f02000100000f020001000003010500 0f02000100002f02000100000f02000100000f0200010300000101000102 000100001001000030010000100100001001000001020101010001026801 000001020101010001020101650401000102010101000102010165040100 010201010100010201010104610001040100010201010100010201010104 600000050104010001020101010001020101010401005d04010501040100 01020101010001020101010401005d040105010401000102010101000102 0101010401005d0401050104010001020101010001020101010401005d04 01050104010001020101010001020101010401005d040105010401000102 0101010001020101010401005d0401050104010001020101010001020101 010401000b04010302040103070401030004010326040103040401030d04 01050104010001020101010001020101010401000b040103020401030704 01030004010326040103040401030d040105010401000102010101000102 0101010401000b0401030204010301040303010401030004010301040303 090401030104010301040103010403030104010300040303010401030004 01030d0401050104010001020101010001020101010401000b0401030204 010300040103010401030004010300040103000401030104010308040103 010401030104010300040103010401030004060300040103000402030d04 01050104010001020101010001020101010401000b040603000401030104 010300040103000401030004010301040103090401030004010300040103 0104010301040103000402030104010300040103010401030d0401050104 010001020101010001020101010401000b04010302040103000405030004 010300040103000401030104010309040103000401030004010301040103 01040103000401030204010300040103010401030d040105010401000102 0101010001020101010401000b0401030204010300040103040401030004 010300040103010401030904010300040103000401030104010301040103 000401030204010300040103010401030d04010501040100010201010000 0401010401000b0401030204010300040103010401030004010300040103 000401030104010301040103060401030104010302040103010401030004 01030204010300040103000402030d040105010401000301040000010104 01000b040103020401030104030301040103000401030104030302040103 060401030104010303040303010401030204010301040103000401030d04 010501040400000101000102010101040100290400033204010501040100 010201010100010201010104010028040003330401050104010001020101 010001020101010401005d04010501040100010201010100010201010104 01005d0401050104010001020101010001020101010401005d0401050104 010001020101010001020101010401005d04010501040100010201010100 01020101010401005d040105010401000102010101000102010101040100 5d0401050104010001020101010001020101010401005d04010501040100 01020101010001020101010401005f050104010001020101010001020101 010400006005010401000102010101000102010165040100010201010100 010201016504010001020101010001020101670001020101010001020001 680001020101010013020001000041020001000013020101010013020001 00004102000100001302010101001401000042010000150100007001 % % Run-length encoding savings = 68.1% % grestore showpage %%Trailer %MSEPS Trailer pp_save restore 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 1 lc 1 lj 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 2 4 SJ 566 2699 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 16) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 2 SJ 566 1793 670 (Browser Wish Script) 670 SB gr 32 0 0 29 29 0 0 0 25 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 503 1951 408 (#!/usr/local/bin/wish -f) 408 SB gr gs 1500 1125 463 1705 CB 503 2027 646 (listbox .list -yscroll ".scroll set" \\) 646 SB gr gs 1500 1125 463 1705 CB 503 2066 323 ( -geometry 20x20) 323 SB gr gs 1500 1125 463 1705 CB 503 2104 357 (pack .list -side left) 357 SB gr gs 1500 1125 463 1705 CB 503 2142 476 (scrollbar .scroll -command \\) 476 SB gr gs 1500 1125 463 1705 CB 503 2181 289 ( ".list yview") 289 SB gr gs 1500 1125 463 1705 CB 503 2219 544 (pack .scroll -side right -fill y) 544 SB gr gs 1500 1125 463 1705 CB 503 2295 272 (if {$argc > 0} {) 272 SB gr gs 1500 1125 463 1705 CB 503 2334 476 ( set dir [lindex $argv 0]) 476 SB gr gs 1500 1125 463 1705 CB 503 2372 136 (} else {) 136 SB gr gs 1500 1125 463 1705 CB 503 2410 221 ( set dir .) 221 SB gr gs 1500 1125 463 1705 CB 503 2449 17 (}) 17 SB gr gs 1500 1125 463 1705 CB 503 2487 527 (foreach i [lsort [glob * .*]] {) 527 SB gr gs 1500 1125 463 1705 CB 503 2525 391 ( .list insert end $i) 391 SB gr gs 1500 1125 463 1705 CB 503 2563 17 (}) 17 SB gr gs 1500 1125 463 1705 CB 1241 1951 595 (bind .list {) 595 SB gr gs 1500 1125 463 1705 CB 1241 1986 527 ( browse $dir [selection get]) 527 SB gr gs 1500 1125 463 1705 CB 1241 2021 17 (}) 17 SB gr gs 1500 1125 463 1705 CB 1241 2056 544 (bind all {destroy .}) 544 SB gr gs 1500 1125 463 1705 CB 1241 2125 408 (proc browse {dir file} {) 408 SB gr gs 1500 1125 463 1705 CB 1241 2160 374 ( if {$dir != "."} {) 374 SB gr gs 1500 1125 463 1705 CB 1241 2195 459 ( set file $dir/$file) 459 SB gr gs 1500 1125 463 1705 CB 1241 2230 85 ( }) 85 SB gr gs 1500 1125 463 1705 CB 1241 2265 561 ( if {file isdirectory $file] {) 561 SB gr gs 1500 1125 463 1705 CB 1241 2300 459 ( exec browse $file &) 459 SB gr gs 1500 1125 463 1705 CB 1241 2335 204 ( } else {) 204 SB gr gs 1500 1125 463 1705 CB 1241 2370 544 ( if [file isfile $file] {) 544 SB gr gs 1500 1125 463 1705 CB 1241 2405 510 ( exec xedit $file &) 510 SB gr gs 1500 1125 463 1705 CB 1241 2439 255 ( } else{) 255 SB gr gs 1500 1125 463 1705 CB 1241 2474 646 ( error "can't browse $file") 646 SB gr gs 1500 1125 463 1705 CB 1241 2509 153 ( }) 153 SB gr gs 1500 1125 463 1705 CB 1241 2544 85 ( }) 85 SB gr gs 1500 1125 463 1705 CB 1241 2579 17 (}) 17 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 9 9 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 2 4 SJ 566 1394 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 17) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 3 SJ 566 488 612 (Other Uses For Tcl) 612 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 1 SJ 622 644 442 (Data representation:) 442 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 704 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 688 704 649 (Store data on disk as Tcl scripts.) 649 SB gr gs 1500 1125 463 400 CB 641 764 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 6 4 SJ 688 764 724 (To load information, evaluate script.) 724 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 854 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB -1 1 SJ 622 838 316 (Active objects:) 316 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 899 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 2 3 SJ 688 899 465 (Store scripts in objects.) 465 SB gr gs 1500 1125 463 400 CB 641 959 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 9 7 SJ 688 959 1006 (Evaluate scripts at interesting times to give objects) 1006 SB gr gs 1500 1125 463 400 CB 688 1019 184 (behavior.) 184 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1109 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 5 SJ 622 1093 1177 (Communication: send Tcl scripts between applications.) 1177 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1184 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 1168 423 (Executable content:) 423 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 1229 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 13 4 SJ 688 1229 720 (Active e-mail messages, Web pages.) 720 SB gr gs 1500 1125 463 400 CB 641 1289 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 688 1289 153 (Agents.) 153 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 2 4 SJ 566 2699 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 18) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 566 1793 199 (Status) 199 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1965 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 4 SJ 622 1949 662 (Runs on all UNIX/X platforms.) 662 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2054 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2038 589 (PC/Mac ports coming soon.) 589 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2144 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 4 SJ 622 2128 921 (Source and documentation freely available.) 921 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2234 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 5 5 SJ 622 2218 905 (Large community of developers and users:) 905 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2285 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 5 5 SJ 688 2285 952 (50,000-100,000 developers as of January 1994?) 952 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2390 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 7 5 SJ 622 2374 1016 (Dozens of commercial products, free extensions.) 1016 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2480 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 1 SJ 622 2464 568 (Newsgroup: comp.lang.tcl.) 568 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2570 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 5 SJ 622 2554 934 (Introductory book published in April, 1994.) 934 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 10 10 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 2 4 SJ 566 1394 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 19) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 7 1 SJ 566 488 895 (Representative Applications) 895 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 635 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 3 SJ 622 619 766 (Network management using SNMP.) 766 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 710 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 1 SJ 622 694 520 (Multimedia, groupware.) 520 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 785 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 2 SJ 622 769 499 (Active e-mail messages.) 499 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 860 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 1 SJ 622 844 494 (System administration.) 494 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 935 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 919 171 (Testing.) 171 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1010 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 4 2 SJ 622 994 498 (Scientific applications: ) 498 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 4 2 SJ 1124 995 608 (instrument control, simulation,) 608 SB gr gs 1500 1125 463 400 CB 8 1 SJ 622 1055 390 (visualization, CAD.) 390 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1145 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 2 2 SJ 622 1129 483 (British teletext system.) 483 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1220 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 3 SJ 622 1204 688 (Mars Pathfinder flight software.) 688 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1295 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 1279 910 (Feature animation at Walt Disney Studios.) 910 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 2 4 SJ 566 2699 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 20) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 1 SJ 566 1793 620 (Popular Extensions) 620 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1965 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 3 SJ 622 1949 547 (Available via public FTP:) 547 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2027 870 (ftp://ftp.aud.alcatel.com/tcl) 870 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2129 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2113 146 (Expect) 146 SB gr gs 1500 1125 463 1705 CB 8 6 SJ 768 2113 985 (: remote control for interactive programs such) 985 SB gr gs 1500 1125 463 1705 CB 622 2173 57 (as ) 57 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 679 2176 90 (ftp) 90 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 769 2173 26 (, ) 26 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 795 2176 180 (telnet) 180 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 975 2173 26 (, ) 26 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1001 2176 150 (crypt) 150 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1151 2173 120 (, and ) 120 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 1271 2176 120 (fsck) 120 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1391 2173 17 (:) 17 SB gr 32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 641 2251 690 (#!/usr/local/bin/expect) 690 SB gr gs 1500 1125 463 1705 CB 641 2311 870 (spawn rlogin [lindex $argv 0]) 870 SB gr gs 1500 1125 463 1705 CB 641 2371 570 (expect -re "\($|#\) ") 570 SB gr gs 1500 1125 463 1705 CB 641 2431 510 (send "cd [pwd]\\r") 510 SB gr gs 1500 1125 463 1705 CB 641 2491 570 (expect -re "\(%|#\) ") 570 SB gr gs 1500 1125 463 1705 CB 641 2551 1050 (send "setenv DISPLAY $env\(DISPLAY\)") 1050 SB gr gs 1500 1125 463 1705 CB 641 2611 240 (interact) 240 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 11 11 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 2 4 SJ 566 1394 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 21) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 5 2 SJ 566 488 856 (Popular Extensions, cont'd) 856 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 644 104 (TclX) 104 SB gr gs 1500 1125 463 400 CB 4 2 SJ 726 644 622 (: general-purpose extensions:) 622 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 720 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 7 2 SJ 688 720 406 (POSIX system calls.) 406 SB gr gs 1500 1125 463 400 CB 641 795 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 6 1 SJ 688 795 230 (Keyed lists.) 230 SB gr gs 1500 1125 463 400 CB 641 870 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 14 4 SJ 688 870 599 (File scanning \(similar to awk\).) 599 SB gr gs 1500 1125 463 400 CB 641 945 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 9 1 SJ 688 945 477 (Date/time manipulation.) 477 SB gr gs 1500 1125 463 400 CB 641 1020 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 12 2 SJ 688 1020 534 (Debugging, help, profiling.) 534 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1124 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 1108 137 (Oratcl) 137 SB gr gs 1500 1125 463 400 CB 1 2 SJ 759 1108 107 ( and ) 107 SB gr gs 1500 1125 463 400 CB 868 1108 133 (Sybtcl) 133 SB gr gs 1500 1125 463 400 CB 3 4 SJ 1001 1108 707 (: access to commercial databases.) 707 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1214 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 1 1 SJ 622 1198 155 (Incr tcl) 155 SB gr gs 1500 1125 463 400 CB 2 4 SJ 777 1198 811 (: object-oriented programming in Tcl.) 811 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 2 4 SJ 566 2699 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 22) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 5 2 SJ 566 1793 856 (Popular Extensions, cont'd) 856 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1965 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 1949 151 (Tcl-DP) 151 SB gr gs 1500 1125 463 1705 CB 7 5 SJ 773 1949 1059 (: socket-based remote procedure calls, distributed) 1059 SB gr gs 1500 1125 463 1705 CB 622 2008 163 (objects.) 163 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2075 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 4 1 SJ 688 2075 294 (Sample server:) 294 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 716 2138 250 (set myId 0) 250 SB gr gs 1500 1125 463 1705 CB 716 2188 375 (proc GetId {} {) 375 SB gr gs 1500 1125 463 1705 CB 716 2238 375 ( global myId) 375 SB gr gs 1500 1125 463 1705 CB 716 2288 325 ( incr myId) 325 SB gr gs 1500 1125 463 1705 CB 716 2338 400 ( return $myId) 400 SB gr gs 1500 1125 463 1705 CB 716 2388 25 (}) 25 SB gr gs 1500 1125 463 1705 CB 716 2438 525 (dp_MakeRPCServer 4545) 525 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2491 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 8 1 SJ 688 2491 280 (Sample client:) 280 SB gr 32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font gs 1500 1125 463 1705 CB 716 2554 1150 (set server [dp_MakeRPCClient foo.bar.com 4545]) 1150 SB gr gs 1500 1125 463 1705 CB 716 2604 500 (dp_rpc $server GetId) 500 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Courier-Bold %%+ font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 12 12 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 2 4 SJ 566 1394 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 23) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 2 SJ 566 488 572 (Free Wish Scripts) 572 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 672 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 656 127 (wtour) 127 SB gr gs 1500 1125 463 400 CB 2 6 SJ 749 656 988 (: interactive introduction to writing scripts for) 988 SB gr gs 1500 1125 463 400 CB 622 716 73 (Tk.) 73 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 864 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 848 115 (exmh) 115 SB gr gs 1500 1125 463 400 CB 5 3 SJ 737 848 508 (: Tcl-based mail reader.) 508 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 996 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 980 66 (XF) 66 SB gr gs 1500 1125 463 400 CB 3 5 SJ 688 980 692 (: interactive GUI builder for Tk.) 692 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1127 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 1111 194 (tkinspect) 194 SB gr gs 1500 1125 463 400 CB 1 2 SJ 816 1111 370 (: widget browser.) 370 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1259 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB -2 1 SJ 622 1243 323 (Many others....) 323 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 2 4 SJ 566 2699 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 24) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 6 6 SJ 566 1793 1086 (Where You Might Use Tcl and Tk) 1086 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1990 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 4 3 SJ 622 1974 737 (Creating graphical user interfaces.) 737 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2139 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 622 2123 171 (Testing.) 171 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2289 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 6 SJ 622 2273 1156 (Applications that need scripting or extension facilities.) 1156 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2439 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 1 SJ 622 2423 754 (Platform-independent applications.) 754 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font ZapfDingbats %%Page: 13 13 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 2 4 SJ 566 1394 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 25) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 566 488 360 (Drawbacks) 360 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 697 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 681 247 (Must learn ) 247 SB gr gs 1500 1125 463 400 CB 870 681 290 (new language) 290 SB gr gs 1500 1125 463 400 CB 1 3 SJ 1161 681 618 ( \(substitution rules confusing) 618 SB gr gs 1500 1125 463 400 CB 622 741 343 (to some people\).) 343 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 937 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 3 SJ 622 921 547 (Interpreted language has ) 547 SB gr gs 1500 1125 463 400 CB 1 1 SJ 1172 921 402 (performance limits) 402 SB gr gs 1500 1125 463 400 CB 1 1 SJ 1575 921 103 ( \(but) 103 SB gr gs 1500 1125 463 400 CB 2 1 SJ 622 981 393 (surprisingly high\).) 393 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1176 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 1160 268 (C interfaces ) 268 SB gr gs 1500 1125 463 400 CB 891 1160 277 (incompatible) 277 SB gr gs 1500 1125 463 400 CB 1 4 SJ 1168 1160 493 ( with Xt, Motif library.) 493 SB gr 255 255 255 fC /fm 256 def gs 1500 1125 463 1705 CB 1500 1125 464 1706 B 1 F n gr 6 8 SP gs 1318 1125 477 1705 CB -837 1880 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 1705 CB 2 4 SJ 566 2699 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 1705 CB 1477 2699 321 (December 1, 1994, slide 26) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 4 3 SJ 566 1793 690 (Plans For The Future) 690 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 1965 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 3 1 SJ 622 1949 462 (Increase accessibility:) 462 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2025 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB -4 4 SJ 688 2025 450 (Port to PCs and Macs.) 450 SB gr gs 1500 1125 463 1705 CB 641 2100 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 2 5 SJ 688 2100 866 (Better development tools: GUI builder, etc.) 866 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2190 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 2 2 SJ 622 2174 634 (Improve the language/toolkit:) 634 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2250 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 13 2 SJ 688 2250 641 (Incremental on-the-fly compiler.) 641 SB gr gs 1500 1125 463 1705 CB 641 2325 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB -5 5 SJ 688 2325 871 (Better support for modules, data structures.) 871 SB gr gs 1500 1125 463 1705 CB 641 2400 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 9 4 SJ 688 2400 973 (Better internationalization \(Asian character sets\).) 973 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 1705 CB 566 2490 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 1705 CB 1 3 SJ 622 2474 797 (Create exciting Internet applications:) 797 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 1705 CB 641 2550 25 (\226) 25 SB gr gs 1500 1125 463 1705 CB 6 1 SJ 688 2550 379 (Active documents?) 379 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Page: 14 14 %%PageResources: (atend) SS 0 0 20 11 809 1100 300 SM 255 255 255 fC /fm 256 def 2250 3000 88 115 B 1 F n 1 lc 1 lj 0 0 0 pC 6 4 SP 415 367 2014 1566 88 88 RR S n 415 1667 2014 2866 88 88 RR S n 255 255 255 fC /fm 256 def gs 1500 1125 463 400 CB 1500 1125 464 401 B 1 F n gr 6 8 SP gs 1318 1125 477 400 CB -837 575 M 3942 0 1 PP S n gr 32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font 0 0 0 fC gs 1500 1125 463 400 CB 2 4 SJ 566 1394 380 (Tcl/Tk Tutorial Part I: Overview) 380 SB gr gs 1500 1125 463 400 CB 1477 1394 321 (December 1, 1994, slide 27) 321 SB gr 32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 566 488 384 (Conclusions) 384 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 660 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 4 1 SJ 622 644 542 (High-level programming:) 542 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 720 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 1 2 SJ 688 720 267 (Less to learn.) 267 SB gr gs 1500 1125 463 400 CB 641 795 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 14 3 SJ 688 795 641 (Build applications more quickly.) 641 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 885 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 2 SJ 622 869 625 (Universal scripting language:) 625 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 945 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 13 5 SJ 688 945 870 (Extend and modify applications at run-time.) 870 SB gr gs 1500 1125 463 400 CB 641 1020 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 3 4 SJ 688 1020 673 (Make many things work together.) 673 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1110 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 622 1094 575 (Use scripts instead of data:) 575 SB gr 32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font gs 1500 1125 463 400 CB 641 1170 25 (\226) 25 SB gr gs 1500 1125 463 400 CB 5 3 SJ 688 1170 693 (Active objects, executable content.) 693 SB gr 32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font gs 1500 1125 463 400 CB 3 7 SJ 566 1288 636 (Tcl + Tk = shell of the 1990's?) 636 SB gr 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Times-Bold %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%Trailer SVDoc restore end %%Pages: 14 % TrueType font name key: % MSTT31c1d4 = 0e2fDTimes New RomanF0000004b000002bc0000 % MSTT31c1e1 = 0e2fDTimes New RomanF00000032000002bc0000 % MSTT31c1ee = 0e2fDTimes New RomanF00000026000002bc00ff % MSTT31c1fb = 0e2fDTimes New RomanF0000001d0000019000ff % MSTT31c208 = 0e2fDTimes New RomanF00000032000001900000 % MSTT31c215 = 0e2fDMonotype SortsF00000026000001900000 % MSTT31c222 = 0e2fDTimes New RomanF0000002e000002bc0000 % MSTT31c22f = 0e2fDTimes New RomanF0000002e000001900000 % MSTT31c23c = 0e2fDMonotype SortsF00000023000001900000 % MSTT31c249 = 0e2fDTimes New RomanF0000002a000001900000 % MSTT31c256 = 0e2fDTimes New RomanF00000026000001900000 % MSTT31c263 = 0e2fDTimes New RomanF0000002a000002bc0000 % MSTT31c270 = 0e2fDMonotype SortsF00000032000001900000 % MSTT31c27d = 0e2fDMonotype SortsF00000032000002bc0000 % MSTT31c28a = 0e2fDTimes New RomanF00000026000002bc0000 %%DocumentSuppliedResources: procset Win35Dict 3 1 %%DocumentNeededResources: font Courier-Bold %%+ font Symbol %%+ font Times-Bold %%+ font Times-BoldItalic %%+ font Times-Italic %%+ font Times-Roman %%+ font ZapfDingbats %%EOF uilder for Tk.) 692 SB gr 32 0 0 38 38 0 0 0 30 /ZapfDingbats font gs 1500 1125 463 400 CB 566 1127 30 (u) 30 SB gr 32 0 0 50 50 0 0 0 4