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; |
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; |
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; |