\input fig4tex
\nopagenumbers
\def\GrisClair{0.8}
% Trace figuratif du tiers LambdaTrois du coin de Fichera 3D "etendu"
% (3 murs 2 a 2 perpendiculaires dans l'octant x>0, y>0, z>0)

% ---
% Trace en couleur Couleur d'un polygone de sommets Pt1, Pt2, ..., PtN
% et trace de son contour.
% Appel : \drawpatch Couleur[Pt1, Pt2, ..., PtN]
\def\drawpatch#1[#2]{%
\figset (color=#1,fill=yes)\figdrawline[#2]
\figset (color=default,fill=no)\figdrawline[#2]}
% ---

% 1. Definition of characteristic points
\figinit{8cm,realistic}
\def\ep{0.2}% epaisseur des murs
% Points externes
%\figpt 1:(1,1)\figpt 2:(0,1)
\figpt 3:(0,0)
%\figpt 4:(1,0)
\figpt 5:(0,1,1)
\figpt 6:(0,0,1)
\figpt 7:(1,0,1)
% Points internes
%\figpt 11:(1,1,\ep)\figpt 12:(\ep,1,\ep)
\figpt 13:(\ep,\ep,\ep)
%\figpt 14:(1,\ep,\ep)
\figpt 15:(\ep,1,1)
\figpt 16:(\ep,\ep,1)
\figpt 17:(1,\ep,1)
%
% Appel \LambdaTroisInt{longitude}{latitude}{distance}
\def\LambdaTroisInt#1#2#3{%
% 2. Creation of the graphical file
\figset projection(longitude=#1, latitude=#2, dist=#3)
\figdrawbegin{}
\figset (join=round)
% Section par le plan y=z
\drawpatch \GrisClair[3,5,15,13,3]
% Section par le plan x=z
\drawpatch \GrisClair[3,7,17,13,3]
% Plan interne (x,z)
\drawpatch 1[16,13,17]
% Plan interne (y,z)
\drawpatch 1[16,13,15]
% Section selon Oz
\figset (dash=4)
\drawpatch 0.5[6,5,15,16,17,7,6]
%\figdrawaxes 13(1.2)
\figdrawend
%
% 3. Writing text on the figure
\figvisu{\figBoxA}{}{
%\figshowpts[1,17]
}
\centerline{\box\figBoxA}
}
% Appel \LambdaTroisExt{longitude}{latitude}{distance}
\def\LambdaTroisExt#1#2#3{%
% 2. Creation of the graphical file
\figset projection(longitude=#1, latitude=#2, dist=#3)
\figdrawbegin{}
\figset (join=round)
% Plan externe (x,z)
\drawpatch 1[6,3,7]
% Plan externe (y,z)
\drawpatch 1[6,3,5]
% Section selon Oz
\figset (dash=4)
\drawpatch 0.5[6,5,15,16,17,7,6]
%\figdrawaxes 13(1.2)
\figdrawend
%
% 3. Writing text on the figure
\figvisu{\figBoxA}{}{
%\figshowpts[1,17]
}
\centerline{\box\figBoxA}
}
%\LambdaTroisInt{27}{30}{20}
%\vfill
\LambdaTroisInt{27}{10}{20}
\vfill
\LambdaTroisExt{-120}{10}{20}
\bye