214 |
pickup pe; |
pickup pe; |
215 |
enddef; |
enddef; |
216 |
|
|
217 |
|
vobinthick = .7 pt; |
218 |
|
|
219 |
|
vardef vobinfromassoc(expr p, multi, role) = |
220 |
|
save pe; |
221 |
|
pe = savepen; |
222 |
|
pickup pencircle scaled vobinthick; |
223 |
|
draw p dashed evenly; |
224 |
|
adornassocend(p, multi, role); |
225 |
|
pickup pe; |
226 |
|
enddef; |
227 |
|
|
228 |
|
vardef vobintoassoc(expr p, multi, role) = |
229 |
|
save pe; |
230 |
|
pe = savepen; |
231 |
|
pickup pencircle scaled vobinthick; |
232 |
|
draw arrowedpath(p, 1.4, 1.0); |
233 |
|
draw p dashed evenly; |
234 |
|
adornassocend(p, multi, role); |
235 |
|
pickup pe; |
236 |
|
enddef; |
237 |
|
|
238 |
|
|
239 |
vardef inherit(expr p) = |
vardef inherit(expr p) = |
240 |
save ap; |
save ap; |
241 |
path ap; |
path ap; |