doc/figures/sectionsphere.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:=19;
   9 Objetsphere15("R=1");
  10 Objetplan21("An=(1,0,0)","Bn=(0,1,0)","Cn=(0,0,1)");
  11 ObjetSepare15(3,4);
  12 AffichageObjet3;
  13 TraceAxesDD(0,0,0)(1.5,1.5,1.5);
  14 finespace;
  15 end