input geometriesyr16; %pave %face figureespace(-10u,-10u,10u,10u); Initialisation(5,30,20,625); color A,B,C,D,E,F,G,H,K[]; A=(0,0,0); B-A=(0.75,0,0); C-A=(0,1,0); D-C=A-B; E-A=(0,0,0.5); F-B=E-A; G-C=E-A; H-D=E-A; K1=3/5[A,D]; K2-K1=B-A; K3-K2=E-A; K4-K3=A-B; trace hachurage(polygone(K1,K2,K3,K4),60,0.25,0); trace polygone(B,K2,K3,F); trace chemin(K2,K1,K4,K3); trace chemin(F,E,K4); trace chemin(E,A,B) dashed evenly; trace segment(A,K1) dashed evenly; picture sec; sec=image( trace polygone(K2,C,G,K3); trace chemin(C,D,H,G); trace chemin(K3,K4,H); trace chemin(K4,K1,K2) dashed evenly; trace segment(K1,D) dashed evenly; ); trace sec shifted(u*(2,0)); finespace; %arete figureespace(-10u,-10u,10u,10u); Initialisation(5,30,20,625); color A,B,C,D,E,F,G,H,K[]; A=(0,0,0); B-A=(0.5,0,0); C-A=(0,0.75,0); D-C=A-B; E-A=(0,0,0.45); F-B=E-A; G-C=E-A; H-D=E-A; K1=3/5[A,D]; K2=2/5[D,C]; K3-K2=E-A; K4-K3=K1-K2; trace polygone(B,C,G,F); trace chemin(C,K2,K3,G); trace chemin(F,E,K4,K3); trace chemin(K2,K1,K4,K3) dashed evenly; trace chemin(E,A,B) dashed evenly; trace segment(A,K1) dashed evenly; picture sec; sec=image( trace hachurage(polygone(K1,K2,K3,K4),60,0.25,0); trace polygone(K1,K2,K3,K4); trace chemin(K2,D,H,K3); trace chemin(K3,K4,H); trace chemin(K4,K1,K2) dashed evenly; trace segment(K1,D) dashed evenly; ); trace sec shifted(u*(2,0)); finespace; %cylindre %perp typerepre:="persp"; figureespace(-2u,-10u,8.5u,10u); Initialisation(5,10,10,125); color A,B,C,D; A=(0,0,0); B-A=(0,0.5,0); C-A=(0,1.25,0); path ca,cb,cc; ca=cercles(A,(0,0,0.5),A,(0,0,0.5),(0.5,0,0)); cb=cercles(B,B+(0,0,0.5),B,B+(0,0,0.5),B+(0.5,0,0)); cc=cercles(C,C+(0,0,0.5),C,C+(0,0,0.5),C+(0.5,0,0)); trace hachurage(cb,60,0.25,0); trace subpath(0,length ca/2) of ca; trace subpath(length ca/2,length ca) of ca dashed evenly; trace (point(0) of ca)--(point(0) of cb); trace (point(length ca/2) of ca)--(point(length cb/2) of cb); trace cb; trace droite(A,B) dashed dashpattern(on12bp off6bp on3bp off6bp); picture sec; sec=image( trace subpath(0,length cb/2) of cb; trace subpath(length cb/2,length cb) of cb dashed evenly; trace (point(0) of cb)--(point(0) of cc); trace (point(length cb/2) of cb)--(point(length cc/2) of cc); trace cc; ); trace sec shifted(u*(2,0)); finespace; %para figureespace(-10u,-2u,12u,5u); Initialisation(5,0,10,125); color A,B,M[]; A=(0,0,0); B-A=(0,0,0.75); M2=A+0.5*(cosd(50),sind(50),0); M1-M2=B-A; M3=A+0.5*(cosd(170),sind(170),0); M4-M3=M1-M2; trace chemin(M4,M3,M2) dashed evenly; trace chemin(M2,M1,M4); marque_p:="plein"; pointe(A,B); path ca,cb; ca=cercles(A,(0,0.5,0),A,(0,0.5,0),(-0.5,0,0)); cb=cercles(B,B+(0,0.5,0),B,B+(0,0.5,0),B+(-0.5,0,0)); trace (subpath(0,length ca/2) of ca) cutbefore segment(M2,M3) dashed evenly; trace (subpath(length ca/2,length ca) of ca) cutafter segment(M2,M3); trace cb cutbefore segment(M1,M4) cutafter segment(M1,M4); trace (point(length ca/2) of ca)--(point(length cb/2) of cb); trace droite(A,B) dashed dashpattern(on12bp off6bp on3bp off6bp); picture sec; sec=image( trace hachurage(polygone(M1,M2,M3,M4),60,0.25,0); trace polygone(M1,M2,M3,M4); trace (point(0) of ca)--(point(0) of cb); trace (subpath(0,length ca/2) of ca) cutafter segment(M2,M3) dashed evenly; trace (subpath(length ca/2,length ca) of ca) cutbefore segment(M2,M3); trace cb cutafter segment(M4,M4); trace reverse(cb) cutafter segment(M1,M1); ); trace sec shifted(u*(3,0)); finespace; %cone figureespace(-10u,-1u,10u,8u); Initialisation(5,0,5,200); color A,S,M; A=(0,0,0); S-A=(0,0,0.75); M=2/5[A,S]; path ca,CM; ca=cercles(A,(0,0.5,0),A,(0,0.5,0),(-0.5,0,0)); CM=cercles(M,M+(0,0.6*0.5,0),M,M+(0,0.6*0.5,0),M+(-0.6*0.5,0,0)); trace CM; trace subpath(0,length ca/2) of ca dashed evenly; trace subpath(length ca/2,length ca) of ca; trace (point(0) of ca)--(point(0) of CM); trace (point(length ca/2) of ca)--(point(length CM/2) of CM); trace hachurage(CM,60,0.25,0); picture sec; sec=image( trace (point(0) of CM)--Projette(S)--(point(length CM/2) of CM); trace subpath(0,length CM/2) of CM dashed evenly; trace subpath(length CM/2,length CM) of CM; ); trace sec shifted(u*(0,2)); trace droite(A,S) dashed dashpattern(on12bp off6bp on3bp off6bp); finespace; %pyramide typerepre:="proj"; figureespace(-10u,-2u,10u,8u); Initialisation(5,22,20,600); color A,B,C,D,E,F,S,O,Ma,Mb,Mc,Md,Me,Mf; O=(0,0,0); C=(1,0,0); D=(cosd(60),sind(60),0); E=(cosd(120),sind(120),0); F=(cosd(180),sind(180),0); A=(cosd(240),sind(240),0); B=(cosd(300),sind(300),0); S=(0,0,1); Ma=2/5[A,S]; Mb=2/5[B,S]; Mc=2/5[C,S]; Md=2/5[D,S]; Me=2/5[E,S]; Mf=2/5[F,S]; NbS:=13; Sommet1:=A; Sommet2:=B; Sommet3:=C; Sommet4:=D; Sommet5:=E; Sommet6:=F; Sommet7:=S; Sommet8:=Ma; Sommet9:=Mb; Sommet10:=Mc; Sommet11:=Md; Sommet12:=Me; Sommet13:=Mf; NF:=8; Fc[100]:=6;Fc[101]:=6;Fc[102]:=5;Fc[103]:=4;Fc[104]:=3;Fc[105]:=2;Fc[106]:=1; Fc[200]:=4;Fc[201]:=1;Fc[202]:=2;Fc[203]:=9;Fc[204]:=8; Fc[300]:=4;Fc[301]:=2;Fc[302]:=3;Fc[303]:=10;Fc[304]:=9; Fc[400]:=4;Fc[401]:=3;Fc[402]:=4;Fc[403]:=11;Fc[404]:=10; Fc[500]:=4;Fc[501]:=4;Fc[502]:=5;Fc[503]:=12;Fc[504]:=11; Fc[600]:=4;Fc[601]:=5;Fc[602]:=6;Fc[603]:=13;Fc[604]:=12; Fc[700]:=4;Fc[701]:=6;Fc[702]:=1;Fc[703]:=8;Fc[704]:=13; Fc[800]:=6;Fc[801]:=8;Fc[802]:=9;Fc[803]:=10;Fc[804]:=11;Fc[805]:=12;Fc[806]:=13; DessineObjet; NF:=7; Fc[100]:=6;Fc[101]:=13;Fc[102]:=12;Fc[103]:=11;Fc[104]:=10;Fc[105]:=9;Fc[106]:=8; Fc[200]:=3;Fc[201]:=8;Fc[202]:=9;Fc[203]:=7; Fc[300]:=3;Fc[301]:=9;Fc[302]:=10;Fc[303]:=7; Fc[400]:=3;Fc[401]:=10;Fc[402]:=11;Fc[403]:=7; Fc[500]:=3;Fc[501]:=11;Fc[502]:=12;Fc[503]:=7; Fc[600]:=3;Fc[601]:=12;Fc[602]:=13;Fc[603]:=7; Fc[700]:=3;Fc[701]:=13;Fc[702]:=8;Fc[703]:=7; trace hachurage(polygone(Ma,Mb,Mc,Md,Me,Mf),60,0.25,0); trace droite(iso(A,B,C,D,E,F),S) dashed dashpattern(on12bp off6bp on3bp off6bp); marque_p:="plein"; pointe(iso(A,B,C,D,E,F),iso(Ma,Mb,Mc,Md,Me,Mf)); picture sec; sec=image( DessineObjet; pointe(iso(Ma,Mb,Mc,Md,Me,Mf)); ); trace sec shifted(u*(0,3)); finespace; end