\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