%%
%% This is file `physik.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% wind.dtx  (with options: `physik')
%% 
%% Copyleft 1997  Stefan Blochwitz, Andreas Tille
%% 
%% Benutzung auf eigene Gefahr
%% 




\csname @ifundefined\endcsname{Kopf}{}{\endinput}
\NeedsTeXFormat{LaTeX2e}
\usepackage{vmargin}
\setpapersize{A4}
\setmargins{30mm}{24mm}{160mm}{240mm}{12pt}{11mm}{0pt}{11mm}
\newif\ifsetdate
\setdatetrue
\newcommand{\rmG}{%
  %% \fontencoding nicht aendern (also normalerweise OT1 oder T1)
  \fontfamily{cmr}%  => cmr (OT1cmr) oder dcr (T1cmr)
  \fontseries{m}%
  \fontshape{n}%
  \fontsize{17.28}{22pt}%  = 10pt \magstep 3 = 17.28pt
  \selectfont}

\newif\ifepslogo
\epslogofalse
\newcommand{\SetEpsLogo}{\epslogotrue}
\DeclareOption{eps}{\SetEpsLogo}
\ProcessOptions
\newbox\mlulogobox
\newdimen\mlulogowd
\ifepslogo
\RequirePackage{epsfig}
\setbox\mlulogobox=\hbox{\epsfig{file=/usr/local/lib/texmf/tex/latex/wind/mlulogo.eps,height=30mm}}
\mlulogowd=\wd\mlulogobox
\else
\font\mlulogoa=mlulogoa at 36.135truept
\setbox\mlulogobox=\vbox{\hbox{%
\mlulogoa\char0\char1\char2\char3\char4}}
\mlulogowd=\wd\mlulogobox
\setbox\mlulogobox=\hbox{\vbox{\hsize=\mlulogowd
\parskip=0pt\offinterlineskip\parindent0pt
\hbox{\mlulogoa\char0\char1\char2\char3\char4}
\hbox{\mlulogoa\char5\char6\char7\char8\char9}
\hbox{\mlulogoa\char10\char11\char12\char13\char14}}}
\fi  % Ende Bm2Font-Version
\newcommand{\setmlulogo}{\parbox{\wd\mlulogobox}{\copy\mlulogobox}}

\newcommand{\den}{\ifnum\language=0{ }\else{ den }\fi} % Artikel zwischen Ort und Datum
\newcommand{\MLU}{{\rmG  MARTIN-LUTHER-UNIVERSIT\"AT}}
\newlength{\mlubreite}
\settowidth{\mlubreite}{\MLU}
\newlength{\ExpIIbr}
\settowidth{\ExpIIbr}{Fachbereich Physik}

\newcommand{\boxhoehe}[1]{%
 \def\test{#1}%
 \ifx\test\empty\vbox to 3.7cm\bgroup%
 \else\vbox to 7cm\bgroup\fi%
}
\newcommand{\anschr}[1]{\hb@xt@\mlubreite{\hss\hb@xt@\ExpIIbr{#1\hss}\hss}}
\newcommand{\Briefkopf}[3]{%
 \vspace*{5mm}
 \hb@xt@\hsize{%
  \hb@xt@\mlulogowd{%
   \hspace*{-4truemm}%
   \boxhoehe{#1}%
    \setmlulogo%
    \vss%
   \egroup%
   \hss%
  }%
  \hss%
  \hb@xt@\mlubreite{%
    \boxhoehe{#1}%
    \hb@xt@\mlubreite{\MLU}%
    \vbox to 5pt{ }%
    \hb@xt@\mlubreite{\hss \rmG HALLE--WITTENBERG \hss}%
    \vbox to 2pt{ }%
    \hb@xt@\mlubreite{\hss Mathematisch--Naturwissenschaftliche Fakult\"at \hss}%
    \vbox to 7pt{ }%
    \hb@xt@\mlubreite{\hss Fachbereich Physik\hss}%
    \vspace{1mm}%
    \def\test{#1}%
    \ifx\test\empty\hb@xt@\mlubreite{\hss Experimentelle Physik II\hss}\else%
     \anschr{Experimentelle Physik II}%
     \vspace{1mm}%
     \anschr{#1}%
     \anschr{Friedemann-Bach-Platz 6, }%
     \anschr{D -- 06108 Halle\,/\,Saale}%
     \vspace{1.5mm}%
     \anschr{Telefon: (+49 345) 55\,#2}%
     \anschr{Fax: (+49 345) 55\,27\,158}%
     \def\test{#3}
     \ifx\test\empty\relax\else\anschr{email: #3@physik.uni-halle.de}\fi%
    \fi%
    \vss
   \egroup%
  }%
 }%
 \backaddress{%
  \hbox{%
   \vbox{%
    \hbox{#1, Uni.\,Halle, Fachbereich Physik\hss}%
    \hbox{Friedemann-Bach-Platz 6, D\,--\,06108 Halle\,/\,Saale}%
 }}}
 \signature{#1}
 \place{Halle\,/\,Saale}
}
\newcommand{\FaxKopf}[5]{%
 \hb@xt@\hsize{\hss\hb@xt@ 165mm{%
  \hb@xt@\mlulogowd{%
   \hspace*{-4truemm}%
   \boxhoehe{#1}%
    \setmlulogo%
    \vss%
    \hb@xt@\mlulogowd{\hss\huge\bf FAX\hss}
   \egroup%
   \hss%
  }%
  \hss%
  \hb@xt@\mlubreite{%
    \boxhoehe{#1}%
    \hb@xt@\mlubreite{\MLU}%
    \vbox to 5pt{ }%
    \hb@xt@\mlubreite{\hss \rmG HALLE--WITTENBERG \hss}%
    \vbox to 2pt{ }%
    \hb@xt@\mlubreite{\hss Mathematisch--Naturwissenschaftliche Fakult\"at \hss}%
    \vbox to 7pt{ }%
    \hb@xt@\mlubreite{\hss Fachbereich Physik\hss}%
    \vspace{1mm}%
    \def\test{#1}%
    \ifx\test\empty\hb@xt@\mlubreite{\hss Experimentelle Physik II\hss}\else%
     \anschr{Experimentelle Physik II}%
     \vspace{1mm}%
     \anschr{#1}%
     \anschr{Friedemann-Bach-Platz 6, }%
     \anschr{D -- 06108 Halle\,/\,Saale}%
     \vspace{1.5mm}%
     \anschr{Telefon: (+49 345) 55\,#2}%
     \anschr{Fax: (+49 345) 55\,27\,158}%
     \def\test{#3}
     \ifx\test\empty\relax\else\anschr{email: #3@physik.uni-halle.de}\fi%
    \fi%
    \vss
   \egroup%
  }%
 }}%
 \vspace*{2cm}
 \hbox{\hb@xt@ 26mm{\large\bf Empf\"anger:\hss}\parbox[t]{100mm}{#4}}\par\bigskip
 \hbox{\hb@xt@ 26mm{\large\bf Fax:      \hss}\parbox[t]{100mm}{#5}}\par
 \vspace*{1cm}
}

\newcommand{\Kopf}[3]{\address{\Briefkopf#1#2#3}}
\newcommand{\MakeKopf}[4]{%
   \expandafter\newcommand\expandafter{\csname #1\endcsname}{\Kopf{{#2}}{{#3}}{{#4}}}
   \expandafter\newcommand\expandafter{\csname Fax#1\endcsname}[2]{\FaxKopf{#2}{#3}{#4}{##1}{##2}}
}
\MakeKopf{Andreas}{Andreas Tille}{25\,548}{tille}
\MakeKopf{Beige}{Prof.~Dr.~habil.~H.~Beige}{25\,540}{beige}
\MakeKopf{RalfPeter}{Ralf-Peter Kapsch}{25\,548}{kapsch}
\MakeKopf{Egbert}{Egbert Fuchs}{25\,549}{fuchs}
\MakeKopf{Ralf}{Ralf Steinhausen}{25\,547}{steinhausen}
\MakeKopf{Struppi}{Dr.~Ulrich Straube}{25\,545}{ustraube}
\MakeKopf{amueck}{Andreas Mück}{25\,550}{amueck}
\MakeKopf{Hohlkopf}{}{}{}
\newcommand{\atwintic}{%
    \vbox to 0pt{%  Strich
     \rule{0pt}{81.1truemm}% 62.5truemm > 80.0truemm
     \hb@xt@ 0pt{\hspace*{-24truemm}\vbox{\hrule width 7truemm}\hss}%
     \vss}\nointerlineskip
    \vbox to 0pt{\rule{0pt}{124.6truemm}% leer
     \hb@xt@ 0pt{\vbox{\hrule width 0pt}\hss}%
     \vss}\nointerlineskip
    \vbox to 0pt{\rule{0pt}{186.1truemm}% leer
     \hb@xt@ 0pt{\vbox{\hrule width 0pt}\hss}%
     \vss}\nointerlineskip
}
\newif\ifonewindowtic
\onewindowtictrue
\@ifundefined{windowrules}{}{%
   \let\oldka@db@tswindowtics=\ka@db@tswindowtics
   \renewcommand{\ka@db@tswindowtics}{\ifonewindowtic\atwintic\relax\else
                                                     \oldka@db@tswindowtics\fi}
}

\endinput
%%
%% End of file `physik.sty'.
