ASY-Forum

import three;
currentlight=nolight;
viewportmargin=(1mm,1mm);
size(5cm,0);
 
int a=4;
triple sommet[]    ={(0,0,0),(a,0,0),(a,a,0),(0,a,0),(0,0,a)};
string nom[]       ={"P"    ,"Q"    ,"R"    ,"S"    ,"O"    };
triple direction[] ={-X-Y-Z ,-2Y    ,2Y     ,2Y     ,Z      };
 
for(int z=0 ; z<a-1 ; ++z)
   for(int x=0 ; x<a-z-1 ; ++x)
       for(int y=0 ; y<a-z-1 ; ++y)
           draw(shift(x,y,z)*unitcube,palegray,.5bp+black);
 
for(int k=0; k<nom.length; ++k) label(nom[k],sommet[k],direction[k]);
 
draw(sommet[4]--sommet[1]--sommet[2]--cycle
     ^^sommet[2]--sommet[3]--sommet[4],
     1bp+black);
draw(sommet[3]--(0,a-1,0)^^sommet[1]--(a-1,0,0)^^sommet[4]--(0,0,a-1),
     linetype("4 4"));