[Gzz-commits] navidoc/navidoc/mp uml.mp

[Asko Soukka]

CVSROOT:        /cvsroot/navidoc
Module name:    navidoc
Branch:         
Changes by:     Asko Soukka <address@hidden>    03/06/16 07:35:30

Modified files:
        navidoc/mp     : uml.mp 

Log message:
        centering dep role

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/navidoc/navidoc/navidoc/mp/uml.mp.diff?tr1=1.12&tr2=1.13&r1=text&r2=text

Patches:
Index: navidoc/navidoc/mp/uml.mp
diff -u navidoc/navidoc/mp/uml.mp:1.12 navidoc/navidoc/mp/uml.mp:1.13
--- navidoc/navidoc/mp/uml.mp:1.12      Fri Jun 13 03:34:28 2003
+++ navidoc/navidoc/mp/uml.mp   Mon Jun 16 07:35:30 2003
@@ -19,7 +19,7 @@
 % MA  02111-1307  USA
 % 
 
-% $Id: uml.mp,v 1.12 2003/06/13 07:34:28 humppake Exp $
+% $Id: uml.mp,v 1.13 2003/06/16 11:35:30 humppake Exp $
 
 %
 % Written by Tuomas Lukka
@@ -326,9 +326,11 @@
 
 vardef dep(expr p, ster) = 
     drawarrow p dashed evenly;
-    addto currentpicture also stereotype(ster)
-        shifted point(0.35) of p;
-%      shifted point length(p) / 2 of p;
+    picture q;
+    q := nullpicture;
+    addto q also stereotype(ster);
+    addto currentpicture also q
+    shifted (xpart llcorner(p) + ((xpart lrcorner(p) - xpart llcorner(p)) / 2 
- ((xpart lrcorner(q) - xpart llcorner(q)) / 2)), 0);
 enddef;
 
 %%%%%%%%%%%%%%%%%%%