diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/reotex')
-rwxr-xr-x | Master/texmf-dist/tex/latex/reotex/reotex.sty | 938 |
1 files changed, 938 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/reotex/reotex.sty b/Master/texmf-dist/tex/latex/reotex/reotex.sty new file mode 100755 index 00000000000..f8ebfa1ad75 --- /dev/null +++ b/Master/texmf-dist/tex/latex/reotex/reotex.sty @@ -0,0 +1,938 @@ +% Defintion of Reo Channels and other utilities to design Reo Circuits +% using the pgf (tikz) by Till Tantau (pgf manual for v2.10) +% +% author: Nuno Oliveira +% version: 1.0 +% +% This package may be distributed and modified to better suit the user's +% interests. Please, keep the credits to the original author (but you may +% add yours) +% +% License: LaTeX Project Public License and/or GNU Public License. +% + + +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{reotex}[2012/01/05 A Tex way to draw reo circuits!] + +\RequirePackage{ifthen} +\RequirePackage{tikz} +\RequirePackage{verbatim} +\usetikzlibrary{arrows,% + decorations.pathmorphing,% + decorations.shapes,% + calc% + } + +%makes @ as a normal letter and not as a special latex character... +\makeatletter + +%%%%%% VARIABLES %%%%%%%%%%% + +\newdimen\rt@arrowsize +\newdimen\rt@width +\newdimen\rt@xa +\newdimen\rt@xb +\newdimen\rt@xc +\newdimen\rt@ya +\newdimen\rt@yb +\newdimen\rt@yc + +\newcommand{\rt@arrowtip}{-stealth} + +%%%%%%%%%%%% BASE COMMANDS %%%%%%%%%%%% + + +\newcommand{\rt@midpoints}[4]{% + \pgfextractx{\rt@xa}{\pgfpointlineattime{#1}{\pgfpointanchor{#3}{center}}{\pgfpointanchor{#4}{center}}} + \pgfextracty{\rt@ya}{\pgfpointlineattime{#1}{\pgfpointanchor{#3}{center}}{\pgfpointanchor{#4}{center}}} + \pgfextractx{\rt@xb}{\pgfpointlineattime{#2}{\pgfpointanchor{#3}{center}}{\pgfpointanchor{#4}{center}}} + \pgfextracty{\rt@yb}{\pgfpointlineattime{#2}{\pgfpointanchor{#3}{center}}{\pgfpointanchor{#4}{center}}} +} + + +\newcommand{\rt@middlepoint}[2]{% + \pgfextractx{\rt@xc}{\pgfpointlineattime{.5}{\pgfpointanchor{#1}{center}}{\pgfpointanchor{#2}{center}}} + \pgfextracty{\rt@yc}{\pgfpointlineattime{.5}{\pgfpointanchor{#1}{center}}{\pgfpointanchor{#2}{center}}} +} + + + +%%%%%%%% TIKZ DEFINITIONS %%%%%%%%%%%%%%% + +\tikzset{cross/.style={path picture={ + \draw[black] + (path picture bounding box.south east) -- + (path picture bounding box.north west) + (path picture bounding box.south west) -- + (path picture bounding box.north east); + } + } +} + + +%%%%%%%%%%%%%%%% SYNCHRONOUS CHANNELS %%%%%%%%%% + + + + +% Synchronous + +\newcommand{\sync}{% + \@ifstar\sync@noarrow\sync@arrow +} + + +\newcommand{\sync@arrow}[3]{% + \draw[\rt@arrowtip] #1 to #3 #2; +} + +\newcommand{\sync@noarrow}[3]{% + \draw #1 to #3 #2; +} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + +% Lossy Synchronous + +\newcommand{\lossysync}{% + \@ifstar\lossysync@noarrow\lossysync@arrow +} + +\newcommand{\lossysync@arrow}[3]{% + \draw[\rt@arrowtip,dashed] #1 to #3 #2; +} + +\newcommand{\lossysync@noarrow}[3]{% + \draw[dashed] #1 to #3 #2; +} + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + + +% Synchronous Drain +\newcommand{\syncdrain}{% + \@ifstar \syncdrain@arrow \syncdrain@arrow +} + +\newcommand{\syncdrain@arrow}[3]{% + \draw[inwards-inwards, shorten >=-0.5mm, shorten <=-0.5mm] #1 to #3 #2; +} + +%\newcommand{\syncdrain@noarrow}[3]{% +% \draw[inwards-inwards] #1 to #2 #3; +%} + + +% Synchronous Spout +\newcommand{\syncspout}{% + \@ifstar \syncspout@arrow \syncspout@arrow +} +\newcommand{\syncspout@arrow}[3]{% + \draw[outwards-outwards,shorten >=-0.5mm, shorten <=-0.5mm] #1 to #3 #2; +} +%\newcommand{\syncspout@noarrow}[3]{% +% \draw[outwards-outwards,] #1 to #2 #3; +%} + + + + + + + +%Filter + +\newcommand{\filter}{% + \@ifstar\filter@noarrow\filter@arrow +} + +\newcommand{\filter@arrow}[3]{% +\node (rt@p1) at #1 {} ; +\node (rt@p2) at #2 {} ; + +\rt@midpoints{0.25}{0.75}{rt@p1}{rt@p2} + +\draw[thin] #1 to (\rt@xa,\rt@ya); +\draw decorate [decoration=zigzag] {(\rt@xa,\rt@ya) -- #3 (\rt@xb,\rt@yb)}; +\draw[\rt@arrowtip, thin] (\rt@xb,\rt@yb) to #2; + +} + + +\newcommand{\filter@noarrow}[3]{% +\node (rt@p1) at #1 {} ; +\node (rt@p2) at #2 {} ; + +\rt@midpoints{0.25}{0.75}{rt@p1}{rt@p2} + +\draw[thin] #1 to (\rt@xa,\rt@ya); +\draw decorate [decoration=zigzag] {(\rt@xa,\rt@ya) -- #3 (\rt@xb,\rt@yb)}; +\draw[thin] (\rt@xb,\rt@yb) to #2; + +} + + +%%%%%%%%%%%%%%%%%%%%%%%%%%% + + + + +%%%%%%%% ASYNCHRONOUS CHANNELS %%%%%%%%%%%% + +%Fifo1 (Empty) + +\newcommand{\fifoe}{% + \@ifstar\fifoe@noarrow\fifoe@arrow +} + +\newcommand{\fifoe@arrow}[3]{% +\node (rt@p1) at #1 {} ; +\node (rt@p2) at #2 {} ; + +\rt@midpoints{0.30}{0.65}{rt@p1}{rt@p2} +\pgfmathsetlength{\rt@width}{sqrt((\rt@xa - \rt@xb)^2 + (\rt@ya - \rt@yb)^2)} +%, shorten <=1mm +\draw[thin] #1 to (\rt@xa,\rt@ya); +\draw decorate[decoration={shape backgrounds, shape=rectangle, shape height=7pt, shape width=\rt@width, shape evenly spread=1}] {(\rt@xa,\rt@ya) -- (\rt@xb,\rt@yb)}; +\draw[\rt@arrowtip, thin] (\rt@xb,\rt@yb) to #3 #2; +} + + +\newcommand{\fifoe@noarrow}[3]{% +\node (rt@p1) at #1 {} ; +\node (rt@p2) at #2 {} ; + +\rt@midpoints{0.30}{0.70}{rt@p1}{rt@p2} +\pgfmathsetlength{\rt@width}{sqrt((\rt@xa - \rt@xb)^2 + (\rt@ya - \rt@yb)^2)} + +\draw[thin] #1 to (\rt@xa,\rt@ya); +\draw decorate[decoration={shape backgrounds, shape=rectangle, shape height=8pt, shape width=\rt@width, shape evenly spread=1}] {(\rt@xa,\rt@ya) -- (\rt@xb,\rt@yb)}; +\draw[thin] (\rt@xb,\rt@yb) to #3 #2; +} + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + +%Fifo1 (Full) + +\newcommand{\fifof}{% + \@ifstar\fifof@noarrow\fifof@arrow +} + +\newcommand{\fifof@arrow}[3]{% +\node (rt@p1) at #1 {} ; +\node (rt@p2) at #2 {} ; + +\rt@midpoints{0.30}{0.65}{rt@p1}{rt@p2} + +\pgfmathsetlength{\rt@width}{sqrt((\rt@xa - \rt@xb)^2 + (\rt@ya - \rt@yb)^2)} + +\draw[thin] #1 to (\rt@xa,\rt@ya); +\draw decorate[decoration={shape backgrounds, shape=rectangle, shape height=7pt, shape width=\rt@width, shape evenly spread=1}] {(\rt@xa,\rt@ya) -- node[sloped] {$\bullet$} (\rt@xb,\rt@yb)}; +\draw[\rt@arrowtip, thin] (\rt@xb,\rt@yb) to #3 #2; +} + + +\newcommand{\fifof@noarrow}[3]{% +\node (rt@p1) at #1 {} ; +\node (rt@p2) at #2 {} ; + +\rt@midpoints{0.30}{0.70}{rt@p1}{rt@p2} + +\pgfmathsetlength{\rt@width}{sqrt((\rt@xa - \rt@xb)^2 + (\rt@ya - \rt@yb)^2)} + +\draw[thin] #1 to (\rt@xa,\rt@ya); +\draw decorate[decoration={shape backgrounds, shape=rectangle, shape height=7pt, shape width=\rt@width, shape evenly spread=1}] {(\rt@xa,\rt@ya) -- node[sloped] {$\bullet$} (\rt@xb,\rt@yb)}; +\draw[thin] (\rt@xb,\rt@yb) to #3 #2; +} + + + +%AsyncDrain +\newcommand{\asyncdrain}{% + \@ifstar \asyncdrain@arrow \asyncdrain@arrow +} + +\newcommand{\asyncdrain@arrow}[3]{% + +\coordinate (rt@p1) at ($#1!.47!#2$); +\coordinate (rt@p2) at ($(rt@p1)!6pt!90:#1$); +\coordinate (rt@p3) at ($(rt@p1)!6pt!-90:#1$); + +\coordinate (rt@p4) at ($#1!.53!#2$); +\coordinate (rt@p5) at ($(rt@p4)!6pt!90:#1$); +\coordinate (rt@p6) at ($(rt@p4)!6pt!-90:#1$); + +\draw[inwards-inwards, thin, shorten >=-0.5mm, shorten <=-0.5mm] + #1 to #3 #2; +\draw[thin] (rt@p1) -- (rt@p2); +\draw[thin] (rt@p1) -- (rt@p3); +\draw[thin] (rt@p4) -- (rt@p5); +\draw[thin] (rt@p4) -- (rt@p6); +} + + +%\newcommand{\asyncdrain@noarrow}[3]{% + +%\coordinate (rt@p1) at ($#1!.47!#2$); +%\coordinate (rt@p2) at ($(rt@p1)!6pt!90:#1$); +%\coordinate (rt@p3) at ($(rt@p1)!6pt!-90:#1$); + +%\coordinate (rt@p4) at ($#1!.53!#2$); +%\coordinate (rt@p5) at ($(rt@p4)!6pt!90:#1$); +%\coordinate (rt@p6) at ($(rt@p4)!6pt!-90:#1$); + +%\draw[inwards-inwards, thin] +% #1 to #3 #2; +%\draw[thin] (rt@p1) -- (rt@p2); +%\draw[thin] (rt@p1) -- (rt@p3); +%\draw[thin] (rt@p4) -- (rt@p5); +%\draw[thin] (rt@p4) -- (rt@p6); +%} + + + +%AsyncSpout + +\newcommand{\asyncspout}{% + \@ifstar \asyncspout@arrow \asyncspout@arrow +} + +\newcommand{\asyncspout@arrow}[3]{% +\coordinate (rt@p1) at ($#1!.47!#2$); +\coordinate (rt@p2) at ($(rt@p1)!6pt!90:#1$); +\coordinate (rt@p3) at ($(rt@p1)!6pt!-90:#1$); + +\coordinate (rt@p4) at ($#1!.53!#2$); +\coordinate (rt@p5) at ($(rt@p4)!6pt!90:#1$); +\coordinate (rt@p6) at ($(rt@p4)!6pt!-90:#1$); + +\draw[outwards-outwards, thin,shorten >=-0.5mm, shorten <=-0.5mm] + #1 to #3 #2; +\draw[thin] (rt@p1) -- (rt@p2); +\draw[thin] (rt@p1) -- (rt@p3); +\draw[thin] (rt@p4) -- (rt@p5); +\draw[thin] (rt@p4) -- (rt@p6); +} + +%\newcommand{\asyncspout@noarrow}[3]{% +%\coordinate (rt@p1) at ($#1!.47!#2$); +%\coordinate (rt@p2) at ($(rt@p1)!6pt!90:#1$); +%\coordinate (rt@p3) at ($(rt@p1)!6pt!-90:#1$); + +%\coordinate (rt@p4) at ($#1!.53!#2$); +%\coordinate (rt@p5) at ($(rt@p4)!6pt!90:#1$); +%\coordinate (rt@p6) at ($(rt@p4)!6pt!-90:#1$); + +%\draw[outwards-outwards, thin] +% #1 to #3 #2; +%\draw[thin] (rt@p1) -- (rt@p2); +%\draw[thin] (rt@p1) -- (rt@p3); +%\draw[thin] (rt@p4) -- (rt@p5); +%\draw[thin] (rt@p4) -- (rt@p6); +%} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + + +%FifoN + +\newcommand{\fifon}{% + \@ifstar\fifon@noarrow\fifon@arrow +} + +\newcommand{\fifon@arrow}[3]{% + +\node (rt@p1) at #1 {} ; +\node (rt@p2) at #2 {} ; + +\rt@midpoints{0.30}{0.65}{rt@p1}{rt@p2} + +\pgfmathsetlength{\rt@width}{sqrt((\rt@xa - \rt@xb)^2 + (\rt@ya - \rt@yb)^2)} + +\draw[thin] #1 to (\rt@xa,\rt@ya); +\draw decorate[decoration={shape backgrounds, shape=rectangle, shape height=8pt, shape width=\rt@width, shape evenly spread=1}] {(\rt@xa,\rt@ya) -- node[sloped] {\tiny 1$|$...$|$n} (\rt@xb,\rt@yb)}; +\draw[\rt@arrowtip, thin] (\rt@xb,\rt@yb) to #3 #2; +} + + + +\newcommand{\fifon@noarrow}[3]{% + +\node (rt@p1) at #1 {} ; +\node (rt@p2) at #2 {} ; + +\rt@midpoints{0.30}{0.70}{rt@p1}{rt@p2} + +\pgfmathsetlength{\rt@width}{sqrt((\rt@xa - \rt@xb)^2 + (\rt@ya - \rt@yb)^2)} + +\draw[thin] #1 to (\rt@xa,\rt@ya); +\draw decorate[decoration={shape backgrounds, shape=rectangle, shape height=8pt, shape width=\rt@width, shape evenly spread=1}] {(\rt@xa,\rt@ya) -- node[sloped] {\tiny 1$|$...$|$n} (\rt@xb,\rt@yb)}; +\draw[thin] (\rt@xb,\rt@yb) to #3 #2; +} + + +%%%%%%%%%%%%%%%%%%%%%%%%% + + + +% Shift Fifo n + +\newcommand{\shiftfifon}{% + \@ifstar\shiftfifon@noarrow\shiftfifon@arrow +} + +\newcommand{\shiftfifon@arrow}[3]{% + +\node (rt@p1) at #1 {} ; +\node (rt@p2) at #2 {} ; + +\rt@midpoints{0.30}{0.65}{rt@p1}{rt@p2} + +\pgfmathsetlength{\rt@width}{sqrt((\rt@xa - \rt@xb)^2 + (\rt@ya - \rt@yb)^2)} + +\draw[thin] #1 to (\rt@xa,\rt@ya); +\draw[dashed] decorate[decoration={shape backgrounds, shape=rectangle, shape height=8pt, shape width=\rt@width, shape evenly spread=1}] {(\rt@xa,\rt@ya) -- node[sloped] {\tiny 1$|$...$|$n} (\rt@xb,\rt@yb)}; +\draw[\rt@arrowtip, thin, dashed] (\rt@xb,\rt@yb) to #3 #2; +} + + +\newcommand{\shiftfifon@noarrow}[3]{% + +\node (rt@p1) at #1 {} ; +\node (rt@p2) at #2 {} ; + +\rt@midpoints{0.30}{0.70}{rt@p1}{rt@p2} + +\pgfmathsetlength{\rt@width}{sqrt((\rt@xa - \rt@xb)^2 + (\rt@ya - \rt@yb)^2)} + +\draw[thin] #1 to (\rt@xa,\rt@ya); +\draw[dashed] decorate[decoration={shape backgrounds, shape=rectangle, shape height=8pt, shape width=\rt@width, shape evenly spread=1}] {(\rt@xa,\rt@ya) -- node[sloped] {\tiny 1$|$...$|$n} (\rt@xb,\rt@yb)}; +\draw[thin, dashed] (\rt@xb,\rt@yb) to #3 #2; +} + +%%%%%%%%%%%%%%%%%%%%%%%%%%% + + + +% Lossy Fifo n + +\newcommand{\lossyfifon}{% + \@ifstar\lossyfifon@noarrow\lossyfifon@arrow +} + + +\newcommand{\lossyfifon@arrow}[3]{% + +\node (rt@p1) at #1 {} ; +\node (rt@p2) at #2 {} ; + +\rt@midpoints{0.30}{0.65}{rt@p1}{rt@p2} + +\pgfmathsetlength{\rt@width}{sqrt((\rt@xa - \rt@xb)^2 + (\rt@ya - \rt@yb)^2)} + +\draw[dashed, thin] #1 to (\rt@xa,\rt@ya); +\draw[dashed] decorate[decoration={shape backgrounds, shape=rectangle, shape height=8pt, shape width=\rt@width, shape evenly spread=1}] {(\rt@xa,\rt@ya) -- node[sloped] {\tiny 1$|$...$|$n} (\rt@xb,\rt@yb)}; +\draw[\rt@arrowtip, thin] (\rt@xb,\rt@yb) to #3 #2; +} + + +\newcommand{\lossyfifon@noarrow}[3]{% + +\node (rt@p1) at #1 {} ; +\node (rt@p2) at #2 {} ; + +\rt@midpoints{0.30}{0.70}{rt@p1}{rt@p2} + +\pgfmathsetlength{\rt@width}{sqrt((\rt@xa - \rt@xb)^2 + (\rt@ya - \rt@yb)^2)} + +\draw[dashed, thin] #1 to (\rt@xa,\rt@ya); +\draw[dashed] decorate[decoration={shape backgrounds, shape=rectangle, shape height=8pt, shape width=\rt@width, shape evenly spread=1}] {(\rt@xa,\rt@ya) -- node[sloped] {\tiny 1$|$...$|$n} (\rt@xb,\rt@yb)}; +\draw[thin] (\rt@xb,\rt@yb) to #3 #2; +} + + + + +%Timer + + + + +\newcommand{\timer}{% + \@ifstar\timer@noarrow\timer@arrow +} + +\newcommand{\timer@arrow}[3]{% +\node (rt@p1) at #1 {} ; +\node (rt@p2) at #2 {} ; + +\rt@middlepoint{rt@p1}{rt@p2} +\rt@midpoints{0.4}{0.60}{rt@p1}{rt@p2} +\pgfmathsetlength{\rt@width}{(sqrt((\rt@xa - \rt@xc)^2 + (\rt@ya - \rt@yc)^2))} + +\draw[thin] #1 to (\rt@xa,\rt@ya); +\draw (\rt@xc,\rt@yc) circle (\rt@width) ; +\draw[\rt@arrowtip, thin] (\rt@xb,\rt@yb) to #3 #2; +} + + +\newcommand{\timer@noarrow}[3]{% +\node (rt@p1) at #1 {} ; +\node (rt@p2) at #2 {} ; + +\rt@middlepoint{rt@p1}{rt@p2} +\rt@midpoints{0.4}{0.60}{rt@p1}{rt@p2} +\pgfmathsetlength{\rt@width}{(sqrt((\rt@xa - \rt@xc)^2 + (\rt@ya - \rt@yc)^2))} + +\draw[thin] #1 to (\rt@xa,\rt@ya); +\draw (\rt@xc,\rt@yc) circle (\rt@width) ; +\draw[\rt@arrowtip, thin] (\rt@xb,\rt@yb) to #3 #2; +} + + + + + + + + + + + + +%Auxiliary Channel + +\newcommand{\baseasyncchannels@arrow}[4]{% + +\node (rt@p1) at #1 {} ; +\node (rt@p2) at #2 {} ; + +\rt@midpoints{0.25}{0.75}{rt@p1}{rt@p2} + +\draw[thin]% + #1 to (\rt@xa,\rt@ya) ; +\draw[white, thin] + (\rt@xa,\rt@ya) to node[color=black, sloped] {{\small #4}} (\rt@xb,\rt@yb); +\draw[\rt@arrowtip, thin]% + (\rt@xb,\rt@yb) to #3 #2; + +} + + +\newcommand{\baseasyncchannels@noarrow}[4]{% + +\node (rt@p1) at #1 {} ; +\node (rt@p2) at #2 {} ; + +\rt@midpoints{0.25}{0.75}{rt@p1}{rt@p2} + +\draw[thin]% + #1 to (\rt@xa,\rt@ya) ; +\draw[white, thin] + (\rt@xa,\rt@ya) to node[color=black, sloped] {{\small #4}} (\rt@xb,\rt@yb); +\draw[ thin]% + (\rt@xb,\rt@yb) to #3 #2; + +} + + +%Ordered + +\newcommand{\ordered}{% + \@ifstar \ordered@noarrow \ordered@arrow +} + +\newcommand{\ordered@arrow}[3]{% + \baseasyncchannels@arrow{#1}{#2}{#3}{ord} +} + +\newcommand{\ordered@noarrow}[3]{% + \baseasyncchannels@noarrow{#1}{#2}{#3}{ord} +} + + +%%%%%%%%%%%%%% + + + +%Ordered N +\newcommand{\orderedn}{% + \@ifstar \orderedn@noarrow \orderedn@arrow +} + +\newcommand{\orderedn@arrow}[3]{% + \baseasyncchannels@arrow{#1}{#2}{#3}{ord$_n$} +} + +\newcommand{\orderedn@noarrow}[3]{% + \baseasyncchannels@noarrow{#1}{#2}{#3}{ord$_n$} +} + + +%%%%%%%%%%%%%%%%%% + +%Bag + +\newcommand{\bag}{% + \@ifstar \bag@noarrow \bag@arrow +} + +\newcommand{\bag@arrow}[3]{% + \baseasyncchannels@arrow{#1}{#2}{#3}{({\tiny ...})} +} + +\newcommand{\bag@noarrow}[3]{% + \baseasyncchannels@noarrow{#1}{#2}{#3}{({\tiny ...})} +} + + +%Bag N + +\newcommand{\bagn}{% + \@ifstar \bagn@noarrow \bagn@arrow +} + +\newcommand{\bagn@arrow}[3]{% + \baseasyncchannels@arrow{#1}{#2}{#3}{({\tiny ...})$_n$} +} + +\newcommand{\bagn@noarrow}[3]{% + \baseasyncchannels@noarrow{#1}{#2}{#3}{({\tiny ...})$_n$} +} + + +%Set + +\newcommand{\set}{% + \@ifstar \set@noarrow \set@arrow +} + +\newcommand{\set@arrow}[3]{% + \baseasyncchannels@arrow{#1}{#2}{#3}{\{{\tiny ...}\}} +} + +\newcommand{\set@noarrow}[3]{% + \baseasyncchannels@noarrow{#1}{#2}{#3}{\{{\tiny ...}\}} +} + + +%Set N + +\newcommand{\setn}{% + \@ifstar \setn@noarrow \setn@arrow +} + +\newcommand{\setn@arrow}[3]{% + \baseasyncchannels@arrow{#1}{#2}{#3}{\{{\tiny ...}\}$_n$} +} + +\newcommand{\setn@noarrow}[3]{% + \baseasyncchannels@noarrow{#1}{#2}{#3}{\{{\tiny ...}\}$_n$} +} + + +%Dealy Set + +\newcommand{\delayset}{% + \@ifstar \delayset@noarrow \delayset@arrow +} + +\newcommand{\delayset@arrow}[3]{% + \baseasyncchannels@arrow{#1}{#2}{#3}{DSet} +} + +\newcommand{\delayset@noarrow}[3]{% + \baseasyncchannels@noarrow{#1}{#2}{#3}{DSet} +} + + +%Delay Set N +\newcommand{\delaysetn}{% + \@ifstar \delaysetn@noarrow \delaysetn@arrow +} + +\newcommand{\delaysetn@arrow}[3]{% + \baseasyncchannels@arrow{#1}{#2}{#3}{DSet$_n$} +} + +\newcommand{\delaysetn@noarrow}[3]{% + \baseasyncchannels@noarrow{#1}{#2}{#3}{DSet$_n$} +} + + + +%Keyed Set + +\newcommand{\keyedset}{% + \@ifstar \keyedset@noarrow \keyedset@arrow +} + +\newcommand{\keyedset@arrow}[3]{% + \baseasyncchannels@arrow{#1}{#2}{#3}{KSet} +} + + +\newcommand{\keyedset@noarrow}[3]{% + \baseasyncchannels@noarrow{#1}{#2}{#3}{KSet} +} + +%Keyed Set N + +\newcommand{\keyedsetn}{% + \@ifstar \keyedsetn@noarrow \keyedsetn@arrow +} + +\newcommand{\keyedsetn@arrow}[3]{% + \baseasyncchannels@arrow{#1}{#2}{#3}{KSet$_n$} +} + +\newcommand{\keyedsetn@noarrow}[3]{% + \baseasyncchannels@noarrow{#1}{#2}{#3}{KSet$_n$} +} + + + + + +%%%%%%%%%%%%%% L shaped %%%%%%%%%%%%%%%%%%% +%Generic\Lhannel*?[<option>]?{<channel name>}{<start>}{<target>}{<height>}{<orientation>}{<polarization>}{<node>} +%Example: \Lhannel[??]{fifoe}{(0,0)}{(2,0.5)}{0.5}{v}{+}{node {a}} +%|-a> + +\newcommand{\Lchannel}{ + \@ifstar \Lchannel@arrow@part \Lchannel@arrow@channel +} + +\newcommand{\Lchannel@arrow@channel}[8][solid]{ + + \ifthenelse{\equal{#6}{v} \and \equal{#7}{+}}{ + \rt@pin{(rt@pinlc1)}{($ #3 + (0,#5) $)} + } + { + \ifthenelse{\equal{#6}{v} \and \equal{#7}{-}}{ + \rt@pin{(rt@pinlc1)}{($ #3 - (0,#5) $)} + } + { + \ifthenelse{\equal{#6}{h} \and \equal{#7}{+}}{ + \rt@pin{(rt@pinlc1)}{($ #3 + (#5,0) $)} + } + { + \ifthenelse{\equal{#6}{h} \and \equal{#7}{-}}{ + \rt@pin{(rt@pinlc1)}{($ #3 - (#5,0) $)} + } + { + \PackageError{reotex}{Expecting: v/h and +/- as 5th and 6th arguments (resp.)}{The 5th argument must be one of v or h, for vertical or horizontal orientation.\MessageBreak The 6th argument must be one of + or - for a positive or negative polarisation.} + } % ERROR STATE + } + } + } + \rt@cp[#1]{#3}{(rt@pinlc1)} + \csname #2\endcsname{(rt@pinlc1)}{#4}{#8} + %csname expands the argument name x to \x. Care should be taken: there should not exist a space after the name to expand as command. The arguments of the command should come after the \endcsname +} + + + +\newcommand{\Lchannel@arrow@part}[8][solid]{ + \ifthenelse{\equal{#6}{v} \and \equal{#7}{+}}{ + \rt@pin{(rt@pinlc2)}{($ #3 + (0,#5) $)} + } + { + \ifthenelse{\equal{#6}{v} \and \equal{#7}{-}}{ + \rt@pin{(rt@pinlc2)}{($ #3 - (0,#5) $)} + } + { + \ifthenelse{\equal{#6}{h} \and \equal{#7}{+}}{ + \rt@pin{(rt@pinlc2)}{($ #3 + (#5,0) $)} + } + { + \ifthenelse{\equal{#6}{h} \and \equal{#7}{-}}{ + \rt@pin{(rt@pinlc2)}{($ #3 - (#5,0) $)} + } + { + \PackageError{reotex}{Expecting: v/h and +/- as 5th and 6th arguments (resp.)}{The 5th argument must be one of v or h, for vertical or horizontal orientation.\MessageBreak The 6th argument must be one of + or - for a positive or negative polarisation.} + } % ERROR STATE + } + } + } + \rt@cp*[#1]{(rt@pinlc2)}{#3} + \csname #2\endcsname *{#4}{(rt@pinlc2)}{#8} +} + + + + + + +%%%%%%%%%%%%%% U shaped %%%%%%%%%%%%%%%%%%% +%Generic\Uhannel*?[<option>]?{<channel name>}{<start>}{<target>}{<height>}{<orientation>}{<polarization>}{<label>} +%Example: \Uchannel[dashed]{lossysync}{(0,0)}{(2,0.5)}{0.5}{v}{+}{node {a}} +%|---a> + +%\newcommand{\Uchannel}{ +% \@ifstar \Uchannel@arrow@target \Uchannel@arrow@target +%} + +\newcommand{\Uchannel}[8][solid]{ + + \ifthenelse{\equal{#6}{v} \and \equal{#7}{+}}{ + \rt@pin{(rt@pinuc1)}{($ #3 + (0,#5) $)} + \rt@pin{(rt@pinuc2)}{($ #4 + (0,#5) $)} + } + { + \ifthenelse{\equal{#6}{v} \and \equal{#7}{-}}{ + \rt@pin{(rt@pinuc1)}{($ #3 - (0,#5) $)} + \rt@pin{(rt@pinuc2)}{($ #4 - (0,#5) $)} + } + { + \ifthenelse{\equal{#6}{h} \and \equal{#7}{+}}{ + \rt@pin{(rt@pinuc1)}{($ #3 + (#5,0) $)} + \rt@pin{(rt@pinuc2)}{($ #4 + (#5,0) $)} + } + { + \ifthenelse{\equal{#6}{h} \and \equal{#7}{-}}{ + \rt@pin{(rt@pinuc1)}{($ #3 - (#5,0) $)} + \rt@pin{(rt@pinuc2)}{($ #4 - (#5,0) $)} + } + { + \PackageError{reotex}{Expecting: v/h and +/- as 5th and 6th arguments (resp.)}{The 5th argument must be one of v or h, for vertical or horizontal orientation.\MessageBreak The 6th argument must be one of + or - for a positive or negative polarisation.} + } % ERROR STATE + } + } +} +% +\ifthenelse{\equal{#2}{shiftfifon}}{ + \rt@cp*[dashed]{(rt@pinuc2)}{#4} + \rt@cp[solid]{#3}{(rt@pinuc1)} +} +{ + \ifthenelse{\equal{#2}{lossyfifon}}{ + \rt@cp[dashed]{#3}{(rt@pinuc1)} + \rt@cp*[solid]{(rt@pinuc2)}{#4} + } + { + \rt@cp[#1]{#3}{(rt@pinuc1)} + \rt@cp*[#1]{(rt@pinuc2)}{#4} + } +} +\csname #2\endcsname *{(rt@pinuc1)}{(rt@pinuc2)}{#8} + +} + + + + + + + + + + + + + + + + +%%%%%%%%%% ARROWS %%%%%%%%%%%%% + +%outwards +\pgfarrowsdeclare{outwards}{outwards} +{ + \rt@arrowsize=0.2pt + \advance\rt@arrowsize by .5\pgflinewidth + \pgfarrowsleftextend{-.5\pgflinewidth} + \pgfarrowsrightextend{3\rt@arrowsize+.5\pgflinewidth} +} +{ + \advance\rt@arrowsize by .5\pgflinewidth + \pgfpathmoveto{\pgfpoint{-45\rt@arrowsize}{12\rt@arrowsize}} + \pgfpathlineto{\pgfpoint{-45\rt@arrowsize}{-12\rt@arrowsize}} + \pgfpathlineto{\pgfpoint{-20\rt@arrowsize}{0pt}} + \pgfpathlineto{\pgfpoint{-45\rt@arrowsize}{12\rt@arrowsize}} + \pgfusepathqfill +} + + + + + + + + +%inwards +\pgfarrowsdeclare{inwards}{inwards} +{ + \rt@arrowsize=0.2pt + \advance\rt@arrowsize by .5\pgflinewidth + \pgfarrowsleftextend{-.5\pgflinewidth} + \pgfarrowsrightextend{3\rt@arrowsize+.5\pgflinewidth} +} +{ + \advance\rt@arrowsize by .5\pgflinewidth + \pgfpathmoveto{\pgfpoint{-20\rt@arrowsize}{12\rt@arrowsize}} + \pgfpathlineto{\pgfpoint{-20\rt@arrowsize}{-12\rt@arrowsize}} + \pgfpathlineto{\pgfpoint{-45\rt@arrowsize}{0pt}} + \pgfpathlineto{\pgfpoint{-20\rt@arrowsize}{12\rt@arrowsize}} + \pgfusepathqfill +} + + + + + + +%%%%%%%%%% NODES %%%%%%%%%%%%%%%%%% + + +\newcommand{\rt@pin}[2]{% + \node[outer sep=-1.3mm] #1 at #2 {} ; +} + + +\newcommand{\ionode}[3]{% + \node[outer sep=-0.15mm] #1 at #2 {} ; + \draw[fill=white, minimum size=2pt] #2 circle (2.7pt) #3 ; +} + + +\newcommand{\mixednode}[3]{% + \node[outer sep=-0.2mm] #1 at #2 {} ; + \draw[fill=gray!20!black, minimum size=2.9pt] #2 circle (2.2pt) #3 ; +} + + + +\newcommand{\xrouter}[3]{% + \node[outer sep=0.35mm] #1 at #2 {} ; + \draw[cross, fill=white, minimum size=2.3pt] #2 circle (5pt) #3 ; +} + + + +%%%%%%%%%%%% UTILITIES %%%%%%%%%%%%%%%%%%%% + +\newcommand{\rt@cp}{% + \@ifstar \rt@cp@arrow \rt@cp@noarrow +} + +\newcommand{\rt@cp@noarrow}[3][solid]{% + \draw[#1] #2 to #3; +} + +\newcommand{\rt@cp@arrow}[3][solid]{% + \draw[\rt@arrowtip ,#1] #2 to #3; +} + + +\makeatother + + +\endinput
\ No newline at end of file |