\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 |