doc/figures/prismebifolium.mp

   1 input mp-solid
   2
   3 figureespace(-10u,-10u,10u,10u);
   4 Initialisation(500,60,30,25);
   5 Lumiere:=Oeil;
   6 outcolor:=blanc;
   7 creux:=false;
   8 subh:=10;
   9 Objetgrille1("am=-5","an=5","bm=-5","bn=5");
  10 AffichageObjet1;
  11 outcolor:=vert;
  12 incolor:=orange;
  13 nb:=1;
  14 subh:=5;
  15 creux:=true;
  16 ObjetPrisme2("axe=(0,0,1)","h=6",for k=0 step 5 until 175:(12*sind(k)*(cosd(k)**3),12*(sind(k)**2)*(cosd(k)**2),0),endfor (0,0,0));
  17 AffichageObjet2;
  18 TraceAxes;
  19 finespace;
  20 end