416 |
vardef strpair(expr p) = |
vardef strpair(expr p) = |
417 |
(decimal((xpart(p))) & "," & decimal((ypart(p))) ) |
(decimal((xpart(p))) & "," & decimal((ypart(p))) ) |
418 |
enddef; |
enddef; |
419 |
vardef showlink(expr name, p) = |
vardef showlink(expr target, title, p) = |
420 |
fill p withcolor (0.8, 0.9, 1); |
fill p withcolor (0.8, 0.9, 1); |
421 |
showlinksize(name, p); |
showlinksize(target, title, p); |
422 |
enddef; |
enddef; |
423 |
vardef showlinkerror(expr name, p) = |
vardef showlinkerror(expr target, title, p) = |
424 |
showlinksize(name, p); |
showlinksize(target, title, p); |
425 |
draw classTitle("BROKEN LINK") shifted ulcorner(p) withcolor (1, 0, 0); |
draw classTitle("BROKEN LINK") shifted ulcorner(p) withcolor (1, 0, 0); |
426 |
enddef; |
enddef; |
427 |
vardef showfocus(expr name, p) = |
vardef showfocus(expr target, title, p) = |
428 |
fill p withcolor (9, 0.8, 0.7); |
fill p withcolor (9, 0.8, 0.7); |
429 |
showlinksize(name, p); |
showlinksize(target, title, p); |
430 |
enddef; |
enddef; |
431 |
vardef showlinksize(expr name, p) = |
vardef showlinksize(expr target, title, p) = |
432 |
show "LINKRECT("& char(34) & name & char(34) & "," & strpair((ulcorner(p))) &","& strpair((lrcorner(p))) & ")" |
show "LINKRECT("& char(34) & name & char(34) & "," & strpair((ulcorner(p))) &","& strpair((lrcorner(p))) & ")" |
433 |
enddef; |
enddef; |
434 |
|
|