\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 graphique %%%%%%%%%%%%%%%% \figdrawbegin{} % cylindre sur cercle \figdrawarccirc 0,2,3 ; 1 (-50,130) \figset(dash=5) \figdrawarccirc 0,2,3 ; 1 (130,310) \figreset{general} %\figdrawcirc 0,2,3 (1) \figdrawcirc 1,4,5 (1) \figdrawline[6,8]\figdrawline[7,9] \figdrawline[11,12] \figdrawline[9,14,8] \figdrawline[14,0,2] \figdrawend %%%%%%%%%%%%% % writing %%%%%%%%%%%%% \figvisu{\figBoxA}{}{ \figwritee 13:$5$(0.2) \figwritee 15:$3$(0.1) %\figwrites 0:$1$(0.1) \figwritew 0:$1$(0.3) } %%%%%%%%%% %%% 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 graphique %%%%%%%%%%%%%%%% \figdrawbegin{} % cylindre sur cercle \figdrawcirc 1,4,5 (1) \figdrawline[6,8]\figdrawline[7,9] \figdrawline[12,35] \figdrawcirc 30,31,32 (1) \figset(fillmode=yes, color=1) \figdrawline[9,14,8]\figreset{general} \figdrawline[9,14,8] \figset(fillmode=yes) \figdrawcirc 0,2,3 (1)\figdrawline[33,34,9,8]\figdrawcirc 30,31,32 (1)\figreset{general} \figset(fillmode=yes, color=1) \figdrawarccirc 30,31,32 ; \lonblanc (-50,130) \figdrawline[14,38,39]\figdrawline[38,39] \figreset{general} \figset(color=1, width=2) \figdrawline[39,38] \figreset{general} \figdrawend %%%%%%%%%%%%% % writing %%%%%%%%%%%%% \figvisu{\figBoxB}{}{ \figwritee 13:$x$(0.2) } %%%%%%%%%% \centerline{\box\figBoxA\hglue 30pt\box\figBoxB} \bye