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