\dorecurse{\udMacro} =20 65 numeric n; 66 n :=3D \MPvar{num}-1; 67 linesUD(n); 68 \stopuseMPgraphic 69 =20 70 \setupinteraction[state=3Dstart] 71 \usemodule[animation] 72 \starttext 73 %\startanimation[menu=3Dyes] 74 %{ 75 >> \dorecurse{\udMacro} 76 {\useMPgraphic{foldUD}{num=3D\recurselevel}} 77 {\useMPgraphic{dotLines}{num=3D\recurselevel}} 78 %} =20= --Apple-Mail=_EF8EB74B-BD4E-4017-8243-842DEC1C872E Content-Transfer-Encoding: quoted-printable Content-Type: text/html; charset=utf-8 Dear = Hans,

Your code = works fine.

\starttext

\startMPcode
   numeric maxCount;
   maxCount :=3D 10;
   setglobalmacro("MyMacro",decial = maxCount);
   setglobalcount("MyCount",maxCount);\stopMPcode

\dorecurse{\MyMacro}{It is \recurselevel. }\par
\dorecurse{\MyCount}{It is \recurselevel. }\par

\stoptext

I applied your method to my code as = following.

\newcount\udCount %%% add count

\startMPinitializations%{UDBasic}

pair A,B,C,D;

pair E, F, G, H;

path = p,q;

numeric ang,maxNum;

numeric n; %AM Added

u:=3D1in;

A=3D(.95*TextWidth,u); B=3D(0,u); = C=3D(0,0); D=3D(.95*TextWidth,0);

p :=3D A--B--C--D;

= q :=3D (TextWidth,1.5u)--(0,1.5u)--(0,-.5u)--(TextWidth,-.5u)--cycle;

z0=3D(.1u,0);

= vardef= nextPt (expr = M,N) =3D

= if = ypart(N) = =3D 0:

H :=3D whatever[N, N + dir(.5*angle(M-N))*u] = =3D whatever[A,B];

else:

H :=3D whatever[N, N + dir(.5*angle(M-N))*u] = =3D whatever[C,D];

fi;

= H

enddef;

= def = grayUD(expr = i) =3D

draw G = -- = if = ypart(B)=3Dypart(G): = B -- = C else: = C -- = B fi = --z[i];

filldraw z[i]+2*(G-z[i])*u = -- = z[i] -- z[i+1] = -- = z[i+1]+(G-z[i])*u = -- = cycle = withcolor .75white;

draw G -- z[i+1] = dashed= evenly;

draw z[0] = for = k=3D0 upto i: --z[k] = endfor= dashed evenly;

clip currentpicture to q;

= enddef;

def = linesUD(expr = i) =3D

draw = p;

draw z0 for k=3D0 = upto = i+1: --z[k] = endfor= dashed evenly;

= % AM: removed. Set in in = the main code

% setbounds currentpicture to boundingbox = q;

enddef;

ang :=3D 40;

z[1] = =3D whatever[z[0], = z[0]+dir(ang)*u] = =3D whatever[A,B];

% AM: Changed next line from G to = z[-1]

z[-1] = =3D whatever[z[0], = z[0]+dir(2*ang)*u] = =3D whatever[A,B];

for k =3D 2 upto 20:

z[k] =3D = nextPt(z[k-2],z[k-1]);

maxNum :=3D k;

= exitif xpart(z[k]) = > = TextWidth;

endfor;

maxNum :=3D maxNum-1;

setglobalmacro("udMacro",decimal maxNum); %%% define udMacro and udCount

= setglobalcount("udCount",maxNum);

\stopMPinitializations

\startuseMPgraphic{foldUD}{num}

numeric n;

n :=3D = \MPvar{num}-1;

G :=3D z[n-1];

grayUD(n);

\stopuseMPgraphic

\startuseMPgraphic{dotLines}{num}

numeric n;

n :=3D = \MPvar{num}-1;

linesUD(n);

\stopuseMPgraphic

\setupinteraction[state=3Dstart]

\usemodule[animation]

\starttext

%\startanimation[menu=3Dyes]

\dorecurse{\udCount}

{\useMPgraphic{foldUD}{num=3D\recurselevel}}

{\useMPgraphic{dotLines}{num=3D\recurselevel}}

%\stopanimation

\stoptext

1. Using =E2=80=9CudCount=E2=80=9D = doesn=E2=80=99t issue error message, but it draws the path p = only.

2. Using =E2=80=9CudMacro=E2=80=9D issue the = error message.

Is there anything that I miss?

Best regards,

Dalyoung

**********

tex error > tex error on line 75 in = file /Users/graph/Library/Mobile = Documents/com~apple~CloudDocs/texMain/funmath/foldBandMPnew.tex: = Undefined control sequence

<argument> \udMacro

<macro> \dorecurse = #1->\ifcase #1

\relax \expandafter = \gobbletwoarguments \or \expandafter \syst_helpers_recurse_y \else = \expandafter \syst_helpers_recurse_x \fi {#1}

<line 3.75> \dorecurse{\udMacro}

65 = numeric n;

66 = n :=3D \MPvar{num}-1;

67 = linesUD(n);

68 = \stopuseMPgraphic

70 \setupinteraction[state=3Dstart]

71 \usemodule[animation]

72 = \starttext

73 = %\startanimation[menu=3Dyes]

74 = %{

75 >> \dorecurse{\udMacro}

76 = {\useMPgraphic{foldUD}{num=3D\recurselevel}}

77= = {\useMPgraphic{dotLines}{num=3D\recurselevel}}

78 %}

= --Apple-Mail=_EF8EB74B-BD4E-4017-8243-842DEC1C872E-- --===============2986026962669565173== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: base64 Content-Disposition: inline X19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19f X19fX19fX19fX19fX19fX19fX19fX19fX18KSWYgeW91ciBxdWVzdGlvbiBpcyBvZiBpbnRlcmVz dCB0byBvdGhlcnMgYXMgd2VsbCwgcGxlYXNlIGFkZCBhbiBlbnRyeSB0byB0aGUgV2lraSEKCm1h aWxsaXN0IDogbnRnLWNvbnRleHRAbnRnLm5sIC8gaHR0cDovL3d3dy5udGcubmwvbWFpbG1hbi9s aXN0aW5mby9udGctY29udGV4dAp3ZWJwYWdlICA6IGh0dHA6Ly93d3cucHJhZ21hLWFkZS5ubCAv IGh0dHA6Ly9jb250ZXh0LmFhbmhldC5uZXQKYXJjaGl2ZSAgOiBodHRwczovL2JpdGJ1Y2tldC5v cmcvcGhnL2NvbnRleHQtbWlycm9yL2NvbW1pdHMvCndpa2kgICAgIDogaHR0cDovL2NvbnRleHRn YXJkZW4ubmV0Cl9fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19f X19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fCg== --===============2986026962669565173==--