/[gzz]/gzz/metacode/umlhelper.mp
ViewVC logotype

Diff of /gzz/metacode/umlhelper.mp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by tjl, Thu Aug 29 09:18:59 2002 UTC revision 1.12 by tjl, Thu Aug 29 11:04:17 2002 UTC
# Line 379  pen sequencecallpen, sequenceactivepen; Line 379  pen sequencecallpen, sequenceactivepen;
379    
380  sequencecallpen = pencircle scaled 3pt;  sequencecallpen = pencircle scaled 3pt;
381  sequenceactivepen = pencircle scaled 1.5pt;  sequenceactivepen = pencircle scaled 1.5pt;
382  pair sequencebwid;  pair sequencebwid, sequencex, sequencey;
383  sequencebwid = (5,0);  sequencebwid = (5,0);
384    sequencex = (15,15);
385    sequencey = (-15,15);
386    
387  vardef sequenceactivation(expr u,l) =  vardef sequenceactivation(expr u,l) =
388      save rectpath;      save rectpath;
# Line 418  vardef sequencecall(expr sourcex, destx, Line 420  vardef sequencecall(expr sourcex, destx,
420     label.top(labelstring, 0.5[(sourcex,starty), u]);     label.top(labelstring, 0.5[(sourcex,starty), u]);
421  enddef;  enddef;
422    
423    vardef sequencedestroy(expr x, y) =
424        save v, o;
425        pair v, o;
426        v = (x,y);
427        draw v+sequencex -- v-sequencex withpen sequencecallpen;
428        draw v+sequencey -- v-sequencey withpen sequencecallpen;
429    enddef;
430    
431  vardef sequencecreatemeasure(expr sourcex)(suffix target)(expr starty, endy, labelstring) =  vardef sequencecreatemeasure(expr sourcex)(suffix target)(expr starty, endy, labelstring) =
432      know(sourcex);      know(sourcex);
433      know(starty);      know(starty);

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26