On 01/06/18 14:22, Jeong Dal wrote:

Hi,

I defined a function using MetaFun, and call it to draw a figure. It is OK when I call it once. But there is an error when it runs the same function second time. (it stops when it call fap(3,2) after fap(2,2))

I have no idea what is wrong and how to fix it. Would you please tell me what I miss?

You have to save x, y; otherwise z[i] = ... will be an ill-defined equation. \startMPpage numeric u; u := 1cm; path p[]; def fap(expr n, m) = begingroup ; save x, y ; numeric size ; size := m*u ; for i = 0 upto (n*n-1): z[i] = ((i mod n),(floor(i/n)))*size; drawdot z[i] withpen pencircle scaled 5pt withcolor blue; endfor ; endgroup ; enddef; fap(2,2); fap(3,2); \stopMPpage

Thank you. Best regards,

Dalyoung

%%%%%%% \startbuffer[test] numeric u; u := 1cm; path p[];

def fap(expr n, m) = numeric size; size := m*u;

for i = 0 upto (n*n-1): z[i] = ((i mod n),(floor(i/n)))*size; drawdot z[i] withpen pencircle scaled 5pt withcolor blue; endfor; enddef;

fap(2,2); fap(3,2); \stopbuffer

\starttext \processMPbuffer[test] \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://context.aanhet.net archive : https://bitbucket.org/phg/context-mirror/commits/ wiki : http://contextgarden.net ___________________________________________________________________________________