diff options
author | Karl Berry <karl@freefriends.org> | 2006-07-15 21:07:44 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-07-15 21:07:44 +0000 |
commit | addfc6cb8f4f70fdc76a72cb6338bd0c69c4c4c3 (patch) | |
tree | 9df3d1ec788caf8f5a848d259f44cfbafa7ad717 /Master/texmf-dist/metapost/metauml/metauml_paths.mp | |
parent | 9599b464aebb35b4a1bc3bf70a4cd2740f3765f7 (diff) |
new metapost package metauml (21mar06)
git-svn-id: svn://tug.org/texlive/trunk@1851 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/metapost/metauml/metauml_paths.mp')
-rw-r--r-- | Master/texmf-dist/metapost/metauml/metauml_paths.mp | 86 |
1 files changed, 86 insertions, 0 deletions
diff --git a/Master/texmf-dist/metapost/metauml/metauml_paths.mp b/Master/texmf-dist/metapost/metauml/metauml_paths.mp new file mode 100644 index 00000000000..cb307f8df00 --- /dev/null +++ b/Master/texmf-dist/metapost/metauml/metauml_paths.mp @@ -0,0 +1,86 @@ +% MetaUML, a MetaPost library for typesetting exquisite UML diagrams. +% Copyright (C) 2005 Ovidiu Gheorghies +% +% This program is free software; you can redistribute it and/or +% modify it under the terms of the GNU General Public License +% as published by the Free Software Foundation; either version 2 +% of the License, or (at your option) any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + +if known _metauml_paths_mp: + expandafter endinput +fi; +_metauml_paths_mp:=1; + +def pathDirect(expr pA,pB) = + pA--pB +enddef; + +vardef pathManhattanX(expr pA,pB) = + pA--(xpart(pB), ypart(pA))--pB +enddef; + +vardef rpathManhattanX(expr pA,pB) = + pB--(xpart(pB), ypart(pA))--pA +enddef; + +vardef pathManhattanY(expr pA,pB) = + pA--(xpart(pA), ypart(pB))--pB +enddef; + +vardef rpathManhattanY(expr pA,pB) = + pB--(xpart(pA), ypart(pB))--pA +enddef; + +vardef pathStepX(expr pA,pB, deltax) = + pA--(pA+(deltax, 0))--(((xpart pA)+deltax), ypart(pB))--pB +enddef; + +vardef rpathStepX(expr pA,pB, deltax) = + pB--(((xpart pA)+deltax), ypart(pB))--(pA+(deltax, 0))--pA +enddef; + +vardef pathStepY(expr pA,pB, deltay) = + pA--(pA+(0, deltay))--(xpart(pB), ((ypart pA)+deltay))--pB +enddef; + +vardef rpathStepY(expr pA,pB, deltay) = + pB--(xpart(pB), ((ypart pA)+deltay))--(pA+(0, deltay))--pA +enddef; + +vardef pathHorizontal(expr pA, untilX) = + pA--(untilX,ypart(pA)) +enddef; + +vardef rpathHorizontal(expr pA, untilX) = + (untilX,ypart(pA))--pA +enddef; + +vardef pathVertical(expr pA, untilY) = + pA--(xpart(pA), untilY) +enddef; + +vardef rpathVertical(expr pA, untilY) = + (xpart(pA), untilY)--pA +enddef; + +% Cuts path thePath so that it won't intersect the objects +% objectA and objectB. The border of the objects is obtained +% by invoking the method "_border". +% +vardef pathCut(suffix objectA, objectB)(expr thePath)= + save timeA, timeB; + + timeA = xpart (thePath intersectiontimes objectBorder(objectA)); + timeB = xpart (thePath intersectiontimes objectBorder(objectB)); + + subpath (timeA, timeB) of thePath +enddef; |