metapost question (bug?)

[Alan Braslau <alan.braslau@cea.fr>]

Hello,

I have a question for metapost specialists:

I am looking for some sort of effect, built upon a zig-zag line.
The first graphic in the minimal example below is as I would expect.
The second graphic seems to be drawn without the point at (0,0).
(Ignore the asymmetry at the end of the path in the 2nd, this
is to be expected in this minimal example.)

Is the result correct or is this a bug?

Alan



\starttext

\startTEXpage
\startMPcode
        u := 1mm ;

        path p[] ;
        p0 := ((0,0)--(1,0)) rotated 45 scaled 20u ;
        pickup pensquare scaled 10u rotated 45 ;
        draw p0 withcolor blue ;
        pickup pensquare yscaled 2u xscaled 5u rotated 45 ;
        draw p0 withcolor yellow ;
        pickup pencircle scaled .1u ;
        draw p0 ;
\stopMPcode
\stopTEXpage

\startTEXpage
\startMPcode
        p1 := ((0,0)--(sqrt(2),0)) rotated -30 scaled 20u
                shifted point infinity of p0 ;
        p2 := p0--p1 ;

        pickup pensquare scaled 10u rotated 45 ;
        draw p2 withcolor blue ;
        pickup pensquare yscaled 2u xscaled 5u rotated 45 ;
        draw p2 withcolor yellow ;
        pickup pencircle scaled .1u ;
        draw p2 ;
\stopMPcode
\stopTEXpage

\stoptext

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / 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
___________________________________________________________________________________