/[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.15 by tjl, Wed Jan 1 13:37:10 2003 UTC revision 1.16 by tjl, Wed Jan 1 16:21:16 2003 UTC
# Line 194  vardef assoc(expr p, multi, role) = Line 194  vardef assoc(expr p, multi, role) =
194  enddef;  enddef;
195    
196  vobtransformthick = .5 pt;  vobtransformthick = .5 pt;
197    vobinthick = .7 pt;
198    vobsubmatchthick = 2pt;
199    
200  vardef vobtransformfromassoc(expr p, multi, role) =  vardef vobtransformfromassoc(expr p, multi, role) =
201      save pe;      save pe;
# Line 214  vardef vobtransformtoassoc(expr p, multi Line 216  vardef vobtransformtoassoc(expr p, multi
216      pickup pe;      pickup pe;
217  enddef;  enddef;
218    
219  vobinthick = .7 pt;  picture vobtranssubdash;
220    vobtranssubdash = dashpattern(on 8pt off 12pt);
221    
222    vardef vobtransformfromsubassoc(expr p, multi, role) =
223        save pe;
224        pe = savepen;
225        pickup pencircle scaled vobsubmatchthick;
226        draw p dashed vobtranssubdash;
227        pickup pencircle scaled vobtransformthick;
228        draw p;
229        adornassocend(p, multi, role);
230        pickup pe;
231    enddef;
232    
233    vardef vobtransformtosubassoc(expr p, multi, role) =
234        save pe;
235        pe = savepen;
236        pickup pencircle scaled vobsubmatchthick;
237        draw p dashed vobtranssubdash;
238        draw arrowedpath(p, 1, 1.3);
239    
240        pickup pencircle scaled vobtransformthick;
241        draw p;
242        adornassocend(p, multi, role);
243        pickup pe;
244    enddef;
245    
246    
247    
248  vardef vobinfromassoc(expr p, multi, role) =  vardef vobinfromassoc(expr p, multi, role) =
249      save pe;      save pe;
# Line 254  vardef realize(expr p) = Line 283  vardef realize(expr p) =
283      draw ap;      draw ap;
284  enddef;  enddef;
285    
 vobsubmatchthick = 2pt;  
286  vardef vobsubmatch(expr p) =  vardef vobsubmatch(expr p) =
287      save pe;      save pe;
288      pe = savepen;      pe = savepen;

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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