doc/figures/torecreuse.mp

   1 input mp-solid
   2
   3 nb:=16; subh:=18;
   4
   5 figureespace(-10u,-10u,10u,10u);
   6 Initialisation(1000,30,20,30);
   7 numeroteface:=true;
   8 arcenciel:=true;
   9 %outcolor:=0.5[vert,white];
  10 incolor:=0.5[gris,white];
  11 Objettore1("R=2","r=1");
  12 AffichageObjet1;
  13 finespace;
  14
  15 numeroteface:=false;
  16
  17 figureespace(-10u,-10u,10u,10u);
  18 Initialisation(1000,30,20,30);
  19 creux:=true;
  20 arcenciel:=true;
  21 %outcolor:=0.5[vert,white];
  22 incolor:=0.5[gris,white];
  23 Objettore1("R=2","r=1");
  24 string Face;
  25 Face=""&for k=133 step 2 until 193:decimal(k)&","&""& endfor decimal(195)&"";
  26 ObjetEnleve1(scantokens Face);
  27 AffichageObjet1;
  28 finespace;
  29
  30 end