%!PS-Adobe-2.0 EPSF-2.0
%%Title: 4layers3.fig
%%Creator: fig2dev Version 3.1 Patchlevel 2
%%CreationDate: Mon Nov 13 14:23:51 2000
%%For: fellowsd@athene (Donal K. Fellows)
%Magnification: 1.00
%%Orientation: Portrait
%%BoundingBox: 0 0 323 137
%%Pages: 0
%%BeginSetup
%%IncludeFeature: *PageSize A4
%%EndSetup
%%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
end
save
-48.0 181.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
/DrawSplineSection {
/y3 exch def
/x3 exch def
/y2 exch def
/x2 exch def
/y1 exch def
/x1 exch def
/xa x1 x2 x1 sub 0.666667 mul add def
/ya y1 y2 y1 sub 0.666667 mul add def
/xb x3 x2 x3 sub 0.666667 mul add def
/yb y3 y2 y3 sub 0.666667 mul add def
x1 y1 lineto
xa ya xb yb x3 y3 curveto
} def
/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
/$F2psEnd {$F2psEnteredState restore end} def
%%EndProlog
$F2psBegin
10 setmiterlimit
n 0 842 m 0 0 l 595 0 l 595 842 l cp clip
0.06000 0.06000 sc
7.500 slw
% Polyline
n 825 1650 m 5325 1650 l gs col-1 s gr
% Polyline
n 825 1611 m 5325 1611 l gs col-1 s gr
% Polyline
n 825 1200 m 5325 1200 l gs col-1 s gr
% Polyline
n 825 750 m 5325 750 l gs col-1 s gr
% Polyline
n 825 2100 m 5325 2100 l gs col-1 s gr
% Polyline
n 825 2550 m 5325 2550 l gs col-1 s gr
% Polyline
n 825 3000 m 5325 3000 l gs col-1 s gr
% Open spline
gs n 5400.0 750.0 m 5437.5 750.0 l
5437.5 750.0 5475.0 750.0 5475.0 937.5 DrawSplineSection
5475.0 937.5 5475.0 1125.0 5512.5 1162.5 DrawSplineSection
5512.5 1162.5 5550.0 1200.0 5550.0 1200.0 DrawSplineSection
5550.0 1200.0 5550.0 1200.0 5512.5 1237.5 DrawSplineSection
5512.5 1237.5 5475.0 1275.0 5475.0 1462.5 DrawSplineSection
5475.0 1462.5 5475.0 1650.0 5437.5 1650.0 DrawSplineSection
5400.0 1650.0 l gs col-1 s gr
gr
% Open spline
gs n 5400.0 1650.0 m 5437.5 1650.0 l
5437.5 1650.0 5475.0 1650.0 5475.0 1950.0 DrawSplineSection
5475.0 1950.0 5475.0 2250.0 5512.5 2287.5 DrawSplineSection
5512.5 2287.5 5550.0 2325.0 5550.0 2325.0 DrawSplineSection
5550.0 2325.0 5550.0 2325.0 5512.5 2362.5 DrawSplineSection
5512.5 2362.5 5475.0 2400.0 5475.0 2700.0 DrawSplineSection
5475.0 2700.0 5475.0 3000.0 5437.5 3000.0 DrawSplineSection
5400.0 3000.0 l gs col-1 s gr
gr
/Helvetica ff 210.00 scf sf
900 1500 m
gs 1 -1 sc (Extension Layer) col-1 sh gr
/Helvetica ff 210.00 scf sf
900 1050 m
gs 1 -1 sc (Application Layer) col-1 sh gr
/Helvetica ff 210.00 scf sf
900 1950 m
gs 1 -1 sc (Battery Layer) col-1 sh gr
/Helvetica ff 210.00 scf sf
900 2850 m
gs 1 -1 sc (Tcl Language Layer) col-1 sh gr
/Helvetica ff 210.00 scf sf
900 2400 m
gs 1 -1 sc (Tcl Functional Layer) col-1 sh gr
/Helvetica ff 150.00 scf sf
2925 2400 m
gs 1 -1 sc (file, regexp, socket, ...) col-1 sh gr
/Helvetica ff 150.00 scf sf
2925 2850 m
gs 1 -1 sc (eval, proc, unknown, if, ...) col-1 sh gr
/Helvetica ff 150.00 scf sf
2925 1950 m
gs 1 -1 sc ([incr Tcl], TclX, opt, struct, http, ...) col-1 sh gr
/Helvetica ff 150.00 scf sf
2925 1500 m
gs 1 -1 sc (Oratcl, Sybtcl, ...) col-1 sh gr
/Helvetica ff 150.00 scf sf
2925 1050 m
gs 1 -1 sc (My application code) col-1 sh gr
/Helvetica-Oblique ff 180.00 scf sf
5625 1350 m
gs 1 -1 sc (Author) col-1 sh gr
/Helvetica-Oblique ff 180.00 scf sf
5625 1200 m
gs 1 -1 sc (App.) col-1 sh gr
/Helvetica-Oblique ff 180.00 scf sf
5625 2400 m
gs 1 -1 sc (TCT) col-1 sh gr
$F2psEnd
rs