%!PS-Adobe-2.0 EPSF-2.0 %%Title: arch5.fig %%Creator: fig2dev Version 3.2 Patchlevel 3d %%CreationDate: Mon Oct 1 15:51:54 2001 %%For: root@t-27-94 (Charlie &) %%BoundingBox: 0 0 95 264 %%Magnification: 1.0000 %%EndComments /$F2psDict 200 dict def $F2psDict begin $F2psDict /mtrx matrix put /col-1 {0 setgray} bind def /col0 {0.000 0.000 0.000 srgb} bind def /col1 {0.000 0.000 1.000 srgb} bind def /col2 {0.000 1.000 0.000 srgb} bind def /col3 {0.000 1.000 1.000 srgb} bind def /col4 {1.000 0.000 0.000 srgb} bind def /col5 {1.000 0.000 1.000 srgb} bind def /col6 {1.000 1.000 0.000 srgb} bind def /col7 {1.000 1.000 1.000 srgb} bind def /col8 {0.000 0.000 0.560 srgb} bind def /col9 {0.000 0.000 0.690 srgb} bind def /col10 {0.000 0.000 0.820 srgb} bind def /col11 {0.530 0.810 1.000 srgb} bind def /col12 {0.000 0.560 0.000 srgb} bind def /col13 {0.000 0.690 0.000 srgb} bind def /col14 {0.000 0.820 0.000 srgb} bind def /col15 {0.000 0.560 0.560 srgb} bind def /col16 {0.000 0.690 0.690 srgb} bind def /col17 {0.000 0.820 0.820 srgb} bind def /col18 {0.560 0.000 0.000 srgb} bind def /col19 {0.690 0.000 0.000 srgb} bind def /col20 {0.820 0.000 0.000 srgb} bind def /col21 {0.560 0.000 0.560 srgb} bind def /col22 {0.690 0.000 0.690 srgb} bind def /col23 {0.820 0.000 0.820 srgb} bind def /col24 {0.500 0.190 0.000 srgb} bind def /col25 {0.630 0.250 0.000 srgb} bind def /col26 {0.750 0.380 0.000 srgb} bind def /col27 {1.000 0.500 0.500 srgb} bind def /col28 {1.000 0.630 0.630 srgb} bind def /col29 {1.000 0.750 0.750 srgb} bind def /col30 {1.000 0.880 0.880 srgb} bind def /col31 {1.000 0.840 0.000 srgb} bind def /col32 {0.667 0.667 0.667 srgb} bind def /col33 {0.333 0.333 0.333 srgb} bind def /col34 {0.557 0.561 0.557 srgb} bind def /col35 {0.251 0.251 0.251 srgb} bind def /col36 {0.502 0.502 0.502 srgb} bind def /col37 {0.753 0.753 0.753 srgb} bind def /col38 {0.878 0.878 0.878 srgb} bind def end save newpath 0 264 moveto 0 0 lineto 95 0 lineto 95 264 lineto closepath clip newpath -122.6 400.0 translate 1 -1 scale /cp {closepath} bind def /ef {eofill} bind def /gr {grestore} bind def /gs {gsave} bind def /sa {save} bind def /rs {restore} bind def /l {lineto} bind def /m {moveto} bind def /rm {rmoveto} bind def /n {newpath} bind def /s {stroke} bind def /sh {show} bind def /slc {setlinecap} bind def /slj {setlinejoin} bind def /slw {setlinewidth} bind def /srgb {setrgbcolor} bind def /rot {rotate} bind def /sc {scale} bind def /sd {setdash} bind def /ff {findfont} bind def /sf {setfont} bind def /scf {scalefont} bind def /sw {stringwidth} bind def /tr {translate} bind def /tnt {dup dup currentrgbcolor 4 -2 roll dup 1 exch sub 3 -1 roll mul add 4 -2 roll dup 1 exch sub 3 -1 roll mul add 4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb} bind def /shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul 4 -2 roll mul srgb} bind def /$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def /$F2psEnd {$F2psEnteredState restore end} def $F2psBegin 10 setmiterlimit 0.06299 0.06299 sc % % Fig objects follow % /Times-Roman ff 135.00 scf sf 2694 3729 m gs 1 -1 sc (insert_in_data method) dup sw pop 2 div neg 0 rm col0 sh gr /Times-Roman ff 135.00 scf sf 2703 6074 m gs 1 -1 sc (table) dup sw pop 2 div neg 0 rm col0 sh gr /Times-Roman ff 135.00 scf sf 2709 4771 m gs 1 -1 sc (check if the symbol already) dup sw pop 2 div neg 0 rm col0 sh gr /Times-Roman ff 135.00 scf sf 2709 4932 m gs 1 -1 sc (exists , if so give an error) dup sw pop 2 div neg 0 rm col0 sh gr /Times-Roman ff 135.00 scf sf 2709 3574 m gs 1 -1 sc (call the symbols) dup sw pop 2 div neg 0 rm col0 sh gr /Times-Roman ff 135.00 scf sf 2709 3895 m gs 1 -1 sc (\(aligns the data correctly\)) dup sw pop 2 div neg 0 rm col0 sh gr /Times-Roman ff 135.00 scf sf 2705 2509 m gs 1 -1 sc (set owner of symbol) dup sw pop 2 div neg 0 rm col0 sh gr /Times-Roman ff 135.00 scf sf 2705 2670 m gs 1 -1 sc (to this symbol table) dup sw pop 2 div neg 0 rm col0 sh gr % Polyline 7.500 slw n 2034 2181 m 1959 2181 1959 2869 75 arcto 4 {pop} repeat 1959 2944 3364 2944 75 arcto 4 {pop} repeat 3439 2944 3439 2256 75 arcto 4 {pop} repeat 3439 2181 2034 2181 75 arcto 4 {pop} repeat cp gs col0 s gr % Polyline n 2034 3312 m 1959 3312 1959 4000 75 arcto 4 {pop} repeat 1959 4075 3364 4075 75 arcto 4 {pop} repeat 3439 4075 3439 3387 75 arcto 4 {pop} repeat 3439 3312 2034 3312 75 arcto 4 {pop} repeat cp gs col0 s gr % Polyline n 2034 5574 m 1959 5574 1959 6263 75 arcto 4 {pop} repeat 1959 6338 3364 6338 75 arcto 4 {pop} repeat 3439 6338 3439 5649 75 arcto 4 {pop} repeat 3439 5574 2034 5574 75 arcto 4 {pop} repeat cp gs col0 s gr % Polyline gs clippath 2619 3327 m 2656 3327 l 2656 3220 l 2638 3296 l 2619 3220 l cp eoclip n 2638 2963 m 2638 3312 l gs col0 s gr gr % arrowhead n 2619 3220 m 2638 3296 l 2656 3220 l 2619 3220 l cp gs 0.00 setgray ef gr col0 s % Polyline gs clippath 2610 4449 m 2647 4449 l 2647 4342 l 2629 4418 l 2610 4342 l cp eoclip n 2629 4094 m 2629 4434 l gs col0 s gr gr % arrowhead n 2610 4342 m 2629 4418 l 2647 4342 l 2610 4342 l cp gs 0.00 setgray ef gr col0 s % Polyline gs clippath 2629 5561 m 2666 5561 l 2666 5454 l 2648 5530 l 2629 5454 l cp eoclip n 2648 5216 m 2648 5546 l gs col0 s gr gr % arrowhead n 2629 5454 m 2648 5530 l 2666 5454 l 2629 5454 l cp gs 0.00 setgray ef gr col0 s % Polyline n 2034 4443 m 1959 4443 1959 5132 75 arcto 4 {pop} repeat 1959 5207 3364 5207 75 arcto 4 {pop} repeat 3439 5207 3439 4518 75 arcto 4 {pop} repeat 3439 4443 2034 4443 75 arcto 4 {pop} repeat cp gs col0 s gr /Times-Roman ff 135.00 scf sf 2703 5913 m gs 1 -1 sc (insert symbol into hash) dup sw pop 2 div neg 0 rm col0 sh gr $F2psEnd rs