summaryrefslogtreecommitdiff
path: root/macros/blu/pic.dat
diff options
context:
space:
mode:
Diffstat (limited to 'macros/blu/pic.dat')
-rw-r--r--macros/blu/pic.dat1358
1 files changed, 1358 insertions, 0 deletions
diff --git a/macros/blu/pic.dat b/macros/blu/pic.dat
new file mode 100644
index 0000000000..8a320cd5fd
--- /dev/null
+++ b/macros/blu/pic.dat
@@ -0,0 +1,1358 @@
+%Copyright: C.G. van der Laan,
+%cgl@rc.service.rug.nl, (050)0594621525
+%File: pic.dat Set up of May, 1995
+\message{pic.dat browsed (Version: May 1996, cgl)}
+%
+\def\commonforpic{\csname newif\endcsname
+ \ifmarkorigin
+ \csname newif\endcsname\iffull
+\def\markorigin{\hbox to0pt{\hss
+ \vrule width1exdepth.2ptheight.2pt
+ \vrule height1exdepth1ex
+ \vrule width1exdepth.2ptheight.2pt
+ \hss}%
+}%end markorigin
+\def\corners##1{%##1 size of corner bar
+ \put(.1,.1){\line(-1,0){##1}}%
+ \put(.1,.1){\line(0,-1){##1}}%
+ \put(.2,.2){\line(-1,0){##1}}%
+ \put(.2,.2){\line(0,-1){##1}}%
+}%end corners
+\def\card##1##2##3{%#1,#2 x,y coord.corner; #3 label
+ \put(##1,##2){\line(-1,0){1.25}}
+ \put(##1,##2){\line(0,-1){ .45}}
+ \put(##1,##2){\lower.45\unitlength
+ \hbox{\line(-1,0){ .25}}}
+ \put(##1,##2){\hbox to0pt{\kern-1.25\unitlength
+ \hbox{\line(0,-1){ .25}}\hss}}
+ \put(##1,##2){\lower.5\unitlength\hbox
+ {\hskip.05\unitlength{\tiny ##3}}}
+}%end card
+%45 degree rightupper diag dots at #1,#2
+\def\diagdots##1##2{\put(##1,##2){$\raise1pt
+ \hbox to0pt{\kern-1pt.\hss}\kern2pt^{.^.}$}}
+%\thinlines %(default in blue.tex)
+\def\fatlbrace{\delimiter"4000308 }
+}%end commonforpic
+%
+%
+%
+\lst\bintreepic{%July 1995, cgl
+\bgroup\unitlength.5ex
+ \kk32 \xoffset{-32} \yoffset{-5}%
+ \xdim{66}\ydim{5}%
+ \def\eertnib##1\bintree{\fi}
+\beginpicture\bintree\endpicture\egroup
+\thispicture{}}
+%
+\lst\bluemodelpic{\bgroup\unitlength=3.5ex
+ \yoffset{-.75}
+ \xdim{13}\ydim{12}
+\beginpicture
+\def\str{\lower.5ex\null}
+%baseline
+\put(1,0){\vector(-1,0){.9}}
+\put(4,0){\vector(1,0){.9}}
+\put(2.5,0){\makebox(0,0){extras}}
+\put(6,0){\vector(-1,0){.9}}
+\put(12,0){\vector(1,0){.9}}
+\put(9,0){\makebox(0,0){BLUe's format}}
+%
+\put(0,4){\framebox(4,2){Extensions}}
+\put(0,8){\framebox(4,2){Publ.\
+ formats}}
+%Horizontal connection lines
+\put(4,5){\line(1,0){2}}
+\put(4,9){\line(1,0){2}}
+%\multiput(4,5)(.2, 0){10}{\hbox to
+% .2\unitlength{-\hss-}}
+%\multiput(4,9)(.2, 0){10}{\hbox to
+% .2\unitlength{-\hss-}}
+%Vertical separation line
+\multiput(5,0)(0,1){11}{\vrule
+ height.5\unitlength\relax}
+\put(6,4){\framebox(4,6){\vbox{%
+ \hbox{\tiny outer tags}
+ \kern1.25\unitlength
+ \hbox{blue.tex}
+ \kern1.25\unitlength
+ \hbox{\tiny inner tags}}}}
+%\put(6,4){\framebox(4,2){\vbox{%
+% \hbox{\strut Inner}\hbox{Tags}}}}
+%\put(6,8){\framebox(4,2){\vbox{%
+% \hbox{\strut Outer}\hbox{Tags}}}}
+\put(9.1,8.1){\vbox{\offinterlineskip
+ \hbox{\tiny\str ppt}\hbox{\tiny\str ref}%
+ }}
+\put(9.1,4.1){\vbox{\offinterlineskip
+ \hbox{\tiny\str man}%
+ \hbox{\tiny\str gkp}%
+ \hbox{\tiny\str\raise2ex\null crs}%
+ \hbox{\tiny\str vrb}%
+ \hbox{\tiny\str btb}\hbox{\tiny
+ \str abr}}}
+%\put(8,6){\line(0,1){2}}
+%Databases next
+%Outer database
+%\multiput(10,9)(.2, 0){5}{\hbox to
+% .2\unitlength{-\hss}}
+\put(10,9){\line(1,0){1}}
+\put(11,7){\line(0,1){2}}
+%\card{12.25}{7.25}{fmt.dat}
+\put(11,7){\framebox(1.25, .5){}}
+\put(12.3, 7){{\tiny fmt.dat}}
+%Inner databases
+\put(10,5){\line(1,0){1}}
+%\multiput(10,5)(.2, 0){5}{\hbox to
+% .2\unitlength{-\hss}}
+\put(11,3){\line(0,1){2}}
+\put(10,1){\framebox(2,2){\vbox{%
+ \hbox{\strut Data}\hbox{Bases}}}}
+%
+\card{12.25}{3.25}{tools.dat}
+\card{12.5 }{3.5 }{obsolete.dat}
+\card{12.75}{3.75}{pic.dat}
+\card{13 }{4 }{lit.dat}
+\card{13.25}{4.25}{address.dat}
+%
+%\diagdots{13.35}{4.35}
+%
+\put(4,6){\corners{.975}}%
+\put(4,10){\corners{.975}}
+\endpicture\egroup\thispicture{}%
+}%end bluemodelpic
+%
+\lst\bluepagepic{\vbox{\arrows{2cm}{\small headline}
+\hbox to2cm{\hss\tiny headlinesep(2ex)\hss}
+\hbox{\vrule\vbox to 3cm{\hrule\offinterlineskip
+ \hbox to2cm{\hss$\uparrow$\hss}\vss
+ \arrows{2cm}{\lower3pt\null\small pagewd}
+ \vss
+ \hbox to2cm{\lower2pt\null\hss\small v\hss}
+ \hbox to2cm{\lower2pt\null\hss\small s\hss}
+ \hbox to2cm{\lower2pt\null\hss\small i\hss}
+ \hbox to2cm{\lower2pt\null\hss\small z\hss}
+ \hbox to2cm{\lower2pt\null\hss\small e\hss}
+\vss\hbox to2cm{\hss$\downarrow$\hss}\hrule
+}\vrule}\kern-.7\baselineskip
+\hbox to2cm{\hss\tiny footlinesep(1ex)\hss}
+\arrows{2cm}{\small footline}
+}}
+%
+\lst\cantordustpic{%July 1995, cgl
+%Revision March 1996
+\bgroup
+\def\cf{{\E{\the\k}}\divide\k3
+ \ifnum0=\k \fc\fi
+ \advance\y-3\unitlength
+ {\cf}\advance\x\the\k\unitlength
+ \advance\x\the\k\unitlength
+ \cf}%
+\def\fc##1\cf{\fi}%
+\k243 \unitlength1pt
+\xdim{243}\yoffset{-10}%
+\beginpicture\cf\endpicture
+\egroup\thispicture{}}
+%
+\lst\cglpic{\bgroup\unitlength20pt%
+\xdim{1}\ydim{1}%
+\beginpicture
+\put(0,0){\squine(0,.4,.8,0,1,0)}
+\put(0,0){\squine(0,.4,.8,1,0,1)}
+\put(0,0){\squine(0,0,.4,.5,1,1)}
+\put(0,0){\squine(0,0,.4,.5,0,0)}
+\put(0,0){\squine(.8,.8,.4,.5,1,1)}
+\put(0,0){\squine(.8,.8,.4,.5,0,0)}
+\endpicture\egroup\thispicture{}%
+}%end \cgl
+%
+\lst\chartpic{%July 1995, cgl
+%Revision March 1996
+\bgroup
+\def\bintree{\E{\the\ekk}\ifnum\kk=2 \eertnib\fi
+ \divide\kk2 {\N{\the\kk}\bintree}%
+ \S{\the\kk}\bintree}%
+\def\eertnib##1\bintree{\fi}%
+\let\Eold\E
+\def\E{\global\advance\k1
+ \xytxt{ \csname\the\k\endcsname}\Eold}%
+\def\1{LMB, 1912}%
+\def\2{MJHB, 1882}\def\5{PAME, 1884}%
+\def\3{JHB, 1838}\def\4{MDB, 1840}%
+\def\6{EFE, 1845}\def\7{CLW, 1850}%
+\ekk8\k0\unitlength2ex\kk8
+\xdim{25}\ydim{17}\yoffset{-8}%
+\beginpicture\bintree\endpicture
+\egroup\thispicture{}}
+%
+\lst\dragonpic{%July 1995, cgl
+\bgroup
+\let\0\globalN\let\1\globalW
+\let\2\globalS\let\3\globalE
+\def\dragon{\k0
+ \loop \draw
+ \advance\k1 \kk\k \calcdir
+ \ifnum\k<\kmax
+ \repeat}
+\def\calcdir{\ifodd\kk \kaux\kk
+ \divide\kaux4 \multiply\kaux4 \advance\kk-\kaux
+ \advance\dir\kk \ifnum\dir>3 \advance\dir-4 \fi
+ \else\divide\kk2 \ea\calcdir\fi}
+\def\draw{\csname\the\dir\endcsname1}
+\unitlength2ex
+\dir0\x0pt\y0pt \kmax4
+\beginpicture\dragon\endpicture
+\egroup\thispicture{}}
+%
+\lst\flowchartlooppic
+{\bgroup\unitlength=3.8ex
+ \xoffset{-.5}\yoffset{-.3}
+ \xdim{5}\ydim{7.5}
+\beginpicture
+\ifmarkorigin\put(0,0)\markorigin\fi
+\put(0,0){\line(1,0){2}}
+\put(0,0){\line(0,1){6}}
+\put(0,6){\vector(1,0){2}}
+\put(2,6.5){\vector(0,-1){1.5}}
+\put(1,4){\framebox(2,1){pretst}}
+\put(2,4){\vector(0,-1){.5}}
+%rhombus
+\put(2,3){\rhombus(2,1)1{tst}}
+%\put(1,3){\line(2,1){1}}
+%\put(1,3){\line(2,-1){1}}
+%\put(3,3){\line(-2,1){1}}
+%\put(3,3){\line(-2,-1){1}}
+%\put(2,3){\makebox(0,0){tst}}
+%
+\put(2,2.5){\line(0,-1){0.5}}
+\put(1,1){\framebox(2,1){posttst}}
+\put(2,1){\line(0,-1){1}}
+%
+\put(3,3){\line(1,0){1}}
+\put(4,3){\vector(0,-1){3}}
+\put(4,2.5){\kern2pt`{\tt\char92else}'}
+\endpicture\egroup%end flowchartlooppic
+}
+\lst\furutapic
+{\bgroup\unitlength=4ex\yoffset{-1}
+ \xdim{14}\ydim{4.5}
+\beginpicture
+%\ifmarkorigin\put(0,0)\markorigin\fi
+\put(1, 1){\oval(2, 1)}
+\put(1, 1){\makebox(0, 0){Start}}
+\put(2, 1){\vector(1, 0){1.5}}
+\put(3.5,.25){\framebox(2,1.5){Edit}}
+\put(5.5, 1){\vector(1, 0){1.5}}
+\put(7,.25){\framebox(2,1.5){Format}}
+\put(9, 1){\vector(1, 0){1.5}}
+\put(11.5, 1){\oval(2, 1)}
+\put(11.5, 1){\makebox(0, 0){End}}
+\put(0,0){\squine(4.5,8,11.5,1.85,4,1.6)}
+\put(11.65,1.55)\rdarrowhead
+\put(0,0){\squine(4.5,6.25,8,.1,-1,.1)}
+\put(4.5,.175)\luarrowhead
+\endpicture\egroup%end furutapic
+}
+%
+\lst\gpic{\bgroup\unitlength20pt%
+\xdim{1}\ydim{1}%
+\beginpicture
+\put(0,0){\squine(0,0,.4,.5,1,1)}
+\put(0,0){\squine(0,0,.4,.5,0,0)}
+\put(0,0){\squine(.8,.8, 0.4,.75,1,1)}
+\put(0,0){\squine(.8,.8, 0.4,.25,.5,.5)}
+\put(0,0){\squine(.4,.8,.8, 0, 0,.25)}
+\endpicture\egroup\thispicture{}%
+}%end \gpic
+%
+\lst\hfractalpic{%July 1995, cgl
+\bgroup
+\def\mod##1{\advance\dir##1
+ \ifnum3<\dir \advance\dir-4 \fi}%mod 4
+\def\nxt{\csname\the\dir\endcsname
+ {\the\kk}\multiply\kk17\divide\kk24
+ \advance\level-1 \hf}%
+\def\hf{\ifnum\level=0 \fh\fi
+ {\mod1\nxt}\mod3\nxt\relax}%
+\def\fh##1\relax{\fi}%
+\unitlength.1ex
+ \xdim{80}\ydim{140}\yoffset{-60}%
+ \kk48 \dir0 \level6
+\beginpicture\hf\endpicture
+\egroup\thispicture{}}
+%
+\lst\indmodelpic
+{\bgroup\unitlength=6ex
+ \xdim{7.5}\ydim{6}
+\beginpicture
+\put(2,0){\makebox(0,0){Result}}
+\put(2,1){\vector(0,-1){.8}}
+\put(2,1.25){\makebox(0,0){\cs{pasteupindex}}}
+\put(5.5,1.6){\vector(-1,0){3}}
+\put(2,3){\vector(0,-1){1.5}}
+\put(2,3.25){\makebox(0,0){\cs{sortindex}}}
+\put(2.5,2.9){\line(1,0){3}}
+\put(5.5, 2.9){\vector(0,-1){.5}}
+\put(5.5, 2.25){\makebox(0,0){`Enrich' index.elm\ }}
+\put(5.5, 2){\line(0,-1){.4}}
+\put(2,4.3){\vector(0,-1){.8}}
+\put(2,4.5){\makebox(0,0){Copy + IR markup}}
+\put(2,5.55){\vector(0,-1){.8}}
+\put(3,5.75){\makebox(0,0){\cs{input} blue
+ \cs{loadindexmacros} \cs{report}}}
+\endpicture\egroup}
+%end indmodelpic
+%
+\lst\kochfractalpic{%July 1995, cgl
+\bgroup
+\let\0\globalN\let\1\globalE
+\let\2\globalS\let\3\globalW
+\def\left{\advance\dir3 \ifnum\dir>3
+ \advance\dir-4 \fi}%
+\def\right{\advance\dir1 \ifnum\dir>3
+ \advance\dir-4 \fi}%
+\def\koch{\ifnum\kk=1 \draw\hcok\fi
+ {\divide\kk4
+ \koch\left\koch\right\koch\right\koch\koch
+ \left\koch\left\koch\right\koch}\relax}
+\def\hcok##1\relax{\fi}%
+\x0pt\y0pt\dir1\kk4 \unitlength1ex
+\beginpicture\koch\endpicture
+\egroup\thispicture{}}
+%
+\lst\lettertreepic
+{\bgroup\smallskip\small
+ \unitlength2ex
+ \xdim{25}\ydim{17}
+ \def\makebox(##1##2)##3{\hbox
+ to##1\unitlength{\vbox to##2\unitlength
+ {\vss\hbox{##3}\vfil}\hss}}
+\beginpicture
+\put(0,8.9){\makebox(4,0){Letter\lower.2ex\null}}
+\put(5,9){\line(-1,0){1.5}}
+%first level
+%vert line
+\put(5,2){\line(0,1){14}}%End coordinates (5,16)
+%hor lines
+\multiput(5,2)(0,2){8}{\line(1,0){.75}}
+%texts
+\put(6,1.9){\makebox(5,0){Post}}
+\put(6,3.9){\makebox(5,0){Signed}}
+\put(6,5.9){\makebox(5,0){Body}}
+\put(6,7.9){\makebox(5,0){Subject}}
+\put(6,9.9){\makebox(5,0){Addr$+$}}
+\put(6,11.9){\makebox(5,0){Date}}
+\put(6,13.9){\makebox(5,0){Yourref}}
+\put(6,15.9){\makebox(5,0){Ref}}
+%\put(6,17.9){\makebox(5,0){Header}}
+%Considered as format issue
+%Second level
+%hor lines
+\put(11,2){\line(-1,0){2}}
+\put(11,6){\line(-1,0){1.5}}
+\put(11,10){\line(-1,0){1}}
+%vert lines
+\put(11,1){\line(0,1){2}}
+\put(11,5){\line(0,1){2}}
+\put(11,8){\line(0,1){4}}
+%hor lines
+\multiput(11,1)(0,1){3}{\line(1,0){.75}}
+\multiput(11,5)(0,2){2}{\line(1,0){.75}}
+\multiput(11,8)(0,2){3}{\line(1,0){.75}}
+%texts
+\put(12,.9){\makebox(5,0){cc$*$}}
+\put(12,1.9){\makebox(7,0){Enclosures$*$}}
+\put(12,2.9){\makebox(5,0){PS$*$}}
+\put(12,4.9){\makebox(5,0){p$+$}}
+\put(12,6.9){\makebox(5,0){Dear}}
+\put(12,7.9){\makebox(5,0){Comm}}
+\put(12,9.9){\makebox(5,0){Address}}
+\put(12,11.9){\makebox(5,0){Name}}
+%Third level
+%hor lines
+\put(17,5){\line(-1,0){2}}
+\put(17,8){\line(-1,0){1}}
+\put(17,10){\line(-1,0){.75}}
+\put(17,12){\line(-1,0){1}}
+%Vert lines
+\put(17,4){\line(0,1){2}}
+\put(17,7.5){\line(0,1){1}}
+\put(17,9.5){\line(0,1){1}}
+\put(17,11.5){\line(0,1){1}}
+%hor lines
+\multiput(17,4)(0,1){3}{\line(1,0){.75}}
+\multiput(17,7.5)(0,1){2}{\line(1,0){.75}}
+\multiput(17,9.5)(0,1){2}{\line(1,0){.75}}
+\multiput(17,11.5)(0,1){2}{\line(1,0){.75}}
+%texts
+\put(18,3.9){\makebox(5,0){hp$*$}}
+\put(18,4.9){\makebox(5,0){q$*$}}
+\put(18,5.9){\makebox(5,0){list$*$}}
+\put(18,7.4){\makebox(5,0){e-mail$*$}}
+\put(18,8.4){\makebox(5,0){phone$*$}}
+\put(18,9.4){\makebox(5,0){city}}
+\put(18,10.4){\makebox(5,0){street}}
+\put(18,11.4){\makebox(5,0){given}}
+\put(18,12.4){\makebox(5,0){family}}
+%fourth level
+\put(21.75,9.5){\line(-1,0){1.25}}
+\put(21.75,10.5){\line(-1,0){.25}}
+\put(22,9.4){\makebox(5,0){country}}
+\put(22,10.4){\makebox(5,0){code}}
+\endpicture
+\egroup}
+%end lettertreepic
+%
+\lst\levyfractalpic{%July 1995, cgl
+\bgroup
+\def\summodfour{{\modsum0
+ \loop \ifodd\k \advance\modsum1 \fi
+ \divide\k2 \ifnum\k>0
+ \repeat \global\dir\modsum
+ \divide\modsum4 \multiply\modsum4
+ \global\advance\dir-\modsum}}
+\def\levyfractal{\loop\summodfour
+ \draw \advance\k1
+ \ifnum\k<\order \repeat}
+\unitlength1ex\x0pt\y0pt
+\k0 \dir0 \order256
+\kk1 %argument for \draw
+\ydim{14}%\yoffset{-7}%
+\xdim{21}\xoffset{-2}%
+\beginpicture\levyfractal\endpicture
+\egroup\thispicture{}}
+%
+\lst\linespic
+{\bgroup\unitlength1cm
+ \yoffset{-1.5}
+ \xdim{7}\ydim{3}
+\beginpicture
+\ifmarkorigin\put(0,0){\markorigin}\fi
+\line(1,-1){1}
+\line(1,1){1}
+\makebox(2,0){Beer}
+\disk{.25}\quad
+\circle{.5}
+\endpicture\egroup%end linespic
+}
+%
+\lst\metapostpic{\bgroup
+\unitlength3ex\xdim{12}\ydim{10}
+\xoffset{-6}
+\beginpicture
+\put(-2,0){\framebox(4,1){.ps}}
+\put(0,1){\line(0,1)1}
+\put(-6,2){\makebox(12,1){dvips, or \dots}}
+\put(0,2.5){\oval(12,1)}
+\put(-4,3){\line(0,1)1}
+\put(-6,4){\framebox(4,1){.eps}}
+\put(-4,5){\line(0,1)1}
+\put(-6,6){\makebox(4,1){MetaPost}}
+\put(-4,6.5){\oval(4,1)}
+\put(-4,7){\line(0,1)1}
+\put(-6,8){\framebox(4,1){.mp}}
+%
+\put(4,3){\line(0,1)1}
+\put(2,4){\framebox(4,1){.dvi}}
+\put(4,5){\line(0,1)1}
+\put(2,6){\makebox(4,1){(any)\TeX}}
+\put(4,6.5){\oval(4,1)}
+\put(4,7){\line(0,1)1}
+\put(2,8){\framebox(4,1){.tex}}
+\put(6,9){\corners1}
+\put(6.4,9){{\tiny (e)psfig}}
+\endpicture\egroup}
+%
+\lst\ntgpiepic
+{\bgroup\unitlength=7ex
+ \xoffset{-3}\yoffset{-2.25}
+ \xdim{6}\ydim{5}
+\beginpicture
+%1st quadrant
+%\bezier{100}(2, 0)(2, .54)(1.79, .89)
+ % 0 - `30' 2:1-lijn
+%\bezier{60}(1.79, .89)(1.46, 1.46)(1,
+%1.73)
+\put(0,0){\squine(1.79,1.46,1,.89,1.46,
+ 1.73)}
+ % `30' - 60
+%\bezier{60}(1, 1.73)(.54, 2)(0, 2)
+ % 60 - 90
+\put(0,0){\squine(1,.54,0,1.73,2,2)}
+%2nd quadrant
+%\bezier{60}(0, 2)(-.54, 2)(-1, 1.73)
+ % 90 - 120
+\put(0,0){\squine(0,-.54,-1,2,2,1.73)}
+%\bezier{60}(-1,1.73)(-1.46,1.46)(-1.73,
+%1)
+ %120 - 150
+\put(0,0){\squine(-1,-1.46,-1.73,1.73,
+ 1.46,1)}
+%\bezier{60}(-1.73, 1)(-2, .54)(-2, 0)
+ %150 - 180
+\put(0,0){\squine(-1.73,-2,-2,1,.54,0)}
+%3rd quadrant
+%\bezier{60}(-2, 0)(-2, -.54)(-1.73, -1)
+ %180 - 210
+\put(0,0){\squine(-2,-2,-1.73,0,-.54,
+ -1)}
+%\bezier{60}(-1.73,-1)(-1.46,-1.46)(-1,
+%-1.73)
+ %210 -240
+\put(0,0){\squine(-1.73,-1.46,-1,-1,
+ -1.46,-1.73)}
+%\bezier{60}(-1, -1.73)(-.54, -2)(0, -2)
+ %240 - 270
+\put(0,0){\squine(-1,-.54,0,-1.73,-2,-2)}
+%4th quadrant
+%\bezier{60}(0, -2)(.54, -2)(1, -1.73)
+ %270 - 300
+\put(0,0){\squine(0,.54,1,-2,-2,-1.73)}
+%\bezier{60}(1,-1.73)(1.46,-1.46)(1.73,-1)
+ %300 - 330
+\put(0,0){\squine(1,1.46,1.73,-1.73,
+ -1.46,-1)}
+%\bezier{60}(1.73, -1)(2, -.54)(2, 0)
+ %330 - 360
+\put(0,0){\squine(1.73,2,2,-1,-.54,0)}
+%division lines
+\put(0, 0){\line(1, 0){2}}
+\put(0, 0){\line(2, 1){1.79}}
+ %1.79 = 2 cos arctg .5
+%\put(0, 0){\line(-2, 1){1.79}}
+%\bezier{75}(0, 0)(-.81, .59)(-1.61,
+%1.18)
+ %-.81 = cos 144; .59 = sin 144
+\put(0,0){\squine(0,-.81,-1.61,0,.59,
+ 1.18)}
+%\put(0, 0){\line(-1, -2){.89}}
+ % .89 = 2 sin arctg .5
+%\bezier{75}(0, 0)(-.59, -.81)(-1.18,
+%-1.62)
+ %-.59 = cos -126; -.81 = sin -126
+\put(0,0){\squine(0,-.59,-1.18,0,-.81,
+ -1.62)}
+%piece
+%\bezier{60}(2.5, 0.1)(2.5, .64)(2.29,
+%.99)
+ % shift .5, .1
+\put(0,0){\squine(2.5,2.5,2.29,0.1,.64,
+ .99)}
+\put(0.5, 0.1){\line(1, 0){2}}
+\put(0.5, 0.1){\line(2, 1){1.79}}
+%Candles:
+%\bezier{20}(0,1.31)(-.15,1.45)(0,1.61)
+\put(0,0){\squine(0,-.15,0,1.31,1.45,
+ 1.61)}
+%\bezier{20}(0,1.31)(.175,1.45)(0,1.61)
+\put(0,0){\squine(0,.175,0,1.31,1.45,
+ 1.61)}
+%Middle
+\put(-.1,.11){\line(0,1){1.2}}
+\put(.1,.05){\line(0,1){.95}}
+\put(.1,1.1){\line(-2,3){.2}}
+%Left
+%\bezier{20}(-.25,1.46)(-.40,1.6)(
+%-.25,1.76)
+\put(0,0){\squine(-.25,-.40,-.25,
+ 1.46,1.6,1.76)}
+%\bezier{20}(-.25,1.46)(-.075,1.6)(
+%-.25,1.76)
+\put(0,0){\squine(-.25,-.075,-.25,
+ 1.46,1.6,1.76)}
+\put(-.35,.26){\line(0,1){1.2}}
+\put(-.15,.21){\line(0,1){.95}}
+\put(-.15,1.15){\line(-2,3){.2}}
+%Right
+%\bezier{20}(.25,1.46)(.40,1.6)(.25,
+%1.76)
+\put(0,0){\squine(.25,.40,.25,1.46,
+ 1.6,1.76)}
+%\bezier{20}(.25,1.46)(.075,1.6)(.25,
+%1.76)
+\put(0,0){\squine(.25,.075,.25,1.46,
+ 1.6,1.76)}
+\put(.35,.25){\line(0,1){1.2}}
+\put(.15,.2){\line(0,1){.95}}
+\put(.15,1.15){\line(2,3){.2}}
+%Leftleft
+%\bezier{20}(-.5,1.61)(-.65,1.75)(
+%-.5,1.91)
+\put(0,0){\squine(-.5,-.65,-.5,1.61,
+ 1.75,1.91)}
+%\bezier{20}(-.5,1.61)(-.325,1.75)(
+%-.5,1.91)
+\put(0,0){\squine(-.5,-.325,-.5,1.61,
+ 1.75,1.91)}
+\put(-.6,.41){\line(0,1){1.2}}
+\put(-.4,.36){\line(0,1){.95}}
+\put(-.4,1.3){\line(-2,3){.2}}
+%Rightright
+%\bezier{20}(.5,1.61)(.65,1.75)(.5,
+%1.91)
+\put(0,0){\squine(.5,.65,.5,1.61,1.75,
+ 1.91)}
+%\bezier{20}(.5,1.61)(.325,1.75)(.5,
+%1.91)
+\put(0,0){\squine(.5,.325,.5,1.61,
+ 1.75,1.91)}
+\put(.6,.4){\line(0,1){1.2}}
+\put(.4,.35){\line(0,1){.95}}
+\put(.4,1.3){\line(2,3){.2}}
+%texts
+\put(-1, -.1){\makebox(0, 0){\strut
+ Happy}}
+\put(.5, -1){\makebox(0, 0){\strut
+ Birthday}}
+\put(1.9, .35){\makebox(0, 0){\strut
+ NTG}}
+\endpicture\egroup%end ntgpiepic
+\thispicture{}}
+%
+\lst\overviewtexpic
+{\bgroup\unitlength=3.8ex \fullfalse
+ \xoffset{-.5}\yoffset{-2.75}
+ \xdim{15}\ydim{16.5}
+\beginpicture
+%1st column
+\put(1, 0){\line(0, 1){1.5}}
+\put(1, 2){\oval(2, 1)}
+\iffull\put(1.1, 2.1){\ovaltlfalse\ovalblfalse\ovalbrfalse
+ \oval(2, 1)}
+ \put(2.1, 2){{\tiny .ps}}
+ \put(1.2, 2.2){\ovaltlfalse\ovalblfalse\ovalbrfalse
+ \oval(2, 1)}
+ \put(2.3, 2.2){{\tiny .log}}
+\fi
+\put(1, 2){\makebox(0, 0){.pk}}
+\put(1, 4){\vector(0, -1){1.5}}
+\put(-.5, 4){\framebox(3, 1){%
+ METAFONT}}
+\iffull\card{2.75}{5.25}{-{%\smc%Too large
+ post}}
+\fi
+\put(1, 6.5){\vector(0, -1){1.5}}
+\put(1, 7){\oval(2, 1)}
+\put(1, 7){\makebox(0, 0){.mf}}
+%second column
+\put(7.5, -.5){\framebox(2, 1){%
+ driver}}
+\put(9.5,.5){\corners{.5}}%
+\put(8.5, 1.5){\vector(0, -1){1}}
+ %mod 24/1/94
+\put(8.5, 2){\oval(2, 1)}
+\iffull
+ \put(8.6, 2.1){\ovaltlfalse\ovalblfalse\ovalbrfalse
+ \oval(2, 1)}
+ \put(9.6, 2){{\tiny .log}}
+%\put(8.7, 2.2){\ovaltlfalse\ovalblfalse\ovalbrfalse
+% \oval(2, 1)}
+\fi
+\put(8.5, 2){\makebox(0, 0){.dvi}}
+\put(8.5, 4){\vector(0, -1){1.5}}
+\put(7.5, 4){\framebox(2, 1){\TeX}}
+%Flavours
+\card{ 9.75}{5.25}{BLUe}
+\card{10 }{5.5 }{La\TeX}
+\card{10.25}{5.75}{AMS-(La)\TeX}
+%\diagdots{10.35}{5.85}
+%
+\put(8.5, 6.5){\vector(0, -1){1.5}}
+\put(8.5, 7){\oval(2, 1)}
+\put(8.5, 7){\makebox(0, 0){.tex}}
+%
+\multiput(8.5, 9)(0, -.415){3}{%
+ \line(0, -1){.25}}
+\put(8.5, 8.7){\vector(0, 1){.3}}
+\put(8.5, 7.8){\vector(0, -1){.3}}
+\put(7.5, 9){\framebox(2, 1){editor}}
+%Tools
+\card{ 9.75}{10.25}{Spell}
+\card{10 }{10.5 }{Style}
+%\diagdots{10.1}{10.6}
+%
+\put(8.5, 11.5){\vector(0, -1){1.5}}
+\put(8.5, 12){\oval(2, 1)}
+\put(8.5, 12){\makebox(0, 0){copy}}
+%basis
+\put(1, 0){\vector(1, 0){6.5}}
+\put(9.5, 0){\vector(1, 0){1.5}}
+\put(11, -.75){\framebox(2, 1.5){\vbox{%
+ \hbox{printer}
+ \hbox{screen}}}}
+%middle
+\multiput(5, 5.25)(0, 1){3}{%
+ \line(0,1){.5}}
+\multiput(5, .25)(0, 1){4}{%
+ \line(0,1){.5}}
+\multiput(5, -2.25)(0, .5){2}{%
+ \line(0,1){.25}}
+\put(5,-.5){\line(0,1){.25}}
+%PostScript
+\iffull
+ \put(1, -1){\oval(2, .5)}
+ \put(1, -1){\makebox(0, 0){{\tiny A-Type1}}}
+ \put(1.1, -.9){\ovaltlfalse\ovalblfalse\ovalbrfalse
+ \oval(2, .5)}
+ \put(1.2, -.8){\ovaltlfalse\ovalblfalse\ovalbrfalse
+ \oval(2, .5)}
+ \multiput(2, -1)(.45, 0){4}{%
+ \line(1,0){.25}}
+ \put(4,-1){\vector(1,0){0}}
+ \put(4, -1.250){\framebox(2, .5){%
+ {\tiny \PS}}}
+ \multiput(6, -1)(.45, 0){8}{%
+ \line(1,0){.25}}
+ \put(9.75,-1){\vector(1,0){0}}
+ \put(10.25, -1){\oval(1, .5)}
+ \put(10.25, -1){\makebox(0, 0){{\tiny .ps}}}
+ \multiput(10.75, -1)(.45, 0){5}{%
+ \line(1,0){.25}}
+ \put(13.25,-1){\vector(1,0){0}}
+ \put(12,-1){\vector(0,1){.25}}
+ \put(13.25, -1.25){\framebox(1.5, .5){{\tiny Acrobat}}}
+ \put(14.75, -.75){\corners{.5}}
+ \multiput(14, -.625)(0,1){2}{\line(0,1){.25}}
+ \put(13.25, .75){\framebox(1.5, .5){{\tiny Acrobat}}}
+ \put(14.75, 1.25){\corners{.5}}
+ \put(14, 0){\oval(1,.5)}
+ \put(14, 0){\makebox(0, 0){{\tiny .pdf}}}
+ \multiput(13.25,1)(-.5, 0){3}{\line(-1,0){.25}}
+ \put(12, 1){\vector(0,-1){.25}}
+ \put(8.5, -1){\vector(0, 1){.5}}
+ \put(8.5,-.5){\vector(0,-1){.5}}
+\else
+ \put(5, -1){\line(0, -1){.25}}
+\fi
+%
+\put(2.5, 4.5){\vector(1, 0){1.5}}
+\put(5, 4.5){\oval(2, 1)}
+\put(5, 4.5){\makebox(0, 0){.tfm}}
+\put(6, 4.5){\vector(1, 0){1.5}}
+%Source variants
+\iffull
+ \put(9.5, 7){\vector(-1,0){0}}
+ \multiput(9.5, 7)(.5,0){2}{\line(1, 0){.25}}
+ \multiput(10.25, 7.375)(.5,0){2}{\line(1, 0){.25}}
+ \put(11, 7.375){\vector(1,0){0}}
+ \put(11, 7.125){\framebox(1.5,.5){\tiny SGML}}
+ \multiput(10.25, 7.375)(0,-.5){2}{\line(0,-1){.25}}
+ \multiput(10.25, 6.625)(.5,0){2}{\line(1, 0){.25}}
+ \put(11,6.625){\vector(1,0){0}}
+ \put(11,6.375){\framebox(1.5,.5){\tiny HTML}}
+ %\put(12, 4.5){\oval(2, 1)}
+ %\put(12, 4.5){\makebox(0, 0){.log}}
+\fi
+%base line
+\put(.51,-2.25){\vector(-1, 0){1}}
+\put(2.25, -2.25){\makebox(0, 0){Fonts}}
+\put(3.9,-2.25){\vector( 1, 0){1}}
+\put(6.1,-2.25){\vector(-1, 0){1}}
+\put(9, -2.25){\makebox(0, 0){%
+ Typesetting}}
+\put(11.9,-2.25){\vector(1, 0){1}}
+\endpicture\egroup%end overviewtexpic
+\thispicture{}}
+%
+\lst\partitionedmatrixpic{\bgroup
+ \def\vdts{\vbox{\baselineskip4pt
+ \lineskiplimit0pt
+ \vglue2pt\hbox{.}\hbox{.}\hbox{.}}}%
+\vcenter{\offinterlineskip%No interline
+% space in between parts
+\halign{\hfil$##$&\hfil$##$\hfil\cr%2-column
+%first row with braces, element 11 empty
+{}&\hfil\enspace\mathop{\hbox to.9cm%
+ {\downbracefill}}\limits^{\vbox{\hbox{
+ $\scriptstyle p$}\kern2pt}}
+ \enspace\hfil\mathop{\hbox to.6cm%
+ {\downbracefill}}\limits^{\vbox{\hbox to
+ 0pt{\hss$\scriptstyle n-p$\hss}\kern2pt}}%
+ \enspace\hfil\cr % end first row
+%Separation between first (border) row and
+%rest
+\noalign{\vglue.5ex}
+%first column with braces
+\vcenter{\kern1ex%
+ \hbox{${\scriptstyle p}\left\fatlbrace\vbox to5.5ex{}
+ \right.$}\kern1.5ex
+ \hbox{\llap{$\scriptstyle n{-}$}%
+ ${\scriptstyle p}\left\fatlbrace\vbox to4ex{}
+ \right.$}}
+&%22-element is the matrix proper
+\left(\vcenter{\offinterlineskip
+\halign{\hfil$##$\hfil&\hfil$##$\hfil&
+\hfil$##$\hfil&\hfil$##$\hfil
+\tabskip=.5\tabskip&\vdts##&
+\tabskip=2\tabskip
+\hfil$##$\hfil&\hfil$##$\hfil&
+\hfil$##$\hfil\cr%end template
+\times&\times&\times&\times&&\times&
+ \times&\times\cr
+0 &\times&\times&\times&&\times&
+ \times&\times\cr
+0 &0 &\times&\times&&\times&
+ \times&\times\cr
+0 &0 &0 &\times&&\times&
+ \times&\times\cr
+\noalign{\vglue.5ex}
+\multispan8\dotfill\cr
+0 &0 &0 &0 &&\times&
+ \times&\times\cr
+0 &0 &0 &0 &&\times&
+ \times&\times\cr
+0 &0 &0 &0 &&\times&
+\times&\times\cr}%end halign (22)
+}%end vcenter
+\right)\cr %end 22-element
+%Separation between last (border) row
+%and rest
+\noalign{\vglue1ex}
+{}&\hfil\enspace\mathop{\hbox to.9cm{%
+ \upbracefill}}\limits_{\vbox{\kern2pt
+ \amyicurt{4ex}{1.5ex}}}
+ \enspace\hfil
+ \mathop{\hbox to.6cm{%
+ \upbracefill}}\limits_{\vbox{\kern2pt
+ \unitlength1ex
+ \icmat4{1.5}}}\enspace\hfil%
+\cr % end last row
+}%end halign
+}\egroup%end vbox
+}%end partitionedmatrixpic
+%
+\lst\pstexpic{%cgl, June 1996
+\bgroup
+\unitlength3ex\xdim{12}\ydim{14}
+\xoffset{-6}
+\beginpicture
+\put(-2,0){\makebox(4,1){P/G-script}}
+\put(0,.5){\oval(4,1)}
+\put(0,1){\line(0,1)1}
+\put(-2,2){\framebox(4,1){.ps}}
+\put(0,3){\line(0,1)1}
+\put(-2,4){\makebox(4,1){dvips}}
+\put(0,4.5){\oval(4,1)}
+\put(0,5){\line(0,1)1}
+\put(-2,6){\framebox(4,1){.dvi}}
+\put(2,7){\corners1}
+\put(2.4,7){{\tiny .eps}}
+\put(0,7){\line(0,1)1}
+\put(-2,8){\makebox(4,1){(any)\TeX}}
+\put(0,8.5){\oval(4,1)}
+\put(0,9){\line(0,1)1}
+\put(-2,10){\framebox(4,1){.tex}}
+\put(2,11){\corners1}
+\put(2.4,11){{\tiny (e)psfig}}
+%
+\put(0,11){\line(0,1)1}
+\put(-2,12){\makebox(4,1){editor}}
+\put(0,12.5){\oval(4,1)}
+\put(2,12.5){\line(1,0)1}
+\put(3,12.5){\line(0,-1)1}
+\put(3,10.5){\line(0,-1)3}
+\endpicture\egroup}
+%
+\lst\pythpic{%July 1995, cgl
+%Revision March 1996
+\bgroup
+%\newdimen\leftx \newdimen\rightx
+%\newdimen\lefty \newdimen\righty
+\let\0\N \let\1\NE \let\2\E \let\3\SE
+\let\4\S \let\5\SW \let\6\W \let\7\NW
+\def\right{\turn2}%
+\def\left{\turn6}%
+\def\turn##1{\advance\dir##1
+ \ifnum\dir>7 \advance\dir-8 \fi}%mod 8
+\def\draw{\csname\the\dir\endcsname{\the\kk}}%
+\def\ldrawsq{\draw \leftx\x \lefty\y
+ \right\draw \rightx\x \righty\y
+ \right\draw
+ \right\draw
+ \right}%
+\def\rdrawsq{\draw \rightx\x \righty\y
+ \left\draw \leftx\x \lefty\y
+ \left\draw
+ \left\draw
+ \left}%
+\let\drawsq\ldrawsq
+\def\pyth{\ifnum\level=1 \htyp\fi
+ \drawsq\advance\level-1 \multiply\kk18\divide\kk25
+ {\turn7\x\leftx \y\lefty \let\drawsq\ldrawsq\pyth}%
+ \turn1\x\rightx \y\righty\let\drawsq\rdrawsq\pyth}
+\def\htyp##1\pyth{\fi}%
+\unitlength0.2ex\kk20
+\rightx\the\kk\unitlength
+\divide\rightx2 \x-\rightx%positioning
+\level5
+\xdim{28}\ydim{70}\xoffset{-9}%
+\beginpicture\pyth\endpicture
+\egroup\thispicture{}}
+%
+\lst\pythtreepic{%July 1995, cgl
+%Revision March 1996
+\bgroup
+\let\0\N \let\1\NE \let\2\E \let\3\SE
+\let\4\S \let\5\SW \let\6\W \let\7\NW
+\def\leftbranch{\advance\dir7
+ \ifnum\dir>7 \advance\dir-8 \fi}%mod 8
+\def\rightbranch{\advance\dir1
+ \ifnum\dir>7 \advance\dir-8 \fi}%mod 8
+\def\draw{\csname\the\dir\endcsname{\the\kk}}
+\def\pythtree{\ifnum\level=1 \eerthtyp\fi
+ \advance\level-1
+ \multiply\kk23\divide\kk32
+ {\leftbranch\draw\pythtree}%
+ \rightbranch\draw\pythtree}
+\def\eerthtyp##1\pythtree{\fi}
+%alternative
+%\def\pythtree{\ifnum\level>1
+% \expandafter\dopyth\fi}
+%\def\dopyth{\advance\level-1
+% \multiply\kk23\divide\kk32
+% {\leftbranch\draw\pythtree}%
+% \rightbranch\draw\pythtree}
+%\linethickness.2pt
+ \unitlength.2pt
+ \level6 \dir0 \kk90
+\xdim{285}\ydim{285}\xoffset{-90}%
+\beginpicture
+\setbox\hlfwndelm=\hbox{\vrule
+ width\the\linethickness
+ height\the\linethickness depth0pt}
+\N{\the\kk}\pythtree\endpicture
+\egroup\thispicture{}}%end \pythtreepic
+%
+\lst\regulartransparencypic{
+\setbox0=\vbox to.6\hsize{\let\x\fiverm
+ \hsize=.4\hsize\def\w{\kern.5ex}
+ \vskip.5ex\noindent
+ \centerline{\x Title Transparencies Set}
+ \line{\x\w\vbox to 10ex{\vss
+ \rlap{\x LOGO}\vss}\hfill
+ \vbox to 10ex{\vss
+ \x\baselineskip3ex
+ \llap{\x headtitle}
+ \llap{\x subheadtitle}
+ \llap{\x subsubheadtitle}
+ \vss}\w}
+ \hrule\vfil
+ \centerline{o\ o}
+ \centerline{\vrt}
+ \centerline{\teni\char'136}
+ \vfil\hrule\vskip.5ex
+ \line{\x\w\rlap{\x date}\hfill
+ --number--\hfill
+ \llap{\x copyright}\w}
+ \vskip.5ex}
+%
+\vbox{\vskip1ex\hbox to.4\hsize{\hss
+ Regular Transparency\hss}
+\kern2ex
+\hbox{\rlap{\copy0}\makelightbox}}
+}
+\lst\rotatedbintreepic{%July 1995, cgl
+\bgroup\unitlength1ex%
+ \let\W\N \let\exchange\E
+ \let\E\S \let\S\exchange
+ \def\1{x}\def\2{y}\def\3{a}\def\4{b}%
+ \def\5{piet}\def\6{hans}\def\7{etc.}\def\8{}%
+ \k0\kk16\xdim{10}\ydim{30}%
+\beginpicture\bintree\endpicture\egroup
+\thispicture{}}
+%
+\lst\sgmltexpic
+{\bgroup\csname newcount\endcsname\leg
+\unitlength2.5ex\xoffset{-13}
+\xdim{20}\ydim{25}
+\beginpicture
+\put(-7,\the\leg){\framebox(4,2){%
+ (La)\TeX}}
+\put(-2,\the\leg){\framebox(4,2){%
+ TROFF}}
+\put(3,\the\leg){\framebox(4,2){\dots}}
+\advance \leg by 4
+%hark
+\put(-5,\the\leg){\vector(0,-1){1.75}}
+\put(0,\the\leg){\vector(0,-1){1.75}}
+\put(5,\the\leg){\vector(0,-1){1.75}}
+\put(-5,\the\leg){\vector(1,0){5}}
+%backarrow
+\put( 0,\the\leg){\line(1,0){5}}
+%converters
+\put(5.5,\the\leg){\vtop to 0pt{%
+\hbox{Specific}\hbox{format file}\vss}}
+\put(0,\the\leg){\vector(0, 1){1}}
+%backarrow
+\advance \leg by 1
+\put(-4,\the\leg){\framebox(8,2){%
+ $\vcenter{\hbox{Generic markup}
+ \hbox{$\Rightarrow$\
+ procedural}}$
+ }
+ }
+\advance \leg by 2
+\put(4,\the\leg){\corners1}
+%\put(4.2,\the\leg.2){\line(0, -1){1}}
+%\put(4.2,\the\leg.2){\line(-1, 0){1}}
+%\put(4.4,\the\leg.4){\line(0, -1){1}}
+%\put(4.4,\the\leg.4){\line(-1, 0){1}}
+\put(4.4,\the\leg.2){{\tiny Formats}}
+%
+\advance \leg by 1
+\put(0,\the\leg.5){\vector(0,-1){1.5}}
+\put(0,\the\leg.5){\vector(0, 1){0}}
+%backarrow head
+%applications
+\advance \leg by 1
+\put(-10,\the\leg){\makebox(0,0){Exchange}}
+\put(-5,\the\leg){\makebox(0,0){Storage}}
+\put(0,\the\leg){\makebox(0,0){%
+ Publication}}
+\put(5,\the\leg){\makebox(0,0){%
+ Database}}
+\put(10,\the\leg){\makebox(0,0){%
+\vtop to 0pt{\hbox{(Text-)}
+ \hbox{analysis}\vss}}}
+%hark
+\advance \leg by 2
+\put(0,\the\leg){\vector(0,-1){1.25}}
+\put(-5,\the\leg){\vector(0,-1){1.25}}
+\put(-10,\the\leg){\vector(0,-1){1.25}}
+\put(5,\the\leg){\vector(0,-1){1.25}}
+\put(10,\the\leg){\vector(0,-1){1.25}}
+\put(-10.5,\the\leg){\line(1,0){21}}
+\put(11.25,\the\leg){\makebox(0,0){\dots}}
+\put(-11.25,\the\leg){\makebox(0,0){\dots}}
+\advance \leg by 2
+\put(0,\the\leg){\line(0,-1){2}}
+\put(0,\the\leg){\vector(0,1){0}}
+%back (up) arrow head
+\put(-7.5,\the\leg){\framebox(15,1){%
+ Complete, correct SGML doc.}}
+\advance \leg by 2
+\put(.5,\the\leg.25){Parser}
+\advance \leg by 2
+\put(0,\the\leg){\vector(0,-1){3}}
+%\advance \leg by 1
+\put(-7.5,\the\leg){\framebox(15,3){
+ $\vcenter{\hbox{|<|!SGML
+ - - declaration - -|>|}
+ \hbox{|<|!DOCTYPE
+ - - declaration - -|>|}
+ \hbox{|<|!
+ - - Markup copy - -|>|}}$
+ }
+ }
+\advance \leg by 3
+%\corners
+\put(7.5,\the\leg){\corners2}
+%\put(7.7,\the\leg.2){\line(0,-1){2}}
+%\put(7.7,\the\leg.2){\line(-1,0){2}}
+%\put(7.9,\the\leg.4){\line(0,-1){2}}
+%\put(7.9,\the\leg.4){\line(-1,0){2}}
+\put(7.9,\the\leg.2){{\tiny DTDs}}
+%
+\advance \leg by 1
+\put(.5,\the\leg){Editor}
+\advance \leg by 1
+\put(0,\the\leg.5){\vector(0,-1){2.5}}
+\advance \leg by 1
+\put(0,\the\leg){\framebox(0,0){\strut
+ ``Copy''}}
+\endpicture\egroup%end sgmltexpic
+\thispicture{}}
+%
+\lst\sierpinskitripic{%July 1995, cgl
+%Revision March 1996
+\bgroup
+\def\triangle{\ifnum\kk=0 \elgnairt\fi
+ {\N{\the\kk}}{\E{\the\kk}}\divide\kk2
+ {\triangle}%
+ {\advance\x\the\kk\unitlength\triangle}%
+ \advance\y\the\kk\unitlength\triangle}
+\def\elgnairt##1\triangle{\fi}
+\unitlength1ex\kk16
+\xdim{16}\ydim{16}
+\beginpicture\triangle\endpicture
+\egroup\thispicture{}}
+%
+\lst\simplepic
+{\bgroup\unitlength=1cm
+ \xdim{3}\ydim{1.25}
+\beginpicture
+\ifmarkorigin\put(0,0){\markorigin}\fi
+\put(1.5,.5){\oval(2,1)}
+\put(0.5,0){\makebox(2,1){Kees}}
+\endpicture\egroup%end simplepic
+}
+\lst\spiralpic{%July 1995, cgl
+\bgroup\unitlength.5ex\k30
+ \xdim{\the\k}\ydim{34}%
+ \yoffset{-\the\k}%
+\beginpicture
+ \loop\E{\the\k}\advance\k-1
+ \S{\the\k}\advance\k-1
+ \W{\the\k}\advance\k-1
+ \N{\the\k}\advance\k-1
+ \ifnum\k>4 \repeat
+\endpicture\egroup
+\thispicture{}}
+%
+\lst\texflowpic
+{\bgroup\smallskip\small
+\unitlength=2.5ex
+\xdim{18}\ydim{19}\yoffset{2}
+\beginpicture
+\put(6,1.5){\makebox(0,0){``Copy''}}
+\put(6,20.5){\makebox(0,0){``Results''}}
+\put(6,5){\oval(6,2)}
+\put(6,5){\makebox(0,0){Editor}}
+\put(6,9){\oval(6,2)}
+\put(6,9){\makebox(0,0){\AllTeX}}
+\put(6,13){\makebox(0,0){{\rm Error?}}}
+\put(6,17){\oval(6,2)}
+\put(6,17){\makebox(0,0){Driver}}
+\put(12,4){%\dashbox{.5}(8,2){\makebox(0,0){%
+ \framebox(8,2){\vbox{%
+ \hbox{\tiny Spelling checker}
+ \hbox{\tiny Style tools}}}}
+\put(0.2,13.2){Yes}
+\put(6.50,14.5){No}
+\put(6,2){\vector(0,1){2}}
+\put(6,6){\vector(0,1){2}}
+\put(6,10){\vector(0,1){2}}
+\put(6,14){\vector(0,1){2}}
+\put(6,18){\vector(0,1){2}}
+\put(0,13){\line(0,-1){8}}
+\put(9,5){\vector(1,0){3}}
+\put(12,5){\vector(-1,0){3}}
+\put(0,5){\vector(1,0){3}}
+\put(3,13){\line(-1,0){3}}
+\put(3,13){\line(3,1){3}}
+\put(3,13){\line(3,-1){3}}
+\put(9,13){\line(-3,1){3}}
+\put(9,13){\line(-3,-1){3}}
+\endpicture
+%\caption{Correction cyclus \label{correctie}}
+\smallskip\egroup
+}
+\lst\systemtheorypic
+{\bgroup
+\unitlength1cm\xoffset{-1.5}
+\xdim{7}\ydim{2.25}
+\beginpicture
+\ifmarkorigin\put(0,0){\markorigin}\fi
+\put(-1,1.75){$u_1$}
+\put(-.4,1.5){$^{\fivesy+}$}
+\put(-1,1.5){\vector(1,0){.9}}
+\put(0,0){\vector(0,1){1.4}}
+\put(-.3,1.125){$^{\fivesy+}$}
+\put(0,1.5){\circle{.1}}
+%
+\put(.1,1.5){\vector(1,0){1.65}}
+\put(.5,1.25){$e_1$}
+\put(1.75,1.125){\framebox(1,.75){$G$}}
+\put(2.75,1.5){\line(1,0){1.75}}
+%
+\put(4.5,1.5){\vector(0,-1){1.4}}
+\put(4.6,.2){$^{\fivesy+}$}
+\put(4.5,0){\circle{.1}}
+%
+\put(1.75,0){\line(-1,0){1.75}}
+\put(1.75,-.375){\framebox(1,.75){$K$}}
+\put(4.4,0){\vector(-1,0){1.65}}
+\put(3.25,-.25){$e_1$}
+%
+\put(5.5,0){\vector(-1,0){.9}}
+\put(4.7,-.375){$^{\fivesy+}$}
+\put(5.5,-.25){\llap{$u_2$}}
+\endpicture
+\egroup%end systemtheorypic
+}
+
+\lst\titletransparencypic{%
+\setbox0=\vbox to.6\hsize{\let\x\fiverm
+ \let\s\sevenrm
+ \hsize=.4\hsize\def\w{\kern.5ex}
+ \vskip7ex\noindent
+ \centerline{\s Title Transparencies
+ Set}
+ \centerline{\x subtitle}
+ \vskip2ex
+ \centerline{\s author name}
+ \centerline{\x address}
+ \vskip3ex
+ \centerline{\llap{\s\kern-10ex--
+ \quad\dots}}
+ \centerline{\llap{\s\kern-10ex--
+ \quad\dots}}
+ \vfil}
+%
+\vbox{\hbox to.4\hsize{\hss Title
+ Transparency\hss}
+\kern2ex
+\hbox{\rlap{\copy0}\makelightbox}}
+}
+%
+\lst\trimodelpic{%July 1995, cgl
+\bgroup\linethickness1ex
+\unitlength1ex
+\xdim{0}\ydim{15}%
+\yoffset{-5}%
+\beginpicture
+\setbox\trielm=\hbox{\vrule
+ width1.74\linethickness
+ height\linethickness\relax}
+\unitlengthy\ht\trielm
+\unitlengthx\wd\trielm
+\unitlength\unitlengthy
+{\N{10}}{\ESE{10}}{\WSW{10}}$$
+\endpicture\egroup
+\thispicture{}}%end \trimodelpic
+%
+\lst\tritreepic{%July 1995, cgl
+%Revision March 1996
+\bgroup\linethickness.2pt
+%Here we have to correct for the direction
+%and to adjust the drawing element atom
+%into a rectangular block,
+%default of size $.348{\times}.2$pt.\ftn{%
+% Vertically only half of the atoms have to be stacked.
+% Horizontally the right distance must be paced,
+% i.e.\ a factor $\sqrt3$ larger.
+% The rectangular block has sides in the proportion of $\sqrt3$.}
+\def\tritree{\ifnum\level=1 \eertirt\fi
+ \advance\level-1 \divide\kk2
+ {\N{\the\kk}\tritree}%
+ {\ESE{\the\kk}\tritree}%
+ \WSW{\the\kk}\tritree}%
+\def\eertirt##1\tritree{\fi}%
+\unitlength.2pt
+\xdim{0}\ydim{320}%
+\xoffset{0}\yoffset{0}%
+\level5 \kk128
+\beginpicture
+\setbox\trielm=\hbox{\vrule
+ width1.74\linethickness
+ height\linethickness}%
+%To account for element in 30 degrees direction
+\unitlengthy\ht\trielm %default.2pt
+\unitlengthx\wd\trielm %default.3482pt
+\unitlength\unitlengthy
+\tritree
+\endpicture\egroup
+\thispicture{}}%end \tritreepic
+%
+\lst\vectorbundlepic
+{\bgroup\unitlength=1cm
+ \xdim{4}\ydim{5}\yoffset{-.25}
+\beginpicture
+\ifmarkorigin\put(0,0){\markorigin}\fi
+\put(2,0){\vector(1,1){1}}
+\put(2,0){\vector(1,2){1}}
+\put(2,0){\vector(1,3){1}}
+\put(2,0){\vector(2,3){1}}
+\put(2,0){\vector(1,4){1}}
+\put(2,0){\vector(2,1){1}}
+\put(2,0){\vector(3,1){1}}
+\put(2,0){\vector(3,2){1}}
+\put(2,0){\vector(4,1){1}}
+%Second quadrant
+\put(2,0){\vector(-1,1){1}}
+\put(2,0){\vector(-2,1){1}}
+\put(2,0){\vector(-3,1){1}}
+\put(2,0){\vector(-3,2){1}}
+\put(2,0){\vector(-4,1){1}}
+\put(2,0){\vector(-1,2){1}}
+\put(2,0){\vector(-1,3){1}}
+\put(2,0){\vector(-1,3){1}}
+\put(2,0){\vector(-2,3){1}}
+\put(2,0){\vector(-1,4){1}}
+\endpicture\egroup%end vector
+} % bundlepic
+%
+\lst\viewtexpic
+{\bgroup\smallskip\small
+\unitlength2.5ex
+\xdim{24}\ydim{20.5}
+\beginpicture
+\put( 3, 4){\oval( 6, 2)}
+\put( 3, 4){\makebox( 0, 0){\tiny PC preview}}
+\put( 3, 7){\oval( 6, 2)}
+\put( 3, 7){\makebox( 0, 0){\tiny VDU preview}}
+\put(21, 1){\oval( 6, 2)}
+\put(21, 1){\makebox( 0, 0){\tiny Photo setter}}
+\put(21, 4){\oval( 6, 2)}
+\put(21, 4){\makebox( 0, 0){\tiny Laser printer}}
+\put(21, 7){\oval( 6, 2)}
+\put(21, 7){\makebox( 0, 0){\tiny Matrix printer}}
+\put(12,19.5){\oval( 6, 2)}
+\put(12,19.5){\makebox( 0, 0){CompuScript}}
+\put(9,15.5){\framebox(6, 2){\TeX}}
+\put(12,13.5){\oval( 6, 2)}
+\put(12,13.5){\makebox( 0, 0){dvi-file}}
+\put( 9, 9){%dashbox{.5}( 6, 2){PostScript}}
+ \framebox( 6, 2){PostScript}}
+\put(12, 1){\line( 0, 1){8}}
+\put(12,12.5){\vector( 0,-1){1.5}}%dvi-postscript
+\put(12,18.5){\vector(0,-1){1}} %ms-dos dvi
+\put(12,15.5){\vector(0,-1){1}} %ms-dos dvi
+\put(12, 7){\vector( 1, 0){6}}
+\put(12, 7){\vector(-1, 0){6}}
+\put(12, 4){\vector( 1, 0){6}}
+\put(12, 4){\vector(-1, 0){6}}
+\put(12, 1){\vector( 1, 0){6}}
+\endpicture
+\smallskip\egroup
+}
+\lst\webpic{\bgroup
+\unitlength2.5ex\xdim{12}\ydim{10}
+\xoffset{-6}
+\beginpicture
+\put(2,0){\framebox(4,1){nme.dvi}}
+\put(4,1){\line(0,1)1}
+\put(4,2.5){\oval(4,1)}
+\put(4,3){\line(0,1)1}
+\put(2,2){\makebox(4,1){\TeX}}
+\put(4,5){\line(0,1)1}
+\put(2,4){\framebox(4,1){nme.tex}}
+\put(4,6.5){\oval(4,1)}
+\put(2,6){\makebox(4,1){cweave}}
+\put(-4,2.5){\oval(4,1)}
+\put(-6,2){\makebox(4,1){C}}
+\put(-4,3){\line(0,1)1}
+\put(-6,4){\framebox(4,1){nme.c}}
+\put(-4,5){\line(0,1)1}
+\put(-4,6.5){\oval(4,1)}
+\put(-6,6){\makebox(4,1){ctangle}}
+\put(-4,7){\line(4,1)4}
+\put( 4,7){\line(-4,1)4}
+\put(-2,8){\framebox(4,1){nme.w}}
+\endpicture\egroup}
+%
+\lst\windpic{%July 1995, cgl
+\bgroup\unitlength10ex
+\let\0\N \let\1\NE \let\2\E \let\3\SE
+\let\4\S \let\5\SW \let\6\W \let\7\NW
+\def\draw{\csname\the\dir\endcsname1}%
+ \xoffset{0}\yoffset{-1}%
+ \xdim{0}\ydim{2}%
+\beginpicture
+\setbox\hlfwndelm=\hbox{\vrule
+ width\the\linethickness
+ height\the\linethickness depth0pt}%
+\loop\ifnum\dir<8{\draw}\advance\dir1\repeat
+\endpicture\egroup
+\thispicture{}}
+%
+\lst\xyturtlepic{\bgroup%
+\unitlength.5ex%
+\xdim{44}\ydim{27}%
+\y=0pt\x=0pt%
+\xoffset{0}\yoffset{0}%
+\beginpicture \whiteN6\E4%
+ {\S4\whiteS2\xytxt{ Ref.\ point}}{\E{40}}%
+ \N{20}\whiteE{20}\S4\whiteS4\xytxt{ (x,y)}%
+\endpicture\egroup\thispicture{}}
+\endinput \ No newline at end of file