input geometriesyr16;

figureespace(-10u,-10u,10u,10u);
Initialisation(5,-30,10,500);
%%Sommets
Sommet1=(2,2.7,-2)/3;
Sommet2=(2,2.7,0)/3;
Sommet3=(2,-2.7,0)/3;
Sommet4=(2,-2.7,-2)/3;
Sommet5=(-2,-2.7,-2)/3;
Sommet6=(-2,2.7,-2)/3;
Sommet7=(-2,2.7,0)/3;
Sommet8=(0,1.7,2)/3;
Sommet9=(0,-1.7,2)/3;
Sommet10=(-2,-2.7,0)/3;
%%Faces
NF=9;
Fc[100]=4;Fc[101]=1;Fc[102]=2;Fc[103]=3;Fc[104]=4;
Fc[200]=4;Fc[201]=1;Fc[202]=6;Fc[203]=7;Fc[204]=2;
Fc[300]=3;Fc[301]=2;Fc[302]=7;Fc[303]=8;
Fc[400]=4;Fc[401]=2;Fc[402]=8;Fc[403]=9;Fc[404]=3;
Fc[500]=4;Fc[501]=1;Fc[502]=4;Fc[503]=5;Fc[504]=6;
Fc[600]=4;Fc[601]=7;Fc[602]=10;Fc[603]=9;Fc[604]=8;
Fc[700]=3;Fc[701]=10;Fc[702]=3;Fc[703]=9;%3 9 10
Fc[800]=4;Fc[801]=3;Fc[802]=10;Fc[803]=5;Fc[804]=4;%10 5 4 3
Fc[900]=4;Fc[901]=5;Fc[902]=10;Fc[903]=7;Fc[904]=6;
DessineObjet;
color bat[];
bat1=Sommet1+0.75*(Sommet1-Sommet4);
pointe(bat1);
bat2=1/5[bat1,Sommet1];
bat3=1/5[bat1,Sommet2];
trace segment(bat2,bat3);
trace chemin(Sommet1,bat1,Sommet2) dashed%
dashpattern(on12bp off6bp on3bp off6bp);
label.bot(btex A etex,Projette(Sommet1));
label.top(btex B etex,Projette(Sommet2));
label.rt(btex O etex,Projette(bat1));
label.bot(btex P etex,Projette(bat2));
label.top(btex R etex,Projette(bat3));
finespace;

end