330 |
q := nullpicture; |
q := nullpicture; |
331 |
addto q also stereotype(ster); |
addto q also stereotype(ster); |
332 |
addto currentpicture also q |
addto currentpicture also q |
333 |
shifted (xpart llcorner(p) + ((xpart lrcorner(p) - xpart llcorner(p)) / 2 - ((xpart lrcorner(q) - xpart llcorner(q)) / 2)), 0); |
% shifted .5[lrcorner(p), ulcorner(p)]; |
334 |
|
shifted (xpart llcorner(p) + ((xpart lrcorner(p) - xpart llcorner(p)) / 2 - ((xpart lrcorner(q) - xpart llcorner(q)) / 2)), ypart llcorner(p) + ((ypart lrcorner(p) - ypart llcorner(p)) / 2 - ((ypart lrcorner(q) - ypart llcorner(q)) / 2))); |
335 |
enddef; |
enddef; |
336 |
|
|
337 |
%%%%%%%%%%%%%%%%%%% |
%%%%%%%%%%%%%%%%%%% |