doc/figures/demiprisme.mp

   1 input mp-solid
   2
   3 figureespace(-10u,-10u,10u,10u);
   4 Initialisation(500,60,30,25);
   5 outcolor:=blanc;
   6 creux:=false;
   7 subh:=10;
   8 Objetgrille1("am=-5","an=5","bm=-5","bn=5");
   9 AffichageObjet1;
  10 outcolor:=jaune;
  11 incolor:=rouge;
  12 nb:=1; subh:=5;
  13 angx:=90; TR:=(0,4,0);
  14 ObjetPrisme2("axe=(0,0,1)","h=8",for k=0 step 10 until 180:(3*cosd(k),3*sind(k),0), endfor for k=180 step -10 until 0:(cosd(k),sind(k),0), endfor(3,0,0));
  15 AffichageObjet2;
  16 TraceAxes;
  17 finespace;
  18
  19 angx:=0; TR:=(0,0,0);
  20
  21 figureespace(-10u,-10u,10u,10u);
  22 Initialisation(500,60,30,25);
  23 outcolor:=blanc;
  24 subh:=10;
  25 Objetgrille1("am=-5","an=5","bm=-5","bn=5");
  26 AffichageObjet1;
  27 outcolor:=jaune;
  28 incolor:=rouge;
  29 nb:=1; subh:=5;
  30 angx:=90; TR:=(0,4,0);
  31 creux:=true;
  32 ObjetPrisme2("axe=(0,0,1)","h=8",for k=0 step 10 until 180:(3*cosd(k),3*sind(k),0), endfor for k=180 step -10 until 0:(cosd(k),sind(k),0), endfor(3,0,0));
  33 AffichageObjet2;
  34 TraceAxes;
  35 finespace;
  36 end