%% Herstellung von Folien zur Veranschaulichung von Interferenzerscheinungen
%% Beschreibung siehe unten
%% Freitag,  6. Juli 2001,  10:04 Uhr
%% Peter Kindermann
\documentclass[12pt,a4paper]{scrartcl}
\usepackage{typearea}
\areaset[1cm]
{19cm}{26cm} 
\usepackage{pstricks}
\usepackage{multido}
\usepackage{calc}
%%<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
%% Definierte Variablen
%%<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
\newcounter{einheit}
\newcounter{breite}
\newcounter{hoehe}
\newcounter{mittelpunkty}
\newcounter{mittelpunktyzwei}
\newcounter{anzahlkreise}
%%<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

\begin{document}

%%
%% Definition des Makros
%%
\newcommand{\interferenzkreise}[2]{
  \psset{unit=#1mm}
  \psset{linewidth=1}
  \setcounter{breite}{160/#1}
  \setcounter{hoehe}{260/#1}
  \setcounter{mittelpunkty}{130/#1}
  \setcounter{mittelpunktyzwei}{\themittelpunkty+#2}
  \setcounter{anzahlkreise}{110/#1} %90/#1
  \begin{figure}[p]
    \centering
    \begin{pspicture*} (-5,0)(\thebreite,\thehoehe) 
      %% pspicture*  schneidet außerhalb der Umgebung alles weg
      \psline (-5,\themittelpunkty) (0,\themittelpunkty) \psline (0,0)
      (0,\thehoehe)
      \multido{\i=2+2}{\theanzahlkreise}{%
        \psline (-5,\themittelpunktyzwei) (0,\themittelpunktyzwei)
        %%   \pscircle (0,\themittelpunkty){\i}
        %%   \pscircle (0,\themittelpunktyzwei){\i}
        \pswedge (0,\themittelpunkty) {\i}{-90}{90} % erzeugt Halbkreise
        \pswedge (0,\themittelpunktyzwei) {\i}{-90}{90}
        }
    \end{pspicture*}
  \end{figure}
  \newpage
  }


%%% Hier könnte man auch mit dem \multido-Befehl arbeiten, ich habe aber
%%% die Erfahrung gemacht, dass es dann schnell zu einem "TeX capacity
%%% exceeded." kommen kann.

%%% Benutzung des Makros:
%%% ---------------------
%%% \interferenzkreise{liniendicke in mm}{Verschiebung der Mittelpunkte
%%%                    der konzentrischen Kreissysteme gegeneinander;
%%%  in mm}

%%% Beispiel: Liniendicke 2mm, keine Interferenzfiguren; geeignet für
%%%  Folienerstellung 
%%% \interferenzkreise{2}{0}

%%% \multido{\i=4+1}{6}{ 
%%%    \interferenzkreise{2}{\i}
%%%  }


% \interferenzkreise{2}{0}
% \interferenzkreise{2}{1}
% \interferenzkreise{2}{2}
% \interferenzkreise{2}{3}
% \interferenzkreise{2}{4}
% \interferenzkreise{2}{5}
% \interferenzkreise{2}{6}
% \interferenzkreise{2}{7}
% \interferenzkreise{2}{8}
% \interferenzkreise{2}{9}
% \interferenzkreise{2}{10}
% \interferenzkreise{2}{11}
% \interferenzkreise{2}{12}
% \interferenzkreise{2}{13}
% \interferenzkreise{2}{14}
% \interferenzkreise{2}{15}

\end{document}