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

\csname @ifundefined\endcsname{maszbalken}{}{\endinput}
\NeedsTeXFormat{LaTeX2e}
\newcommand{\maszbalken}[1]{\hbox{\vrule height 3pt depth 3pt}%
                  \hb@xt@ #1{\hrulefill}%
                  \hbox{\vrule height 3pt depth 3pt}}
\newcommand{\masz}[2]{\setbox0=\hbox{\maszbalken{#1}}\vbox{\offinterlineskip%
              \hb@xt@\wd0{\hfil #2\hfil}\box0}}
\newcommand{\doublemasz}[2]{\setbox0=\hbox{\maszbalken{#1}}\dimen0=\wd0%
                    \setbox0=\hbox{\vbox{\offinterlineskip%
                             \hb@xt@ \dimen0{\hfil #2\hfil}%
                             \hbox{\maszbalken{#1}}}}%
                    \hbox{\copy0\kern-.4pt\box0}}
\newcommand{\winkel}[1]{\dimen0=#1\advance\dimen0 by 0.4pt%
              \raise1.35ex\hbox{\vrule height \dimen0%
              \raise#1\hb@xt@ #1{\hrulefill}}%
              \dimen0=0pt}
\newcommand{\rahmen}[2]{%
   \vbox{\hrule%
         \hbox%
           {\vrule%
            \hskip#1%
            \vbox{\vskip#1\relax%
                  #2%
                  \vskip#1}%
            \hskip#1%
            \vrule}%
         \hrule}}
\newcommand{\BaseBlock}[5]{%           %  #1 Versatz der Senkrechten
   \vbox{\setbox0=\hbox{#5}%           %  #2 Strichst\"arke Senkrechte
         \offinterlineskip             %  #3 Versatz der Horizontalen
         \hbox{\copy0                  %  #4 Strichst\"arke der Horizontale
              \dimen0=\ht0             %  #5 Information
              \advance\dimen0 by -#1
              \vrule height \dimen0 width#2}%
         \hbox{\hskip#3\dimen0=\wd0
              \advance\dimen0 by -#3
              \advance\dimen0 by #2
              \vrule height #4 width \dimen0}%
         }}%
\newcommand{\LoopBlock}[2]{%
\begingroup%
  \dimen2=0.4pt%                       % Inkrement / Linienabstand
  \def\doblock{%
    \setbox2\BaseBlock%
        {\count1\dimen2}{0.4pt}{\count1\dimen2}{0.4pt}{\box2}}%
  \setbox2=\vbox{#1}%                  % Anfangsinformation
  \count1=0%
  \loop%
      \advance\count1 by 1%
      \doblock%
      \ifnum\count1<#2%
  \repeat%
  \box2%
\endgroup}
\newcommand{\Block}[1]{\LoopBlock{#1}{10}}
\newcommand{\LoopGrauBlock}[2]{%
\begingroup%
  \dimen2=0.4pt%                       % Inkrement / Linienabstand
  \def\leer{\setbox2=\vbox%            % <<< f\"ur Grauschattierung
               {\hbox{\box2\hskip\dimen2}\vskip\dimen2}}% <<< ||
  \def\doblock{%
    \setbox2\BaseBlock%
        {\count1\dimen2}{0.4pt}{\count1\dimen2}{0.4pt}{\box2}}%
  \setbox2=\vbox{#1}%                  % Anfangsinformation
  \count1=0%
  \loop%
      \advance\count1 by 2%            % "2" f\"ur Schattierung sonst 1
      \leer%                           % nur f\"ur Grauschattierung
      \doblock%
      \ifnum\count1<#2%
  \repeat%
  \box2%
\endgroup}
\newcommand{\GrauBlock}[1]{\LoopGrauBlock{#1}{10}}
\newcommand{\windrahmen}[2]{\setbox0=\hbox{#2}\rahmen{#1}{\hsize=\wd0\box0}}
\newcommand{\windBlock}[1]{\setbox1=\hbox{\windrahmen{2mm}{#1}}%
                           \Block{\hsize=\wd1\box1}}
\newcommand{\windGrauBlock}[1]{\setbox0=\hbox{\windrahmen{2mm}{#1}}%
                               \GrauBlock{\hsize=\wd0\box0}}
\newcommand{\PARstart}[2]{%
    \begingroup\def\par{\endgraf\endgroup\lineskiplimit=0pt}
    \setbox2=\hbox{\uppercase{#2} }\newdimen\tmpht \tmpht \ht2
    \advance\tmpht by \baselineskip\font\hhuge=cmr10 at \tmpht
    \setbox1=\hbox{{\hhuge #1}}
    \count7=\tmpht \count8=\ht1\divide\count8 by 1000 \divide\count7 by\count8
    \tmpht=.001\tmpht\multiply\tmpht by \count7\font\hhuge=cmr10 at \tmpht
    \setbox1=\hbox{{\hhuge #1}} \noindent \hangindent1.05\wd1
    \hangafter=-2 {\hskip-\hangindent \lower1\ht1\hbox{\raise1.0\ht2\copy1}%
    \kern-0\wd1}\copy2\lineskiplimit=-1000pt}




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