\input fig4tex.tex % 1. Definition des points caracteristiques de la geometrie \figinit{7cm, ortho} % Sommets \figpt 1:(0.5,0.5,1.3) \figpt 2:(0,0) \figpt 3:(1,0.5) \figpt 4:(0,1.4) % Points sur les faces et a l'interieur \figptbary 6:[1,2,3;1,1,1]\figptbary 7:[1,2,4;1,1,1] \figptbary 8:[1,3,4;1,1,1]\figptbary 9:[2,3,4;1,1,1] \figptbary 10:[6,7,8;3,1,2] % Plan de coupe \figvectC 11(1,0,0)\figvectC 12(0,1.2,0)\figvectNV 13[11,12] \figpt 21:(0,0,0.7)\figpttra 22:=21/0.4,11/ \figpttra 24:=21/1,12/\figpttra 23:=24/1,11/\figpttra 25:=23/-0.3,12/ % Intersections avec le plan de coupe \figvectP20[1,10]\figptinterlineplane 31:[1,20;21,13] \figvectP20[1,2]\figptinterlineplane 32:[1,20;21,13] \figvectP20[1,3]\figptinterlineplane 33:[1,20;21,13] \figvectP20[1,4]\figptinterlineplane 34:[1,20;21,13] \figvectP20[1,6]\figptinterlineplane 36:[1,20;21,13] \figvectP20[1,7]\figptinterlineplane 37:[1,20;21,13] \figvectP20[1,8]\figptinterlineplane 38:[1,20;21,13] \figset projection(longitude=-29, latitude=24) %\figset projection(longitude=-29, latitude=24, targetpt=10) % 2. Creation du fichier graphique \figdrawbegin{} % Aretes externes du tetraedre \figset (width=1)\figdrawline[3,1,2,3,4,1]\figset (dash=7)\figdrawline[2,4] % Aretes internes du tetraedre \figset (dash=5)\figdrawline[2,10,3]\figdrawline[1,10,4] % Faces \figset (dash=default, width=default, color=\Bluergb) \figdrawline[1,6,2]\figdrawline[6,3]\figdrawline[1,8,3]\figdrawline[8,4] \figset (dash=7)\figdrawline[1,7,2]\figdrawline[7,4]\figdrawline[2,9,3]\figdrawline[9,4] % Plan de coupe \figset (color=\Redrgb) \figset (dash=4)\figdrawline[25,23,24,21,22]\figset (dash=default) % Triangle de Powell-Sabin \figset (width=0.6) \figdrawline[32,33,34]\figset (dash=7)\figdrawline[32,34] \figset (dash=5)\figdrawline[34,31,36]\figdrawline[33,31,37]\figdrawline[32,31,38] \figdrawend % 3. Inscription du texte sur le dessin \def\dist{2pt} \figvisu{\figBoxA}{}{% %\figshowpts[1,10] \figwriten 1:(\dist)\figwritew 2:(\dist) \figwrites 3:(\dist)\figwritee 4:(\dist) } \centerline{\box\figBoxA} \bye