\input fig4tex.tex %%%%%%%%%%%%
%%%%%%%%%%%%
% pts caracteristiques
%%%%%%%%%%%%%
\figinit{1truecm,orthogonal}
\figvectC 10(0,0,1)\figvectC 20(-1.5,1.5,0)
% cylindre sur cercle
\figpt 0:(0,0,0)\figpt 2:(1,0,0)\figpt 3:(0,1,0)
\figpt 1:(0,0,5)\figpt 4:(1,0,5)\figpt 5:(0,1,5)
\figptrot 6 := 5 /1, 40, 10/ \figptrot 7 := 6 /1, 180, 10/
\figptrot 8 := 3 /0, 40, 10/ \figptrot 9 := 8 /0, 180, 10/
\figptstra 11=7,9/1.2,20/
\figptbary 13 :[11,12;1,1]
\figpt 14:(0,0,3)
\figptbary 15 :[14,0;1,1]
%%%%%%%%%%%%%%
% fichier graphical
%%%%%%%%%%%%%%%%
\psbeginfig{}
% cylindre sur cercle
\psarccirc 0,2,3 ; 1 (-50,130)
\psset(dash=5)
\psarccirc 0,2,3 ; 1 (130,310)
\psreset{first}
%\pscirc 0,2,3 (1)
\pscirc 1,4,5 (1)
\psline[6,8]\psline[7,9]
\psline[11,12]
\psline[9,14,8]
\psline[14,0,2]
\psendfig
%%%%%%%%%%%%%
% writing
%%%%%%%%%%%%%
\figvisu{\figBoxA}{}{
\figwritee 13:$5$(0.2)
\figwritee 15:$3$(0.1)
\figwrites 0:$1$(0.1)
}
%%%%%%%%%%
%%% debut dessin conique solide II% pts caracteristiques
%%%%%%%%%%%%%
\figinit{1truecm,orthogonal}
\figvectC 10(0,0,1)\figvectC 20(-1.5,1.5,0)
% cylindre sur cercle
\figpt 0:(0,0,0)\figpt 2:(1,0,0)\figpt 3:(0,1,0)
\figpt 1:(0,0,5)\figpt 4:(1,0,5)\figpt 5:(0,1,5)
\figptrot 6 := 5 /1, 40, 10/ \figptrot 7 := 6 /1, 180, 10/
\figptrot 8 := 3 /0, 40, 10/ \figptrot 9 := 8 /0, 180, 10/
\figptstra 11=7,9/1.2,20/
\figpt 14:(0,0,3)
\figptbary 15 :[14,0;1,1]
\figpt 30:(0,0,1.7)\figpt 31:(1,0,1.7)\figpt 32:(0,1,1.7)
\figptrot 33 := 32 /30, 40, 10/ \figptrot 34 := 33 /1, 180, 10/
\figpttra 35:=34/1.2,20/
\figptbary 13 :[35,12;1,1]
\def\lonblanc{0.42}
\figpt 36:(\lonblanc,0,1.7)\figpt 37:(0,\lonblanc,1.7)
\figptrot 38 := 37 /30, 40, 10/ \figptrot 39 := 38 /1, 180, 10/
%%%%%%%%%%%%%%
% fichier graphical
%%%%%%%%%%%%%%%%
\psbeginfig{}
% cylindre sur cercle
\pscirc 1,4,5 (1)
\psline[6,8]\psline[7,9]
\psline[12,35]
\pscirc 30,31,32 (1)
\psset(fillmode=yes, color=1)
\psline[9,14,8]\psreset{first}
\psline[9,14,8]
\psset(fillmode=yes)
\pscirc 0,2,3 (1)\psline[33,34,9,8]\pscirc 30,31,32 (1)\psreset{first}
\psset(fillmode=yes, color=1)
\psarccirc 30,31,32 ; \lonblanc (-50,130)
\psline[14,38,39]\psline[38,39]
\psreset{first}
\psset(color=1, width=2)
\psline[39,38]
\psreset{first}
\psendfig
%%%%%%%%%%%%%
% writing
%%%%%%%%%%%%%
\figvisu{\figBoxB}{}{
\figwritee 13:$x$(0.2)
}
%%%%%%%%%%
\centerline{\box\figBoxA\hglue 30pt\box\figBoxB}
\bye