Re: [NTG-context] Bug with macro tightfunction (Metafun)
On 2/16/2015 6:00 PM, Fabrice Couvreur wrote: Hi, This code generates an error while it was working fine a month ago. tightfunction was redundant, use curvedfunction instead (I have been cleaning up all that code as a prelude to an updat efor the metafun manual) Hans - 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 : 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 ___
Re: [NTG-context] Bug with macro tightfunction (Metafun)
On 2/16/2015 6:00 PM, Fabrice Couvreur wrote: Hi, This code generates an error while it was working fine a month ago. Best regards, Fabrice \definecolor[mycolor][c=.4,m=0,y=0,k=0] \starttext \start \switchtobodyfont[small] \startMPcode input hvdm; input tex; l:=3mm; r:=0.6; alfa:=45; beta:=0; gamma:=0; defineDefaultArrow (l, r, alfa, beta, gamma); numeric xmin, xmax, ymin, ymax; xmin := 0; xmax := 110; ymax :=8000 ;ymin:=0; u := 0..1cm; v:= 0.002cm; color mycolor; mycolor:=(0.4,0,0); drawoptions(withpen pencircle scaled 0.3pt withcolor \MPcolor{mycolor}); draw hlingrid(ymin,ymax,1000,16cm,11cm); draw vlingrid(xmin,xmax,10,11cm,16cm); pickup pencircle scaled 1pt ; arrowline ((xmin,0) -- (xmax,0)) scaled u; arrowline ((0,ymin) -- (0,ymax)) scaled v; drawoptions(withpen pencircle scaled 1pt); draw tightfunction ("x", "x*x-84*x+5000", 0, 100, 0.01) xyscaled (u,v); for i=0 step 10 until 100: label.bot(TEX("$"&decimal(i)&"$"),(i*u,0)); endfor; for i=0 step 1000 until 7000: label.lft(TEX("$"&decimal(i)&"$"),(0,i*v)); endfor; label.top("Nombre de lots",(90u,50v)); label.lrt(btex $f(x)$ (en euros) etex,(0,7800v)); \stopMPcode \stop \stoptext what is: input hvdm; input tex; both names are also candidates for name clashes Hans - 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 : 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 ___
Re: [NTG-context] Bug with macro tightfunction (Metafun)
On 02/16/2015 06:00 PM, Fabrice Couvreur wrote: > Hi, > This code generates an error while it was working fine a month ago. Hi Fabrice, MP is too much fun for me ;-)). I mean, this is all Greek to me. I can only report that I get an empty page with both the latest beta from 2015.02.03 23:55 and beta from 2014.11.26 21:43. Just in case it might help, Pablo > \definecolor[mycolor][c=.4,m=0,y=0,k=0] > > \starttext > \start > \switchtobodyfont[small] > \startMPcode > input hvdm; > input tex; > l:=3mm; r:=0.6; alfa:=45; beta:=0; gamma:=0; > defineDefaultArrow (l, r, alfa, beta, gamma); > numeric xmin, xmax, ymin, ymax; > xmin := 0; xmax := 110; ymax :=8000 ;ymin:=0; u := 0.1cm; v:= 0.002cm; > color mycolor; mycolor:=(0.4,0,0); > drawoptions(withpen pencircle scaled 0.3pt withcolor > \MPcolor{mycolor}); > draw hlingrid(ymin,ymax,1000,16cm,11cm); > draw vlingrid(xmin,xmax,10,11cm,16cm); > pickup pencircle scaled 1pt ; > arrowline ((xmin,0) -- (xmax,0)) scaled u; > arrowline ((0,ymin) -- (0,ymax)) scaled v; > drawoptions(withpen pencircle scaled 1pt); > draw tightfunction ("x", "x*x-84*x+5000", 0, 100, 0.01) xyscaled (u,v); > for i=0 step 10 until 100: > label.bot(TEX("$"&decimal(i)&"$"),(i*u,0)); > endfor; > for i=0 step 1000 until 7000: > label.lft(TEX("$"&decimal(i)&"$"),(0,i*v)); > endfor; >label.top("Nombre de lots",(90u,50v)); >label.lrt(btex $f(x)$ (en euros) etex,(0,7800v)); > \stopMPcode > \stop > \stoptext -- http://www.ousia.tk ___ 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 ___
[NTG-context] Bug with macro tightfunction (Metafun)
Hi, This code generates an error while it was working fine a month ago. Best regards, Fabrice \definecolor[mycolor][c=.4,m=0,y=0,k=0] \starttext \start \switchtobodyfont[small] \startMPcode input hvdm; input tex; l:=3mm; r:=0.6; alfa:=45; beta:=0; gamma:=0; defineDefaultArrow (l, r, alfa, beta, gamma); numeric xmin, xmax, ymin, ymax; xmin := 0; xmax := 110; ymax :=8000 ;ymin:=0; u := 0.1cm; v:= 0.002cm; color mycolor; mycolor:=(0.4,0,0); drawoptions(withpen pencircle scaled 0.3pt withcolor \MPcolor{mycolor}); draw hlingrid(ymin,ymax,1000,16cm,11cm); draw vlingrid(xmin,xmax,10,11cm,16cm); pickup pencircle scaled 1pt ; arrowline ((xmin,0) -- (xmax,0)) scaled u; arrowline ((0,ymin) -- (0,ymax)) scaled v; drawoptions(withpen pencircle scaled 1pt); draw tightfunction ("x", "x*x-84*x+5000", 0, 100, 0.01) xyscaled (u,v); for i=0 step 10 until 100: label.bot(TEX("$"&decimal(i)&"$"),(i*u,0)); endfor; for i=0 step 1000 until 7000: label.lft(TEX("$"&decimal(i)&"$"),(0,i*v)); endfor; label.top("Nombre de lots",(90u,50v)); label.lrt(btex $f(x)$ (en euros) etex,(0,7800v)); \stopMPcode \stop \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 ___