input geometriesyr16;

figureespace(-5u,-5u,6.5u,6u);
Initialisation(5,30,20,700);
color A,B,C,D,E,F,G,H,I,J,K;
trace Cube(A,B,C,D,E,F,G,H);
nomme.llft(A);
nomme.lrt(B);
nomme.rt(C);
nomme.ulft(D);
nomme.top(E);
nomme.top(F);
nomme.ulft(G);
nomme.top(H);
I=1/2[A,B];
J=1/2[B,C];
K=1/2[E,D];
path cc;
cc=buildcycle(IntersectionPlanPlan(I,J,K,A,B,C),
  IntersectionPlanPlan(J,K,I,B,C,H),
  IntersectionPlanPlan(K,J,I,C,D,E),
  IntersectionPlanPlan(J,K,I,F,E,D),
  IntersectionPlanPlan(J,K,I,A,F,B));
trace cc withcolor orange;
marque_p:="plein";
nomme.bot(I);
nomme.bot(J);
nomme.urt(K);
finespace;
end