test-raccord.tex

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