doc/figures/prismearrondi.mp

   1 input mp-solid
   2
   3 figureespace(-10u,-10u,10u,10u);
   4 Initialisation(1500,-25,30,30);
   5 outcolor:=blanc;
   6 eclairage:=false;
   7 nb:=6;subh:=6;
   8 Objetgrille0("am=-3","an=3","bm=-3","bn=3");
   9 AffichageObjet0;
  10 eclairage:=true;
  11 nb:=1;
  12 outcolor:=0.5[orange,blanc];
  13 ObjetPrisme1("axe=(0,0,1)","h=6")(for k=0 step 10 until 90:(1+cosd(k),1+sind(k),0),endfor for k=90 step 10 until 180:(cosd(k)-1,1+sind(k),0), endfor for k=180 step 10 until 270:(cosd(k)-1,sind(k)-1,0), endfor for k=270 step 10 until 350:(cosd(k)+1,sind(k)-1,0), endfor (2,1,0));
  14 AffichageObjet1;
  15 TraceAxesD(4,4,8);
  16 finespace;
  17 end