input mp-solid

%3"
figureespace(-10u,-10u,10u,10u);
Initialisation(5,80,20,20);
eclairage:=false;
nb:=14;subh:=12;
outcolor:=blanc;
drawoptions(withcolor gris);
Objetgrille1("am=-7","an=7","bm=-6","bn=6");
AffichageObjet1;
drawoptions();
eclairage:=true;
r:=1;q:=4;
arcenciel:=true;
nb:=8;
draw Tuben("(r*((q+1)*cos(t)-cos((q+1)*t)),r*((q+1)*sin(t)-sin((q+1)*t)),0.5)","(r*(-(q+1)*sin(t)+(q+1)*sin((q+1)*t)),r*((q+1)*cos(t)-(q+1)*cos((q+1)*t)),0)",0.5,0,102,0.06283);
TraceAxesD(8,7,5);
finespace;
end