doc/figures/doublesectioncone.mp

   1 input mp-solid
   2
   3 figureespace(-100u,-100u,100u,100u);
   4 Initialisation(2500,-60,30,75);
   5 creux:=true;
   6 outcolor:=jaune;
   7 incolor:=0.5[vert,white];
   8 nb:=30;subh:=11;
   9 angx:=90;
  10 TR:=(0,5,0);
  11 Objetcone15("r=2","h=10");
  12 angx:=0;
  13 TR:=(0,0,0);
  14 Objetplan21("An=(1,-1,0)","Bn=(2,-2,1)","Cn=(-2,2,1)");
  15 ObjetSepare15(1,2);
  16 Objetplan22("An=(1,1,0)","Bn=(2,2,1)","Cn=(-2,-2,1)");
  17 ObjetSepare1(3,4);
  18 AffichageObjet3;
  19 finespace;
  20 end