Geometriesyr16 - Exemple 4

exemple.mp [ source brut ] 

 input geometriesyr16;
Conversion au format PDF de exemple.1
 figureespace(-10u,-10u,10u,10u);
 Initialisation(5,35,20,800);
 color S,A,B,C,I,J,K;
 S=(0,0,1);
 A=(1,0,0);
 B=(0,1,0);
 C=(-1/3,-1/2,0);
 I=1/3[C,A];
 J=1/4[S,A];
 K=2/5[S,B];
 path section;
 section=buildcycle(IntersectionPlanPlan(A,B,C,I,J,K),
   IntersectionPlanPlan(S,B,C,I,J,K),
   IntersectionPlanPlan(A,B,S,I,J,K),
   IntersectionPlanPlan(A,S,C,I,J,K));
 fillcolor:=jaune;
 transparence section;
 trace section withcolor orange;
 trace polygone(S,A,B);
 trace segment(A,B);
 trace chemin(A,C,B) dashed evenly;
 trace segment(S,C) dashed evenly;
 nomme.llft(A);
 nomme.lrt(B);
 nomme.bot(C);
 nomme.top(S);
 marque_p:="plein";
 nomme.lft(I);
 nomme.lft(J);
 nomme.rt(K);
 finespace;
 end