%% Herstellung von Folien zur Veranschaulichung von Interferenzerscheinungen
%% Beschreibung siehe unten
%% Freitag,  6. Juli 2001,  11:14 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{haelftederhoehe}
\newcounter{i}
\newcounter{yabschnitt}
\newcounter{linienanzahl}
\newcounter{unteregrenze}
%%<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
%%
%% Definition des Makros
%%
\newcommand{\interferenzgeraden}[4]{
  \psset{unit=1mm}
  \psset{linewidth=#3mm}
  \setcounter{breite}{#1}
  \setcounter{hoehe}{#2}
  \setcounter{haelftederhoehe}{#2/2}
  \setcounter{linienanzahl}{#2/#4 +1}
  \setcounter{unteregrenze}{-\thehaelftederhoehe}
  \begin{figure}[p]
    \vfill
    \centering
    \begin{pspicture*} (0,0)(\thebreite,\thehoehe)
      \multido{\i=\theunteregrenze+#4}{\thelinienanzahl}{%
        \setcounter{yabschnitt}{\thehaelftederhoehe+\i}
        \psline (\thebreite,\thehaelftederhoehe) (0,\theyabschnitt)
        \psline (0,\thehaelftederhoehe) (\thebreite,\theyabschnitt)
        }
      \psline (0,0) (0,#2)
      \psline (\thebreite,0) (\thebreite,#2)
    \end{pspicture*}
  \end{figure}
  \newpage
  }
\begin{document}
%% \interferenzgeraden{breite}{hoehe}{linienbreite}{y-schrittweite}
%% Breite, Hoehe, Linienbreite, y-Schrittweite  (alles in mm)
\interferenzgeraden{180}{100}{1}{5}
                                
% \interferenzgeraden{180}{140}{1}{5}
% \interferenzgeraden{180}{120}{1}{4}
% \interferenzgeraden{200}{100}{0.5}{2}
% \interferenzgeraden{200}{160}{0.5}{2}
\end{document}
