\input fig4tex.tex
%
% 0. Initialization of variables (macros)
\def\Obdist{5000}\def\Valpsi{-68}\def\Valtheta{15} % Setting 3D parameters
%
\figinit{pt,realistic}
% Setting view angles for 'realistic' projection and observation distance
\figset projection(longitude=\Valpsi, latitude=\Valtheta, distance=\Obdist)
% 1. Characteristic points
\def\dist{280} % Edge length
\figpt 1:(0,0) % Defining 1 point
\figpttraC 2:=1/\dist,0,0/ % 3D translations in 'z=0' plane
\figpttraC 3:=1/\dist,\dist,0/
\figpttraC 4:=1/0,\dist,0/
\figvectC 10(0,0,\dist)\figptstra 5=1,2,3,4/1,10/ % 3D vertical translations
\figptbary21:[1,2,6,5;1,1,1,1] % Barycenters of faces
\figptbary22:[2,3,7,6;1,1,1,1]
\figptbary23:[5,6,7,8;1,1,1,1]
\figptbary24:[3,4,8,7;1,1,1,1]
\figptbary25:[4,1,5,8;1,1,1,1]
\figptbary26:[1,2,3,4;1,1,1,1]
% 2. Creation of the graphical file
\figdrawbegin{}
\figset (width=2)\figdrawline[1,2,6,5,1] % Drawing the edges of the cube
\figset (width=.4)\figdrawline[3,7,8]
\figset (dash=4)\figdrawline[3,4,8]
\figset (width=1)\figdrawline[1,4]
\figset (dash=1)\figdrawline[2,3]\figdrawline[5,8]\figdrawline[6,7]
\figset (dash=3)
% Drawing dashed circles on faces
\figset (width=1.2)\figdrawcirc21,1,2(50)
\figset (width=0.8)\figdrawcirc22,2,3(60) % with different width
\figset (width=1.2)\figdrawcirc23,5,6(60)
\figset (width=0.4)\figdrawcirc24,3,4(50)
\figset (width=0.6)\figdrawcirc25,4,1(60)
\figset (width=0.8)\figdrawcirc26,1,2(60)
\figdrawend
% 3. Writing text on the figure
\def\dist{3pt}
\figvisu{\figBoxA}{}{% An empty caption for the figure
\figset write(mark=$\figBullet$, ptname={{\bf#1}}) % Boldface numbers for vertices
\figwritesw 1:(\dist)\figwritese 2:(\dist)
\figwritee 3:(\dist)\figwritenw 4:(5pt)
\figwritenw 5:(\dist)\figwritese 6:(\dist)
\figwritene 7:(\dist)\figwritenw 8:(\dist)
\figset write(mark=)
% Comments for edges at middle point using "\boxit" macro, undefined here
% bold face for 'foreground' edges,
\figptbary 0:[2,6;1,1]\figwritew 0:\boxit{2pt}{\bf Ar\^ete 1}(1pt)
\figptbary 0:[7,6;1,1]\figwritese0:\boxit{2pt}{\bf Ar\^ete 2}(1pt)
\figptbary 0:[5,6;1,1]\figwritesw0:\boxit{2pt}{\bf Ar\^ete 3}(1pt)
% slanted for 'background' edges.
\figptbary 0:[4,8;1,1]\figwritee 0:\boxit{2pt}{\sl Ar\^ete 4}(1pt)
\figptbary 0:[4,1;1,1]\figwritenw0:\boxit{2pt}{Ar\^ete 5}(1pt)
\figptbary 0:[4,3;1,1]\figwritesw0:\boxit{2pt}{Ar\^ete 6}(1pt)
\figptbary 0:[1,5;1,1]\figwritew 0:\boxit{2pt}{\bf Ar\^ete 7}(1pt)
\figptbary 0:[3,2;1,1]\figwritese0:\boxit{2pt}{\bf Ar\^ete 8}(1pt)
\figptbary 0:[8,7;1,1]\figwritene0:\boxit{2pt}{\sl Ar\^ete 9}(1pt)
\figptbary 0:[3,7;1,1]\figwritee 0:\boxit{2pt}{Ar\^ete 10}(1pt)
\figptbary 0:[8,5;1,1]\figwritenw0:\boxit{2pt}{\bf Ar\^ete 11}(1pt)
\figptbary 0:[1,2;1,1]\figwritesw0:\boxit{2pt}{\bf Ar\^ete 12}(1pt)
% Comments for faces at barycenter of each face
% boldface for 'foreground' faces 1,2,3
\figwritec[21]{\bf Face 1}\figwritec[22]{\bf Face 2}
\figwritec[23]{\bf Face 3}\figwritec[24]{Face 4}
\figwritec[25]{Face 5}\figwritec[26]{Face 6}
}
\par\centerline{\box\figBoxA}
\bye