On 24-6-2011 8:32, dalyoung wrote:
Dear Hans,
Thank you for the suggestion to use "setbounds". And sorry to send you a untested sample file which is not working.
However, I couldn't succeed because of my lack of knowledge on "setbounds, boundingbox".
Instead, I try to use "addto" and get a wanted result. There is a better way to do that, but it is not easy for me to find a better way right now.
\startbuffer[dominos] vardef dominoV (expr m) = numeric corner_rad ; path DominoFace ; corner_rad := 1/12 ; DominoFace := (1,0) -- (1,1) -- (corner_rad,1) {left} .. {down} (0,1-corner_rad) ... (0,corner_rad) {down} .. {right}(corner_rad,0) ... (2-corner_rad,0){right} .. {up} (2,corner_rad) ... (2,1-corner_rad){up} .. {left} (2-corner_rad,1) -- (1,1) ; DominoFace rotated 270 enddef ; def shiftX(expr d) = currentpicture := currentpicture shifted (-xpart urcorner currentpicture - d, 0) ; enddef ; numeric d ; d := 1cm ; draw dominoV(6) scaled d ; shiftX(d/10) ; draw dominoV(5) scaled d ; shiftX(d/10) ; draw dominoV(4) scaled d ; shiftX(d/10) ; draw dominoV(3) scaled d ; \stopbuffer \starttext \processMPbuffer[dominos] \stoptext ----------------------------------------------------------------- Hans Hagen | PRAGMA ADE Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com | www.pragma-pod.nl -----------------------------------------------------------------