doc/figures/torecolore.mp

   1 input mp-solid
   2
   3 perso1:=true;
   4 couleurperso:="if ((tapj div subh) mod 3)=0:if (tapj mod 3)=0: rouge elseif (tapj mod 3)=1: noir else: bleu fi elseif ((tapj div subh) mod 3)=1:if (tapj mod 3)=1: rouge elseif (tapj mod 3)=2: noir else: bleu fi elseif ((tapj div subh) mod 3)=2:if (tapj mod 3)=2: rouge elseif (tapj mod 3)=0: noir else: bleu fi fi;";
   5
   6 nb:=12;
   7 subh:=18;
   8
   9 figureespace(-10u,-10u,10u,10u);
  10 Initialisation(1500,30,20,50);
  11 angy:=25;angz:=-20;
  12 Objettore1("R=3","r=1");
  13 AffichageObjet1;
  14 finespace;
  15 end