\documentclass[a4paper]{article} \usepackage{pst-plot} \usepackage{pst-v3d} \usepackage[latin1]{inputenc} \usepackage[T1]{fontenc} \definecolor{bleupale}{rgb}{0.8 .8 1} \SpecialCoor \input{cylindre_object.tex} \input{raccord_object.tex} \input{cone_object.tex} \pagestyle{empty} \begin{document} \begin{center} \begin{pspicture}(-1,-1)(10,10) \psframe(0,0)(8,10) \psaxes(0,0)(8,10) \pstVerb{% /H 8 def /R 4.5 def /r 2 def /a 5 def /xI r a add def /theta 1 H R div atan def /alpha 90 theta sub def /cosT 1 1 H R div dup mul add sqrt div def /zI H R div r a add mul neg H add a cosT div add def}% \pscustom[linecolor=red,linewidth=2\pslinewidth]{% \psline(0,0)(! 0 H)(! r H)(!r zI) \parametricplot{180}{180 theta add}{% t a t cos mul r add a add a t sin mul zI add}% \psline(! a 180 theta add cos mul r add a add a 180 theta add sin mul zI add)(! R 0)% \fill[fillstyle=vlines]} \end{pspicture} \end{center} \begin{center} \begin{pspicture}(-8,-8)(8,8) \psframe(-8,-8)(8,8) \psset{THETA=20,PHI=30,Dobs=50,Decran=30} \psset{R=4,H=7,r=2,a=5,nF=18}% \pstVerb{% /H 7 def /R 4 def /r 2 def /a 5 def /xI r a add def /theta 1 H R div atan def /cosT 1 1 H R div dup mul add sqrt div def /zI H R div r a add mul neg H add a cosT div add def /fracHeight zI a 180 theta add sin mul add H div def} \psset{thetaLight=-10,phiLight=20,dLight=50,hsbcolor=0.17 0.5,nocolor=false} \psCylindre[interior=true,nH=1](0,0,0){R}{1} \psCone[nH=6,fracHeight=fracHeight](0,0,1){R}{H} \psRaccord(0,0,1) \psCylindre[interior=true,nH=6](0,0,zI 1 add){2}{H zI sub} \end{pspicture} \end{center} \begin{center} \begin{pspicture}(-8,-8)(8,8) \psframe(-8,-8)(8,8) \psset{THETA=20,PHI=20,Dobs=50,Decran=30,todraw=false} \psset{R=4,H=8,r=2,a=5,nF=36}% \pstVerb{% /H 8 def /R 4 def /r 2 def /a 5 def /xI r a add def /theta 1 H R div atan def /cosT 1 1 H R div dup mul add sqrt div def /zI H R div r a add mul neg H add a cosT div add def} \psset{thetaLight=-20,phiLight=20,dLight=50,hsbcolor=0.6 0.3,nocolor=false} \psCone[nH=8](0,0,0){R}{H} \psRaccord(0,0,0) \psCylindre[interior=true,nH=8](0,0,zI){2}{H zI sub} \end{pspicture} \end{center} \begin{center} \begin{pspicture}(-8,-4)(8,8) \psframe(-8,-4)(8,8) \psset{THETA=20,PHI=20,Dobs=50,Decran=40,todraw=false} \psset{R=4,H=7,r=2,a=5,nF=36}% \pstVerb{% /H 7 def /R 4 def /r 2 def /a 5 def /xI r a add def /theta 1 H R div atan def /cosT 1 1 H R div dup mul add sqrt div def /zI H R div r a add mul neg H add a cosT div add def /fracHeight zI a 180 theta add sin mul add H div def} \psset{thetaLight=-50,phiLight=60,dLight=50,hsbcolor=0.6 0.3,nocolor=false} \psCylindre[interior=true,nH=8](0,0,0){R}{1} \psCone[nH=8,fracHeight=fracHeight](0,0,1){R}{H} \psRaccord(0,0,1) \psCylindre[interior=true,nH=8](0,0,zI 1 add){2}{H zI sub} \end{pspicture} \end{center} \end{document}