#%
sub JungleGym(a, b)
{
Susr[0] = ({"v_=domain(-4,24,v);u_=domain(0,2*pai,u);
v_", "a+Cos[u_]", "b+Sin[u_]"});
Susr[1] = ({"v_=domain(-4,24,v);u_=domain(0,2*pai,u);
a+Cos[u_]", "v_", "b+Sin[u_]"});
Susr[2] = ({"v_=domain(-4,24,v);u_=domain(0,2*pai,u);
a+Cos[u_]", "b+Sin[u_]", "v_"});
put 1;
uvmesh(20,5);
etrgmesh(Susr[0]);
etrgmesh(Susr[1]);
etrgmesh(Susr[2]);
}
sub JungleGyms(num, P)
{
for ( i = 0; i < num; i++){
a = P[i]{0};
b = P[i]{1};
call JungleGym(a,b)->();
}
}
k = 0;
for ( i = 0; i <= 20; i=i+10){
for ( j = 0; j <= 20; j=j+10){
P[k]=[i,j];
k++;
}
}
call JungleGyms(k, P)->();
end;
|