\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] %\figsetview(-29,28) \figsetview(-29,24)\figsettarget[10] % 2. Creation du fichier graphique \psbeginfig{} % Aretes externes du tetraedre \pssetwidth{1}\psline[3,1,2,3,4,1]\pssetdash{7}\psline[2,4] % Aretes internes du tetraedre \pssetdash{5}\psline[2,10,3]\psline[1,10,4] % Faces \pssetdash{\defaultdash}\pssetwidth{\defaultwidth} \pssetrgb{\Bluergb} \psline[1,6,2]\psline[6,3]\psline[1,8,3]\psline[8,4] \pssetdash{7}\psline[1,7,2]\psline[7,4]\psline[2,9,3]\psline[9,4] % Plan de coupe \pssetrgb{\Redrgb} \pssetdash{4}\psline[25,23,24,21,22]\pssetdash{\defaultdash} % Triangle de Powell-Sabin \pssetwidth{0.6} \psline[32,33,34]\pssetdash{7}\psline[32,34] \pssetdash{5}\psline[34,31,36]\psline[33,31,37]\psline[32,31,38] \psendfig % 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 |