diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/pictex/picmore.tex')
| -rw-r--r-- | Master/texmf-dist/tex/generic/pictex/picmore.tex | 76 |
1 files changed, 76 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/pictex/picmore.tex b/Master/texmf-dist/tex/generic/pictex/picmore.tex new file mode 100644 index 00000000000..1bda81e6ae3 --- /dev/null +++ b/Master/texmf-dist/tex/generic/pictex/picmore.tex @@ -0,0 +1,76 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% PiCTeX Erweiterungen von Andreas Schrell % +% Windhoevel 2 % +% 5600 Wuppertal 2 % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Version 1.0 29.10.1989 % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% Befehle fr 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 + |