test_hyperboloid.tex

\documentclass[a4paper]{article}
\usepackage{pst-v3d}
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}
\input{cylindre_object.tex}
\input{hyperboloid_object.tex}
\pagestyle{empty}
\def\Rectangle(#1,#2)(#3,#4){
newpath
#1 #2 moveto
#3 #2 lineto
#3 #4 lineto
#1 #4 lineto
 closepath }
\begin{document}
 
\begin{center}
\psset{unit=0.5}
\begin{pspicture}(-6,-5)(5,8)
\psframe(-6,-5)(5,8)
\psset{THETA=20,PHI=60,Dobs=50,Decran=30}
\psset{R=8,H=12.1,r=4,nF=36}%
\psset{thetaLight=50,phiLight=60,dLight=50,hsbcolor=0.5 0.5,interior=true,todraw=false}
\psHyperboloid[RotX=0](0,0,0)
\psCylindre[nH=2](0,0,12){4}{3}
\end{pspicture}
\begin{pspicture}(-9,-5)(3,8)
\psframe(-8,-5)(3,8)
\psset{THETA=20,PHI=30,Dobs=50,Decran=30}
\psset{R=8,H=14,r=4,nF=18}%
\psset{thetaLight=-10,phiLight=20,dLight=50,hsbcolor=0.17 0.5,interior=true}
\psHyperboloid[RotX=120](0,0,0)
\end{pspicture}
\end{center}
 
\[\left\{
\begin{array}{rcl}
x&=&a\sqrt{1+u^2}\cos v\\
y&=&a\sqrt{1+u^2}\sin v\\
z&=&cu+H
\end{array}
\right.
\]
 
\begin{center}
\psset{unit=0.5}
\begin{pspicture}(-6,-5)(5,8)
\psframe(-6,-5)(5,8)
\psset{THETA=20,PHI=60,Dobs=50,Decran=30}
\psset{R=8,H=12.1,r=4,nF=36}%
\psset{thetaLight=50,phiLight=60,dLight=50,hsbcolor=0.5 0.5,interior=false,todraw=false}
\psHyperboloid[RotX=0](0,0,0)
\psCylindre[nH=2](0,0,12){4}{3}
\end{pspicture}
\begin{pspicture}(-9,-5)(3,8)
\psframe(-8,-5)(3,8)
\psset{THETA=20,PHI=30,Dobs=50,Decran=30}
\psset{R=8,H=14,r=4,nF=18}%
\psset{thetaLight=-10,phiLight=20,dLight=50,hsbcolor=0.17 0.5,interior=false}
\psHyperboloid[RotX=120](0,0,0)
\end{pspicture}
\end{center}
 
\definecolor{bleupale}{rgb}{0.8 .8 1}
 
\begin{center}
\begin{pspicture}(-6,-5)(5,8)
\psframe(-6,-5)(5,8)
\psset{THETA=75,PHI=80,Dobs=50,Decran=30}
\planThreeDput[fillstyle=solid,fillcolor=bleupale,normale=90 90]{\Rectangle(-10,-10)(10,10)}
\planThreeDput[normale=90 90,fontscale=0.5]{\Grille(-10,-10)(10,10)}
\textThreeDput[linecolor=blue,fillstyle=solid,fillcolor=blue!80,normale=90 90,fontscale=2,PSfont=Helvetica](0,0,0){Tour 1}
\psset{R=8,H=12,r=4,nF=18}%
\psset{thetaLight=50,phiLight=60,dLight=50,hsbcolor=0.5 0.5,interior=true}
\psHyperboloid[RotX=0](0,0,0)
\end{pspicture}
\end{center}
\end{document}