Fichier sections.mp (figure 5) — Modifié le 19 Novembre 2006 à 21 h 21

sections.mp (figure 5)
Source

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