Re: Metapost - Seems like weird behavior. Is it a bug?

[luigi scarso <luigi.scarso@gmail.com>]

On Wed, Nov 25, 2009 at 5:45 AM, Curiouslearn <curiouslearn@gmail.com> wrote:
> The code below shows a cyclic path that I am interested in creating
> (it is in red if you run the code). The example works fine as long as
> I have, u:=1cm, as in the code below. But if I replace it by ,
> u:=0.6cm, there is no output. There is an error saying that paths 4
> and 3 do not intersect. Is this a bug?
>
> Thanks for your help.
>
> \setuppapersize[letter][letter]
> \setuplayout[leftedge=0in,leftmargin=1in,leftmargindistance=0in,rightmargin=1in,rightmargindistance=0in,rightedge=0in,leftedgedistance=0in,rightedgedistance=0in,topspace=0.5in,width=6.5in,height=10in]
>
> \setupcolors[state=start]
>
>
> \starttext
>
> \startuseMPgraphic{buildS22}
>        numeric u;
>        u := 1cm;
>        w:= 2pt;
>        path xaxis; path yaxis;
>        xaxis := (0,0)--(12,0) scaled u;
>        yaxis := (0,0)--(0,12) scaled u;
>        path stLine;
>        path Curve;
>        stLine :=
>                        function (1,"x","10-x",0,10,1) scaled u;
>        Curve :=
>                        function(1,"x","2+8/x",1,10,0.1) scaled u;
>        drawarrow xaxis withpen pencircle scaled w;
>        drawarrow yaxis withpen pencircle scaled w;
>        draw stLine withpen pencircle scaled w withcolor 0.5red;
>        draw Curve withpen pencircle scaled w withcolor 0.5green;
>        pair Lint[];
>        Lint[1]:=yaxis intersectionpoint stLine;
>        Lint[2]:=stLine intersectionpoint Curve;
>        Lint[3]:=reverse stLine intersectionpoint Curve;
>        Lint[4]:=stLine intersectionpoint xaxis;
>        path cyclicPath;
>        cyclicPath := buildcycle(Lint[1]--Lint[2],Curve,Lint[3]--Lint[4],reverse
> xaxis,yaxis);
>        draw cyclicPath withpen pencircle scaled 5pt withcolor red;
> \stopuseMPgraphic
> \useMPgraphic{buildS22}
>
> \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
> ___________________________________________________________________________________
>
hm..
can you try  with
  tracingall;
  cyclicPath :=
buildcycle(Lint[1]--Lint[2],Curve,Lint[3]--Lint[4],reverse
xaxis,yaxis);

?
-- 
luigi
___________________________________________________________________________________
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
___________________________________________________________________________________