%Copyright: C.G. van der Laan, 
%cgl@rc.service.rug.nl, 05941-1525
%File: pic.dat  Version May, 1995
%
\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\relax{\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
\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\relax}%
\def\fc##1\relax{\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
\bgroup
\def\bintree{\E{\the\ekk}\ifnum\kk=2 \eertnib\fi
   \divide\kk2 {\N{\the\kk}\bintree}%
                \S{\the\kk}\bintree\relax}%
\def\eertnib##1\relax{\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\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\pythpic{%July 1995, cgl
\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\relax}
\def\htyp##1\relax{\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
\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\relax}
\def\eerthtyp##1\relax{\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.}%
  \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
\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\relax}
\def\elgnairt##1\relax{\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
\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\relax}%
\def\eertirt##1\relax{\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\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{}}
\endinput