Problem in using vlingrid() and hlingrid() macros (Metafun)

[Fabrice Couvreur <fabrice1.couvreur@gmail.com>]

[-- Attachment #1.1: Type: text/plain, Size: 1219 bytes --]

Hi,
I encounter some problems in the use of vlingrid() and hlingrid() macros. In
the code below, we see that the grid is not correct.
Does the code can be improved ?
thank you,
Fabrice

\starttext
\startMPcode
     path p ;
     u := 2cm ; v:= 1cm ;
     p := (-u,-5v)--(3u,-5v)--(3u,4v)--(-u,4v)--cycle ;
     drawoptions(withpen pencircle scaled 0.5pt withcolor
\MPcolor{mycolor});
     draw vlingrid(-u,3u,u,4u,9v) shifted (0,-5v) ;
     draw hlingrid(-5v,4v,v,9v,4u)  shifted (-u,0)  ;
     drawoptions(withpen pencircle scaled 1pt) ;
     drawarrow (-u,0)--(3u,0) ;
     drawarrow (0,-5v)--(0,4v) ;
   draw curvedfunction ("x", "3*x*x-5*x+1", -1, 3, 0.01) xyscaled (u,v)
withcolor red ;
     draw curvedfunction ("x", "-5*x+1", -1, 3, 0.01) xyscaled (u,v)
withcolor blue ;
     draw curvedfunction ("x", "7*x-11", -1, 3, 0.01) xyscaled (u,v)
withcolor green ;
     label.bot(btex $x$ etex,(2.97u,-0.1v)) ;
     label.rt(btex $y$ etex,(0.01u,3.9v)) ;
     label.llft("0",(0,0)) ;
     dotlabel.urt("A",(0,v)) ;
     dotlabel("",(u,-4v)) ;
     label.rt("C",(1.02u,-4v)) ;
     dotlabel.lrt("B",(2u,3v)) ;
     label.bot("1",(u,0)) ;
     label.lft("1",(0,v)) ;
     clip currentpicture to p ;
\stopMPcode
\stoptext

[-- Attachment #1.2: Type: text/html, Size: 2392 bytes --]

[-- Attachment #2: Type: text/plain, Size: 485 bytes --]

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