% $Id: trans.tex,v 1.1 1995/08/17 12:24:13 dybkjaer Exp dybkjaer $
% $Log: trans.tex,v $
% Revision 1.1  1995/08/17  12:24:13  dybkjaer
% Initial revision
%
%
\input xlatin1
%
\count255=\the\catcode`\@ \catcode`\@=11 \edef\catcode@{\the\count255}
%
% Fonts
% \font\bigss=cminch scaled 432
% \font\ss=cmssdc10 scaled \magstep2
% \font\smallss=cmssdc10 scaled \magstep2
% \font\tinyss=cmssdc10 at 8pt
% \font\tiny=cmssq8 at 4pt
%
\font\twelverm=cmr12
\font\twelvebf=cmbx12
\font\twelveit=cmti12
\font\twelvesl=cmsl12
\font\twelvemi=cmmi12
\font\twelvett=cmtt12
\font\twelvesc=cmcsc10 at 12pt

\font\tenrm=cmr10
\font\tenbf=cmbx10
\font\tenit=cmti10
\font\tensl=cmsl10
\font\tenmi=cmmi10
\font\tentt=cmtt10
\font\tensc=cmcsc10

\font\eightrm=cmr8
\font\eightbf=cmbx8
\font\eightit=cmti8
\font\eightsl=cmsl8
\font\eightmi=cmmi8
\font\eighttt=cmtt8
\font\eightsc=cmcsc8

%
\newfam\scfam \def\sc{\fam\scfam\tensc} \textfont\scfam=\tensc

\def\bigtype{\let\rm=\twelverm \let\bf=\twelvebf
	\let\it=\twelveit \let\sl=\twelvesl \let\tt=\twelvett
	\let\sc=\twelwesc
	\baselineskip=14pt minus1pt
    	\rm
}
%
\def\normaltype{\let\rm=\tenrm \let\bf=\tenbf
	\let\it=\tenit \let\sl=\tensl \let\tt=\tentt
	\let\sc=\tensc
	\baselineskip=14pt minus1pt
    	\rm
}
%
\overfullrule=0pt
%
\def\smalltype{\let\rm=\eightrm \let\bf=\eightbf
	\let\it=\eightit \let\sl=\eightsl \let\tt=\eighttt
	\let\sc=\eightsc
	\setbox\strutbox=\hbox{\vrule height5pt depth2pt width0pt}
	\baselineskip=9.5pt minus.75pt
	\rm
}
\def\em{\sl}
%
\normaltype

%
\newdimen\mm@ \mm@=1truemm          % true measures
\newdimen\pt@ \pt@=1truept          % 
%
% Page size
\newdimen\mywidth@
\newdimen\myheight@
\mywidth@=170\mm@
\myheight@=247\mm@
\hsize=\mywidth@
\vsize=\myheight@
\voffset=0\mm@
\hoffset=-5\mm@
%
% Paragraphs
%\leftskip=0pt
%\rightskip=0pt plus2em		% Ragged right
%\spaceskip=.3333em \xspaceskip=.5em\relax
\parindent=0pt
%
%
\headline={\vbox to0pt{\vss
                 \boxit{\vbox{
                   \line{\sc\transname@\hfill 
			printed \number\year-\number\month-\number\day%
			/page \number\pageno}
                   %\line{\sc \hfil print date: 
				%\number\year-\number\month-\number\day)}
	}}}}
\footline={}
%
\def\newpage{\par\vfill\eject}
\catcode`_=\active
\let_=-
%
% Trans-macros
\def\transname#1{\def\transname@{#1}}
\def\bboxit@{\vbox\bgroup\hrule height0.2pt%
		\hbox\bgroup\vrule width0.2pt\kern3pt\vbox\bgroup\kern3pt}
\def\eboxit@{\kern3pt\egroup\kern3pt\vrule width0.2pt\egroup%
		\hrule height0.2pt\egroup}
\def\boxit#1{\bboxit@#1\eboxit@}
%
\def\UTTERANCE{\def\uleader@{\vbox{\hrule width1pt height.2pt\vskip.7ex}}%
	\let\ufont@=\sc\utterance@}
\def\utterance{\def\uleader@{\ }\let\ufont@=\rm\utterance@}
\def\utterance@{\hbox\bgroup
	\def\topic{\hbox to27mm\bgroup\leaders\hbox{\uleader@}\hfill}%\ufont@}
	\def\id{\egroup\hbox to15mm\bgroup\leaders\hbox{\uleader@}\hfill}
	\def\body{\egroup~\vtop\bgroup\raggedright\hyphenpenalty=1000
			\bf\hsize 125mm\noindent\strut}}
\def\endutterance{\strut\egroup\egroup\par}
%
\def\notes{\line\bgroup\hfil\bboxit@\hsize 85mm\raggedright
	\smalltype\tt\baselineskip=0pt minus 0.5pt}
\def\endnotes{\eboxit@\egroup}
%
\def\noteline{\hangindent=17mm\hangafter=1\strut}
\def\endnoteline{\strut\par}
%
%
\def\division{\par\vskip1ex\par\hrule height0.2pt\par\vskip2pt%
	\bgroup\smalltype\sl}
\def\enddivision{\egroup\par}
%
\def\keyed{\noteline}
\def\endkeyed{\endnoteline}
%
\def\database{\noteline}
\def\enddatabase{\endnoteline}
%
\def\parsed{\noteline}
\def\endparsed{\endnoteline}
%
\def\recognised{\noteline}
\def\endrecognised{\endnoteline}
%
\def\scenario{\newpage\bgroup\bigtype\bf Scenario: }
\def\endscenario{\egroup\par\vskip3ex\par}
%
\def\properties{\newpage\bgroup\smalltype}
\def\endproperties{\egroup}
%
% Misc
\def\uppercase@#1{\expandafter\uppercase@@#1\enduppercase@@}
\def\uppercase@@#1\enduppercase@@{\uppercase{#1}}
\def\\{\par\noindent\ignorespaces}
%
% Double columns
%
\newbox\partialpage@
\def\pageno@{\global\advance\count0by1
	\kern-13\pt@\hbox{\kern.45\mywidth@
			\vbox to0pt{\vskip12\mm@\bf\number\count0\vss}}
		}
%
\def\doublecolumns@{\begingroup
	\output={\global\setbox\partialpage@=\vbox{\unvbox255\bigskip}}\eject
	\output={\doublecolumnout@}\hsize=.47\mywidth@ \vsize=2.01\myheight@
}
\def\enddoublecolumns@{\eject\endgroup}
\def\doublecolumnout@{\splittopskip=\topskip \splitmaxdepth=\maxdepth
	\dimen0=\myheight@ \advance\dimen0 by-\ht\partialpage@
	\setbox0=\vsplit255 to\dimen0 \setbox2=\vsplit255 to\dimen0
	\shipout\vbox to\myheight@{
		\unvbox\partialpage@
		\wd0=\hsize \wd2=\hsize \hbox to\mywidth@{\box0\hfil\box2}
		\pageno@}
	\unvbox255 \penalty\outputpenalty
}
%
\count0=0
%
\newbox\partialcolumn@ \newdimen\columnskip@
\def\NyKolonne{%
	\output={\global\setbox\partialcolumn@=\vbox{\unvbox255\goodbreak}}\eject
	\output={\doublecolumnout@}
	\ifvoid\partialpage@
		\dimen0=1.02\myheight@
		\ifnum\ht\partialcolumn@>\dimen0
			\unvbox\partialcolumn@\vfill\eject
		\else   \dimen0=\myheight@ \advance\dimen0by-\ht\partialcolumn@
		 	\unvbox\partialcolumn@\vskip\dimen0\vfil\fi
	\else	\dimen0=\myheight@ \advance\dimen0by-\ht\partialpage@
		\ifnum\ht\partialcolumn@<\dimen0
			\advance\dimen0by-\ht\partialcolumn@
		 	\unvbox\partialcolumn@\vskip\dimen0\vfil
		\else\ifnum\ht\partialcolumn@<2\dimen0
			\unvbox\partialcolumn@\vfill%\eject
		\else   \setbox0=\vsplit\partialcolumn@ to\dimen0 
			\setbox2=\vsplit\partialcolumn@ to\dimen0
			\shipout\vbox to\myheight@{
				\unvbox\partialpage@
				\wd0=\hsize \wd2=\hsize 
				\hbox to\mywidth@{\box0\hfil\box2}
				\pageno@}
			\unvbox\partialcolumn@\NyKolonne
		\fi\fi
	\fi
}
%
% Header
\def\header@{\vbox to0pt{\hsize=\mywidth@\vss
	\par\noindent
	\hbox{\setbox0=\hbox{\ss~Nyhedsbrev \number@~}%
		\dimen0=.5\mywidth@ \advance\dimen0by-.5\wd0%
		\setbox1=\vbox{\ss\hrule width\dimen0\vskip.5ex}%
		\copy1\box0\box1}
	\bigbreak\noindent{\bigss COGNITIVE\kern.5emSCIENCE}
	\bigbreak\noindent
	\hbox to\mywidth@{\par\noindent\smallss
		Center for Kognitiv Informatik\hfil--\hfil
		Risø og RUC\hfil--\hfil
		\month@~\year@}
	\medbreak\hrule
	}
}
%	
%
% Editorial macros
%
\def\Nummer#1{\def\number@{#1}}
\def\Måned#1{\def\month@{#1}}
\def\År#1{\def\year@{#1}}
\def\Oplag#1{\def\oplag@{#1}}
%
\def\Redaktion#1\Af#2\SlutRedaktion{\def\edition@{#1}\def\editor@{#2}}%
%
%
\def\OmNyhedsbrevet{\vbox to20mm{\vfil\header@}
	\bigbreak\noindent{\bf Om nyhedsbrevet}\smallbreak\noindent
	\begingroup\sl
}
%
\def\Nyhedsbrev{\par\endgroup\bigbreak\noindent\doublecolumns@}%

\def\Indlæg{\bigbreak\begingroup
	\def\par{\endgroup\smallbreak\noindent}
	\noindent\bf\ignorespaces}
\def\Overskrift{\medbreak\begingroup
	\def\\{\par\par\vskip-\parskip\begingroup
		\def\par{\endgroup\par\noindent}
		\sl}
	\def\par{\endgroup\par\noindent}
	\noindent\sl}
\newif\ifaf@ \af@false
\def\Af{\begingroup\par\leftskip=0pt plus\mywidth@ minus\parindent  
	\parfillskip=0pt \rightskip=0pt \af@true\sl}	% Ragged left
\def\SlutIndlæg{\par\ifaf@\endgroup\fi\goodbreak}

\def\Navneliste{\begingroup
	\def\Sted{\bigbreak\noindent\begingroup\bf
			\def\par{\endgroup\par\noindent}} 
	\def\SlutSted{}
	\def\Projekt{\bigbreak\noindent}
	\def\SlutProjekt{\par}
	%\NyKolonne
	\smalltype \Sted Adresser\par
}
%
\def\SlutNyhedsbrev{\Indlæg Redaktionelt\par\edition@
	\Af \editor@
	\llap{\vbox to0pt{\kern2em\tiny Oplag: \oplag@\vss}}\\%
	\endgroup\endgroup\normaltype\enddoublecolumns@\end}
%
% Additional list macro
\newbox\Punktbox@
\def\Liste{\smallbreak\begingroup\leftskip=\parindent%
	\let\Titel=\sl%
	\def\Kern{\hskip0.5em  plus 2pt minus 1.5pt}
	\def\Punkt{\futurelet\next\Punkt@}%
	\def\Punkt@{\ifx"\next\let\next\Punkt@@%
	     		\else\setbox\Punktbox@=\hbox{$\eightmi\bullet$}%
				\let\next\Punkt@@@\fi%
			\next}%
     	\def\Punkt@@"##1"{\setbox\Punktbox@=\hbox{##1}\Punkt@@@}%
	\def\Punkt@@@{\smallbreak\noindent% 
		\dimen0=\parindent\advance\dimen0by-1em%
		\ifdim\wd\Punktbox@<\dimen0%
		   \llap{\hbox to\parindent{\hfil\box\Punktbox@1em\hfil}}%
		\else
		   \kern-\parindent\box\Punktbox@\Kern%
		\fi
		\ignorespaces}%
}%
%
\def\SlutListe{\par\endgroup\medbreak}
%
\hyphenation{
	kog-ni-tions-forsk-ning		kogni-tions-forsk-ningen
	type-teori			tale-tek-no-logi
	epi-so-disk			epi-so-der-nes
	epi-so-der
	ling-vist
%	sprog-tek-no-logi		dia-log-sy-s-tem-er
%	dia-log-sy-s-tem		forsk-ning
%	in-for-ma-tik-pro-gram		in-for-ma-tik-pro-gram-met
%%	græn-se-fla-der			græn-se-fla-der
%	tale-gen-kend-else		stu-de-ren-de
%	for-mel-le			% græn-se-fla-der
%	skabt				% vi-den-re-præ-sen-ta-tion
}
\tolerance=4000 % allow wider interwordspaces
%
% Verbatim and friends
% Adapted from Kristoffer Rose's xypicman
\def\FN@{\futurelet\next}
% XPPT xfixed option:
%
\newdimen\spacew@ \newdimen\tabw@
\newdimen\fflength@
\def^^L{\par}
{\catcode`\^^L=\active\catcode`\^^I=\active%
\catcode`\^^M=\active\catcode`\ \active%
\gdef\obeyspacing{\begingroup\parskip=\z@ plus1ex\frenchspacing%
\catcode`\^^M=\active\def^^M{\CR@}\catcode`\ \active\def {\SP@}%
\catcode`\^^L=\active\def^^L{\FF@}\catcode`\^^I=\active\def^^I{\TAB@}%
\setbox0=\hbox\bgroup}}
\def\endobeyspacing{\egroup\ifdim\z@<\wdz@\leavevmode\box0\fi\endgroup}
\def\CR@{\egroup \leavevmode\box0\par \setbox0=\hbox\bgroup}
\def\SP@{\kern\spacew@}
\def\FF@{\egroup
 \dimen@=\fflength@ \advance\dimen@-\wdz@
 \leavevmode\box0 \raise.7ex\hbox to\dimen@{\hrulefill}\setbox0=\hbox\bgroup}
\def\TAB@{\egroup \dimen@=\wdz@
 \divide\dimen@\tabw@ \multiply\dimen@\tabw@ \advance\dimen@\tabw@
 \wdz@=\dimen@ \leavevmode\box0 \setbox0=\hbox\bgroup}
\newcount\lineno@
\outer\def\lines{\ifmmode\expandafter\vcenter\fi\bgroup \lines@{}}
\outer\def\numberedlines{\ifmmode\expandafter\vcenter\fi\bgroup \lineno@=\z@
 \lines@{\advance\lineno@\@ne \llap{$\ssize\the\lineno@$\enspace}}}
\def\lines@#1{\parindent=\z@\parskip=\z@\everypar{#1}%
 \setbox0=\hbox{0}\spacew@=\wdz@ \setbox0=\hbox{NNNNNNNN}\tabw@=\wdz@
 \fflength@=\hsize \tabw@=0.1\hsize
 \def\CR@{\egroup \ifdim\z@<\wdz@ \noindent\box0\par \fi
  \let\CR@=\CRii@ \setbox0=\hbox\bgroup}%
 \def\CRii@{\egroup \noindent\box0\par \setbox0=\hbox\bgroup}%
 \obeyspacing}
\def\endlines{\endobeyspacing\egroup}
{\catcode`\^^M=\active \gdef\verbdummy@{^^M}}
\def\verb#1{\ifmmode\expandafter\hbox\fi\bgroup\kern\z@
 \count@=`#1\relax \catcode\count@=\active
 \uccode`\^^M=\count@
 \expandafter\uppercase\expandafter{\expandafter\def\verbdummy@
  {\egroup}}%
 \uccode`\^^M=\z@
 \verb@}
\def\verb@{\tt \frenchspacing \setbox0=\hbox{0}\spacew@=\wd0
 \catcode`\\=12 \catcode`\{=12 \catcode`\}=12 %
 \catcode`\$=12 \catcode`\_=12 \catcode`\^=12 %
 \catcode`\&=12 \catcode`\#=12 \catcode`\%=12 %
 \catcode`\~=12 \catcode`\@=12 }
\outer\def\verbatim{\ifmmode\expandafter\vcenter\fi\bgroup
 \verbatim@{\hbox to\parindent{\hss}}}
\outer\def\numberedverbatim{\ifmmode\expandafter\vcenter\fi\bgroup \lineno@=\z@
 \verbatim@{\advance\lineno@\@ne
  \hbox to\parindent{\hss$\ssize\the\lineno@$\enspace}}}
\def\verbatim@#1#2{%
 \setbox0=\hbox{\tt00000000}\tabw@=\wd0\setbox0=\hbox{0}\spacew@=\wd0
 \fflength@=\hsize \advance\fflength@-2\parindent
 \everypar{#1}%
 \def\CR@{\egroup \ifdim\z@<\wd0 \leavevmode\box0\par \fi
  \let\CR@=\CRii@ \FN@\CR@@}%
 \def\CRii@{\egroup \leavevmode\box0\par \FN@\CR@@}%
 \def\CR@@{\ifx\next#2\relax\expandafter\CR@@@
  \else\setbox0=\hbox\expandafter\bgroup\fi}%
 \def\CR@@@#2{\endgroup\egroup}\verb@\obeyspacing}
\def\endverbatim{}
\outer\def\verbatiminput#1 {%
 \ifhmode\par\fi \ifmmode\expandafter\vcenter\fi\bgroup
 \verbatim@{}\0\input#1 \relax\endobeyspacing\egroup }
\outer\def\numberedverbatiminput#1 {%
 \ifhmode\par\fi \ifmmode\expandafter\vcenter\fi\bgroup
 \lineno@=\z@
 \verbatim@{\advance\lineno@\@ne
  \hbox to\parindent{\hss$\ssize\the\lineno@$\enspace}}%
 \0\input#1 \relax\endobeyspacing\egroup }
%
\catcode`\@=\catcode@
%
%
\pageno=1