ASY-Forum

import three;
 
void angledroit(picture pic=currentpicture,
                triple pO, triple pI, triple pJ, real size=.5, pen p=black,
                projection P=currentprojection){
     triple imI=pO+size*unit(pI-pO),
            imJ=pO+size*unit(pJ-pO),
            imK=imI+imJ-pO;
     draw(imI--imK--imJ,p);}
 
currentprojection=orthographic(8,10,8);
currentlight=nolight;
size(10cm);
real a=4.5;
pen p=fontsize(10pt);
 
triple sommet []={(0,0,0),(a,0,0),(a,12-a,0),(0,12-a,0),(0,0,3*a)};
path3 planp1=sommet[0]--sommet[1]--sommet[2]--sommet[3]--cycle;
path3 planp2=sommet[0]--sommet[1]--sommet[4]--cycle;
path3 planp3=sommet[0]--sommet[3]--sommet[4]--cycle;
path3 planp4=sommet[1]--sommet[2]--sommet[4]--cycle;
 
draw(surface(planp1,planar=true),lightgray+opacity(0.3));
draw(surface(planp2,planar=true),lightgray+opacity(0.3));
draw(surface(planp3,planar=true),lightgray+opacity(0.3));
draw(surface(planp4,planar=true),lightgray+opacity(0.3));
 
draw(sommet[4]--sommet[1]--sommet[2]--cycle^^sommet[2]--sommet[3]--sommet[4]);
draw(sommet[0]--sommet[1]^^sommet[0]--sommet[4]^^sommet[0]--sommet[3],dashed+linetype("6 6"));
 
angledroit(sommet[0],sommet[4],sommet[1],size=0.35);
angledroit(sommet[0],sommet[3],sommet[4],size=0.35);
 
label("S",sommet[4],Z,p);
label("B",sommet[1],0.5*X+0.5*Y-Z,p);
label("C",sommet[2],0.5*X+Y-Z,p);
label("D",sommet[3],0.2*X+Y-Z,p);
label("A",sommet[0],0.2*X+0.2*Y-2*Z,p);