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
-----------------------------------------------------------------
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the
Wiki!
maillist : [email protected] / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
archive : http://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________
