Geometriesyr16 - Exemple 3

 prologues:=2;
 input geometriesyr16;
 
 

 figureespace(-10u,-10u,10u,10u);
 Initialisation(5,30,35,500);
 color A,B,C,D,E,F,G,H,I,J,K;
 trace Cube(A,B,C,D,E,F,G,H);
 I=1/3[F,A];
 J=2/3[D,C];
 K=1/4[H,C];
 trace IntersectionPlanPlan(H,G,F,I,J,K) cutbefore segment(F,G) cutafter segment(G,H) withcolor orange;
 nomme.llft(A);
 nomme.bot(B);
 nomme.rt(C);
 nomme.ulft(D);
 nomme.ulft(E);
 nomme.lft(F);
 nomme.lrt(G);
 nomme.urt(H);
 marque_p:="plein";
 nomme.lft(I);
 nomme.top(J);
 nomme.lft(K);
 finespace;
 end