%% $Id: pst-hyperboloid-doc-exa4.tex 1273 2026-06-02 10:47:27Z herbert $

\begin{externalDocument}[
  compiler=lualatex, runs=1, crop,
  %xindex, xindexOptions={-l DE --config AU},
  %mpwidth=0.6\linewidth, 
  usefancyvrb=false,
  docType=latex,
]{voss}
\DocumentMetadata{}
\documentclass{article}
\pagestyle{empty}
\usepackage{libertinus}
%StartVisiblePreamble
\usepackage[dvipsnames,svgnames]{pstricks}
\usepackage{pst-hyperboloid}
%StopVisiblePreamble
\begin{document}
\begin{pspicture}(-8,-7)(8,7)
\psset{solidmemory,viewpoint=50 20 20 rtp2xyz,lightsrc=viewpoint,Decran=40}%
\pstVerb{ /X0 1.5 def }%
\psSolid[object=grille,base=-4 4 -4 4,ngrid=8 8,linewidth=0.5\pslinewidth,linecolor=red](0,0,-4)%
\psHyperboloid[hollow,incolor=yellow!50,fillcolor=ForestGreen!20,plansepare={[1 0 0 X0 neg]},
  name=coupeHyperboloidTest,action=none]
\psSolid[object=load,incolor=yellow!50,fillcolor=ForestGreen!20,linewidth=0.5\pslinewidth,
  rm=0 1,load=coupeHyperboloidTest1]
\defFunction[algebraic]{hyperbol1}(t){X0}{t}{sqrt(((X0^2+t^2)/(DemiAxeFocal^2)-1))*DemiAxeNonFocal}
\defFunction[algebraic]{hyperbol2}(t){X0}{t}{-sqrt(((X0^2+t^2)/(DemiAxeFocal^2)-1))*DemiAxeNonFocal}
\psSolid[object=courbe,linewidth=2\pslinewidth,function=hyperbol1,range=Ymax neg Ymax,r=0,linecolor=red]%
\psSolid[object=courbe,linewidth=2\pslinewidth,function=hyperbol2,range=Ymax neg Ymax,r=0,linecolor=red]%
\psSolid[object=load,incolor=yellow!50,linewidth=0.5\pslinewidth,fillcolor=ForestGreen!20,
  rm=0 1 178 179,load=coupeHyperboloidTest0,RotZ=-100](5,-4,0)
\psSolid[object=plan,definition=equation,args={[1 0 0 -1.5] 90},linecolor=blue,planmarks,
  base=-4 4 -4 4,ngrid={},showBase,action=draw]
\gridIIID[Zmin=-4,Zmax=4](-4,4)(-4,4)
\end{pspicture}
\end{document}
\end{externalDocument}
