input mp-solid

%10"
figureespace(-10u,-10u,10u,10u);

nb:=16;
unit:=0.8;
Initialisation(1000,20,45,37.5);
for k=-5 upto 5:
  draw Projette((k,-5,0))--Projette((k,5,0));
  draw Projette((-5,k,0))--Projette((5,k,0));
endfor;
arcenciel:=true;
draw Tuben("(4*cos(t)+cos(4*t)/2,4*sin(t)-sin(4*t)/2,1)","(-4*sin(t)-2*sin(4*t),4*cos(t)-2*cos(4*t),0)",1,0,102,0.06283);
finespace;
end