#5 Add pathLoopX/Y

[Anonymous]

Maybe some useful paths for "to-self" links.

vardef pathLoopX(expr pA,pB, deltax,deltay) =
pA--(pA+(deltax,0))--(((xpart pA)+deltax), ((ypart pB)+deltay))--(pB+(0,deltay))--pB
enddef;

vardef pathLoopY(expr pA,pB, deltax,deltay) =
pA--(pA+(0,deltay))--(((xpart pB)+deltax), ((ypart pA)+deltay))--(pB+(deltax,0))--pB
enddef;

<--deltax->
----------+
|
| ^ |
| |deltay |
| v |
+----------------+