%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% PiCTeX Erweiterungen von Andreas Schrell  %
%                          Windhoevel 2     %
%                          5600 Wuppertal 2 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Version 1.0                    29.10.1989 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Befehle f�r die Benutzer:
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% \setsignal            zur Benutzung wie \setlinear        %
%                       \plot erzeugt danach Signalverlaeufe%
%                       fuer Impulsdiagramme. Es werden TeX-%
%                       Linien benutzt, daher schneller als %
%                       \plot mit \setlinear                %
% Bsp:                                                      %
% \setsignal \plot 0 1  1 0  2 1  4 0  7 1  8 0 /           %
% erzeugt                                                   %
% 0 1 2 3 4 5 6 7 8                                         %
% __   ___       _                                          %
%   ! !   !     ! !                                         %
%   !_!   !_____! !                                         %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% \setmsignal           zur Benutzung wie \setlinear        %
%                       \plot erzeugt danach Signalverlaeufe%
%                       fuer Impulsdiagramme. Es werden TeX-%
%                       Linien benutzt, daher schneller als %
%                       \plot mit \setlinear                %
% Bsp:                                                      %
% \setmsignal \plot 0 1 1  2 2  4 3  6 0  7 1 1      %
% erzeugt                                                   %
% 0 1 2 3 4 5 6 7 8                                         %
%      ---                                                  %
%     !   !                                                 %
%    -    !                                                 %
% --!     !    -                                            %
%         !___!                                             %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\catcode`!=11

\def\setsignal{%
 \let\!drawcurve=\!scurve}
 
\def\!scurve #1 #2 {%
 \edef\!hxS{#1}%
 \edef\!hyS{#2}%
 \!sjoin}
 
\def\!sjoin#1 #2 {%
 \putrule from {\!hxS} {\!hyS} to {#1} {\!hyS}
 \putrule from {#1} {\!hyS} to {#1} {#2}
 \edef\!hxS{#1}%
 \edef\!hyS{#2}%
 \!ifnextchar/{\!finish}{\!sjoin}}


\def\setmsignal{%
 \let\!drawcurve=\!smcurve}
 
\def\!smcurve #1 #2 #3 {%
 \edef\!hxS{#2}%
 \edef\!hyS{#3}%
 \putrule from {#1} {\!hyS} to {\!hxS} {\!hyS}
 \!smjoin}
 
\def\!smjoin#1 #2 {%
 \putrule from {\!hxS} {\!hyS} to {\!hxS} {#2}
 \putrule from {\!hxS} {#2} to {#1} {#2}
 \edef\!hxS{#1}%
 \edef\!hyS{#2}%
 \!ifnextchar/{\!finish}{\!smjoin}}

\catcode`!=12