%@AUTEUR: Guillaume Connan prologues:=1; input geometriesyr16; input fichierps; verbatimtex %&latex \documentclass{article} \begin{document} etex InitFichierPS(-6u,-7u,8u,7u); pickup pencircle scaled 1.2bp; typerepre:="persp"; figureespace(-20u,-20u,20u,20u); Initialisation(5,30,35,200); color A,B,C,D,E,F,G,H,I,J,K,L,M; 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]; L=IntersectionDroite(J,K,E,H); label.top(btex A etex,Projette(L))withcolor white; path section; section=buildcycle(IntersectionPlanPlan(H,G,F,I,J,K), IntersectionPlanPlan(A,G,F,I,J,K), IntersectionPlanPlan(A,E,F,I,J,K), IntersectionPlanPlan(A,D,C,I,J,K), segment(J,K), IntersectionPlanPlan(G,H,C,I,J,K)); fillcolor:=1.3orange; %transparence section; 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; %2 figureespace(-20u,-20u,20u,20u); Initialisation(5,30,35,200); color A,B,C,D,E,F,G,H,I,J,K, L,M; 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]; L=IntersectionDroite(J,K,E,H); label.top(btex A etex,Projette(L))withcolor white; trace segment(J,K) dashed evenly withcolor bleu withpen pencircle scaled 1.5bp; path section,fond; section=buildcycle(IntersectionPlanPlan(H,G,F,I,J,K), IntersectionPlanPlan(A,G,F,I,J,K), IntersectionPlanPlan(A,E,F,I,J,K), IntersectionPlanPlan(A,D,C,I,J,K), segment(J,K), IntersectionPlanPlan(G,H,C,I,J,K)); fillcolor:=jaune; fond=polygone(D,C,L,E); transparence fond; %nomme.top(L); 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; %3 figureespace(-20u,-20u,20u,20u); Initialisation(5,30,35,200); color A,B,C,D,E,F,G,H,I,J,K, L,M; 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]; L=IntersectionDroite(J,K,E,H); label.top(btex A etex,Projette(L))withcolor white; trace segment(J,K) dashed evenly withcolor bleu withpen pencircle scaled 1.5bp; trace segment(K,L) withcolor bleu withpen pencircle scaled 1.5bp; path section; section=buildcycle(IntersectionPlanPlan(H,G,F,I,J,K), IntersectionPlanPlan(A,G,F,I,J,K), IntersectionPlanPlan(A,E,F,I,J,K), IntersectionPlanPlan(A,D,C,I,J,K), segment(J,K), IntersectionPlanPlan(G,H,C,I,J,K)); fillcolor:=jaune; path fond; fond=polygone(D,C,L,E); transparence fond; 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; %4 figureespace(-20u,-20u,20u,20u); Initialisation(5,30,35,200); color A,B,C,D,E,F,G,H,I,J,K, L,M; 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]; L=IntersectionDroite(J,K,E,H); trace segment(J,K) dashed evenly withcolor bleu withpen pencircle scaled 1.5bp; trace segment(K,L) withcolor bleu withpen pencircle scaled 1.5bp; trace segment(H,L) withcolor bleu withpen pencircle scaled 1.5bp; path section; section=buildcycle(IntersectionPlanPlan(H,G,F,I,J,K), IntersectionPlanPlan(A,G,F,I,J,K), IntersectionPlanPlan(A,E,F,I,J,K), IntersectionPlanPlan(A,D,C,I,J,K), segment(J,K), IntersectionPlanPlan(G,H,C,I,J,K)); fillcolor:=jaune; path fond; fond=polygone(D,C,L,E); transparence fond; nomme.top(L); 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; %5 figureespace(-20u,-20u,20u,20u); Initialisation(5,30,35,200); color A,B,C,D,E,F,G,H,I,J,K, L,M; 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]; L=IntersectionDroite(J,K,E,H); trace segment(J,K) dashed evenly withcolor bleu withpen pencircle scaled 1.5bp; trace segment(K,L) withcolor bleu withpen pencircle scaled 1.5bp; trace segment(H,L) withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(A,G,F,I,J,K) cutbefore segment(F,G) cutafter segment(F,A) withcolor bleu withpen pencircle scaled 1.5bp; path section; section=buildcycle(IntersectionPlanPlan(H,G,F,I,J,K), IntersectionPlanPlan(A,G,F,I,J,K), IntersectionPlanPlan(A,E,F,I,J,K), IntersectionPlanPlan(A,D,C,I,J,K), segment(J,K), IntersectionPlanPlan(G,H,C,I,J,K)); fillcolor:=jaune; path face; face=polygone(F,G,B,A); transparence face; nomme.top(L); 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; %6 figureespace(-20u,-20u,20u,20u); Initialisation(5,30,35,200); color A,B,C,D,E,F,G,H,I,J,K, L,M; 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]; L=IntersectionDroite(J,K,E,H); trace segment(J,K) dashed evenly withcolor bleu withpen pencircle scaled 1.5bp; trace segment(K,L) withcolor bleu withpen pencircle scaled 1.5bp; trace segment(H,L) withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(A,G,F,I,J,K) cutbefore segment(F,G) cutafter segment(F,A) withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(H,G,F,I,J,K) cutbefore segment(F,G) cutafter segment(L,H) withcolor bleu withpen pencircle scaled 1.5bp; path section; section=buildcycle(IntersectionPlanPlan(H,G,F,I,J,K), IntersectionPlanPlan(A,G,F,I,J,K), IntersectionPlanPlan(A,E,F,I,J,K), IntersectionPlanPlan(A,D,C,I,J,K), segment(J,K), IntersectionPlanPlan(G,H,C,I,J,K)); fillcolor:=orange; path fond; fond=polygone(F,E,L,G); transparence fond; nomme.top(L); 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; %7 figureespace(-20u,-20u,20u,20u); Initialisation(5,30,35,200); color A,B,C,D,E,F,G,H,I,J,K, L,M; 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]; L=IntersectionDroite(J,K,E,H); trace segment(J,K) dashed evenly withcolor bleu withpen pencircle scaled 1.5bp; trace segment(K,L) withcolor bleu withpen pencircle scaled 1.5bp; trace segment(H,L) withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(A,G,F,I,J,K) cutbefore segment(F,G) cutafter segment(F,A) withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(H,G,F,I,J,K) cutbefore segment(F,G) cutafter segment(L,H) withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(A,D,C,I,J,K) cutbefore segment(D,C) cutafter segment(D,A) dashed evenly withcolor bleu withpen pencircle scaled 1.5bp; path section; section=buildcycle(IntersectionPlanPlan(H,G,F,I,J,K), IntersectionPlanPlan(A,G,F,I,J,K), IntersectionPlanPlan(A,E,F,I,J,K), IntersectionPlanPlan(A,D,C,I,J,K), segment(J,K), IntersectionPlanPlan(G,H,C,I,J,K)); fillcolor:=orange; path fond; fond=polygone(D,A,B,C); transparence fond; nomme.top(L); 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; %8 figureespace(-20u,-20u,20u,20u); Initialisation(5,30,35,200); color A,B,C,D,E,F,G,H,I,J,K, L,M; 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]; L=IntersectionDroite(J,K,E,H); fillcolor:=jaune; path fond; fond=polygone(F,E,D,A); transparence fond; trace segment(J,K) dashed evenly withcolor bleu withpen pencircle scaled 1.5bp; trace segment(K,L) withcolor bleu withpen pencircle scaled 1.5bp; trace segment(H,L) withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(A,G,F,I,J,K) cutbefore segment(F,G) cutafter segment(F,A) withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(H,G,F,I,J,K) cutbefore segment(F,G) cutafter segment(L,H) withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(A,D,C,I,J,K) cutbefore segment(D,C) cutafter segment(D,A) dashed evenly withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(A,E,F,I,J,K) cutbefore segment(F,A) cutafter segment(D,A) dashed evenly withcolor bleu withpen pencircle scaled 1.5bp; path section; section=buildcycle(IntersectionPlanPlan(H,G,F,I,J,K), IntersectionPlanPlan(A,G,F,I,J,K), IntersectionPlanPlan(A,E,F,I,J,K), IntersectionPlanPlan(A,D,C,I,J,K), segment(J,K), IntersectionPlanPlan(G,H,C,I,J,K)); nomme.top(L); 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; %9 figureespace(-20u,-20u,20u,20u); Initialisation(5,30,35,200); color A,B,C,D,E,F,G,H,I,J,K, L,M; 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]; L=IntersectionDroite(J,K,E,H); trace segment(J,K) dashed evenly withcolor bleu withpen pencircle scaled 1.5bp; trace segment(K,L) withcolor bleu withpen pencircle scaled 1.5bp; trace segment(H,L) withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(A,G,F,I,J,K) cutbefore segment(F,G) cutafter segment(F,A) withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(H,G,F,I,J,K) cutbefore segment(F,G) cutafter segment(L,H) withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(A,D,C,I,J,K) cutbefore segment(D,C) cutafter segment(D,A) dashed evenly withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(A,E,F,I,J,K) cutbefore segment(F,A) cutafter segment(D,A) dashed evenly withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(G,H,C,I,J,K) cutbefore segment(H,G) cutafter segment(H,C) withcolor bleu withpen pencircle scaled 1.5bp; path section; section=buildcycle(IntersectionPlanPlan(H,G,F,I,J,K), IntersectionPlanPlan(A,G,F,I,J,K), IntersectionPlanPlan(A,E,F,I,J,K), IntersectionPlanPlan(A,D,C,I,J,K), segment(J,K), IntersectionPlanPlan(G,H,C,I,J,K)); fillcolor:=orange; fillcolor:=jaune; path fond; fond=polygone(G,B,C,H); transparence fond; trace IntersectionPlanPlan(H,G,F,I,J,K) cutbefore segment(F,G) cutafter segment(L,H) withcolor bleu withpen pencircle scaled 1.5bp; nomme.top(L); 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; %10 figureespace(-20u,-20u,20u,20u); Initialisation(5,30,35,200); color A,B,C,D,E,F,G,H,I,J,K, L,M,N,O,P; 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]; L=IntersectionDroite(J,K,E,H); trace segment(J,K) dashed evenly withcolor bleu withpen pencircle scaled 1.5bp; trace segment(K,L) withcolor bleu withpen pencircle scaled 1.5bp; trace segment(H,L) withcolor bleu withpen pencircle scaled 1.5bp; I-N=whatever*(J-K); F-N=whatever*(F-G);; A-P=whatever*(A-D); G-O=whatever*(G-H); N-O=whatever*(N-L); P-J=whatever*(N-O); P-I=whatever*(K-O); trace IntersectionPlanPlan(A,G,F,I,J,K) cutbefore segment(F,G) cutafter segment(F,A) withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(H,G,F,I,J,K) cutbefore segment(F,G) cutafter segment(L,H) withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(A,D,C,I,J,K) cutbefore segment(D,C) cutafter segment(D,A) dashed evenly withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(A,E,F,I,J,K) cutbefore segment(F,A) cutafter segment(D,A) dashed evenly withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(G,H,C,I,J,K) cutbefore segment(H,G) cutafter segment(H,C) withcolor bleu withpen pencircle scaled 1.5bp; path section; section=buildcycle(IntersectionPlanPlan(H,G,F,I,J,K), IntersectionPlanPlan(A,G,F,I,J,K), IntersectionPlanPlan(A,E,F,I,J,K), IntersectionPlanPlan(A,D,C,I,J,K), segment(J,K), IntersectionPlanPlan(G,H,C,I,J,K)); fillcolor:=ciel; transparence section; nomme.top(L);nomme.top(O);nomme.top(N);nomme.bot(P); 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; %11 figureespace(-20u,-20u,20u,20u); Initialisation(5,30,35,200); color A,B,C,D,E,F,G,H,I,J,K, L,M,N,O,P; picture c; c:=Cube(A,B,C,D,E,F,G,H); I=1/3[F,A]; J=2/3[D,C]; K=1/4[H,C]; L=IntersectionDroite(J,K,E,H); trace segment(J,K) withcolor bleu withpen pencircle scaled 1.5bp; I-N=whatever*(J-K); F-N=whatever*(F-G);; A-P=whatever*(A-D); G-O=whatever*(G-H); N-O=whatever*(N-L); P-J=whatever*(N-O); P-I=whatever*(K-O); trace segment(J,K) withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(A,G,F,I,J,K) cutbefore segment(F,G) cutafter segment(F,A) withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(H,G,F,I,J,K) cutbefore segment(F,G) cutafter segment(O,H) withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(A,D,C,I,J,K) cutbefore segment(D,C) cutafter segment(D,A) withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(A,E,F,I,J,K) cutbefore segment(F,A) cutafter segment(D,A) withcolor bleu withpen pencircle scaled 1.5bp; trace IntersectionPlanPlan(G,H,C,I,J,K) cutbefore segment(H,G) cutafter segment(H,C) withcolor bleu withpen pencircle scaled 1.5bp; label.llft(btex A etex,Projette(A))withcolor white; label.bot(btex B etex,Projette(B))withcolor white; label.rt(btex A etex,Projette(C))withcolor white; label.lrt(btex A etex,Projette(G))withcolor white; label.top(btex A etex,Projette(L))withcolor white; trace segment(F,I) withpen pencircle ; trace segment(F,N) withpen pencircle ; trace segment(F,E) withpen pencircle ; trace segment(E,H) withpen pencircle ; trace segment(H,O) withpen pencircle ; trace segment(H,K) withpen pencircle ; trace segment(E,D) withpen pencircle dashed evenly; trace segment(P,D) withpen pencircle dashed evenly; trace segment(J,D) withpen pencircle dashed evenly; path section; section=buildcycle(IntersectionPlanPlan(H,G,F,I,J,K), IntersectionPlanPlan(A,G,F,I,J,K), IntersectionPlanPlan(A,E,F,I,J,K), IntersectionPlanPlan(A,D,C,I,J,K), segment(J,K), IntersectionPlanPlan(G,H,C,I,J,K)); fillcolor:=ciel; transparence section; nomme.top(O);nomme.top(N);nomme.bot(P); nomme.ulft(D); nomme.ulft(E); nomme.lft(F); nomme.urt(H); marque_p:="plein"; nomme.lft(I); nomme.top(J); nomme.lft(K); finespace; end