%!PS-Adobe-2.0 EPSF-2.0
%%Title: 4layers1.fig
%%Creator: fig2dev Version 3.1 Patchlevel 2
%%CreationDate: Mon Nov 13 14:07:45 2000
%%For: fellowsd@athene (Donal K. Fellows)
%Magnification: 1.00
%%Orientation: Portrait
%%BoundingBox: 0 0 310 83
%%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 127.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 5100 1650 l gs col-1 s gr
% Polyline
n 825 1611 m 5100 1611 l gs col-1 s gr
% Polyline
n 825 1200 m 5100 1200 l gs col-1 s gr
% Polyline
n 825 750 m 5100 750 l gs col-1 s gr
% Polyline
n 825 2100 m 5100 2100 l gs col-1 s gr
% Polyline
n 5325 1875 m 5175 1875 l gs col-1 s gr
% Open spline
gs n 5175.0 750.0 m 5212.5 750.0 l
5212.5 750.0 5250.0 750.0 5250.0 937.5 DrawSplineSection
5250.0 937.5 5250.0 1125.0 5287.5 1162.5 DrawSplineSection
5287.5 1162.5 5325.0 1200.0 5325.0 1200.0 DrawSplineSection
5325.0 1200.0 5325.0 1200.0 5287.5 1237.5 DrawSplineSection
5287.5 1237.5 5250.0 1275.0 5250.0 1462.5 DrawSplineSection
5250.0 1462.5 5250.0 1650.0 5212.5 1650.0 DrawSplineSection
5175.0 1650.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 (Tcl Core Layer) col-1 sh gr
/Helvetica ff 150.00 scf sf
2700 1050 m
gs 1 -1 sc (My application code) col-1 sh gr
/Helvetica ff 150.00 scf sf
2700 1500 m
gs 1 -1 sc ([incr Tcl], TclX, Oratcl) col-1 sh gr
/Helvetica ff 150.00 scf sf
2700 1950 m
gs 1 -1 sc (Tcl commands, opt, struct, http, ...) col-1 sh gr
/Helvetica-Oblique ff 180.00 scf sf
5400 1950 m
gs 1 -1 sc (TCT) col-1 sh gr
/Helvetica-Oblique ff 180.00 scf sf
5400 1350 m
gs 1 -1 sc (Author) col-1 sh gr
/Helvetica-Oblique ff 180.00 scf sf
5400 1200 m
gs 1 -1 sc (App.) col-1 sh gr
$F2psEnd
rs